Problem mit der Aufteilung von Variablen in TCL

[Sora]

Ich hab folgendes Problem mit TCL im Eggdrop...


bind pub - !hasch hasch

proc hasch {nick uhost hand chan arg} {
if {([achan $chan] != "no_achan")} {
if {($arg != "")} {
set $sorte [lindex $arg 0]
set $wem [lrange $arg 1 end]
if {([llength $wem] < 1)} {
putserv "PRIVMSG $chan :\001ACTION holt Hasch der Sorte $arg aus dem Hinterzimmer des $chan und bringt es $nick, Viel Spass\001"
}
if {([llength $wem] > 1)} {

putserv "PRIVMSG $chan :\001ACTION holt Hasch der Sorte $sorte aus dem Hinterzimmer des $chan und bringt es $wem, Viel Spass und Gruss von $nick ;)\001"
}
}
if {($arg == "") || ([llength $arg] < 1)} {
putserv "PRIVMSG $chan :Welche Sorte darfs denn sein, $nick?"
}
return 0
}
}


bei diesem Code wird zwar !hasch alleine ausgeführt, nicht aber wenn ich ein argument anhänge..wie !hasch Nepal z.b., warum nicht? :)

[Izlots]

"llength $wem] < 1" und "llength $wem] > 1" sind zwar ganz schoen und gut, aber was ist wenn du genau 1 argument in $wem hast?