Stuff

# Author : MadaliN aka _MaDaLiN_ - Http://WwW.BotLand.Org
# Contact:
# +IRC: #botland & #BesTTeam @ Undernet.Org
# +Email: MadalinMen28@Yahoo.Com & Madalin@Botland.Org
# Script version: v1.0
# Descriptie & mod de folosire:
#    ++!!++ !nextstatus set -on TOPIC ON  ;(Seteaza topicul '-on')
#           !nextstatus set -off TOPIC OFF  ;(Seteaza topicul '-off')
#           !nextstatus reset -on  ;(Reseteaza topicul '-on')
#           !nextstatus reset -off  ;(Reseteaza topicul '-off')
#           !nextstatus -on  ;(Aplica topicul '-on' canalului)
#           !nextstatus -off  ;(Aplica topicul '-off' canalului)
#           !nextstatus -author  ;(Afiseaza autorul TCLului)
#           !nextstatus -download  ;(Afiseaza adresa de unde poate fi descarcat TCLul)
#           !nextstatus -version  ;(Arata versiunea curenta a TCLului)

### DO NOT TOUCH ANYTHING ###
setudef str topic1 
setudef str topic2 

bind pub m|m !nextstatus verif:topic 

proc verif:topic {nick uhost hand chan arg} { 
#OBF     
    set do [lindex [split $arg] 0] 
    set go [lindex [split $arg] 1] 
    set in [lrange [split $arg] 2 end] 

    switch -exact -- $do { 
            set { 
                switch -exact -- $go { 
                    -on {channel set $chan topic1 $in; putserv "topic $chan :[channel get $chan topic1]"; putserv "privmsg $chan :\00310$chan\0033 \037nextstatus [lindex [split $arg] 1]\037 \0032setat ca:\003 $in"} 
                    -off {channel set $chan topic2 $in; putserv "topic $chan :[channel get $chan topic2]"; putserv "privmsg $chan :\00310$chan\0034 \037nextstatus [lindex [split $arg] 1]\037 \0032setat ca:\003 $in"} 
                    default {putserv "privmsg $chan :$nick usage: !nextstatus <set|reset|-on|-off|-author|-download> <-on|-off> \[\$text\]"} 
                } 
            } 
            reset { 
                switch -exact -- $go { 
                    -on {channel set $chan topic1 ""; putserv "privmsg $chan :\0032-=\00312\037\[\037\0034 $nick \00312\037\]\037\0032=- am resetat \037\0033nextstatus [lindex [split $arg] 1]"} 
                    -off {channel set $chan topic2 ""; putserv "privmsg $chan :\0032-=\00312\037\[\037\0034 $nick \00312\037\]\037\0032=- am resetat \037\0034nextstatus [lindex [split $arg] 1]"} 
                    default {putserv "privmsg $chan :$nick usage: !nextstatus <set|reset|-on|-off|-author|-download> <-on|-off> \[\$text\]"}
		}
            } 
            -on { 
                if {[llength [set topic [channel get $chan topic1]]]} {putserv "topic $chan :$topic"; putserv "privmsg $chan :\0033NEXT STATUS\003 is now \0033[lindex $arg 0]\003! \0032Setting channel topic ..."} {putserv "privmsg $chan :\00312\037$nick\037\0034 nextstatus [lindex $arg 0]\0032 nu e setat"} 
            } 
            -off { 
                if {[llength [set topic [channel get $chan topic2]]]} {putserv "topic $chan :$topic"; putserv "privmsg $chan :\0033NEXT STATUS\003 is now \0034[lindex $arg 0]\003! \0032Setting channel topic ..."} {putserv "privmsg $chan :\00312\037$nick\037 \0034nextstatus [lindex $arg 0]\0032 nu e setat"}             
            } 
            -author {putserv "privmsg $chan :\0037Autor: \00310MãdãliN\0032 aka \0033_MaDaLiN_"}
            -version {putserv "privmsg $chan :\0032NEXTSTATUS version\0034 1.0"}
            -download {putserv "privmsg $chan :\0032O gasiti la sectiunea \0033Downloads\0032 de la adresa \0034www.botland.org"}
            default {putserv "privmsg $chan :$nick usage: !nextstatus <set|reset|-on|-off|-author|-download> <-on|-off> \[\$text\]"} 
#/OBF
    } 
}