egghelp/eggheads community Discussion of eggdrop bots, shell accounts and tcl scripts. 2003-06-18T06:36:03-04:00 https://forum.eggheads.org/app.php/feed/topic/4708 2003-06-18T06:36:03-04:00 2003-06-18T06:36:03-04:00 https://forum.eggheads.org/viewtopic.php?p=22106#p22106 <![CDATA[help please]]>

Code: 

\[Only When Doing Pranks\]
instead of

Code: 

[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... :wink:



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


Code: 

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

Statistics: Posted by pollar — Wed Jun 18, 2003 6:36 am

]]> 2003-06-18T05:05:43-04:00 2003-06-18T05:05:43-04:00 https://forum.eggheads.org/viewtopic.php?p=22093#p22093 <![CDATA[help please]]> Statistics: Posted by arcane — Wed Jun 18, 2003 5:05 am

]]> 2003-06-17T14:41:35-04:00 2003-06-17T14:41:35-04:00 https://forum.eggheads.org/viewtopic.php?p=22070#p22070 <![CDATA[nvm]]> Statistics: Posted by Carnage69 — Tue Jun 17, 2003 2:41 pm

]]> 2003-06-17T14:36:18-04:00 2003-06-17T14:36:18-04:00 https://forum.eggheads.org/viewtopic.php?p=22069#p22069 <![CDATA[hello]]> Statistics: Posted by Carnage69 — Tue Jun 17, 2003 2:36 pm

]]> 2003-06-17T14:34:40-04:00 2003-06-17T14:34:40-04:00 https://forum.eggheads.org/viewtopic.php?p=22068#p22068 <![CDATA[help please]]>


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.

Statistics: Posted by Carnage69 — Tue Jun 17, 2003 2:34 pm

]]>