egghelp/eggheads community Discussion of eggdrop bots, shell accounts and tcl scripts. 2003-05-12T16:17:58-04:00 https://forum.eggheads.org/app.php/feed/topic/4376 2003-05-12T16:17:58-04:00 2003-05-12T16:17:58-04:00 https://forum.eggheads.org/viewtopic.php?p=20123#p20123 <![CDATA[Shard status]]>
Where did you get the idea of using {}'s as ()'s :P

make it

Code: 

if {($ok != "on") && ($ok != "off")} {...
thanks user :)

Statistics: Posted by Guest — Mon May 12, 2003 4:17 pm

]]> 2003-05-12T15:45:48-04:00 2003-05-12T15:45:48-04:00 https://forum.eggheads.org/viewtopic.php?p=20116#p20116 <![CDATA[Shard status]]>

make it

Code: 

if {($ok != "on") && ($ok != "off")} {...

Statistics: Posted by user — Mon May 12, 2003 3:45 pm

]]> 2003-05-12T15:01:02-04:00 2003-05-12T15:01:02-04:00 https://forum.eggheads.org/viewtopic.php?p=20112#p20112 <![CDATA[Shard status]]> but now gives other errormsg
*edit*
¬ my msg: [16:05:48] <infos> !shardstatus on some users with lag.
[15:57:25] <AoW_Shard> [15:57] Tcl error [shard_status]: expected boolean value but got "$ok != "on""

i changed:

Code: 

  if {[lindex $arg 1] == ""} {
and the { } in the other if.
thanks

Statistics: Posted by Guest — Mon May 12, 2003 3:01 pm

]]> 2003-05-12T14:41:45-04:00 2003-05-12T14:41:45-04:00 https://forum.eggheads.org/viewtopic.php?p=20110#p20110 <![CDATA[Shard status]]>

Code: 

if {$ok != "on"} && {$ok != "off"} {
This is missing some grouping brakets. You are telling the IF to match "$ok != on", and the body is &&.

You should be using

Code: 

if {{$ok != "on"} && {$ok != "off"}} {

Code: 

if {![lindex $arg 1]} {
This is not allways valid, and will return a error, if "[lindex $arg 1]" every return text.

Statistics: Posted by ppslim — Mon May 12, 2003 2:41 pm

]]> 2003-05-12T14:25:01-04:00 2003-05-12T14:25:01-04:00 https://forum.eggheads.org/viewtopic.php?p=20109#p20109 <![CDATA[Shard status]]>
What is this code problem?
[15:11:53] <infos> !shardstatus
[15:11:54] <AoW_Shard> [15:11] Tcl error [shard_status]: wrong # args: extra words after "else" clause in "if" command

Code: 

bind pub - "!shard" shardproc shard {user uhost hand chan arg} {  global shard status  putlog "$user: !Shard. Sending msg..."  putserv "NOTICE $user :Shard status: $shard - $status"}bind pub o|o "!shardstatus" shard_statusproc shard_status {user uhost hand chan arg} {  global shard status  set ok [join [lindex [split $arg] 0]]  if {![lindex $arg 1]} {    putserv "NOTICE $user :Sintax: !ShardStatus On/Off adtional_information"    return  }  if {$ok != "on"} && {$ok != "off"} {    putserv "NOTICE $user :Sintax: !ShardStatus On/Off adtional_information"    return  }  if {$ok == "on"} {    set shard "Online"  }  if {$ok == "off"} {    set shard "Offline"  }  set status [join [lrange [split $arg] 1 end]]  putserv "NOTICE $user :Status do Shard: $shard - $status"}
i tried to find but i cant see the problem.
thanks

Statistics: Posted by Guest — Mon May 12, 2003 2:25 pm

]]>