how to start this..

Sydneybabe · Post by **Sydneybabe** » Tue Aug 09, 2011 2:34 am

on join whois the user if nick is registered..

Post by **caesar** » Tue Aug 09, 2011 3:19 am

You'll have to at least mention the network (or the server).

Sydneybabe · Post by **Sydneybabe** » Tue Aug 09, 2011 11:40 pm

Oops sorry sir the network is Dalnet

Post by **caesar** » Wed Aug 10, 2011 4:22 am

Code: Select all

bind join * * registered:join
bind raw - 307 registered:match
bind raw - 311 registered:first
bind raw - 318 registered:last

proc registered:join {nick uhost hand chan} {
	if {[isbotnick $nick]} return
	puthelp "WHOIS $nick"
}

proc registered:first {from key text} {
	global registered
	set user [lindex [split $text] 1]
	set registered($user) 0
}

proc registered:match {from key text} {
	global registered
	set user [lindex [split $text] 1]
	set registered($user) 1

	# user has identified for this nick
	# use $user to do whatever you need with it
}

proc registered:last {from key text} {
	global registered
	set user [lindex [split $text] 1]
	if {!$registered($user)} {

	# user didn't identified for this nick
	# use $user to do whatever you need with it
	
	}
	
	# don't remove the following line
	array unset registered $user
}

As always, I haven't tested this, but should work. If it doesn't then let me know.

Edit: fixed.

Sydneybabe · Post by **Sydneybabe** » Thu Sep 22, 2011 7:06 am

Hi sir caesar, how can i halt the script on netsplit since it will autovoice all registered nick that came from netsplit? Thanks in advance.

Sydneybabe · Post by **Sydneybabe** » Thu Oct 20, 2011 3:08 am

Hello sir caesar, i am encountering an error on the script this is what appear on the partyline:

Code: Select all

<eggdrop> [14:56:21] Tcl error [registered:first]: can't read "user": no such variable
<eggdrop> [14:56:21] Tcl error [registered:match]: can't read "user": no such variable

Post by **caesar** » Thu Oct 20, 2011 6:27 am

Ah, sorry, mixed two lines and forgot to add one. Fixed the code in my previous post.