Miscellany

    var %k = 0
    var %O = 0
    while %k < 101 {
      if (%O == 10) var %O = 0
      if (%k < 11 && $mouse.x isnum 100-150 && $mouse.y isnum $calc(%k * 100 - $calc((%O -1) * 50)+5) $+ - $+ $calc(%k * 100 - $calc((%O -1) * 50)+55)) { 
      set %strategoloc $+ %k $+ ¤ $+ %O %k %O $gettok($did(2).seltext,1,32) | dialog -x chars chars }
      if (%k < 21 && $mouse.x isnum 150-200 && $mouse.y isnum $calc(%k * 100 - $calc((%O -1) * 50)+5) $+ - $+ $calc(%k * 100 - $calc((%O -1) * 50)+55)) { set %strategoloc $+ %k $+ ¤ $+ %O %k %O $gettok($did(2).seltext,1,32) | dialog -x chars chars }
      if (%k < 31 && $mouse.x isnum 200-250 && $mouse.y isnum $calc(%k * 100 - $calc((%O -1) * 50)+5) $+ - $+ $calc(%k * 100 - $calc((%O -1) * 50)+55)) { set %strategoloc $+ %k $+ ¤ $+ %O %k %O $gettok($did(2).seltext,1,32) | dialog -x chars chars }
      if (%k < 41 && $mouse.x isnum 250-300 && $mouse.y isnum $calc(%k * 100 - $calc((%O -1) * 50)+5) $+ - $+ $calc(%k * 100 - $calc((%O -1) * 50)+55)) { set %strategoloc $+ %k $+ ¤ $+ %O %k %O $gettok($did(2).seltext,1,32) | dialog -x chars chars }
      if (%k < 51 && $mouse.x isnum 300-350 && $mouse.y isnum $calc(%k * 100 - $calc((%O -1) * 50)+5) $+ - $+ $calc(%k * 100 - $calc((%O -1) * 50)+55)) { set %strategoloc $+ %k $+ ¤ $+ %O %k %O $gettok($did(2).seltext,1,32) | dialog -x chars chars }
      if (%k < 61 && $mouse.x isnum 350-400 && $mouse.y isnum $calc(%k * 100 - $calc((%O -1) * 50)+5) $+ - $+ $calc(%k * 100 - $calc((%O -1) * 50)+55)) { set %strategoloc $+ %k $+ ¤ $+ %O %k %O $gettok($did(2).seltext,1,32) | dialog -x chars chars }
      if (%k < 71 && $mouse.x isnum 400-450 && $mouse.y isnum $calc(%k * 100 - $calc((%O -1) * 50)+5) $+ - $+ $calc(%k * 100 - $calc((%O -1) * 50)+55)) { set %strategoloc $+ %k $+ ¤ $+ %O %k %O $gettok($did(2).seltext,1,32) | dialog -x chars chars }
      if (%k < 81 && $mouse.x isnum 450-500 && $mouse.y isnum $calc(%k * 100 - $calc((%O -1) * 50)+5) $+ - $+ $calc(%k * 100 - $calc((%O -1) * 50)+55)) { set %strategoloc $+ %k $+ ¤ $+ %O %k %O $gettok($did(2).seltext,1,32) | dialog -x chars chars }
      if (%k < 91 && $mouse.x isnum 500-550 && $mouse.y isnum $calc(%k * 100 - $calc((%O -1) * 50)+5) $+ - $+ $calc(%k * 100 - $calc((%O -1) * 50)+55)) { set %strategoloc $+ %k $+ ¤ $+ %O %k %O $gettok($did(2).seltext,1,32) | dialog -x chars chars }
      if (%k < 101 && $mouse.x isnum 550-600 && $mouse.y isnum $calc(%k * 100 - $calc((%O -1) * 50)+5) $+ - $+ $calc(%k * 100 - $calc((%O -1) * 50)+55)) { set %strategoloc $+ %k $+ ¤ $+ %O %k %O $gettok($did(2).seltext,1,32) | dialog -x chars chars }
      inc %O
      inc %k
    }
  }
}