Cant find the bug...

[ProXy]

Hi there, I wrote a script to kick a user via public command!
Now i changed something and the error is already: USER not in the channel!

Can anyone find an error?

Code: Select all

set lamerusage "Usage: $lamercommand <nick> \[time\]"
bind pub $lamerglobalflag|$lamerlocalflag $lamercommand pub:lamer
proc pub:lamer { nick uhost handle channel arg } {
	global botnick lamerdefaulttime lamerusage
	if {([llength $arg]==0) || (![string is digit [lindex [split $arg] 1]]) || ([llength [lindex [split $arg] 2]])} {
		putserv "PRIVMSG $channel :$lamerusage"
	} elseif {[lsearch -exact [string tolower [chanlist $channel]] [string tolower [lindex [split $arg] 0]]]==-1} {
		putserv "PRIVMSG $channel :Error: \"[lindex [split $arg] 0]\" ist nicht in diesem Channel! $lamerusage"
	} elseif {![botisop $channel]} {
		putserv "PRIVMSG $channel :$nick: Ja, du Scherzkeks, dann gib mir OP!"
	} elseif {[string tolower [lindex [split $arg] 0]]==[string tolower $botnick]} {
		putserv "PRIVMSG $channel :$nick: So blöd bin ich nun wirklich nicht..."
	} else {
		if {[llength [lindex [split $arg] 1]]!=0} {
			set lamerbantime [lindex [split $arg] 1]
		} else {
			set lamerbantime $lamerdefaulttime
		}
		set lamerhost [getchanhost [lindex [split $arg] 0] $channel]
		putserv "MODE $channel +b [lindex [split $arg] 0]!$lamerhost"
		if {$bantime==1} {
			set lamermins "minute"
		} else {
			set lamermins "minutes"
		}
		utimer 2 [list putkick $channel [lindex [split $arg] 0] "banned for $lamerbantime $lamermins"] 
		timer $lamerbantime [list putserv "MODE $channel -b [lindex [split $arg] 0]!$lamerhost"]
	}
}

[ProXy]

Hi there, I wrote a script to kick a user via public command!
Th script works fine with most nicks, but with some it says that the user is not in the channel! Does anyone know how to write it to catch all possible nicks?

Code: Select all

set lamerusage "Usage: $lamercommand <nick> \[time\]"
bind pub $lamerglobalflag|$lamerlocalflag $lamercommand pub:lamer
proc pub:lamer { nick uhost handle channel arg } {
	global botnick lamerdefaulttime lamerusage
	if {([llength $arg]==0) || (![string is digit [lindex [split $arg] 1]]) || ([llength [lindex [split $arg] 2]])} {
		putserv "PRIVMSG $channel :$lamerusage"
	} elseif {[lsearch -exact [string tolower [chanlist $channel]] [string tolower [lindex [split $arg] 0]]]==-1} {
		putserv "PRIVMSG $channel :Error: "[lindex [split $arg] 0]" ist nicht in diesem Channel! $lamerusage"
	} elseif {![botisop $channel]} {
		putserv "PRIVMSG $channel :$nick: Ja, du Scherzkeks, dann gib mir OP!"
	} elseif {[string tolower [lindex [split $arg] 0]]==[string tolower $botnick]} {
		putserv "PRIVMSG $channel :$nick: So blöd bin ich nun wirklich nicht..."
	} else {
		if {[llength [lindex [split $arg] 1]]!=0} {
			set lamerbantime [lindex [split $arg] 1]
		} else {
			set lamerbantime $lamerdefaulttime
		}
		set lamerhost [getchanhost [lindex [split $arg] 0] $channel]
		putserv "MODE $channel +b [lindex [split $arg] 0]!$lamerhost"
		if {$bantime==1} {
			set lamermins "minute"
		} else {
			set lamermins "minutes"
		}
		utimer 2 [list putkick $channel [lindex [split $arg] 0] "banned for $lamerbantime $lamermins"] 
		timer $lamerbantime [list putserv "MODE $channel -b [lindex [split $arg] 0]!$lamerhost"]
	}
}

[darko``]

Who says that user is not on channel: eggdrop itself or your script? What nicks seem to be breaking your bot?

Also, there is a neat 'onchan' command - read doc/tcl-commands.doc

[ProXy]

The Script answer when a user is not on the chan. Some nicks only use a pipe and the script stops working. Other nicks use pipes too and the script works fine...

[ProXy]

And please look there again. THX

http://forum.egghelp.org/viewtopic.php?t=2592