egghelp/eggheads community

store nicks to a file

2005-09-08T04:26:15-04:00

Tnx demond

You're a nice guy

@minted
yepp, i'm a old man and always polite

friendly regards
oxygen

Statistics: Posted by oxygen — Thu Sep 08, 2005 4:26 am

store nicks to a file

2005-09-08T01:36:21-04:00

lol! he was so polite u couldnt resist

Statistics: Posted by minted — Thu Sep 08, 2005 1:36 am

store nicks to a file

2005-09-07T16:30:47-04:00

oh well, here it is with reading:

Code:

set tfile teams.txtbind pub - !add foobind time - ?0* barif {![catch {set f [open $tfile]}]} {   foreach e [split [read $f] \n] {      set t [lindex [split $e] 0]; if {$t == ""} continue      set team($t) [lrange [split $e] 1 e]   }   close $f}proc foo {n u h c t} {   set t [lindex [split $t] 0]   if {[info exists ::team($t)]} {      if {[lsearch -exact $::team($t) $n] != -1} {return}   }   lappend ::team($t) $n   puthelp "notice $n :added you to $t team"}proc bar {args} {   set f [open $::tfile w]   foreach {t m} [array get ::team] {      puts $f "$t [join $m]"   }   close $f}

Statistics: Posted by demond — Wed Sep 07, 2005 4:30 pm

store nicks to a file

2005-09-07T16:09:23-04:00

No problem demond

You say it's easy? I try for over a week to do this
Seems I'm to lame for .tcl
Tnx anyway I appreciate your help.
Hope some "soul" will help.

friendly regards
oxygen

Statistics: Posted by oxygen — Wed Sep 07, 2005 4:09 pm

store nicks to a file

2005-09-07T15:59:08-04:00

you didn't say anything about reading from file in your initial request, you only required storing - and now is kind of late for that I don't feel like constantly satisfying ever changing requirements anymore; but maybe some kind soul will do that for you, it's fairly easy

Statistics: Posted by demond — Wed Sep 07, 2005 3:59 pm

store nicks to a file

2005-09-07T15:46:33-04:00

Hello demond.

Sorry, but it isn't what I'm lookin' for. I feel bad to wast your time...
What I need is a script that reads the teams and nicks from a file, and when the nick is on any team to return 0. If the nick is not in the file, then it should check if arg is a team in the file, and if it is to add the nick to te team. Else creat a new team. And store all in the file again.
Something like I posted earlyer. I tryed several ways but couldn't make it work.
Hope anybody can help.

friendly regards
oxygen

Statistics: Posted by oxygen — Wed Sep 07, 2005 3:46 pm

store nicks to a file

2005-09-06T14:54:26-04:00

then replace:

Code:

puts $f "$t: [join $m ,]"

with:

Code:

puts $f "$t [join $m]"

Statistics: Posted by demond — Tue Sep 06, 2005 2:54 pm

store nicks to a file

2005-09-06T14:48:16-04:00

Hello demond.

Tnx for our reply. It works, but....
I made a mistake the txt file should be like this:

Team1 nick1 nick2 nick3 ..
Team2 nick4 nick5 nick6 ..
Team3 nick7 nick8 nick9 ..

Maybe it explains better I post the script I wrote but dosn't work:

Code:

bind pub - !add teamproc team {nick uhost hand chan arg} {   global newteam newmember      set addteam [lindex [split $arg] 0] set in [open team.txt r]          while {![eof $in]} {                set list [gets $in]      if {[lsearch -exact $list $nick] != -1} {                                    set team [lindex [split $list] 0]              if {$addteam==$team} {         puthelp "notice $nick :you're already on $team "          return      } else {          puthelp "notice $nick :you're already on $team and can't leave your team"          return }        } else {         set team [lindex [split $list] 0]         set members [lrange [split $list] 1 end]         if {$addteam==$team} {              puthelp "notice $nick :added you to $team"              set newmember "$team $members $nick"           saveteam2      return} else {     puthelp "notice $nick :you created $addteam"     set newteam "$addteam $nick"  saveteam1      return}}   close $in     }}proc saveteam1 {} {   global newteam         set fd [open team.txt a+]        puts $fd "$newteam"          close $fd  } proc saveteam2 {} {   global newmember         set fd [open team.txt w]        puts $fd "$newmember"          close $fd  }

I hope you can help me with this.
friendly regards
oxygen

Statistics: Posted by oxygen — Tue Sep 06, 2005 2:48 pm

store nicks to a file

2005-09-05T18:06:10-04:00

Code:

bind pub - !add foobind time - ?0* barproc foo {n u h c t} {   set t [lindex [split $t] 0]   if {[info exists ::team($t)]} {      if {[lsearch -exact $::team($t) $n] != -1} {return}   }   lappend ::team($t) $n   puthelp "notice $n :added you to $t team"}proc bar {args} {   set f [open teams.txt w]   foreach {t m} [array get ::team] {      puts $f "$t: [join $m ,]"   }   close $f}

Statistics: Posted by demond — Mon Sep 05, 2005 6:06 pm

store nicks to a file

2005-09-05T17:37:51-04:00

Hello

I hope somebody is nice to help me with a script.
I want to store on a command in a channel like !add the teamname and the nick in a file.
like:
Team1 nick1 nick2 nick3 ..
Team2 nick1 nick2 nick3 ..
Team3 nick1 nick2 nick3 ..
.
.

if the nick is already on a team return 0 , and if the team exists add his nick to the team, else create a new team.

Tnx for anybody could help.
friendly regards
oxygen

Statistics: Posted by oxygen — Mon Sep 05, 2005 5:37 pm