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)
This is the new home of the egghelp.org community forum.
All data has been migrated (including user logins/passwords) to a new phpBB version.
For more information, see this announcement post. Click the X in the top right-corner of this box to dismiss this message.
All data has been migrated (including user logins/passwords) to a new phpBB version.
For more information, see this announcement post. Click the X in the top right-corner of this box to dismiss this message.
shoutcast
A question about your code
Why are you using lsearch to compare strings?