help please

[Carnage69]

What is wrong with this a dj cant login...

set dj "AUTO DJ"
set scserver "http://65.125.235.194:1337/listen.pls"

set tr "@"
set cc "@"

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}prank pranking
bind pub -|- ${tr}topic settopic
bind pub -|- ${tr}commands com_list
bind pub -|- ${tr}djcommands djcom_list
bind pub -|- ${tr}credits cred_list
bind pub -|- ${tr}server serv_list
bind pub -|- ${tr}servers serv_list2
bind pub -|- ${tr}stream stream_list
bind nick - * dj:nick
bind sign - * dj:quit


proc login {nick host hand chan arg} {
global radioname scserver
if {![validuser $hand]} {return}
global url pathqstat cc nopub dj
set dj "$nick"
putserv "topic $chan :4,1[14X4] 9,1S0hock4-9W0ave 4[14X4]9 Current Dj:0 $dj4 [14X4] 9Server: 0$scserver 4[14X4]"
}

proc djs {nick host hand chan arg} {
global dj
if {[lsearch -exact $nopub [string tolower $chan]] >= 0} {return 0}
if {$arg == ""} {
putserv "notice $nick :Current DJ: $dj"
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 radioname scserver dj
global url pathqstat cc nopub
if {[lsearch -exact $nopub [string tolower $chan]] >= 0} {return 0}
if {$dj == "$nick"} {
set dj "AUTO DJ"
putserv "topic $chan :4,1[14X4] 9,1S0hock4-9W0ave 4[14X4]9 Current Dj:0 $dj4 [14X4] 9Server: 0$scserver 4[14X4]"
}


proc resetdj {nick host hand chan arg} {
global radioname scserver
if {![validuser $hand]} {return}
global url pathqstat cc nopub dj
if {[lsearch -exact $nopub [string tolower $chan]] >= 0} {return 0}
set dj "AUTO DJ"
putserv "topic $chan :4,1[14X4] 9,1S0hock4-9W0ave 4[14X4]9 Current Dj:0 $dj4 [14X4] 9Server: 0$scserver 4[14X4]"
}
}

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 dj:nick { nick host hand chan newnick } { global radioname scserver; if {$dj == "$nick"} { set dj "$newnick"; putserv "topic $chan :4,1[14X4] 9,1S0hock4-9W0ave 4[14X4]9 Current Dj:0 $dj4 [14X4] 9Server: 0$scserver 4[14X4] } }

proc dj:quit { nick host hand chan reason } { global radioname scserver show; if {$dj == "$nick"} { set dj "None"; putserv "topic $chan :4,1[14X4] 9,1S0hock4-9W0ave 4[14X4]9 Current Dj:0 $dj4 [14X4] 9Server: 0$scserver 4[14X4] } }



proc settopic {nick host hand chan arg} {
global radioname scserver show
if {![validuser $hand]} {return}
global url pathqstat cc nopub dj
if {[lsearch -exact $nopub [string tolower $chan]] >= 0} {return 0}
putserv "topic $chan :4,1[14X4] 9,1S0hock4-9W0ave 4[14X4]9 Current Dj:0 $dj4 [14X4] 9Server: 0$scserver 4[14X4]"
return 0
}


proc com_list {nick uhost handle chan arg} {
global command
putserv "NOTICE $nick :Commands: @Listeners @Song @Peak @LastSongs @Dj @Shoutout @Request @Prank @Cut @Credits"
return 0
}

proc cred_list {nick uhost handle chan arg} {
global command
putserv "NOTICE $nick :Credits: Radio Bot Scripted By Carnage"
return 0
}

proc serv_list {nick uhost handle chan arg} {
global command scserver
putserv "NOTICE $nick :Server: $scserver"
return 0
}

proc serv_list2 {nick uhost handle chan arg} {
global command scserver
putserv "NOTICE $nick :Server: $scserver"
return 0
}

proc stream_list {nick uhost handle chan arg} {
global command scserver
putserv "NOTICE $nick :Server: $scserver"
return 0
}


proc djcom_list {nick uhost handle chan arg} {
global command
putserv "NOTICE $nick :DJ-Commands: @Onair @Offair @ClearDJ"
return 0
}

[user]

What is wrong with this a dj cant login...

Why are you pasting the entire script? You made it, right? You should know which part deals with the login. And you should have used the code-tag to make the post readable.

If you'd read your error messages you'd know what's wrong. (hint "[" is used to execute commands. If you want it as part of a string you have to escape it.)

And why are you creating the "resetdj" proc from within "login"?

[Carnage69]

sorry i will only past the login can anyone help me with this??

Code: Select all

proc login {nick host hand chan arg} { 
global radioname scserver 
if {![validuser $hand]} {return} 
global url pathqstat cc nopub dj 
set dj "$nick" 
putserv "topic $chan :4,1[14X4] 9,1S0hock4-9W0ave 4[14X4]9 Current Dj:0 $dj4 [14X4] 9Server: 0$scserver 4[14X4]" 
} 

proc djs {nick host hand chan arg} { 
global dj 
if {[lsearch -exact $nopub [string tolower $chan]] >= 0} {return 0} 
if {$arg == ""} { 
putserv "notice $nick :Current DJ: $dj" 
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." 
} 

[Papillon]

Code: Select all

putserv "topic $chan :4,1\[14X4] 9,1S0hock4-9W0ave 4\[14X4]9 Current Dj:0 $dj4 \[14X4] 9Server: 0$scserver 4\[14X4]" 
}