egghelp/eggheads community

Need a litle help with script.

2004-05-17T01:50:47-04:00

Just replace your script code by this entire
code, this should work.

It will only kick the nick out and not
ban it, both even if its an owner (+n)
or even if its an unrecognized (normal)
user to the bot.

Code:

bind join - * BandNick proc BandNick {nick uhost hand chan} {  putlog "$nick $uhost $hand $chan"  global botnick BandNickChan BandNicks channel text  if {(([lsearch -exact [string tolower $BandNickChan] [string tolower $chan]] != -1)  || ($BandNickChan == "*"))} {   set temp 0    foreach i [string tolower $BandNicks] {    if {[string match *$i* [string tolower $nick]]} {    set temp 1     }     }    if {!$temp} { return }   if {([ matchattr $hand n])} {    return 1    } elseif {[matchattr $hand 4]} {    putquick "KICK $chan $nick :$BadReason"   chattr $hand +k4    return 1    } else {    set BadReason ":D"    putquick "KICK $chan $nick :$BadReason"   putserv "KICK $chan $nick :Cambia de nick por Favor..."    putserv "PRIVMSG $nick :0,4Hola Disculpa La Molestia, pero estas Usando un NickName no permitido"    putserv "PRIVMSG $nick :Por Favor Cambia de nick Si es quew Deseas Volver a entrar al Canal, "    putserv "PRIVMSG $nick :Si Deseas cambiar de NickName (el nombre con el que estas ahora) Escribe: /Nick NickName"    putserv "PRIVMSG $nick :Recuerda no ponerte nick's que contengan estas palabras: Activ, Pasiv, Sex, cm, put, Follado,"    putserv "PRIVMSG $nick :Moderno, cacher, ping, verg, dotad, y nick's Obsenos o seras Baneado del canal, Gracias!"    return 0   }  } }

Statistics: Posted by awyeah — Mon May 17, 2004 1:50 am

Need a litle help with script.

2004-05-13T10:26:37-04:00

I think that replacing:

Code:

   } elseif {[matchattr $hand 4]} {    newchanban $chan $nick $botnick $BadReason perm    chattr $hand +k4    return 1    } else {    set BadReason ":D"    newchanban $chan $nick $botnick $BadReason 60

Code:

   } else {

Should be enough

Statistics: Posted by KrzychuG — Thu May 13, 2004 10:26 am

Need a litle help with script.

2004-05-12T19:53:07-04:00

Ok.I have one script that kick+ban people that joins with bad nick and send a msg to them.I Whant that this script only kick people without baning them.

Code:

bind join - * BandNickproc BandNick {nick uhost hand chan} { putlog "$nick $uhost $hand $chan" global botnick BandNickChan BandNicks channel text if {(([lsearch -exact [string tolower $BandNickChan] [string tolower $chan]] != -1)  || ($BandNickChan == "*"))} {  set temp 0foreach i [string tolower $BandNicks] {if {[string match *$i* [string tolower $nick]]} {set temp 1 } }if {!$temp} { return }  if {([ matchattr $hand n])} {   return 1   } elseif {[matchattr $hand 4]} {   newchanban $chan $nick $botnick $BadReason perm   chattr $hand +k4   return 1   } else {   set BadReason ":D"   newchanban $chan $nick $botnick $BadReason 60   putserv "KICK $chan $nick :Cambia de nick por Favor..."   putserv "PRIVMSG $nick :0,4Hola Disculpa La Molestia, pero estas Usando un NickName no permitido"   putserv "PRIVMSG $nick :Por Favor Cambia de nick Si es quew Deseas Volver a entrar al Canal, "   putserv "PRIVMSG $nick :Si Deseas cambiar de NickName (el nombre con el que estas ahora) Escribe: /Nick NickName"   putserv "PRIVMSG $nick :Recuerda no ponerte nick's que contengan estas palabras: Activ, Pasiv, Sex, cm, put, Follado,"   putserv "PRIVMSG $nick :Moderno, cacher, ping, verg, dotad, y nick's Obsenos o seras Baneado del canal, Gracias!"   return 0  } }}putlog "0,4Tcl Cargado Exitosamente :D"

Thanks a lot everyone for help

Statistics: Posted by Guest — Wed May 12, 2004 7:53 pm