egghelp/eggheads community Discussion of eggdrop bots, shell accounts and tcl scripts. 2003-03-10T05:38:24-04:00 https://forum.eggheads.org/app.php/feed/topic/3865 2003-03-10T05:38:24-04:00 2003-03-10T05:38:24-04:00 https://forum.eggheads.org/viewtopic.php?p=17636#p17636 <![CDATA[Whats wrong?]]>
The IF command, treats <> 0 as true, and only 0 as false.

Because list indexes starts at 0, a not found index, can't be 0, thus it uses "-1" as not found.

"-1" follows the <>0 system, thus is TRUE in the eyes of IF.

Statistics: Posted by ppslim — Mon Mar 10, 2003 5:38 am

]]> 2003-03-09T23:11:05-04:00 2003-03-09T23:11:05-04:00 https://forum.eggheads.org/viewtopic.php?p=17631#p17631 <![CDATA[Whats wrong?]]> Statistics: Posted by stdragon — Sun Mar 09, 2003 11:11 pm

]]> 2003-03-09T21:14:04-04:00 2003-03-09T21:14:04-04:00 https://forum.eggheads.org/viewtopic.php?p=17629#p17629 <![CDATA[Whats wrong?]]>

Code: 

setudef flag adrevenge bind pubm - "*#*" ad:rvng set adfloodprot 1 proc ad:rvng {n u h c a} {     global adfloodprot     if {$adfloodprot} {         if {[lsearch [channel info $c] +adrevenge]} {             set chan [lindex $a [lsearch $a #*]]             if {[lsearch [channels] $chan]==-1} {                 if {![string match -nocase #help*] && ![string match -nocase #feds]} {                     channel add $chan                     set adrvng [list putserv "PRIVMSG $chan :Visit: $c \037(\037\002Advertise Revenge\002 from $n\037)\037"]    set adfloodprot 0   set partchan [list putserv "PART $chan \00314::\0037 $c \00314::\003"; channel remove $chan; set adfloodprot 1]  utimer 5 $adrvng   utimer 10 $partchan                 }                 }         }     }}putlog "\00303Advertise Revenge Loaded!"
Whats wrong? :)

Statistics: Posted by Guest — Sun Mar 09, 2003 9:14 pm

]]>