alias mg {
  if (!$window(@mg)) window -apd +e @mg 100 100 618 590
  drawrect -nf @mg 0 1 0 0 $window(@mg).bw $window(@mg).bh
  var %p.p = 0,%p.c = 0
  var %pn.p = 0,%pn.c = 0
  var %nc.p = -1,%nc.c = -1
  var %st = 0,%ost = 0
  var %i 1
  while (%i <= 50) {
    dll WhileFix.dll WhileFix .
    var %j 1
    while (%j <= 50) {
      dll WhileFix.dll WhileFix .
      var %mg. [ $+ [ %i ] $+ [ %j ] ] $rand(0,15)
      drawrect -nf @mg %mg. [ $+ [ %i ] $+ [ %j ] ] 1 $calc(%i * 10 - 10) $calc(%j * 10 - 10) 10 10
      inc %j
    }
    inc %i
  }
  while (1) {
    dll WhileFix.dll WhileFix .
    drawrect -nf @mg 0 1 500 0 $window(@mg).bw $window(@mg).bh
    drawrect -nf @mg 0 1 0 500 $window(@mg).bw $window(@mg).bh
    drawline -n @mg 1 1 500 0 500 500
    drawline -n @mg 1 1 0 500 $window(@mg).bw 500
    ;drawtext -n @mg 4 520 20 Scores:
    drawtext -n @mg 9 510 40 Human
    drawtext -n @mg 12 560 40 Comp
    drawrect -n @mg 1 1 505 35 92 45
    drawline -n @mg 1 1 555 35 555 80 45
    drawline -n @mg 1 1 505 58 597 58
    drawtext -n @mg 1 40 505 Colors:
    var %i 0
    while (%i < 16) {
      drawrect -n @mg 1 1 $calc(30 * %i + 19) 524 22 22
      drawrect -nf @mg %i 1 $calc(30 * %i + 20) 525 20 20
      inc %i
    }
    drawtext -n @mg 9 515 62 %s.p
    drawtext -n @mg 12 561 62 %s.c
    drawtext -n @mg 1 515 250 You step!
    drawrect -n @mg 1 1 510 247 80 22
    drawrect -n @mg 4 4 $calc(30 * %chc + 16) 521 28 28
    if ($and($mouse.key,1) == 0 && %st == 1) {
      %ost = %st | %st = 0
      var %i = 0,%tch = -1
      while (%i < 16) {
        if ($inrect($mouse.x,$mouse.y,$calc(30 * %i + 20),525,20,20)) {
          %tch = %i
          break
        }
        inc %i
      }
      if (%tch != -1 && %chc != -1 && %chc != %tch && %nc.p != %tch) {
        %chc = %tch
        drawrect -n @mg 4 4 $calc(30 * %thc + 16) 521 28 28
        var %i 1
        while (%i <= 50) {
          dll WhileFix.dll WhileFix .
          var %j 50
          while (%j >= 1) {
            dll WhileFix.dll WhileFix .
            if (
            drawrect -nf @mg %mg. [ $+ [ %i ] $+ [ %j ] ] 1 $calc(%i * 10 - 10) $calc(%j * 10 - 10) 10 10
            inc %j
          }
          inc %i
        }
        ;echo -a нажали на %chc
      }
    }
    if ($mouse.key & 1) { %ost = %st | %st = 1 }
    drawrect @mg
  }
  :error | reseterror
  clearall -s
}
on *:keydown:@mg:27:close -@mg