This is the new home of the egghelp.org community forum.
All data has been migrated (including user logins/passwords) to a new phpBB version.


For more information, see this announcement post. Click the X in the top right-corner of this box to dismiss this message.

radio2.tcl big prob

Old posts that have not been replied to for several years.
Locked
f
flappa

radio2.tcl big prob

Post by flappa »

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 ?
User avatar
Papillon
Owner
Posts: 724
Joined: Fri Feb 15, 2002 8:00 pm
Location: *.no

Post by Papillon »

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"
Elen sila lúmenn' omentielvo
f
flappa

Post by flappa »

so how can i make it where only ops can set a DJ ?
s
spock
Master
Posts: 319
Joined: Thu Dec 12, 2002 8:40 pm

Post by spock »

(from tcl-commands.doc)
bind msg <flags> <command> <proc>

bind pub o|o ${tr}dj dj
photon?
f
flappa

Post by flappa »

errr bind msg <flags> <command> <proc> wots this never used a bind before ? can u tell me how i do that and where i do it
f
flappa

Post by flappa »

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
Locked