egghelp/eggheads community

script request

2005-04-20T14:24:53-04:00

thx to allmighty De Kus the script works now =)

Statistics: Posted by dragoneye — Wed Apr 20, 2005 2:24 pm

script request

2005-04-20T12:59:02-04:00

after some talk on IRC here the fixed total version

Code:

set chanlist [channels]set vs "vs"bind pub - !cw ewa_cwbind pub - !help ewa_helpbind msg m|m spam ewa_spambind pub - !ctb ewa_pcwbind pub - !cwlist ewa_cwlistbind pub - !remove ewa_removeproc ewa_spam { nick uhost handle arg } {  global chanlist  for { set index 0 } { $index<[llength $chanlist] } { incr index } {            puthelp "PRIVMSG [lindex $chanlist $index] :$arg"  }}              proc ewa_help { nick uhost handle channel arg } {  puthelp "NOTICE $nick : *******Matchfind*******"  puthelp "NOTICE $nick : !cw   "  puthelp "NOTICE $nick : You can do '!CTB' with same use to ask for a Capture the briefcase cw."  puthelp "NOTICE $nick : for example: !cw 4 9pm on"  puthelp "NOTICE $nick :  is the status of a server. If you can have one do 'on', if not do 'off'."  puthelp "NOTICE $nick : You need to be OP to ask for a cw. If ReactionBot is not on your channel ask it to Dragoneye @ #clan.sup or mail dragon@netikka.fi."    puthelp "NOTICE $nick : *******Teh End**********"}proc ewa_cw { nick uhost handle channel arg } {  global chanlist vs cwflood   set arg [split $arg]  if { ![info exists cwflood($channel)] } {  set cwflood($channel) 1  } elseif { $cwflood($channel) > 2 } {    puthelp "NOTICE $nick :Sorry dude, you have reached your limit, try again a few minutes later."    return 0  } else {    incr cwflood($channel)  }  timer 10 [list incr cwflood($channel) -1]  set file datafile.txt  if {![file exists $file]} {close [open $file w]}  set io [open $file a]    if { [isop $nick $channel] } {    set ewa_playernumber [string tolower [lindex $arg 0]]    set ewa_time [lindex $arg 1]    set ewa_server [string tolower [lindex $arg 2]]    if { ( $ewa_playernumber != "" ) && ( $ewa_time !="" ) && ( $ewa_server !="" ) } {      if { $ewa_playernumber == "1" || $ewa_playernumber == "2" || $ewa_playernumber == "3" || $ewa_playernumber == "4" || $ewa_playernumber == "5" || $ewa_playernumber == "6" || $ewa_playernumber == "7" || $ewa_playernumber == "8" } {        if { ( $ewa_server == "on" ) || ( $ewa_server == "off" ) } {          set ewa_status $ewa_server          for { set index 0 } { $index<[llength $chanlist] } { incr index } {            putserv "PRIVMSG [lindex $chanlist $index] :\\[ RQ3 CW \] $channel is looking for $ewa_playernumber$vs$ewa_playernumber @ $ewa_time - Server $ewa_status"           # putserv "PRIVMSG reactionbot3 :spam \[ RQ3 CW \] $channel is looking for $ewa_playernumber$vs$ewa_playernumber @ $ewa_time - Server $ewa_status"           # putserv "PRIVMSG reactionbot2 :spam \[ RQ3 CW \] $channel is looking for $ewa_playernumber$vs$ewa_playernumber @ $ewa_time - Server $ewa_status"    }    puts $io "\[ RQ3 CW ]\ $channel is looking for $ewa_playernumber$vs$ewa_playernumber @ $ewa_time - Server $ewa_status"  close $io  timer 15 [list ewa_t_remove "\[ RQ3 CW ]\ $channel is looking for $ewa_playernumber$vs$ewa_playernumber @ $ewa_time - Server $ewa_status"]       } else {          puthelp "NOTICE $nick : $ewa_server is a bad server status, it must be 'on' or 'off'. Try '!help' for more info."        }       } else {        puthelp "NOTICE $nick : $ewa_playernumber is bad, it's the number of players you want in the cw. It must be set between 1 and 8. Try '!help' for more info."      }    } else {      puthelp "NOTICE $nick : Uh?? What are you trying to say? Do '!help' for more info."    }    } else {    puthelp "NOTICE $nick : You need to be OP to ask for a cw. You need to be OP to ask for a cw. If ReactionBot is not on your channel ask it to Dragoneye @ #clan.sup or mail dragon@netikka.fi."  }}proc ewa_pcw { nick uhost handle channel arg } {  global chanlist vs cwflood   set arg [split $arg]  if { ![info exists cwflood($channel)] } {  set cwflood($channel) 1  } elseif { $cwflood($channel) > 2 } {    puthelp "NOTICE $nick :Sorry dude, you have reached your limit, try again a few minutes later."    return 0  } else {    incr cwflood($channel)  }  timer 10 [list incr cwflood($channel) -1]  if { [isop $nick $channel] } {    set ewa_playernumber [string tolower [lindex $arg 0]]    set ewa_time [lindex $arg 1]    set ewa_server [string tolower [lindex $arg 2]]    if { ( $ewa_playernumber != "" ) && ( $ewa_time !="" ) && ( $ewa_server !="" ) } {      if { $ewa_playernumber == "1" || $ewa_playernumber == "2" || $ewa_playernumber == "3" || $ewa_playernumber == "4" || $ewa_playernumber == "5" || $ewa_playernumber == "6" || $ewa_playernumber == "7" || $ewa_playernumber == "8" } {        if { ( $ewa_server == "on" ) || ( $ewa_server == "off" ) } {          set ewa_status $ewa_server          for { set index 0 } { $index<[llength $chanlist] } { incr index } {            putserv "PRIVMSG [lindex $chanlist $index] :\\[ RQ3 CTB \] $channel is looking for $ewa_playernumber$vs$ewa_playernumber @ $ewa_time - Server $ewa_status"         #   putserv "PRIVMSG reactionbot3 :spam \[ RQ3 CTB \] $channel is looking for $ewa_playernumber$vs$ewa_playernumber @ $ewa_time - Server $ewa_status"         #   putserv "PRIVMSG reactionbot2 :spam \[ RQ3 CTB \] $channel is looking for $ewa_playernumber$vs$ewa_playernumber @ $ewa_time - Server $ewa_status"}        } else {          puthelp "NOTICE $nick : $ewa_server is a bad server status, it must be 'on' or 'off'. Try '!help' for more info."        }       } else {        puthelp "NOTICE $nick : $ewa_playernumber is bad, it's the number of players you want in the cw. It must be set between 1 and 8. Try '!help' for more info."      }    } else {      puthelp "NOTICE $nick : Uh?? What are you trying to say? Do '!help' for more info."    }    } else {    puthelp "NOTICE $nick : You need to be OP to ask for a cw. You need to be OP to ask for a cw. If ReactionBot is not on your channel ask it to Dragoneye @ #clan.sup or mail dragon@netikka.fi."  }}proc ewa_cwlist {nick uhost handle channel arg} {  set file datafile.txt  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"  }}proc ewa_remove {nick uhost handle channel arg} {  set file datafile.txt  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"}proc ewa_t_remove {text} {   set file datafile.txt   set io [open $file r]      set list [split [read $io] \n]   close $io   if { [set line [lsearch -exact $list $text]] != -1 } {      set list [lreplace $list $line $line]      set io [open $file w]         puts -nonewline $io [join $list \n]      close $io   } else {      putlog "error triing find line to delete in $file."   }}

PS: edited

Statistics: Posted by De Kus — Wed Apr 20, 2005 12:59 pm

script request

2005-04-20T11:17:27-04:00

flood:
place a "set cwflood 0" to the global init (like below set vs).

then append cwflood to "global chanlist vs", as far as I can see you need to do this in both procs.
now add this code below the global line:

Code:

   if { $cwflood > 3 } {      return 0   }   incr cwflood   utimer 60 {incr cwflood -1}

replace the number '3' and '60' to whatever you like. The current setting would limit the usage to 3 per 60sec, meaning the 4th and more is ignored until 60sec of the 4th has passed.

delete:
add this line just below the puts and close where it will be saved:

timer 15 [list ewa_t_remove "\[ RQ3 CW ]\ $channel is looking for $ewa_playernumber$vs$ewa_playernumber @ $ewa_time - Server $ewa_status"]

then add this proc:

Code:

proc ewa_t_remove {text} {   set file datafile.txt   set io [open $file r]      set list [split [read $io] \n]   close $io   if { [set line [lsearch $list $text]] != -1 } {      set list [lreplace $list $line $line]      set io [open $file w]         puts -nonewline [join $line \n]      close $io   } else {      putlog "error triing find line to delete in $file."   }}

I am not 100% sure if this lsearch will find it again this way, so i put in the putlog to catch this logical error, if it occurs .

PS: in the proc where you add the new entry via put you should rather use "set io [open $file a]" instead of "set io [open $file w]". opening with w will just overwrite the file, a will append at the end without reading the complete file.

Statistics: Posted by De Kus — Wed Apr 20, 2005 11:17 am

script request

2005-04-20T10:55:34-04:00

hello guys again =) im currently working on a matchfindbot-script but i cannot figure how to make a spam protection to it, i also need somekinda timer to delete 1 line from the database.
script works like this when u type !cw 3 now on the bot will
msg [ RQ3 CW ] #channel is looking for 3vs3 @ now - Server on
and save it to database.txt, when u type !cwlist the bot will read the database.txt and passes the text to the channel. i need somekinda timer to delete the msg from the database when 15min have passed, but i dont wanna delete all messages from there only that 1 line wich you typed 15mins ago. so here is the script. that !remove is only a temporally until i can get that timerthing to work

Code:

# (c) Dragoneye & babouset chanlist [channels]set vs "vs"bind pub - !cw ewa_cwbind pub - !help ewa_helpbind msg m|m spam ewa_spambind pub - !ctb ewa_pcwbind pub - !cwlist ewa_cwlistbind pub - !remove ewa_removeproc ewa_spam { nick uhost handle arg } {  global chanlist  for { set index 0 } { $index<[llength $chanlist] } { incr index } {            puthelp "PRIVMSG [lindex $chanlist $index] :$arg"  }}              proc ewa_help { nick uhost handle channel arg } {  puthelp "NOTICE $nick : *******Matchfind*******"  puthelp "NOTICE $nick : !cw   "  puthelp "NOTICE $nick : You can do '!CTB' with same use to ask for a Capture the briefcase cw."  puthelp "NOTICE $nick : for example: !cw 4 9pm on"  puthelp "NOTICE $nick :  is the status of a server. If you can have one do 'on', if not do 'off'."  puthelp "NOTICE $nick : You need to be OP to ask for a cw. If ReactionBot is not on your channel ask it to Dragoneye @ #clan.sup or mail dragon@netikka.fi."    puthelp "NOTICE $nick : *******Teh End**********"}proc ewa_cw { nick uhost handle channel arg } {  global chanlist vsset file datafile.txt  if {![file exists $file]} {close [open $file w]}  set io [open $file w]    if { [isop $nick $channel] } {    set ewa_playernumber [string tolower [lindex $arg 0]]    set ewa_time [lindex $arg 1]    set ewa_server [string tolower [lindex $arg 2]]    if { ( $ewa_playernumber != "" ) && ( $ewa_time !="" ) && ( $ewa_server !="" ) } {      if { $ewa_playernumber == "1" || $ewa_playernumber == "2" || $ewa_playernumber == "3" || $ewa_playernumber == "4" || $ewa_playernumber == "5" || $ewa_playernumber == "6" || $ewa_playernumber == "7" || $ewa_playernumber == "8" } {        if { ( $ewa_server == "on" ) || ( $ewa_server == "off" ) } {          set ewa_status $ewa_server          for { set index 0 } { $index<[llength $chanlist] } { incr index } {            putserv "PRIVMSG [lindex $chanlist $index] :\\[ RQ3 CW \] $channel is looking for $ewa_playernumber$vs$ewa_playernumber @ $ewa_time - Server $ewa_status"           # putserv "PRIVMSG reactionbot3 :spam \[ RQ3 CW \] $channel is looking for $ewa_playernumber$vs$ewa_playernumber @ $ewa_time - Server $ewa_status"           # putserv "PRIVMSG reactionbot2 :spam \[ RQ3 CW \] $channel is looking for $ewa_playernumber$vs$ewa_playernumber @ $ewa_time - Server $ewa_status"    }puts $io "\[ RQ3 CW ]\ $channel is looking for $ewa_playernumber$vs$ewa_playernumber @ $ewa_time - Server $ewa_status"  close $io        } else {          puthelp "NOTICE $nick : $ewa_server is a bad server status, it must be 'on' or 'off'. Try '!help' for more info."        }       } else {        puthelp "NOTICE $nick : $ewa_playernumber is bad, it's the number of players you want in the cw. It must be set between 1 and 8. Try '!help' for more info."      }    } else {      puthelp "NOTICE $nick : Uh?? What are you trying to say? Do '!help' for more info."    }    } else {    puthelp "NOTICE $nick : You need to be OP to ask for a cw. You need to be OP to ask for a cw. If ReactionBot is not on your channel ask it to Dragoneye @ #clan.sup or mail dragon@netikka.fi."  }}proc ewa_pcw { nick uhost handle channel arg } {   global chanlist vs  if { [isop $nick $channel] } {    set ewa_playernumber [string tolower [lindex $arg 0]]    set ewa_time [lindex $arg 1]    set ewa_server [string tolower [lindex $arg 2]]    if { ( $ewa_playernumber != "" ) && ( $ewa_time !="" ) && ( $ewa_server !="" ) } {      if { $ewa_playernumber == "1" || $ewa_playernumber == "2" || $ewa_playernumber == "3" || $ewa_playernumber == "4" || $ewa_playernumber == "5" || $ewa_playernumber == "6" || $ewa_playernumber == "7" || $ewa_playernumber == "8" } {        if { ( $ewa_server == "on" ) || ( $ewa_server == "off" ) } {          set ewa_status $ewa_server          for { set index 0 } { $index<[llength $chanlist] } { incr index } {            putserv "PRIVMSG [lindex $chanlist $index] :\\[ RQ3 CTB \] $channel is looking for $ewa_playernumber$vs$ewa_playernumber @ $ewa_time - Server $ewa_status"         #   putserv "PRIVMSG reactionbot3 :spam \[ RQ3 CTB \] $channel is looking for $ewa_playernumber$vs$ewa_playernumber @ $ewa_time - Server $ewa_status"         #   putserv "PRIVMSG reactionbot2 :spam \[ RQ3 CTB \] $channel is looking for $ewa_playernumber$vs$ewa_playernumber @ $ewa_time - Server $ewa_status"}        } else {          puthelp "NOTICE $nick : $ewa_server is a bad server status, it must be 'on' or 'off'. Try '!help' for more info."        }       } else {        puthelp "NOTICE $nick : $ewa_playernumber is bad, it's the number of players you want in the cw. It must be set between 1 and 8. Try '!help' for more info."      }    } else {      puthelp "NOTICE $nick : Uh?? What are you trying to say? Do '!help' for more info."    }    } else {    puthelp "NOTICE $nick : You need to be OP to ask for a cw. You need to be OP to ask for a cw. If ReactionBot is not on your channel ask it to Dragoneye @ #clan.sup or mail dragon@netikka.fi."  }}proc ewa_cwlist {nick uhost handle channel arg} {  set file datafile.txt  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"  }}proc ewa_remove {nick uhost handle channel arg} {  set file datafile.txt  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"}

Statistics: Posted by dragoneye — Wed Apr 20, 2005 10:55 am