alias game {
  window -pfd @a 1 1 200 200
  anim
}
alias anim {
  if (!$timer(anim)) {
    drawrect -f @a 1 0 0 0 1000 1000 1000 1000
    %n = $calc($window(@a).w /2 -5) $calc($window(@a).h /2 -5)
    drawdot -r @a $iif($r(0,1),$r(256,16777215),$r(0,254)) 5 %n
    drawtext @a 4 5 5 Click the dots!!
    .timeranim 0 1 anim
  }
  else {
    drawreplace -r @a $getdot(@a,$gettok(%n,1,32),$gettok(%n,2,32)) 1
    %n = $r(50,$calc($window(@a).w -50)) $r(50,$calc($window(@a).h -50))
    drawdot -r @a $iif($r(0,1),$r(256,16777215),$r(0,254)) 5 %n
  }
  if %s > 60 { window -c @a
    unset %n
  }
  halt
  .timeranim -m 1 10 anim
}
on *:CLOSE:@:if ($target == @a) .timeranim off