egghelp/eggheads community

BotProtect

2007-07-30T03:00:03-04:00

Sorry, my bad. I think when I quickly pasted the script in a hurry, I overlooked those small bugs, which I made during coding it.

Anyway, I edited the code above now split the args properly and removed the unwanted info exists for local var found.

Yeah you are right, an exact script can be made for +I, you just have to change the raw numerics I guess and +e to +I im my oppinion.

Statistics: Posted by awyeah — Mon Jul 30, 2007 3:00 am

BotProtect

2007-07-29T11:32:04-04:00

Assuming your bot's hostmask does'nt change every now and then, would'nt it be simpler to simply:

Code:

.+exempt *!user@host #channel %0.stick exempt *!user@host #channel

Saves you any trouble that might occur with improperly setting dynamicexempts and userexempts.

Could also be scripted to update the internal exempts-list as your eggie connects, in case of changing hostmasks... API is pretty much identical to the banlist API.

@Awyeah:
Remember to split strings before using lindex...
Also, this line puzzles me:

Code:

 if {[info exists found]} { unset found }

"found" isn't set previously in the proc, and is not a globalspace variable...
I also don't see why you repeat that check in the end of that same proc, as there is no code depending on found after that (and variable would be removed as the temporary namespace is destroyed when the proc exits).
Other than that, it's a good script for those running older eggies lacking support for exempt-modes. Might be a good idea to add I-mode aswell.

Statistics: Posted by nml375 — Sun Jul 29, 2007 11:32 am

BotProtect

2007-07-29T09:54:03-04:00

Well they work fine with bahamut, i.e. with my eggdrop on DALnet.

I know they do.

It's probably good that other (non Bahamut) users know that your script will work for them also.

Statistics: Posted by Alchera — Sun Jul 29, 2007 9:54 am

BotProtect

2007-07-29T04:57:49-04:00

Well they work fine with bahamut, i.e. with my eggdrop on DALnet.

Statistics: Posted by awyeah — Sun Jul 29, 2007 4:57 am

BotProtect

2007-07-28T21:00:24-04:00

Those RAWs are not Bahamut specific.

348 RPL_EXCEPTLIST RFC2812 An exception mask for the exception mask list. Also known as RPL_EXLIST (Unreal, Ultimate)

349 RPL_ENDOFEXCEPTLIST RFC2812 : Termination of an RPL_EXCEPTLIST list. Also known as RPL_ENDOFEXLIST (Unreal, Ultimate)

Statistics: Posted by Alchera — Sat Jul 28, 2007 9:00 pm

BotProtect

2007-07-30T03:01:29-04:00

One basic idea is to +e the bot's host. I developed a script for that. Whenever my bot gets ops, it checks in the channel +e (exempt list) for it's host, if the host is not in the list, the bot will add it in.

I made this for bot check on channel join, similarly you can edit my code and make it for checking it on regular intervals of time and you can even check it when bot receives op status. If the bot's host is in the +e list, then even if you kick/ban it, it will rejoin immediately, so there would be no need to make a useless script to unban it with timers and flood services as well, if someone is attacking the channel with stolen access and kicking/banning ops.

I haven't released this code publically as a script, but I will later. Anyway these raws are for DALnet, not sure if they work on any other networks.

Code:

##################Minutes to check channel exempt list after bot joinsset exemptdelaycheck "2"bind raw - 348 exempt:addbind raw - 349 exempt:endbind join - "*" exempt:on:op:delayproc exempt:on:op:delay {nick uhost hand chan} { global exemptdelaycheck if {[isbotnick $nick]} { timer $exemptdelaycheck [list exempt:on:op $nick $uhost $hand $chan] }}proc exempt:on:op {nick uhost hand chan} { if {[botisop $chan]} { putquick "MODE $chan +e" -next }}proc exempt:add {from keyword arg} { global exempthost  set arg [split $arg]  set chan [string tolower [lindex $arg 0]]  if {![info exists exempthost($chan)]} { set exempthost($chan) [list] }  lappend exempthost($chan) [string tolower [lindex $arg 2]]  return 1}proc exempt:end {from keyword arg} { global botnick botname exempthost set arg [split $arg] set chan [string tolower [lindex $arg 1]] if {[info exists exempthost($chan)] && ([llength $exempthost($chan)] >= 1)} {  foreach host $exempthost($chan) {   if {[string match -nocase "*$host*" $botname]} {    if {[info exists exempthost($chan)]} { unset exempthost($chan) }     set found 1; break     }   } } if {![info exists found]} {  putquick "MODE $chan +e $botname" -next } if {[info exists exempthost($chan)]} { unset exempthost($chan) }}

Edited: Split $arg and removed unwanted info exists

Statistics: Posted by awyeah — Mon Jul 16, 2007 3:51 am

BotProtect

2007-07-15T13:17:41-04:00

Try it and see if it has any mistakes.

Statistics: Posted by Sir_Fz — Sun Jul 15, 2007 1:17 pm

BotProtect

2007-07-15T12:41:42-04:00

Hi. One friend of mine wrote me a TCL called TCM.tcl. I don't know from where the name comes. This TCL protects the bot from been kicked and banned from the channel. The TCL sets global ban to the user and kick him from the channel. Can you see if I have made any mistakes? I want the bot to sets ban like this *!*ident@host.com. Here is the script:

Code:

# created by Yxaaaaaaa ( http://www.egghelp-bg.com### Kakuv da e reasona, kogato bota nakazva narushitelq, koito go e bannalset ebreason "Ban me?That option is forbidden for you!"## Kakuv da e reasona, kogato bota nakazva narushitelq, koito go e kiknalset ekreason "Kick me?That option is forbidden for you!"## Potrebiteli s kakuv flag da ne bydat nakazvaniset ekbflag "W"bind mode - *-o* e:dprotproc e:dprot {n u h c m t} {regsub {~} $u "" uset banmask "*!*$u"if {[matchattr $h $::ekbflag]} returnif {[string match "$t" "$::botname"]} {        putquick "PRIVMSG CS :akick $c add $n $::ebreason"        newchanban $c $banmask Prot "nedei me deopva" 10        putquick "KICK $c $n :nedei me deopva"    }}bind mode - *+b* e:bprotproc e:bprot {n u h c m w} {regsub {~} $u "" uset banmask "*!*$u"if {[matchattr $h $::ekbflag]} returnif {[string match "$w" "$::botname"]} {        putquick "PRIVMSG CS :akick $c add $n $::ebreason"        putquick "PRIVMSG CS :unban $c"        newchanban $c $banmask Prot "nedei me banva" 30        putquick "KICK $c $n :nedei me banva"    }}bind kick - * e:kprotproc e:kprot {n u h c w r} {regsub {~} $u "" uset banmask "*!*$u"if {[matchattr $h $::ekbflag]} return    if {$w == $::botnick} {        putquick "PRIVMSG CS :akick $c add $n $::ekreason"        newchanban $c $banmask Prot "nedei me kickva" 20        putquick "KICK $c $n :nedei me kickva"    }}putlog "TCL | TCM"

I'm from Bulgaria and I'm still learning English, so I'm sorry if I made some mistakes when I write.

Statistics: Posted by exelent — Sun Jul 15, 2007 12:41 pm