hmmmm... while - mIRC Discussion Forums

$mods...... makes mirc freeze... i know its the while but i just dont know why it doesnt work

Code:

alias mods {
  set %i 1
  while ($read(onlinemods1.txt,%i)) {
    if (@ iswm $read(onlinemods1.txt,%i)) {
      if (%@s == $null) {
        set %@s  $read(onlinemods1.txt,%i) $+ ,
        inc %i
      }
      elseif (%@s != $null) {
        set %@s %@s $read(onlinemods1.txt,%i) $+ ,
        inc %i
      }
    }
    if ($chr(33) iswm $read(onlinemods1.txt.%i)) {
      if (%!s == $null) {
        set %!s  $read(onlinemods1.txt,%i) $+ ,
        inc %i
      }
      elseif (%!s != $null) {
        set %!s %!s $read(onlinemods1.txt,%i) $+ ,
        inc %i
      }
    }
    if ($chr(37) iswm $read(onlinemods1.txt,%i)) {
      if (%hs == $null) {
        set %hs  $read(onlinemods1.txt,%i) $+ ,
        inc %i
      }
      elseif (%hs != $null) {
        set %hs %hs $read(onlinemods1.txt,%i) $+ ,
        inc %i
      }
    }
    if ($chr(43) iswm $read(onlinemods1.txt,%i)) {
      if (%+s == $null) {
        set %+s  $read(onlinemods1.txt,%i) $+ ,
        inc %i
      }
      elseif (%+s != $null) {
        set %+s %+s $read(onlinemods1.txt,%i) $+ ,
        inc %i
      }
    }
  }
  return %!s %@s %hs %+s
  unset %!s 
  unset %@s 
  unset %hs 
  unset %+s
}

btw the onlinemods.txt is:
!name
@name
%name
+name
like that

It's not recommended to do $read loops because they involve intensive (and relatively slow) hard disk access. This script dumps the whole file to a hidden @window in one instance and enables you to use $fline (a bonus by itself):

alias mods {
window -h @@
loadbuf @@ onlinemods.txt
var %result = $fline(@@,!*,0) $fline(@@,@*,0) $fline(@@,% $+ *,0) $fline(@@,+*,0)
close -@ @@
return %result
}

how simple!

btw, i think your problem was, if all if () statements were $false, then %i wouldn't be inc'd