set fp [open botdata r]gets $fp lineset locatebot1 blah blah...gets $fp lineset locatebot2 blah blah...gets $fp lineset locatebot3 ......close $fp

Statistics: Posted by stdragon — Sun Aug 24, 2003 3:50 pm

Statistics: Posted by GodOfSuicide — Sun Aug 24, 2003 2:20 pm

Statistics: Posted by user — Sun Aug 24, 2003 1:42 pm

Code:

proc list_bots { nick user hand chan arg } {   global botsbot1 botsbot2 botsbot3 botsbot4 botsbot5 botsbot6 botsbot7 botsbot8 botsbot9 botsbot10 mainchanbots mainchannation   global nationbot1 nationbot2   global dbotsbot1 dbotsbot2 dbotsbot3 dbotsbot4 dbotsbot5 dbotsbot6 dbotsbot7 dbotsbot8 dbotsbot9 dbotsbot10   global dnationbot1 dnationbot2   if {$chan == $mainchanbots} {   set fs [open $botsbot1 r]     gets $fs line     set locatebot1 [lindex $line 0]     set locatechar1 [lindex $line 1]     set location1 [lindex $line 2]     set action1 [lrange $line 3 end]   close $fs   set fs [open $botsbot2 r]     gets $fs line     set locatebot2 [lindex $line 0]     set locatechar2 [lindex $line 1]     set location2 [lindex $line 2]     set action2 [lrange $line 3 end]   close $fs   set fs [open $botsbot3 r]     gets $fs line     set locatebot3 [lindex $line 0]     set locatechar3 [lindex $line 1]     set location3 [lindex $line 2]     set action3 [lrange $line 3 end]   close $fs   set fs [open $botsbot4 r]     gets $fs line     set locatebot4 [lindex $line 0]     set locatechar4 [lindex $line 1]     set location4 [lindex $line 2]     set action4 [lrange $line 3 end]   close $fs   set fs [open $botsbot5 r]     gets $fs line     set locatebot5 [lindex $line 0]     set locatechar5 [lindex $line 1]     set location5 [lindex $line 2]     set action5 [lrange $line 3 end]   close $fs   set fs [open $botsbot6 r]     gets $fs line     set locatebot6 [lindex $line 0]     set locatechar6 [lindex $line 1]     set location6 [lindex $line 2]     set action6 [lrange $line 3 end]   close $fs   set fs [open $botsbot7 r]     gets $fs line     set locatebot7 [lindex $line 0]     set locatechar7 [lindex $line 1]      set location7 [lindex $line 2]     set action7 [lrange $line 3 end]   close $fs   set fs [open $botsbot8 r]     gets $fs line     set locatebot8 [lindex $line 0]     set locatechar8 [lindex $line 1]      set location8 [lindex $line 2]     set action8 [lrange $line 3 end]   close $fs   set fs [open $botsbot9 r]     gets $fs line     set locatebot9 [lindex $line 0]     set locatechar9 [lindex $line 1]      set location9 [lindex $line 2]     set action9 [lrange $line 3 end]   close $fs   set fs [open $botsbot10 r]     gets $fs line     set locatebot10 [lindex $line 0]     set locatechar10 [lindex $line 1]      set location10 [lindex $line 2]     set action10 [lrange $line 3 end]   close $fs   putquick "PRIVMSG $chan :\002Format\:\002 \(\0032CharName\003\) \0034Location\003 \(\0036Action of the bot\003\)"   putquick "PRIVMSG $chan :\002$dbotsbot1\:\002 \(\0032$locatechar1\003\) \0034$location1\003 \(\0036$action1\003\)  \002$dbotsbot2\:\002 \(\0032$locatechar2\003\) \0034$location2\003 \(\0036$action2\003\)"   putquick "PRIVMSG $chan :\002$dbotsbot3\:\002 \(\0032$locatechar3\003\) \0034$location3\003 \(\0036$action3\003\)  \002$dbotsbot4\:\002 \(\0032$locatechar4\003\) \0034$location4\003 \(\0036$action4\003\)"   putquick "PRIVMSG $chan :\002$dbotsbot5\:\002 \(\0032$locatechar5\003\) \0034$location5\003 \(\0036$action5\003\)  \002$dbotsbot6\:\002 \(\0032$locatechar6\003\) \0034$location6\003 \(\0036$action6\003\)"   putquick "PRIVMSG $chan :\002$dbotsbot7\:\002 \(\0032$locatechar7\003\) \0034$location7\003 \(\0036$action7\003\)  \002$dbotsbot8\:\002 \(\0032$locatechar8\003\) \0034$location8\003 \(\0036$action8\003\)"   putquick "PRIVMSG $chan :\002$dbotsbot9\:\002 \(\0032$locatechar9\003\) \0034$location9\003 \(\0036$action9\003\)  \002$dbotsbot10\:\002 \(\0032$locatechar10\003\) \0034$location10\003 \(\0036$action10\003\)"   return 0  }   if {$chan == $mainchannation} {   set fs [open $nationbot1 r]     gets $fs line     set locatebot1 [lindex $line 0]     set locatechar1 [lindex $line 1]     set location1 [lindex $line 2]     set action1 [lrange $line 3 end]   close $fs   set fs [open $nationbot2 r]     gets $fs line     set locatebot2 [lindex $line 0]     set locatechar2 [lindex $line 1]     set location2 [lindex $line 2]     set action2 [lrange $line 3 end]   close $fs   putquick "PRIVMSG $chan :\002Format\:\002 \(\0032CharName\003\) \0034Location\003 \(\0036Action of the bot\003\)"   putquick "PRIVMSG $chan :\002$dnationbot1\:\002 \(\0032$locatechar1\003\) \0034$location1\003 \(\0036$action1\003\)  \002$dnationbot2\:\002 \(\0032$locatechar2\003\) \0034$location2\003 \(\0036$action2\003\)"   return 0  }  return 0}

   putquick "PRIVMSG $chan :\002Format\:\002 \(\0032CharName\003\) \0034Location\003 \(\0036Action of the bot\003\)"   putquick "PRIVMSG $chan :\002$dnationbot1\:\002 \(\0032$locatechar1\003\) \0034$location1\003 \(\0036$action1\003\)  \002$dnationbot2\:\002 \(\0032$locatechar2\003\) \0034$location2\003 \(\0036$action2\003\)"

Statistics: Posted by Darkj — Sun Aug 24, 2003 9:47 am