need tcl-help for a protection script

[strupde]

hello,

i have build a little protection script, but so really it doesn't work.
if the users name is [paul] ... the the script defines $nick as paul .. not as [paul]. why? how i can fix it?

Code: Select all

bind mode - "* -o" dopprot

proc dopprot {dopprot nick uhost chan mode arg} {
global botnick 
if {($mode == "-o") && ($arg == $botnick) && ([onchan L $chan])} {
putserv "PRIVMSG L :chanlev $chan $nick -aovg"
putserv "PRIVMSG L :op $chan"
putserv "MODE $chan -o+b $nick *!$uhost"
putserv "KICK $chan $nick"
} else {
if {($mode == "-o") && ($arg == $botnick) && ([onchan Q $chan])} {
putserv "PRIVMSG Q :chanlev $chan $nick -ovt+ab"
putserv "PRIVMSG Q :op $chan"
putserv "MODE $chan -o+b $nick *!$uhost"
putserv "KICK $chan $nick"
}
}
}

i am not a script kiddie. i am a beginner. now i will create a script which work when the bot will be kicked or banned .. and a script which remove the chanlev of a user and ban the user if he does a mass-kick.
have anybody some scripts or very good tutorials of these problems for me?!

thanks,
strupde

ps: sry for english, i am a german.

[]Kami[]

You can also use self protection +.Is protect on kick ban and deop.I modify script of caesar and self protection so i have now self protection just for protect on deop and protection by caesar for protect on ban and kick, it work good

You can download protection script by caesar here, but its modifydet version, so it only protect on ban and kick.

[]Kami[]

Just to add something to other script.Script isnt so bad for begining, but you could also set that bot looks for user flags, now it dont look for flags and if somebody with m deop you it will ban him to.You can also put where its putserv putquick, it would be little faster...But im not so sure, im not on quakenet...

[strupde]

yes .. i modified your script to ...

Code: Select all

proc kikprot {nick uhost chan vict} { 
global botnick lgzsecu
if {$vict == $::botnick} {
putquick "PUTQUICK Q :deopall $chan"
putquick "PUTQUICK Q :chanlev $chan $nick -movt+ab"
putquick "PUTQUICK Q :banclear $chan"
putquick "JOIN $chan"
putquick "PUTQUICK Q :op $chan"
putquick "KICK $chan $nick"
putquick "MODE $chan +b *!$uhost"
putquick "PUTQUICK [subst $lgzsecu(warning_channel)] :SECURITY WARNING ON $chan" 
} 
}

but the generell problem is the $nick-prob.

[Rusher2K]

hi

putquick "PUTQUICK Q :deopall $chan"
must changed to:
putquick "PRIVMSG Q :deopall $chan"
and the other putquick "PUTQUICK .........

I Hope this help you : http://www.peterre.com/characters.html

[strupde]

i will test it ..

but one said PRIVMSG and the orher PUTQUICK

[bobjuh]

i am not a script kiddie. i am a beginner. now i will create a script which work when the bot will be kicked or banned .. and a script which remove the chanlev of a user and ban the user if he does a mass-kick.
have anybody some scripts or very good tutorials of these problems for me?!

Some one who can write TCL script isn't a scriptkiddie.
A scriptkiddie a something different

[]Kami[]

[quote="strupde"]hello,

i have build a little protection script, but so really it doesn't work.
if the users name is [paul] ... the the script defines $nick as paul .. not as [paul]. why? how i can fix it?
[quote]

Hm you must split args i think

[egghead]

hello,

i have build a little protection script, but so really it doesn't work.
if the users name is [paul] ... the the script defines $nick as paul .. not as [paul]. why? how i can fix it?

Code: Select all

bind mode - "* -o" dopprot

proc dopprot {dopprot nick uhost chan mode arg} {

Not sure what you are doing, but the arguments of a proc triggered by a MODE is:

proc-name <nick> <user@host> <handle> <channel> <mode-change> <victim>

So, in your case $nick should contain the user@host of Paul.