the code :
set menu {
"Alegeti-va limba meniului / Choose your menu language:"
"pentru limba Romana tastati !romenu"
"for the English language please type !engmenu"
}
bind pub - !menu pub:menu
proc pub:menu {nick uhost hand chan text} {
global menu
foreach line $menu { puthelp "NOTICE $nick :$line" }
}
set menu {
"Va stau la dispozitie urmatoarele meniuri in limba romana:"
"tastati : !shellmenuro - pentru date generale despre shell si "
" configurarea corecta a serviciilor"
"tastati : !ircmenuro - pentru date generale despre retelele IRC"
}
bind pub - !romenu pub:romenu
proc pub: romenu {nick uhost hand chan text} {
global menu
foreach line $romenu { puthelp "NOTICE $nick :$line" }
}
set menu {
"The following menu`s are disponible in English language:"
"type : !shellmenueng for general dates and commands about shell "
" and the right configuration of our services"
"tastati : !ircmenueng - general dates about IRC network`s"
}
bind pub - !engmenu pub:engmenu
proc pub:engmenu {nick uhost hand chan text} {
global menu
foreach line $engmenu { puthelp "NOTICE $nick :$line" }
}
set menu {
"Prin acest serviciu de informare va sunt oferite informatii despre:"
"pentru Shell tasteaza !infoshell"
"pentru Comenzi Shell tasteaza !infocmd"
"pentru Procese tasteaza !infoproc"
"pentru Conexiuni tasteaza !infocon"
"pentru PsyBnc tasteaza !infopsy"
"pentru EggDrop tasteaza !infoegg"
"pentru Emech tasteaza !infoemech"
"pentru Ircd tasteaza !infoircd"
"pentru Muh tasteaza !infomuh"
"pentru IP tasteaza !infoip"
"pentru DNS tasteaza !infodns"
"pentru Vhost tasteaza !infovhost"
"Acest serviciu unic va este oferit de #OpticShells"
"Unica firma de hosting careia ii pasa de clientii ei !"
"In speranta ca informatiile puse la dispozitie vau ajutat in a alege pachetul optim de hosting"
"Va dorim un chat placut!"
}
bind pub - !shellmenuro pub:shellmenuro
proc pub:shellmenuro {nick uhost hand chan text} {
global menu
foreach line $shellmenuro { puthelp "NOTICE $nick :$line" }
}
the error :
[23:12] Tcl error in file 'OpticInfo-egg.conf':
[23:12] wrong # args: should be "proc name args body"
while executing
"proc pub: romenu {nick uhost hand chan text} {
global menu
foreach line $romenu { puthelp "NOTICE $nick :$line" }
}"
(file "scripts/Info.tcl" line 23)
invoked from within
"source scripts/Info.tcl"
(file "OpticInfo-egg.conf" line 43)
[23:12] * CONFIG FILE NOT LOADED (NOT FOUND, OR ERROR)
what is the solution ?!?!?