egghelp/eggheads community

set commands

2003-06-15T03:07:23-04:00

First remove this line

Code:

putlog "[strlwr $chan] [lrange $line 1 end]"

and add this line

Code:

if {[info exists players([strlwr $chan])]} { continue }

before the

if {![string match -nocase [strlwr $chan] [lindex $line 0]]} { continue }

and should do fine..

PS: ReaLz: after I've restarted it:

(10:06:27) ::: .tcl array get players
(10:06:27) ::: Tcl: #bla moo

Statistics: Posted by caesar — Sun Jun 15, 2003 3:07 am

set commands

2003-06-15T02:59:22-04:00

Actualy ReaLz you should read the manual about the arrays first then say something about them. The array are erased upon a .die not a .restart or even a .rehash. Anywway, I'll have a look on it, I have a hint where that buggy may be.

Statistics: Posted by caesar — Sun Jun 15, 2003 2:59 am

set commands

2003-06-15T01:27:58-04:00

I'm not sure but I think that this happens because the .restart command makes the bot <> the arrays, to solve this problem you can use other ways to make it remember the players.
Like adding a flag to the users that play and when you execute the !players command will check all the users in its userlist and will return the ones with the given flag.

Statistics: Posted by ReaLz — Sun Jun 15, 2003 1:27 am

set commands

2003-06-14T23:00:50-04:00

it does not work properly. first part: setting works !set players players. When I do restart and then !players the bot responds Players: 0

Statistics: Posted by Storm — Sat Jun 14, 2003 11:00 pm

set commands

2003-06-14T18:53:56-04:00

This sems to be your lucky day!

Code:

set playersfile "players.txt"bind pub o "!set" pub:setbind pub o "@players" get:players if {![file exists $playersfile]} {close [open $playersfile w]} set file [open $playersfile r] while {![eof $file]} {  gets $file line   if {[string trim $line] == ""} { continue }   foreach chan [channels] {    if {![string match -nocase [strlwr $chan] [lindex $line 0]]} { continue }    array set players "[strlwr $chan] [lrange $line 1 end]"    putlog "[strlwr $chan] [lrange $line 1 end]"  } }close $fileproc pub:set {nick host handle chan arg} {  global players  switch -- [lindex $arg 0] {    "players" {      array set players "[strlwr $chan] [list [lrange $arg 1 end]]"      set file [open "$::playersfile" w]      foreach ch [channels] {        puts $file "$ch $players([strlwr $ch])"      }      catch {close $file}      putserv "PRIVMSG $chan :Added [llength [lrange $arg 1 end]] players: [lrange $arg 1 end]."    }  }}proc get:players {nick host handle channel arg} {   global players   if {![info exists players([strlwr $channel])]} {     array set players "[strlwr $channel] 0"   }   putserv "PRIVMSG $channel :Players: $players([strlwr $channel])"}

Let me know if something is not working propertly..

Statistics: Posted by caesar — Sat Jun 14, 2003 6:53 pm

set commands

2003-06-14T18:36:17-04:00

Caesar could u plz help me?

Statistics: Posted by Storm — Sat Jun 14, 2003 6:36 pm

set commands

2003-06-06T19:05:07-04:00

anyone knows how to do it?

Statistics: Posted by Storm — Fri Jun 06, 2003 7:05 pm

set commands

2003-06-04T11:08:53-04:00

hey. Thanks, it works, but it does not save, so when I do rehash / restart, it removes. Can u pls edit it so it will auto save

Statistics: Posted by Storm — Wed Jun 04, 2003 11:08 am

set commands

2003-06-03T01:39:35-04:00

Code:

bind pub o "!set" pub:setproc pub:set {nick host handle chan arg} {global players  switch -- [lindex $arg 0] {    "players" {      array set players "[strlwr $chan] [list [lrange $arg 1 end]]"      putserv "PRIVMSG $chan :added [llength [lrange $arg 1 end]] players: [lrange $arg 1 end]"    }  }}bind pub o "@players" pub:get:playersproc pub:get:players {nick host handle chan arg} {  global players  foreach channel [array names players] {    if {![string match [strlwr $chan] [strlwr $chan]]} {      array set players "[strlwr $chan] 0"    }  }  putserv "PRIVMSG $chan :$players([strlwr $chan])"}

Statistics: Posted by caesar — Tue Jun 03, 2003 1:39 am

set commands

2003-06-03T00:02:24-04:00

Hey!
Allright, I finally decided to make this topic. I was thinking to post this topic or not. For users who use GamesNet Server will be easy to understand me, but I hope everyone will understand .
There is a list of commands in @commands: players, server, rules, help...
I know this is possible to make this script, but I have no idea how. The script allows u to set each command for each channel through IRC, not by editing TCL script in text editor. So it will be like in #chan1: !set players Players Names and in #chan1 by using @players the bot will display !set players Players Names and in other channels commands can be different. I hope everyone understood my point. Just give me 1 example of how to do this please .Thanks

Statistics: Posted by Storm — Tue Jun 03, 2003 12:02 am