TLC error

jpheur · Post by **jpheur** » Thu Oct 04, 2001 6:03 pm

Why this script:

bind pub - ?ship ship

proc ship {nick host hand chan args} {
global botnick admin
if {![$nick == $admin]} {return 0}
set who [lindex $arg 0]
puthelp "PRIVMSG $chan :$who cost 100"
}

Return this error: TCL error [ship]: invalid command name "Kultsi"

Thanks

ppslim · Post by **ppslim** » Thu Oct 04, 2001 6:14 pm

It should look somthing more like

Code: Select all

bind pub - ?ship ship
proc ship {nick host hand chan args} {
global botnick admin
if {$nick != $admin} {return 0}
set who [lindex [split $arg] 0]
puthelp "PRIVMSG $chan :$who cost 100"
}

Guest · Post by **Guest** » Fri Oct 05, 2001 11:28 am

On 2001-10-04 16:14, ppslim wrote:
It should look somthing more like
Code: Select all
bind pub - ?ship ship
proc ship {nick host hand chan args} {
global botnick admin
if {$nick != $admin} {return 0}
set who [lindex [split $arg] 0]
puthelp "PRIVMSG $chan :$who cost 100"
}

Hmm Í have test the sribt but it doesnt work

ppslim · Post by **ppslim** » Fri Oct 05, 2001 11:36 am

After looking more closely (like I should have in the first place, here is what it should look like.

Code: Select all

bind pub - ?ship ship
proc ship {nick host hand chan arg} {
  global admin
  if {[string compare -nocase $nick $admin] <> 0} {return 0}
  set who [lindex [split $arg] 0]
  puthelp "PRIVMSG $chan :$who cost 100"
}

Guest · Post by **Guest** » Fri Oct 05, 2001 11:43 am

no it doesnt work to
now can the foul
[15:44:37] <man0serv> [15:44] TCL error [ship]: syntax error in expression "[string compare -nocase $nick $admin] <> 0"

ppslim · Post by **ppslim** » Fri Oct 05, 2001 11:49 am

It seems (somthing i didnt know) that TCL's if command doesn't know how to compare <> statments. Just change the <> in the script to !=