TCL - no such variable Oo

[eRaz0r]

Moin

Also

ich habe im Net ein Omgwort-TCL gefunden. (einige wissen bestimmt was ich meine )

Habs aufn Eggdrop geladen, aber es läuft nicht.
Es kommt folgende Fehlermeldung:

Tcl error [funmgwort]: can't read "omgwort(suchen)": no such variable

Das Problem ist, dass ich kein TCL kann ^^ also wenn von euch einer rausfinden könnte woran es liegt wär das n1


Script:

##
# Omgwort script by Seeks
##

##
# Settings
##
set omgwort(trigger) "$"
set omgwort(chan) "#DjSUnnY"
set omgwort(omglist) "[pwd]/scripts/omg.txt"
set omgwort(author) "Seeks"
set omgwort(version) "0.1"

##
# Flags
##
setudef flag omgwort

##
# Str
##
setudef str omg_id

##
# Binds
##
bind PUB -|- "$omgwort(trigger)omgwort" funmgwort

##
# Script
##
proc wortumdrehen { wort } {
set wort2 "[string toupper [lindex [split $wort ""] 0]][join [lrange [split $wort ""] 1 end] ""]"
set n $wort2
while { $wort2 == $n } {
set n ""
foreach b [split $wort2 ""] { if { [rand 2] != "1" } { set n "$n$b" } { set n "$b$n" } }
}
return $n
}

proc funmgwort {nick host hand chan arg} {
if {[channel get $chan omgwort]} {
putserv "PRIVMSG $chan :
return
}
channel set $chan +omgwort
set ::funomgwort($chan) [lindex [set fileList [split [read [set fs [open "$:mgwort(omglist)" r]]] n]] [rand [llength $fileList]]][close $fs]
set ::funomgwort($chan) [string trim $::funomgwort($chan) " "]
channel set $:mgwort(chan) omg_id [expr [channel get $:mgwort(chan) "omg_id"] + 1]
puthelp "PRIVMSG $chan :
bind pubm - "$chan $::funomgwort($chan)" fun_worteraten
}

proc fun_worteraten {nick host hand chan arg} {
unbind pubm - "$chan $::funomgwort($chan)" fun_worteraten
putserv "PRIVMSG $chan :
channel set $chan -omgwort
}

mfg eRaz0r