is there a better way to do this? - 04/11/06 10:01 PM
hello all,
this code is working good.. it's not my own but, works for my purposes... but instead of the goto loops, is there a way to make this code less bulkie? perhaps by using while loop(s)?
if so how would that work for this instance???
here's the code i'm inquiring on:
this is only part of the script but for what i'm asking i think this should do..
thanks to you all in advance..
this code is working good.. it's not my own but, works for my purposes... but instead of the goto loops, is there a way to make this code less bulkie? perhaps by using while loop(s)?
if so how would that work for this instance???
here's the code i'm inquiring on:
Code:
if (%found != $null) { %i = 0 :loop1 inc %i | inc %all if (%all == 6) { .msg $nick $C(1) $+ ( $+ $C(2) $+ overflow $+ $C(1) $+ ) $+ $C(1) too many search results to display. | halt } if ($findfile($r.srv(Fserve.1,Root.Dir),%search,%i) != $null) { inc %current | .msg $nick $C(1) $+ ( $+ $C(2) $+ $+ %current $+ $+ $C(1) $+ ) file:( $+ $C(2) $+ $right($findfile($r.srv(Fserve.1,Root.Dir),%search,%i),$calc($len($findfile($r.srv(Fserve.1,Root.Dir),%search,%i)) - $len($r.srv(Fserve.1,Root.Dir)))) $+ $C(1) $+ ) size:( $+ $C(2) $+ $+ $big($findfile($r.srv(Fserve.1,Root.Dir),%search,%i)) $+ $+ $C(1) $+ ) trigger:( $+ $C(2) $+ $+ /ctcp $+ $chr(32) $+ $r.srv(Fserve.1,Trigger) $+ $+ $C(1) $+ ) } if (%i < %found) { goto loop1 } goto next } :next if (%found.2 != $null) { %i = 0 :loop2 inc %i | inc %all if (%all == 6) { .msg $nick $C(1) $+ ( $+ $C(2) $+ overflow $+ $C(1) $+ ) $+ $C(1) too many search results to display. | halt } if ($findfile($r.srv(Fserve.2,Root.Dir),%search,%i) != $null) { inc %current | .msg $nick $C(1) $+ ( $+ $C(2) $+ $+ %current $+ $+ $C(1) $+ ) file:( $+ $C(2) $+ $right($findfile($r.srv(Fserve.2,Root.Dir),%search,%i),$calc($len($findfile($r.srv(Fserve.2,Root.Dir),%search,%i)) - $len($r.srv(Fserve.2,Root.Dir)))) $+ $C(1) $+ ) size:( $+ $C(2) $+ $+ $big($findfile($r.srv(Fserve.2,Root.Dir),%search,%i)) $+ 4+ $C(1) $+ ) trigger:( $+ $C(2) $+ $+ /ctcp $+ $chr(32) $+ $r.srv(Fserve.2,Trigger) $+ $+ $C(1) $+ ) } if (%i < %found.2) { goto loop2 } goto next2 } :next2 if (%found.3 != $null) { %i = 0 :loop3 inc %i | inc %all if (%all == 6) { .msg $nick $C(1) $+ ( $+ $C(2) $+ overflow $+ $C(1) $+ ) $+ $C(1) too many search results to display. | halt } if ($findfile($r.srv(Fserve.3,Root.Dir),%search,%i) != $null) { inc %current | .msg $nick $C(1) $+ ( $+ $C(2) $+ $+ %current $+ $+ $C(1) $+ ) file:( $+ $C(2) $+ $right($findfile($r.srv(Fserve.3,Root.Dir),%search,%i),$calc($len($findfile($r.srv(Fserve.3,Root.Dir),%search,%i)) - $len($r.srv(Fserve.3,Root.Dir)))) $+ $C(1) $+ ) size:( $+ $C(2) $+ $+ $big($findfile($r.srv(Fserve.3,Root.Dir),%search,%i)) $+ $+ $C(1) $+ ) trigger:( $+ $C(2) $+ $+ /ctcp $+ $chr(32) $+ $r.srv(Fserve.3,Trigger) $+ $+ $C(1) $+ ) } if (%i < %found.3) { goto loop3 } goto next3 } :next3 if (%found.4 != $null) { %i = 0 :loop4 inc %i | inc %all if (%all == 6) { .msg $nick $C(1) $+ ( $+ $C(2) $+ overflow $+ $C(1) $+ ) $+ $C(1) too many search results to display. | halt } if ($findfile($r.srv(Fserve.4,Root.Dir),%search,%i) != $null) { inc %current | .msg $nick $C(1) $+ ( $+ $C(2) $+ $+ %current $+ $+ $C(1) $+ ) file:( $+ $C(2) $+ $right($findfile($r.srv(Fserve.4,Root.Dir),%search,%i),$calc($len($findfile($r.srv(Fserve.4,Root.Dir),search,%i)) - $len($r.srv(Fserve.4,Root.Dir)))) $+ $C(1) $+ ) size:( $+ $C(2) $+ $+ $big($findfile($r.srv(Fserve.4,Root.Dir),%search,%i)) $+ $+ $C(1) $+ ) trigger:( $+ $C(2) $+ $+ /ctcp $+ $chr(32) $+ $r.srv(Fserve.4,Trigger) $+ $+ $C(1) $+ ) } if (%i < %found.4) { goto loop4 } goto next4 } :next4 if (%found.5 != $null) { %i = 0 :loop5 inc %i | inc %all if (%all == 6) { .msg $nick $C(1) $+ ( $+ $C(2) $+ overflow $+ $C(1) $+ ) $+ $C(1) too many search results to display. | halt } if ($findfile($r.srv(Fserve.5,Root.Dir),%search,%i) != $null) { inc %current | .msg $nick $C(1) $+ ( $+ $C(2) $+ $+ %current $+ $+ $C(1) $+ ) file:( $+ $C(2) $+ $right($findfile($r.srv(Fserve.5,Root.Dir),%search,%i),$calc($len($findfile($r.srv(Fserve.5,Root.Dir),%search,%i)) - $len($r.srv(Fserve.5,Root.Dir)))) $+ $C(1) $+ ) size:( $+ $C(2) $+ $+ $big($findfile($r.srv(Fserve.5,Root.Dir),%search,%i)) $+ $+ $C(1) $+ ) trigger:( $+ $C(2) $+ $+ /ctcp $+ $chr(32) $+ $r.srv(Fserve.5,Trigger) $+ $+ $C(1) $+ ) } if (%i < %found.5) { goto loop5 } goto end } } :end }
this is only part of the script but for what i'm asking i think this should do..
thanks to you all in advance..