egghelp/eggheads community Discussion of eggdrop bots, shell accounts and tcl scripts. 2003-08-17T15:16:32-04:00 https://forum.eggheads.org/app.php/feed/topic/5283 2003-08-17T15:16:32-04:00 2003-08-17T15:16:32-04:00 https://forum.eggheads.org/viewtopic.php?p=25173#p25173 <![CDATA[Help with this script]]>

Statistics: Posted by Sir_Fz — Sun Aug 17, 2003 3:16 pm

]]> 2003-08-17T15:10:02-04:00 2003-08-17T15:10:02-04:00 https://forum.eggheads.org/viewtopic.php?p=25172#p25172 <![CDATA[Help with this script]]>
worked prefectly :) thanx alot.

may I ask why do u do a [string tolower $chan\$nick] ? (like what does string tolower do ?)

and also what does lappend do ? (gathers variables or what ?)
'string tolower' converts a string all to lowercase
'lappend' is a list operator that appends elements on to a list variable.

For a listing of commands, and their descriptions, I suggest taking a look at the TCL manpages:
http://www.tcl.tk/man/tcl8.4/TclCmd/contents.htm

Statistics: Posted by strikelight — Sun Aug 17, 2003 3:10 pm

]]> 2003-08-17T15:00:22-04:00 2003-08-17T15:00:22-04:00 https://forum.eggheads.org/viewtopic.php?p=25171#p25171 <![CDATA[Help with this script]]> thanx alot.

may I ask why do u do a [string tolower $chan\$nick] ? (like what does string tolower do ?)

and also what does lappend do ? (gathers variables or what ?)

Statistics: Posted by Sir_Fz — Sun Aug 17, 2003 3:00 pm

]]> 2003-08-17T13:12:20-04:00 2003-08-17T13:12:20-04:00 https://forum.eggheads.org/viewtopic.php?p=25164#p25164 <![CDATA[Help with this script]]>

Code: 

bind kick - * channel:kick   proc channel:kick {nick uhost hand chan targ rsn} {   if {![string match -nocase "$targ" $::botnick]} { return }  global revengebans  set chan [string tolower $chan]  putquick "PRIVMSG chanserv@services.dal.net :deop $chan $nick" -next   putquick "PRIVMSG chanserv@services.dal.net :unban $chan"  if {![info exists revengebans($chan)]} { set revengebans($chan) {} }  lappend revengebans($chan) [list $nick *!*@[lindex [split $uhost @] 1]]}  bind mode - "* +o" lamer:remove proc lamer:remove {nick uhost hand chan mc vict} {   global revengebans   if {[string tolower $vict] != [string tolower $::botnick]} { return }  set chan [string tolower $chan]  if {![info exists revengebans($chan)]} { return }  foreach element $revengebans($chan) {    set revenge_nick [lindex $element 0]    set revenge_banmask [lindex $element 1]    if {[onchan $revenge_nick $chan]} {       putserv "mode $chan +b $revenge_banmask"        putkick $chan $revenge_nick "Lamer Removed."     }   }  unset revengebans($chan)  }
Try that..

Statistics: Posted by strikelight — Sun Aug 17, 2003 1:12 pm

]]> 2003-08-17T04:26:43-04:00 2003-08-17T04:26:43-04:00 https://forum.eggheads.org/viewtopic.php?p=25143#p25143 <![CDATA[Help with this script]]>

Statistics: Posted by Sir_Fz — Sun Aug 17, 2003 4:26 am

]]> 2003-08-17T03:46:33-04:00 2003-08-17T03:46:33-04:00 https://forum.eggheads.org/viewtopic.php?p=25139#p25139 <![CDATA[Help with this script]]>

