egghelp/eggheads community Discussion of eggdrop bots, shell accounts and tcl scripts. 2003-07-31T05:31:49-04:00 https://forum.eggheads.org/app.php/feed/topic/5121 2003-07-31T05:31:49-04:00 2003-07-31T05:31:49-04:00 https://forum.eggheads.org/viewtopic.php?p=24218#p24218 <![CDATA[help please]]>

Code: 

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

Statistics: Posted by Papillon — Thu Jul 31, 2003 5:31 am

]]> 2003-07-30T20:31:18-04:00 2003-07-30T20:31:18-04:00 https://forum.eggheads.org/viewtopic.php?p=24210#p24210 <![CDATA[sorry]]>

Code: 

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

Statistics: Posted by Carnage69 — Wed Jul 30, 2003 8:31 pm

]]> 2003-07-31T04:57:29-04:00 2003-07-30T20:14:18-04:00 https://forum.eggheads.org/viewtopic.php?p=24209#p24209 <![CDATA[Re: help please]]>
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"?

Statistics: Posted by user — Wed Jul 30, 2003 8:14 pm

]]> 2003-07-30T12:32:36-04:00 2003-07-30T12:32:36-04:00 https://forum.eggheads.org/viewtopic.php?p=24193#p24193 <![CDATA[help please]]>
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
}

Statistics: Posted by Carnage69 — Wed Jul 30, 2003 12:32 pm

]]>