Trip-Out

set cchar "."

bind msgm -|- ${cchar}ans ticket_submit

proc ticket_submit {nick user handle channel text} {
        global supportstatus
        if { $supportstatus == 1 } {
                set supportnick $nick
                puthelp "PRIVMSG $supportnick Welcome to the Bittraffic IRC Trouble Ticket System"
                puthelp "PRIVMSG $supportnick What is your name?"
                set tt 1
        }
        if { $tt == 1 } {
                set ans1 $text
                puthelp "PRIVMSG $supportnick What is your email address?"
                set tt 2
        }
        if ( $tt == 2 } {
                set ans2 $text
        }
}