egghelp/eggheads community

radio2.tcl big prob

2003-04-12T13:45:55-04:00

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 "
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

Statistics: Posted by Guest — Sat Apr 12, 2003 1:45 pm

radio2.tcl big prob

2003-04-12T11:47:45-04:00

errr bind msg wots this never used a bind before ? can u tell me how i do that and where i do it

Statistics: Posted by Guest — Sat Apr 12, 2003 11:47 am

radio2.tcl big prob

2003-04-12T07:47:57-04:00

(from tcl-commands.doc)
bind msg

bind pub o|o ${tr}dj dj

Statistics: Posted by spock — Sat Apr 12, 2003 7:47 am

radio2.tcl big prob

2003-04-12T00:13:01-04:00

so how can i make it where only ops can set a DJ ?

Statistics: Posted by Guest — Sat Apr 12, 2003 12:13 am

radio2.tcl big prob

2003-04-11T10:55:12-04:00

you can't do "bind nopub..."

Channels you _dont_ want the bot to reply to public triggers on (seperate with spaces):
set nopub "#q3f"

this means you shall set any channels you don't want it to reply in the ""... like this:

set nopub "#chan1 #chan2 #chan3"

Statistics: Posted by Papillon — Fri Apr 11, 2003 10:55 am

radio2.tcl big prob

2003-04-11T10:33:17-04:00

right i got this all sorted but one thing still remians and dont have a clue how to sort when im in my channel and i wanna DJ i would type !DJ then my name that works ok but anyone can type that in how can i make it only ops can type that in ibut it says this

Channels you _dont_ want the bot to reply to public triggers on (seperate with spaces):
set nopub "#q3f"

bind pub -|- ${tr}help help
bind pub -|- ${tr}dj dj
bind pub -|- ${tr}request req
bind pub -|- ${tr}setserver setserv
bind pub -|- ${tr}server serv
bind pub -|- ${tr}shoutout shout

now i thought it meant do something like this

bind nopub -|- ${tr}dj dj

but when i done that and went to load it all up again the thing wouldnt load for me this is realy frustraighting me now can anyone help ?

Statistics: Posted by Guest — Fri Apr 11, 2003 10:33 am