egghelp/eggheads community

Re: need tcl-help for a protection script

2003-11-10T14:43:37-04:00

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:
bind mode - "* -o" dopprotproc 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

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

Statistics: Posted by egghead — Mon Nov 10, 2003 2:43 pm

Re: need tcl-help for a protection script

2003-11-10T14:32:12-04:00

[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

Statistics: Posted by ]Kami[ — Mon Nov 10, 2003 2:32 pm

Re: need tcl-help for a protection script

2003-11-10T14:16:44-04:00

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

Statistics: Posted by bobjuh — Mon Nov 10, 2003 2:16 pm

need tcl-help for a protection script

2003-11-10T12:16:53-04:00

i will test it ..

but one said PRIVMSG and the orher PUTQUICK

Statistics: Posted by Guest — Mon Nov 10, 2003 12:16 pm

need tcl-help for a protection script

2003-11-10T11:51:02-04:00

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

Statistics: Posted by Rusher2K — Mon Nov 10, 2003 11:51 am

need tcl-help for a protection script

2003-11-10T11:22:52-04:00

yes .. i modified your script to ...

Code:

proc kikprot {nick uhost chan vict} { global botnick lgzsecuif {$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.

Statistics: Posted by Guest — Mon Nov 10, 2003 11:22 am

need tcl-help for a protection script

2003-11-10T10:44:03-04:00

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...

Statistics: Posted by ]Kami[ — Mon Nov 10, 2003 10:44 am

need tcl-help for a protection script

2003-11-10T10:39:12-04:00

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.

Statistics: Posted by ]Kami[ — Mon Nov 10, 2003 10:39 am

need tcl-help for a protection script

2003-11-10T09:32:08-04:00

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:

bind mode - "* -o" dopprotproc 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.

Statistics: Posted by Guest — Mon Nov 10, 2003 9:32 am