egghelp/eggheads community

thanks

2003-06-16T20:44:29-04:00

thanks man i got it

Statistics: Posted by Carnage69 — Mon Jun 16, 2003 8:44 pm

shoutcast

2003-06-16T20:23:34-04:00

There's several errors you need to fix...
"login" and "resetdj" has an extra } each (is that second "return 0" supposed to be there?)
"djs" is missing a }

Statistics: Posted by user — Mon Jun 16, 2003 8:23 pm

cant find it

2003-06-16T20:16:38-04:00

i cant find it

Statistics: Posted by Carnage69 — Mon Jun 16, 2003 8:16 pm

hey

2003-06-16T20:09:10-04:00

were is the eztra }

Statistics: Posted by Carnage69 — Mon Jun 16, 2003 8:09 pm

A question about your code

2003-06-16T20:04:45-04:00

Why are you using lsearch to compare strings?

Statistics: Posted by user — Mon Jun 16, 2003 8:04 pm

shoutcast

2003-06-16T20:01:10-04:00

because you have one } too many.
(hint: the last proc)

Statistics: Posted by user — Mon Jun 16, 2003 8:01 pm

shoutcast

2003-06-16T19:58:39-04:00

hello i dont usualy share things like this with people but i need some help 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

set qversion "1.5"

proc login {nick host hand chan arg} {
global url pathqstat cc nopub dj
if {[lsearch -exact $nopub [string tolower $chan]] >= 0} {return 0}
return 0
}
set dj "$nick"
putserv "NOTICE $nick :You Are Now On Air When U Are Done Please Sign Off"
}

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 :4,1* 14,1 »15,1»14,1»4,1 Current DJ : $dj 14,1 »15,1»14,1» 4,1*"
return 0
}

proc logout {nick host hand chan arg} {
global url pathqstat cc nopub dj
if {[lsearch -exact $nopub [string tolower $chan]] >= 0} {return 0}
if {$nick == "$dj"} {
return 0
}
set dj "None"
putserv "NOTICE $nick :You Are Now Off Air When U Are Done Please Sign Off"
}

proc resetdj {nick host hand chan arg} {
global url pathqstat cc nopub dj
if {[lsearch -exact $nopub [string tolower $chan]] >= 0} {return 0}
return 0
}
set dj "None"
putserv "NOTICE $nick :The Dj Has Ben Reset"
}
}

when i try to load it it says
invalid command name "}"
while executing
"}"
(file "scripts/dj.tcl" line 23)
invoked from within
"source scripts/dj.tcl"
(file "eggdrop.conf" line 181)
[19:47] * CONFIG FILE NOT LOADED (NOT FOUND, OR ERROR)

Statistics: Posted by Carnage69 — Mon Jun 16, 2003 7:58 pm