Forums Scripts & Popups For loop help.

for {
  if ($1 isnum) {
    set %place 1
    while ($gettok($3-,%place,59) != $null) {
      ;executes each section seperately, divided by $chr(59)
      set %tok $gettok($3-,%place,59)
      set %subplace 1

      if (%place == 1) {
        ;first section. Initializes variables, in "variable = value" format. Each statement seperated by commas.
        while ($gettok(%tok, %subplace, 44) != $null) {
          set %subtok $gettok(%tok, %subplace, 44)
          echo -a $gettok(%subtok,1,61) | ;shows that the first token exists
          echo -a $gettok(%subtok,2,61) | ;shows that the second token exists
          set % [ $+ [ $gettok(%subtok,1,61) ] ] $gettok(%subtok,2,61)
          inc %subplace
        }
      }
      inc %place
    }
  }
}
 

/for {
  if ($1 isnum) {
    set %place 1
    while ($gettok($3-,%place,59) != $null) {
      ;executes each section seperately, divided by $chr(59)
      set %tok $gettok($3-,%place,59)
      set %subplace 1

      if (%place == 1) {
        ;first section. Initializes variables, in "variable = value" format. Each statement seperated by commas.
        while ($gettok(%tok, %subplace, 44) != $null) {
          set %subtok $gettok(%tok, %subplace, 44)
          echo -a $gettok(%subtok,1,61) | ;shows that the first token exists
          echo -a $gettok(%subtok,2,61) | ;shows that the second token exists
          set $+(%,$gettok(%subtok,1,61)) $gettok(%subtok,2,61)
          echo -a $eval($+(%,$gettok(%subtok,1,61)),2)
          inc %subplace
        }
      }
      inc %place
    }
  }
}

 
for blah blah {
  do this
  do that
  and this too
  cant forget this
}
 

/for {
  set %var1 $gettok($1-,1,59)
  set %var2 $gettok($1-,2,59)
  set %var3 $gettok($1-,3,59)
  set %var4 $gettok($1-,4,59)
  echo -a %var1 %var2 %var3 %var4
  while (%var1 %var2 %var3) {
    msg # test %var1 %var2 %var3 %var4
    %var4 %var1
  }
  unset %var*
}

/for {
  if ($1 isnum) {
    set %place 1
    while ($gettok($3-,%place,59) != $null) {
      ;executes each section seperately, divided by $chr(59)
      set %tok $gettok($3-,%place,59)
      set %subplace 1

      if (%place == 1) {
        ;first section. Initializes variables, in "variable = value" format. Each statement seperated by commas.
        while ($gettok(%tok, %subplace, 44) != $null) {
          set %subtok $remove($gettok(%tok, %subplace, 44),$chr(32))

          set $+(%,$gettok(%subtok,1,61)) $gettok(%subtok,2,61)
          inc %subplace
        }
      }
      else if (%place == 2) {
        set %tok $gettok($3-,%place,59)

        set %evalfirst $gettok(%tok,1,32)
        set %evalmid $gettok(%tok,2,32)
        set %evallast $gettok(%tok,3,32)
        set %evalwhile $gettok(%tok,1,32) $gettok(%tok,2,32) $gettok(%tok,3,32)

      }
      else if (%place == 3) {
        ;anything made within the third section is done at the end. Can have more than one command with seperation of either | or ,
        if ($replace($gettok($3-,%place,59),$chr(44),$chr(124)),1 != $null) {
          set %exec $replace($gettok($3-,%place,59),$chr(44),$chr(124))
        }
      }
      inc %place
    }
    set %forcount $1
    while (for !isin $read($2,%forcount)) {
      inc %forcount
    }
    inc %forcount
    write -c for.txt 0

    while (:FOREND !isin $read($2,%forcount)) {
      write for.txt $read($2,%forcount)
      msg # $read($2,%forcount)
      inc %forcount
    }
    msg # %evalfirst %evalmid %evallast

    while (%evalwhile) {
      echo -a got here
      set %forcount 1

      while ($read(for.txt,%forcount) != $null) {
        msg # got here
        / $+ $read(for.txt,%forcount)
        / $+ %exec
        inc %forcount
      }
    }
  }
}
 

/testing {
  for $scriptline aliases.txt lol = 3; %lol < 5 ;inc %lol
  say hi 
  :FOREND
}  

/testing {
  for $scriptline aliases.txt lol = 3; $+(%,lol) < 5 ;inc $+(%,lol)
  say hi 
  :FOREND
}