egghelp/eggheads community Discussion of eggdrop bots, shell accounts and tcl scripts. 2003-04-27T07:34:49-04:00 https://forum.eggheads.org/app.php/feed/topic/3663 2003-04-27T07:34:49-04:00 2003-04-27T07:34:49-04:00 https://forum.eggheads.org/viewtopic.php?p=19504#p19504 <![CDATA[Game setups]]>

Code: 

bind pub - !add proc_addproc proc_add {nick uhost handle channel arg} {  set file datafile  if {![file exists $file]} {close [open $file w]}  set io [open $file w]  puts $io $arg  close $io  putserv "PRIVMSG $channel :Added; $arg"}bind pub - !remove proc_removeproc proc_remove {nick uhost handle channel arg} {  set file datafile  if {![file exists $file]} {close [open $file w]}  set io [open $file r]  set list ""  while {![eof $io]} {    gets $io line    set line [string tolower $line]    if {([string trim $line] == "") ||        ($line == [string tolower $arg])} {continue}    lappend list $line  }  close $io  set io [open $file w]  foreach line $list {puts $io $line}  close $io  putserv "PRIVMSG $channel :Removed; $arg"}bind pub - !scrimlist proc_scirmlistproc proc_scirmlist {nick uhost handle channel arg} {  set file datafile  if {![file exists $file]} {close [open $file w]}  set io [open $file r]  set list ""  while {![eof $io]} {    gets $io line    if {[string trim $line] == ""} {continue}    lappend list $line  }  close $io  set length [llength $list]  set message "$length match[expr {($length == "1")?"":"es"}] found;"  putserv "PRIVMSG $channel :$message"  foreach line $list {    putserv "PRIVMSG $channel :$line"  }}
Hope that helps. This may have a bug here and there, I didn't test it.

Statistics: Posted by MC_8 — Sun Apr 27, 2003 7:34 am

]]> 2003-02-12T14:38:42-04:00 2003-02-12T14:38:42-04:00 https://forum.eggheads.org/viewtopic.php?p=16493#p16493 <![CDATA[Game setups]]> Allows clans to add their clan to a list on the bot of clans looking to scrimage other clans. For instence. !add Clan:[WTF] Players:7 time:9pm Map:mp_castle when people type !scrimlist the bot will publicly display a list of clans with the info above, that have been added for that night.

Thanks for any help :lol:

Statistics: Posted by Guest — Wed Feb 12, 2003 2:38 pm

]]>