help please

[Carnage69]

hello i have ben scripting this for a cupple days and i need 2 things on it



set tr "@"
set cc "@"

set nopub "#q3f"

bind pub -|- ${tr}onair login
bind pub -|- ${tr}dj djs
bind pub -|- ${tr}offair logout
bind pub -|- ${tr}cleardj resetdj
bind pub -|- ${tr}request req
bind pub -|- ${tr}shoutout shout
bind pub -|- ${tr}requestdj reqdj
bind pub -|- ${tr}prank pranking
bind pub -|- ${tr}commands help




set qversion "1.5"



proc login {nick host hand chan arg} {
if {![validuser $hand]} {return}
global url pathqstat cc nopub dj
if {[lsearch -exact $nopub [string tolower $chan]] >= 0} {return 0}
set show "$arg"
set dj "$nick"
putserv "privmsg chanserv :#or-radio topic 14,1\\ 4,1oR-0,1Radio14,1 \\4,1 D0,1J: $dj 14,1\\ 4,1S0,1how: $show 14,1\\ 4,1S0,1erver: http://66.227.110.7:8018/listen.pls 0,114,1\\"
}




proc djs {nick host hand chan arg} {
global url pathqstat cc nopub dj
if {[lsearch -exact $nopub [string tolower $chan]] >= 0} {return 0}
if {$arg == ""} {
putserv "PRIVMSG #or-radio :14,1\\ 4,1oR-0,1Radio14,1 \\4,1 D0,1J: $dj 14,1\\"
return 0
}
}

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 "To Use Do @Request Your Request Hear"
return 0
}


set songname "$arg"
putserv "PRIVMSG $dj :Request From $nick $songname"
putserv "NOTICE $nick :You have request $songname. Please do not re-request this."
}


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 "To Use Do @Shoutout Your Shoutout Hear."
return 0
}


set shoutout "$arg"
putserv "NOTICE $nick :Your shoutout $shoutout has been sent to the current DJ"
putserv "PRIVMSG $dj :Shoutout From $nick - $shoutout"
}


proc logout {nick host hand chan arg} {
global url pathqstat cc nopub dj
if {[lsearch -exact $nopub [string tolower $chan]] >= 0} {return 0}
if {$dj == "$nick"} {
set dj "None"
set show "None"
putserv "privmsg chanserv :#or-radio topic 14,1\\ 4,1oR-0,1Radio14,1 \\4,1 D0,1J: $dj 14,1\\ 4,1S0,1how: $show 14,1\\ 4,1S0,1erver: http://66.227.110.7:8018/listen.pls 0,114,1\\"
}


proc resetdj {nick host hand chan arg} {
if {![validuser $hand]} {return}
global url pathqstat cc nopub dj
if {[lsearch -exact $nopub [string tolower $chan]] >= 0} {return 0}
set dj "None"
set show "None"
putserv "privmsg chanserv :#or-radio topic 14,1\\ 4,1oR-0,1Radio14,1 \\4,1 D0,1J: $dj 14,1\\ 4,1S0,1how: $show 14,1\\ 4,1S0,1erver: http://66.227.110.7:8018/listen.pls 0,114,1\\"
}
}

proc pranking {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 "To Use Do @Prank Your Prank Hear."
return 0
}


set prank "$arg"
putserv "NOTICE $nick :Your prank $prank has been sent to the current DJ"
putserv "PRIVMSG $dj :Prank From $nick - $prank"
}

proc help {nick host hand chan arg} {
global url pathqstat tr nopub
if {[lsearch -exact $nopub [string tolower $chan]] >= 0} {return 0}
putserv "PRIVMSG #or-radio : 14,1\\ 4,1oR-0,1Radio14,1 \\0,1 Commands: 4,1@0,1servers 4,1@0,1song 4,1@0,1listeners 4,1@0,1request 4,1@0,1shoutout 4,1@0,1website4,1 @0,1sponsors 4,1 @0,1dj 4,1 @0,1Prank [Only When Doing Pranks] 14,1\\"
return 0
}



1: why doesent help work?
2: when a dj is on air and another sayd onair it puts them on how do i make it do it doesent do that.

[Carnage69]

i got one of thos down i just need to know why help doedent work

[Carnage69]

nvm no i dident i still need both

[arcane]

does it give you any error messages? if yes, please post them.

[pollar]

You should use:

Code: Select all

\[Only When Doing Pranks\]

instead of

Code: Select all

[Only When Doing Pranks]

When you use [Only When Doing Pranks], you are calling a procedure named Only with 3 args (When, Doing, Pranks). It's wrong for your situation. So replace [ ] with \[ \] and help will work I think...



I don't understand what exactly you need in your 2nd question. There is my version of the code ...

Code: Select all

proc login {nick host hand chan arg} { 
if {![validuser $hand]} {return} 
global url pathqstat cc nopub dj 
if {[lsearch -exact $nopub [string tolower $chan]] >= 0} {return 0} 
if {$dj!="None"&&[onchan $dj #or-radio]} {
puthelp "PRIVMSG $nick : We already have a DJ :P"
return 0
}
set show "$arg" 
set dj "$nick" 
putserv "privmsg chanserv :#or-radio topic 14,1\\ 4,1oR-0,1Radio14,1 \\4,1 D0,1J: $dj 14,1\\ 4,1S0,1how: $show 14,1\\ 4,1S0,1erver: http://66.227.110.7:8018/listen.pls 0,114,1\\" 
}