egghelp/eggheads community

error

2006-08-02T16:32:52-04:00

Just make sure your body statements are enclosed in {}

such as...

Code:

bind pub - howdy do_bind_speechproc do_bind_speech { nick host hand chan text } {          putserv "privmsg $chan :Howdy to you, $nick"}

Statistics: Posted by Vexor — Wed Aug 02, 2006 4:32 pm

error

2006-08-02T06:07:17-04:00

Code:
proc login {nick host hand chan arg}global url pathqstat cc nopub djif {[lsearch -exact $nopub [string tolower $chan]] >= 0} {return 0}return 0} 
Looks to me like you've forgotten a few {}'s. Perhaps its not needed but I've always written procs as
Code:
proc name { args } { do whatever }

how to solve it?? i'm noob... new in tcl.. help me

Statistics: Posted by alisetan — Wed Aug 02, 2006 6:07 am

error

2006-08-02T05:52:13-04:00

Code:

proc login {nick host hand chan arg}global url pathqstat cc nopub djif {[lsearch -exact $nopub [string tolower $chan]] >= 0} {return 0}return 0}

Looks to me like you've forgotten a few {}'s. Perhaps its not needed but I've always written procs as

Code:

proc name { args } { do whatever }

Statistics: Posted by Vexor — Wed Aug 02, 2006 5:52 am

error

2006-08-02T00:36:38-04:00

Code:

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 reqset 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 #perlis :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" } proc req {nick host hand chan arg} {global url pathqstat cc nopub dj        if ($dj == None) if {[lsearch -exact $nopub [string tolower $chan]] >= 0} {return 0}if {$arg == ""} {putserv "notice $nick :Usage: ${cc}request "return 0} set songname "$arg"putserv "PRIVMSG $dj :$nick requested $songname"putserv "NOTICE $nick :You have request $songname. Please do not re-request this."}

what error for this...

wrong # args: should be "proc name args body"
while executing
"proc login {nick host hand chan arg} "
(file "scripts/newtcl.tcl" line 14)

Please use

Code:

 tags next time.[/color]

Statistics: Posted by alisetan — Wed Aug 02, 2006 12:36 am