[Script] [TCL] Script funktioniert nicht! (Eggdrop)

bind pub o|o !ticket pub:ticket
proc pub:ticket {nick uhost hand chan text} {
 set who [lindex $text 0]
 putserv "MODE $chan +v $who"
 putquick "PRIVMSG $chan :Thanks for using our Service $who, you can now join #BamsUnholyUnion for 5 Minutes!"
 putquick "PRIVMSG Q :chanlev #BamsUnholyUnion $who +av"
 timer 4 [list putserv "NOTICE $who :Your Ticket is in the last Minute! Pay for a Lifetime Ticket"]
 timer 5 [list (putquick "PRIVMSG #BamsUnholyUnion :$who, your Ticket was deleted (Reason: Test Time Expierence)) && (putquick "PRIVMSG Q :chanlev #BamsUnholyUnion $who -av)]
}