egghelp/eggheads community

X Protection Script

2004-11-24T14:01:19-04:00

Nah, I'm way to lazy atm.

Statistics: Posted by caesar — Wed Nov 24, 2004 2:01 pm

X Protection Script

2004-11-24T13:07:02-04:00

Yeah, I think it is from xstuff.tcl.. I don't remember it coz I've remove some unneeded proc for my customization.. Argh, can you give direct foward example.. cause I'm really busy to read a README.. hehe.

Statistics: Posted by blood_x — Wed Nov 24, 2004 1:07 pm

X Protection Script

2004-11-23T15:21:16-04:00

A lil tweak to your (wich look a LOT with the ones from xstuff.tcl heh) codes:

Code:

# Suspend proc kick:extract {nick uh hand chan vict reas} {  if {$nick == "X" && [isbotnick $vict]} {    set kicker [string trim [lindex [split $reas] 0] {()}]     putserv "PRIVMSG X :suspend $chan $kicker 7 d 340"  }}# Unban proc xstuff:ban {nick uhost hand chan mc ban} {   global botnick botname   if {![string match -nocase $ban $botname] || ![botisop $chan]} {    return  }  set bmask "*!*@[lindex [split $uhost @] 1]"   if {[string match "$bmask" "$botname"]} {    set bmask [maskhost *!*[string trimleft $uhost ~]]  }   putserv "MODE $chan -bo+b $ban $nick $bmask"   putserv "KICK $chan $nick :Not Allowed - Banning Service Bot"}

If you intend or use the x(channels) variable to *mark* the channels where you want a specific thing to happen better use setudef (check the doc files), as for the on-deop a "bind mode" should do the trick.

Statistics: Posted by caesar — Tue Nov 23, 2004 3:21 pm

X Protection Script

2004-11-23T09:16:33-04:00

TCL Script as below;

set x(channels) "#chan1 #chan2"

bind kick - "*" kick:extract
bind mode - "* +b" xstuff:ban

# Suspend
proc kick:extract {nick uh hand chan vict reas} {
global botnick
if {$nick != "X"} { return }
set kicker [string trim [lindex [split $reas] 0] {()}]
if {$vict == $botnick} {
putserv "PRIVMSG X :suspend $chan ${kicker} 7 d 340" }
return }

# Unban
proc xstuff:ban {nick uhost hand chan mc ban} {
global botnick botname
set bmask "*!*@[lindex [split $uhost @] 1]"
if {[string match "$ban" "$botname"] && [botisop $chan]} {
if {[string match "$bmask" "$botname"]} { set bmask [maskhost *!*[string trimleft $uhost ~]]}
putserv "MODE $chan -bo+b $ban $nick $bmask"
putserv "KICK $chan $nick :Not Allowed - Banning Service Bot" }
return }

By using this script, someone who kick or ban channel bot (eggdrop) using X on undernet.org will get suspend. Here, how to add if someone deop the bot (eggdrop) using X? In other word, if someone deop the bot using X, he/she will also get suspended.

Statistics: Posted by blood_x — Tue Nov 23, 2004 9:16 am