Eggdrop TCL error [msg:inv]

Hier findest du jede Art von Hilfestellung zum Thema Installation, Konfiguration und Betrieb von Eggdrop-Bots
Antworten
Viper_2020
Beiträge:1
Registriert:3. Okt 2005, 14:44
Eggdrop TCL error [msg:inv]

Beitrag von Viper_2020 » 3. Okt 2005, 14:53

So habe nen eggdrop installiert und mir folgendes script geladen:

Bekomme aber immer diesen error woran liegt es ?

Tcl error [msg:inv]: syntax error in expression " [finduser $uhost] eq "$hand" "

Also auf meine Kiste @home mit Win luppt es 1a aber auf meinem vserver mit debian und eggdrop 1.6.17 kommt diese Meldung warum auch immer ich verstehe es net

code:

Code: Alles auswählen

# CHAN INVITE V1.1 BY DREAMTEAM/PERPLEX
#
# this is maybe one of the best invite scripts ever.
# tell me which other invite script supports blowcrypt WITHOUT
# another script? this one also supports warnmsg/kick/kickban
# if a user invites himself more than one time.
# fully configurable, total secure.
#
# commands:
#
# msg: 
# !invite <userpass>
#

# config:

# set this to your invite chan
set ICHAN "#xxx"

# which flag is needed to get invited
set IFLAG "X"

# set your group name here
set invgroup "Group"

# set to 1 for blowcrypt, 0 for plain
set invblow 0

# enter your blowcrypt key below
set invblowkey($ICHAN) ""

# nick tracking
# 0 = disabled
# 1 = warn msgs only
# 2 = 1 + kicking
# 3 = 2 + ban
set invnt 1

# what reason should the ban have
set invcom "PERPLEX.CHAN.iNViTE"
 ###########################################################################

set invver "V1.1"

bind msg - !invite msg:inv
bind pub - +OK invencryptedincominghandler

proc msg:inv {nick uhost hand arg} {
	global ICHAN IFLAG invblow invgroup invnt invkb invcom botnick
	set passw [lindex $arg end]
	# Starting
	if {$arg == ""} {return 0}
	# Check for valid user
	if { [validuser $hand] == 0 } {
		if {$invblow == 0} {
			putserv "PRIVMSG $ICHAN :Not Inviting \002$nick!$uhost\002 (He is not a $invgroup Member.)."
			putserv "NOTICE $nick :You are not authorized to use this command."
		} else {
			invputblow "PRIVMSG $ICHAN :Not Inviting \002$nick!$uhost\002 (He is not a $invgroup Member.)."
			putserv "NOTICE $nick :You are not authorized to use this command."
		}
		return 0
	# Check for valid password
	} elseif { [passwdok $hand $passw] == 0 } {
		if {$invblow == 0} {
			putserv "PRIVMSG $ICHAN : Not Inviting \002$hand\002 ($nick!$uhost) cause of wrong password."
			putserv "NOTICE $nick his password is wrong."
		} else {
			invputblow "PRIVMSG $ICHAN : Not Inviting \002$hand\002 ($nick!$uhost) cause of wrong password."
			putserv "NOTICE $nick his password is wrong."
		}
		return 0
	# Check for valid hostmask
	} elseif { [finduser $uhost] eq "$hand" } {
		if {$invblow == 0} {
			putserv "PRIVMSG $ICHAN : Not Inviting \002$hand\002 ($nick!$uhost) cause of wrong hostmask."
			putserv "NOTICE $nick :Your current hostmask is not added. Contact an @."
		} else {
			invputblow "PRIVMSG $ICHAN : Not Inviting \002$hand\002 ($nick!$uhost) cause of wrong hostmask."
			putserv "NOTICE $nick :Your current hostmask is not added. Contact an @."
		}
		return 0
	# Check for valid flag
	} elseif { [matchattr $hand $IFLAG] == 0 } {
		if {$invblow == 0} {
			putserv "PRIVMSG $ICHAN : Not Inviting \002$hand\002 ($nick!$uhost) cause of missing flag."
			putserv "NOTICE $nick :You have not the right Flag. Contact an @."
		} else {
			invputblow "PRIVMSG $ICHAN : Not Inviting \002$hand\002 ($nick!$uhost) cause of missing flag."
			putserv "NOTICE $nick :You have not the right Flag. Contact an @."
		}
		return 0
	# Check if the user isn't already there
	} elseif { [handonchan $hand $ICHAN] == 1} {
		if {$invnt != 0} {
		    set onick [hand2nick $hand $ICHAN]
		    if {$invnt == 2} {
			putquick "KICK $ICHAN $onick"
		    } 
		    if {$invnt == 3} {
			set host "*![getchanhost $onick $ICHAN]"
			chattr $hand -X
			newchanban $ICHAN $host $botnick $invcom
			putquick "KICK $ICHAN $onick"
		    }
		}
	        if {$invblow == 0} {
                        putserv "PRIVMSG $ICHAN : Not Inviting \002$hand\002 ($nick!$uhost) cause he is already here."
                        putserv "NOTICE $nick :You already are on the chan."
	        } else {
                        invputblow "PRIVMSG $ICHAN : Not Inviting \002$hand\002 ($nick!$uhost) cause he is already here."
                        putserv "NOTICE $nick :You already are on the chan."
		}
		return 0
	# Invite user if all OK
	} else {
		if {$invblow == 0} {
			putserv "PRIVMSG $ICHAN : Inviting \002$hand\002 ($nick!$uhost)."
			putserv "INVITE $nick $ICHAN"
		} else {
			invputblow "PRIVMSG $ICHAN : Inviting \002$hand\002 ($nick!$uhost)."
			putserv "INVITE $nick $ICHAN"
}	}	}

# blowfish part beginning
proc invputblow {text {option ""}} {
	global invblowkey
	if {$option==""} {
		if {[lindex $text 0]=="PRIVMSG" && [info exists invblowkey([string tolower [lindex $text 1]])]} {
			putserv "PRIVMSG [lindex $text 1] :+OK [encrypt $invblowkey([string tolower [lindex $text 1]]) [string trimleft [join [lrange $text 2 end]] :]]"
		} else {
			putserv $text
		}
	} else {
	  	if {[lindex $text 0]=="PRIVMSG" && [info exists invblowkey([string tolower [lindex $text 1]])]} {
			putserv "PRIVMSG [lindex $text 1] :+OK [encrypt $invblowkey([string tolower [lindex $text 1]]) [string trimleft [join [lrange $text 2 end]] :]]" $option
		} else {
			putserv $text $option
		}
	}
}

proc invencryptedincominghandler {nick host hand chan arg} {
	global invblowkey
	if {![info exists invblowkey([string tolower $chan])]} {return}
	set tmp [decrypt $invblowkey([string tolower $chan]) $arg]
	foreach item [binds pub] {
		if {[lindex $item 2]=="+OK"} {continue}
		if {[lindex $item 1]!="-|-"} {
			if {![matchattr $hand [lindex $item 1] $chan]} {continue}
		}
		if {[lindex $item 2]==[lindex $tmp 0]} {[lindex $item 4] $nick $host $hand $chan [lrange $tmp 1 end]}
	 }
}

putlog "CHAN INVITE $invver BY THE TEAM-PERPLEX DREAMTEAM LOADED."

Antworten