bind pubm -|- * timerxxx
bind join -|- * timerxxx
bind part -|- * timerxxx
bind kick -|- * timerxxx
bind nick -|- * timerxxx
bind mode -|- * timerxxx

proc timerxxx { }  {
        global streamch increasex
        incr  increasex
        if {"$increasex" >= 10} {
                set increasex 1
                get_shoutcast_status nick a b #radiolive a
                }
        timer 4 timerxxx
}