egghelp/eggheads community Discussion of eggdrop bots, shell accounts and tcl scripts. 2005-01-23T11:31:20-04:00 https://forum.eggheads.org/app.php/feed/topic/9042 2005-01-23T11:31:20-04:00 2005-01-23T11:31:20-04:00 https://forum.eggheads.org/viewtopic.php?p=45731#p45731 <![CDATA[Help cm Register Nick]]>

Statistics: Posted by metroid — Sun Jan 23, 2005 11:31 am

]]> 2005-01-23T03:43:48-04:00 2005-01-23T03:43:48-04:00 https://forum.eggheads.org/viewtopic.php?p=45721#p45721 <![CDATA[Help cm Register Nick]]>
proc regnick { nickname hostname handle channel
I fix is...
proc pub:regnick { nickname hostname handle channel
thank for your help

Statistics: Posted by Lph — Sun Jan 23, 2005 3:43 am

]]> 2005-01-23T03:08:51-04:00 2005-01-23T03:08:51-04:00 https://forum.eggheads.org/viewtopic.php?p=45720#p45720 <![CDATA[Help cm Register Nick]]>

Code: 

bind PUB n|- !regnick pub:regnickproc regnick { nickname hostname handle channel arguments } {set nick [lindex [split $arguments] 0]set password [lindex [split $arguments] 1]set email [lindex [split $arguments] 2]if {$nick == "" || $password == "" || $email == ""} {putquick "NOTICE $nickname :Not enough arguments."return 0}if {[string length $password] < 5} {putquick "NOTICE $nickname :The password isn't long enough"return 0}if {![string match -nocase "*@*" $email]} {putquick "NOTICE $nickname :Invalid email adress."return 0}##DO YOUR STUFF}
This should work i guess, as always it's untested so if it doesn't work, Show me the error

Statistics: Posted by metroid — Sun Jan 23, 2005 3:08 am

]]> 2005-01-23T02:37:13-04:00 2005-01-23T02:37:13-04:00 https://forum.eggheads.org/viewtopic.php?p=45719#p45719 <![CDATA[Help cm Register Nick]]> in password i want it must be over 5 character and in email i want to have @ .if it true my bot will register nick for user and else if password less 5 char it say :"your password less 5 char " if the email not has @ my bot will say:" your email is incorrect.."

What i can do this ?

Statistics: Posted by Lph — Sun Jan 23, 2005 2:37 am

]]>