Someone

  var %x = 0
  var %t = 0
  while %x < 101 {
    if (%t == 10) var %t = 0
    if %x < 11 drawrect @stratego 1 2 100 $calc(%x * 100 - $calc((%t -1) * 50)+5) 51 51
    if %x < 21 drawrect @stratego 1 2 150 $calc(%x * 100 - $calc((%t -1) * 50)+5) 51 51
    if %x < 31 drawrect @stratego 1 2 200 $calc(%x * 100 - $calc((%t -1) * 50)+5) 51 51
    if %x < 41 drawrect @stratego 1 2 250 $calc(%x * 100 - $calc((%t -1) * 50)+5) 51 51
    if %x < 51 drawrect @stratego 1 2 300 $calc(%x * 100 - $calc((%t -1) * 50)+5) 51 51
    if %x < 61 drawrect @stratego 1 2 350 $calc(%x * 100 - $calc((%t -1) * 50)+5) 51 51
    if %x < 71 drawrect @stratego 1 2 400 $calc(%x * 100 - $calc((%t -1) * 50)+5) 51 51
    if %x < 81 drawrect @stratego 1 2 450 $calc(%x * 100 - $calc((%t -1) * 50)+5) 51 51
    if %x < 91 drawrect @stratego 1 2 500 $calc(%x * 100 - $calc((%t -1) * 50)+5) 51 51
    if %x < 101 drawrect @stratego 1 2 550 $calc(%x * 100 - $calc((%t -1) * 50)+5) 51 51
    inc %x
    inc %t
  }