Mine

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