Statistics: Posted by caesar — Sun Aug 17, 2003 3:46 am

]]> 2003-08-17T02:19:29-04:00 2003-08-17T02:19:29-04:00 https://forum.eggheads.org/viewtopic.php?p=25138#p25138 <![CDATA[Help with this script]]>
Actualy no, you've said:
you need to globalize some variables in the channel:kick procedure.
Also, the problem with this approach is if your bot is kicked successivley before applying the initial revenge reaction... You will need a list of some type, or as you suggested, creating a user record, and giving them a script defined flag.
so I don't see the word array mentioned there :P .. kidding :)
From a prior reply:
Then I'd recommend:
1) adding the host/chan to a global variable (preferably a listed array,
ie. lamerstoban(#chan) {host1 host2})
2) using a mode bind to check for the bot getting opped, and then
applying the bans in the listed array.
3) unsetting the global listed array variable
So, the word array has been mentioned :P

Also, I said that arrays in TCL are implemented as lists..Which isn't totally accurate..I'll expand:
TCL Arrays are implemented as hashtables, which in turn, are essentially indexed lists.

We'll get you taught yet, caesar :wink:

Statistics: Posted by strikelight — Sun Aug 17, 2003 2:19 am

]]> 2003-08-17T02:06:51-04:00 2003-08-17T02:06:51-04:00 https://forum.eggheads.org/viewtopic.php?p=25137#p25137 <![CDATA[Help with this script]]>
you need to globalize some variables in the channel:kick procedure.
Also, the problem with this approach is if your bot is kicked successivley before applying the initial revenge reaction... You will need a list of some type, or as you suggested, creating a user record, and giving them a script defined flag.
so I don't see the word array mentioned there :P .. kidding :)

Statistics: Posted by caesar — Sun Aug 17, 2003 2:06 am

]]> 2003-08-17T02:04:07-04:00 2003-08-17T02:04:07-04:00 https://forum.eggheads.org/viewtopic.php?p=25136#p25136 <![CDATA[Help with this script]]>
The -next added at the end of a putserv, putquick, or puthelp will push the message to the front of the queue.

Or making an array like #channel(user) or something..
Arrays in TCL are implemented as lists.. thus, what I already suggested :wink:

Statistics: Posted by strikelight — Sun Aug 17, 2003 2:04 am

]]> 2003-08-17T01:56:55-04:00 2003-08-17T01:56:55-04:00 https://forum.eggheads.org/viewtopic.php?p=25135#p25135 <![CDATA[Help with this script]]> -next added at the end of a putserv, putquick, or puthelp will push the message to the front of the queue.

Or making an array like #channel(user) or something..

Statistics: Posted by caesar — Sun Aug 17, 2003 1:56 am

]]> 2003-08-16T23:24:23-04:00 2003-08-16T23:24:23-04:00 https://forum.eggheads.org/viewtopic.php?p=25130#p25130 <![CDATA[Help with this script]]>
used this :

Code: 

set revenge "0"set revenge_nick ""set revenge_banmask ""bind kick - * channel:kick   proc channel:kick {nick uhost hand chan targ rsn} {  if {[string match -nocase "$targ" $::botnick]} {  putquick "PRIVMSG chanserv@services.dal.net :deop $chan $nick" -next  putquick "PRIVMSG chanserv@services.dal.net :unban $chan"  set revenge "1"  set revenge_nick "$nick"  set revenge_banmask "*!*@[lindex [split $uhost @] 1]" }}   bind mode - "* +o" lamer:removeproc lamer:remove {nick uhost hand chan mc vict} {global revenge revenge_nick revenge_banmask if {$vict == $::botnick} {  if {$revenge == "1"} {      if {[onchan $revenge_nick $chan]} {        putserv "mode $chan +b $revenge_banmask"          putkick $chan $revenge_nick "Lamer Removed."        unset revenge_nick        unset revenge_banmask        set revenge "0"           }     }  }}
didn't give any errors, but it didn't work... anyone can detect the problem ?
you need to globalize some variables in the channel:kick procedure.
Also, the problem with this approach is if your bot is kicked successivley before applying the initial revenge reaction... You will need a list of some type, or as you suggested, creating a user record, and giving them a script defined flag.

