ok i have sorted that problem now iv got another
# Public command trigger
set tr "!"
set cc "!"
# Channels you _dont_ want the bot to reply to public triggers on (seperate with spaces):
set nopub "#q3f"
###############################################################
##This is where the evil TCL code starts, read at your peril!##
###############################################################
set qversion "1.5"
bind pub -|- ${tr}help help
bind pub o|o ${tr}dj dj
bind pub -|- ${tr}request req
bind pub o|o ${tr}setserver setserv
bind pub -|- ${tr}server serv
bind pub -|- ${tr}shoutout shout
proc help {nick host hand chan arg} {
global url pathqstat tr nopub
if {[lsearch -exact $nopub [string tolower $chan]] >= 0} {return 0}
putserv "NOTICE $nick : Commands:"
putserv "NOTICE $nick : ${tr}help - This info"
putserv "NOTICE $nick : ${tr}dj - shows dj"
putserv "NOTICE $nick : ${tr}request - Requests a song"
putserv "NOTICE $nick : ${tr}server - Shows the shoutcast server"
putserv "NOTICE $nick : ${tr}shoutout - Request a shoutout"
return 0
}
proc dj {nick host hand chan arg} {
global url pathqstat cc nopub dj
if {[lsearch -exact $nopub [string tolower $chan]] >= 0} {return 0}
if {$arg == ""} {
putserv "notice $nick :Usage: ${cc}dj <Exact Nickname>"
return 0
}
set dj "$arg"
putserv "NOTICE $chan :DJ set to $dj"
}
proc req {nick host hand chan arg} {
global url pathqstat cc nopub dj
if {[lsearch -exact $nopub [string tolower $chan]] >= 0} {return 0}
if {$arg == ""} {
putserv "notice $nick :Usage: ${cc}request <^BExact Songname^B>"
return 0
}
set songname "$arg"
putserv "PRIVMSG $dj :$nick requested $songname"
putserv "NOTICE $nick :You have request $songname. Please do not re-request this."
}
proc setserv {nick host hand chan arg} {
global url pathqstat cc nopub server
if {[lsearch -exact $nopub [string tolower $chan]] >= 0} {return 0}
if {$arg == ""} {
putserv "notice $nick :Usage: ${cc}serverset <^BIP Address^B>"
return 0
}
set server "$arg"
putserv "NOTICE $nick :Server set to $server"
}
proc serv {nick host hand chan arg} {
global url pathqstat cc nopub server
if {[lsearch -exact $nopub [string tolower $chan]] >= 0} {return 0}
if {$arg == ""} {
putserv "notice $nick :Current server is set to $server"
return 0
}
}
proc shout {nick host hand chan arg} {
global url pathqstat cc nopub dj
if {[lsearch -exact $nopub [string tolower $chan]] >= 0} {return 0}
if {$arg == ""} {
putserv "notice $nick :Usage: ${cc}shoutout <^BYour Shoutout^B>"
return 0
}
set shoutout "$arg"
putserv "NOTICE $nick :Your shoutout $shoutout has been sent to the current DJ"
putserv "PRIVMSG $dj :$nick requested shoutout - $shoutout"
}
right now ill tell you wot im trying to get it to do ok i have sorted the problem with anyone being able to set a dj now when u type !help it shows u all the commands, now i want to get it to show the dj so u would type !dj but it keeps going for me to set a dj it doesnt show me who the dj is