turn {
  if (!$1) { echo LOL NO TRY AGAIN | return }
  var %curr = $replace($1,_,$chr(32))
  writeini encounter.ini Encounter turn $1
  var %hp = $readini(encounter.ini,$1,hp)
  var %mhp = $readini(encounter.ini,$1,mhp)
  var %hpp = $calc( %hp / %mhp )
  var %hpc = 04
  if ( %hpp >= .2 ) var %hpc = 07
  if ( %hpp >= .5 ) var %hpc = 03
  var %hpbarnum = $ceil($calc( %hpp * 40 ))
  var %hpbar = [ $+ %hpc $+ $str(¤,%hpbarnum) $+ 15 $+ $str(¤,$calc(40 - %hpbarnum)) $+ ]
  var %sp = $readini(encounter.ini,$1,sp)
  var %msp = $readini(encounter.ini,$1,msp)
  var %spp = $calc( %sp / %msp )
  var %spbarnum = $ceil($calc( %spp * 40 ))
  var %spbar = [6 $+ $str(¤,%spbarnum) $+ 15 $+ $str(¤,$calc(40 - %spbarnum)) $+ ]
  var %class = $readini(encounter.ini,$1,class)
  var %hide = $readini(encounter.ini,$1,hide)
  msg # TURN:  $+ $mcol(%curr) ( $+ %class $+ )
  if (!%hide) {
    msg # HP:  $+ %hpc $+ %hp $+ / $+ %mhp $+  %hpbar
    msg # SP: 06 $+ %sp $+ / $+ %msp $+  %spbar
  }
  else if (%hide == BAR) {
    msg # HP:  $+ %hpc $+ ??? %hpbar
    msg # SP: 06 $+ ??? %spbar
  }
  else if (%hide == HIDE) {
    msg # HP:  $+ %hpc $+ ???
    msg # SP: 06 $+ ???
  }
  TOcopy
  msg # NEXT: $mcol($nextTO)
}
next {
  turn $nextturn
}
nextturn {
  if ($lines(queue.txt) > 0) {
    return $nextqueue
  }
  while ($lines(queue.txt) == 0) {
    clocktick
    var %combatants = $ini(encounter.ini,0)
    var %comb = 1
    while (%comb <= %combatants) {
      if ($readini(encounter.ini,$ini(encounter.ini,%comb),CT) >= 100) { write queue.txt $ini(encounter.ini,%comb) | echo $ini(encounter.ini,%comb) CT is 100+ }
      inc %comb
    }
  }
  return $nextqueue
}
clocktick {
  var %comb = 1
  while (%comb <= $ini(encounter.ini,0)) {
    writeini encounter.ini $ini(encounter.ini,%comb) CT $calc($readini(encounter.ini,$ini(encounter.ini,%comb),CT) + $readini(encounter.ini,$ini(encounter.ini,%comb),speed))
    inc %comb
  }
}
nextqueue {
  var %queuenum = $lines(queue.txt)
  var %check = 1
  var %bestCT = 0
  while (%check <= %queuenum) {
    var %curCT = $readini(encounter.ini,$read(queue.txt,%check),CT)
    echo Checking combatant %check in queue. Best CT: %bestCT Combatant's CT: $readini(encounter.ini,$read(queue.txt,%check),CT)
    if (%curCT >= 100 && (%curCT > %bestCT || (%curCT == %bestCT && $readini(encounter.ini,$read(queue.txt,%check),speed) > $readini(encounter.ini,%best,speed)))) {
      var %best = $read(queue.txt,%check)
      var %bestCT = $readini(encounter.ini,%best,CT)
      echo NEW BEST: %best ( $+ %bestCT $+ )
      var %delnum = %check
    }
    if (%curCT < 100) write -dl $+ %check queue.txt
    else inc %check
  }
  write -dl $+ %delnum queue.txt
  if (%best) writeini encounter.ini %best CT $calc($readini(encounter.ini,%best,CT) - 100)
  if (%best) return %best
}




; WHEN PEOPLE JOIN THE BATTLE MAKE SURE YOU WRITE THEIR SPEED TO TO.ini AS WELL

TOcopy {
  var %comb = 1
  while (%comb <= $ini(encounter.ini,0)) {
    writeini TO.ini $ini(encounter.ini,%comb) CT $readini(encounter.ini,$ini(encounter.ini,%comb),CT)
    inc %comb
  }
  var %count = $lines(TOqueue.txt)
  while (%count) {
    write -dl TOqueue.txt 1
    dec %count
  }
}
nextTO {
  var %comb = 1
  while (%comb <= %combatants) {
    if ($readini(TO.ini,$ini(TO.ini,%comb),CT) >= 100) { write TOqueue.txt $ini(TO.ini,%comb) }
    inc %comb
  }
  if ($lines(TOqueue.txt) > 0) {
    return $nextTOqueue
  }
  while ($lines(TOqueue.txt) == 0) {
    TOclocktick
    var %combatants = $ini(TO.ini,0)
    var %comb = 1
    while (%comb <= %combatants) {
      if ($readini(TO.ini,$ini(TO.ini,%comb),CT) >= 100) { write TOqueue.txt $ini(TO.ini,%comb) }
      inc %comb
    }
  }
  return $nextTOqueue
}
TOclocktick {
  var %comb = 1
  while (%comb <= $ini(TO.ini,0)) {
    writeini TO.ini $ini(TO.ini,%comb) CT $calc($readini(TO.ini,$ini(TO.ini,%comb),CT) + $readini(encounter.ini,$ini(TO.ini,%comb),speed))
    inc %comb
  }
}
nextTOqueue {
  var %queuenum = $lines(TOqueue.txt)
  var %check = 1
  var %bestCT = 0
  while (%check <= %queuenum) {
    var %curCT = $readini(TO.ini,$read(TOqueue.txt,%check),CT)
    if (%curCT >= 100 && (%curCT > %bestCT || (%curCT == %bestCT && $readini(encounter.ini,$read(queue.txt,%check),speed) > $readini(encounter.ini,%best,speed)))) {
      var %best = $read(TOqueue.txt,%check)
      var %bestCT = $readini(TO.ini,%best,CT)
      echo NEW BEST: %best ( $+ %bestCT $+ )
      var %delnum = %check
    }
    if (%curCT < 100) write -dl $+ %check TOqueue.txt
    else inc %check
  }
  write -dl $+ %delnum TOqueue.txt
  if (%best) writeini TO.ini %best CT $calc($readini(TO.ini,%best,CT) - 100)
  if (%best) return %best
}
TO {
  TOcopy
  var %num = $iif($1,$1,10)
  var %TO = TURN ORDER:
  var %count = 1
  while (%count <= %num) {
    var %TO = %TO $mcol($nextTO)
    inc %count
  }
  msg # %TO
}