egghelp/eggheads community

change function for TCL script

2003-09-12T03:18:27-04:00

well same thing, if mkick happened then it means your bot is aop, thus you make it identify, and create another notc bind to see if the bot identified then do the why...

Statistics: Posted by Sir_Fz — Fri Sep 12, 2003 3:18 am

change function for TCL script

2003-09-11T19:47:32-04:00

Sir_Fz
thanx bro , but when bot sop the aop con't make Masskick , must bot Aop when bot see MassKick in channel it will make "chanserv :why $chan $nick" after he get Offender will identify itself to (putserv "NickServ :identify SopNick Passwd") after that will del Offender from Aop's channel list .
thanx anyway

Statistics: Posted by xGame — Thu Sep 11, 2003 7:47 pm

change function for TCL script

2003-09-11T08:27:27-04:00

this should work:

Code:

# Full name of channel services set chanserv "chanserv@Services.dal.net" # Channel *not* to function in set nogo "#channelname" bind kick - * kick:remove bind notc - "* Identification to the nickname *" check:verify proc kick:remove {nick uhost hand chan targ rsn} { if {$targ == $::botnick && [string match [split $rsn] "*Masskick*"]} { if {![string match $chan $::nogo]} { putserv "PRIVMSG $::chanserv :why $chan [lindex [split [lindex [split $rsn] 2] "!"] 0]" } } } proc check:verify {nick host hand arg {dest ""}} { set arg [ctrl:filter $arg] if {[string equal $dest $::botnick]} { set offender [lindex [split $arg] 0] set aop [lindex [split $arg] 2]set chan [string trim [lindex [split $arg] 5] .] set opnick [string trim [lindex [split $arg] end] .] set thehand [findhand $offender [getchanhost $offender]] if {$offender != "" && $thehand != "*"} { deluser $thehand } putquick "PRIVMSG $::chanserv :$aop $chan del $opnick" putquick "MODE $chan -o $offender" putkick $chan $offender "You tit head, you just lost access!" } } # ctrl:filter  # Strip all control characters. Thanks to Ppslim.  proc ctrl:filter {str} { regsub -all -- {\003[0-9]{0,2}(,[0-9]{0,2})?|\017|\037|\002|\026|\006|\007} $str "" str return $str } # findhand - tries to find a handle proc findhand {nick host} { if {[validuser $nick]} { return $nick } else { set thehand [nick2hand $nick] if {[validuser $thehand]} { return $thehand } set thehand [finduser $host] return $thehand } } ### End ###

Statistics: Posted by Sir_Fz — Thu Sep 11, 2003 8:27 am

change function for TCL script

2003-09-10T20:38:01-04:00

Hi Guys :
i want change this code to : if some Offender make masskick in channel when bot Aop i want bot make "chanserv :why $chan $nick" after that identify to Sop nickname and del nickname from channel Aop list . Network is dalnet .
thanx all

exmp for masskick on DALnet :

* HiLaLiX was kicked by ChanServ (Masskick from HiLaLiX!zzqvoi@212.62.96.45)
* K7LH was kicked by ChanServ (Masskick from HiLaLiX!zzqvoi@212.62.96.45)

Code:

# Full name of channel services set chanserv "chanserv@Services.dal.net" # Channel *not* to function in set nogo "#channelname" bind kick - * kick:remove bind notc - "* has AOp access to *" check:verify proc kick:remove {nick uhost hand chan targ rsn} { if {$targ == $::botnick} { if {![string match $chan $::nogo]} { putserv "PRIVMSG $::chanserv :why $chan $nick" } } } proc check:verify {nick host hand arg {dest ""}} { set arg [ctrl:filter $arg] if {[string equal $dest $::botnick]} { set offender [lindex [split $arg] 0] set chan [string trim [lindex [split $arg] 5] .] set opnick [string trim [lindex [split $arg] end] .] set thehand [findhand $offender [getchanhost $offender]] if {$offender != "" && $thehand != "*"} { deluser $thehand } putquick "PRIVMSG $::chanserv :aop $chan del $opnick" putquick "MODE $chan -o $offender" putkick $chan $offender "You tit head, you just lost access!" } } # ctrl:filter  # Strip all control characters. Thanks to Ppslim.  proc ctrl:filter {str} { regsub -all -- {\003[0-9]{0,2}(,[0-9]{0,2})?|\017|\037|\002|\026|\006|\007} $str "" str return $str } # findhand - tries to find a handle proc findhand {nick host} { if {[validuser $nick]} { return $nick } else { set thehand [nick2hand $nick] if {[validuser $thehand]} { return $thehand } set thehand [finduser $host] return $thehand } } ### End ###

Statistics: Posted by xGame — Wed Sep 10, 2003 8:38 pm