Statistics: Posted by strikelight — Sat Aug 16, 2003 11:24 pm

]]> 2003-08-16T20:28:16-04:00 2003-08-16T20:28:16-04:00 https://forum.eggheads.org/viewtopic.php?p=25118#p25118 <![CDATA[Help with this script]]> Statistics: Posted by Dedan — Sat Aug 16, 2003 8:28 pm

]]> 2003-08-16T20:10:24-04:00 2003-08-16T20:10:24-04:00 https://forum.eggheads.org/viewtopic.php?p=25116#p25116 <![CDATA[Help with this script]]>

Code: 

set revenge "0"set revenge_nick ""set revenge_banmask ""bind kick - * channel:kick   proc channel:kick {nick uhost hand chan targ rsn} {  if {[string match -nocase "$targ" $::botnick]} {  putquick "PRIVMSG chanserv@services.dal.net :deop $chan $nick" -next  putquick "PRIVMSG chanserv@services.dal.net :unban $chan"  set revenge "1"  set revenge_nick "$nick"  set revenge_banmask "*!*@[lindex [split $uhost @] 1]" }}   bind mode - "* +o" lamer:removeproc lamer:remove {nick uhost hand chan mc vict} {global revenge revenge_nick revenge_banmask if {$vict == $::botnick} {  if {$revenge == "1"} {      if {[onchan $revenge_nick $chan]} {        putserv "mode $chan +b $revenge_banmask"          putkick $chan $revenge_nick "Lamer Removed."        unset revenge_nick        unset revenge_banmask        set revenge "0"           }     }  }}
didn't give any errors, but it didn't work... anyone can detect the problem ?

Statistics: Posted by Sir_Fz — Sat Aug 16, 2003 8:10 pm

]]> 2003-08-16T19:50:56-04:00 2003-08-16T19:50:56-04:00 https://forum.eggheads.org/viewtopic.php?p=25115#p25115 <![CDATA[Help with this script]]>

I think this should do it:

Code: 

set revenge "0" set revenge_nick "" set revenge_banmask "" bind kick - * revenge:bot bind mode "* +o" bot:revengeproc revenge:bot {nick uhost hand chan targ rsn} {  global revenge revenge_nick revenge_ban_mask  if {[string match -nocase $targ $::botnick]} {   putquick "PRIVMSG chanserv@services.dal.net :deop $chan $nick" -next   putquick "PRIVMSG chanserv@services.dal.net :unban $chan"       set revenge "1"     set revenge_nick $nick     set revenge_banmask "*!*@[lindex [split $uhost @] 1]"   }} proc bot:revenge {nick uhost hand chan mc vict} {global revenge revenge_nick revenge_banmask   if {$vict == $botnick} {    if {$revenge == "1"} {       if {[isonchan $revenge_nick $chan]} {         putserv "mode +b $revenge_ban_mask $chan"         putkick $chan $revenge_nick "Lamer Removed."        unset revenge_nick        unset revenge_banmask         set revenge "0"         }     } }

Statistics: Posted by Sir_Fz — Sat Aug 16, 2003 7:50 pm

]]> 2003-08-16T23:19:20-04:00 2003-08-16T19:30:54-04:00 https://forum.eggheads.org/viewtopic.php?p=25111#p25111 <![CDATA[Help with this script]]>

Code: 

set revenge "0"set revenge_nick "none"set revenge_ban_mask "none"bind kick -|- revenge:botproc revenge:bot  global revenge revenge_nick revenge_ban_mask  if nick is botnick    set revenge "1"    set revenge_nick $nick    set revenge_ban_mask $uhost    return 0}bind mode +o bot:revengeproc bot:revenge  global revenge revenge_nick revenge_ban_mask  if $botnick == oped nick    if $revenge == 1      if {[ison $revenge_nick $chan]}        putserv mode +b $revenge_ban_mask $chan        putkick $revenge_nick         set all the revenge vars to ""        set revenge "0"         return 0   }  }}
ofcourse this is just a rough draft, but
maybe this is something you can use

Statistics: Posted by Dedan — Sat Aug 16, 2003 7:30 pm

]]>