egghelp/eggheads community Discussion of eggdrop bots, shell accounts and tcl scripts. 2004-03-30T22:48:23-04:00 https://forum.eggheads.org/app.php/feed/topic/7176 2004-03-30T22:48:23-04:00 2004-03-30T22:48:23-04:00 https://forum.eggheads.org/viewtopic.php?p=35107#p35107 <![CDATA[Need help with my nick evaluating script]]>

Statistics: Posted by Guest — Tue Mar 30, 2004 10:48 pm

]]> 2004-03-30T22:35:23-04:00 2004-03-30T22:35:23-04:00 https://forum.eggheads.org/viewtopic.php?p=35106#p35106 <![CDATA[Need help with my nick evaluating script]]>

Code: 

if {[regexp {^[A-z][0-9]{1,}$} $nick]} {.... do stuff ...}

Statistics: Posted by strikelight — Tue Mar 30, 2004 10:35 pm

]]> 2004-03-30T21:03:53-04:00 2004-03-30T21:03:53-04:00 https://forum.eggheads.org/viewtopic.php?p=35104#p35104 <![CDATA[Need help with my nick evaluating script]]>
They all have a familiar characteristic of having a alphabet first then the rest numbers kind of nick.

e.g. k123652735 , b261237863, k4398734, x3645763

I made a simple script to check the nick but it seems it doesnt work. Please help me out!

bind join - * chknick

proc chkchk {nick uhost hand chan} {
global botnick
set nickchar 0
#marks nick guilty as a drone unless proven otherwise
set nickdr 1
#evaluating nick
foreach letter [split $nick ""] {
if {(![catch {incr $letter}]) && ($nickchar > 1)} {
incr nickchar
set nickdr 0
#just for debug purposes
putlog "$nick is proven innocent!"
}
}
if {$nickdr == 1} { putquick "KICK $chan $nick :Get out! }
}

It seems even though the $letter is a number, it never does go through the if {![catch {incr $letter}]} condition. And ALL nicks that join are marked a drone. :roll:

What should I do :-?

Statistics: Posted by Guest — Tue Mar 30, 2004 9:03 pm

]]>