Stuff

menu * {
  Pacman:{
    window -pdk0 @Pacman -1 -1 650 650
    drawreplace @Pacman 00 14
    var %c = 5 | while (%c <= 590) {
      set %p 58.5 58.5
      drawrect -f @Pacman 1 1 %c 5 33 33
      drawrect -f @Pacman 1 1 %c 565 33 33
      drawrect -f @Pacman 1 1 5 %c 33 33
      drawrect -f @Pacman 1 1 565 %c 33 33
      drawdot @Pacman 8 16.5 58.5 58.5
      inc %c 35
    }
    if (!%lvl) {
      drawrect -f @Pacman 1 1 75 75 33 33
      drawrect -f @Pacman 1 1 110 75 33 33
      drawrect -f @Pacman 1 1 145 75 33 33
      drawrect -f @Pacman 1 1 180 75 33 33
      drawrect -f @Pacman 1 1 215 75 33 33
      drawrect -f @Pacman 1 1 250 75 33 33
      drawrect -f @Pacman 1 1 320 75 33 33
      drawrect -f @Pacman 1 1 355 75 33 33
      drawrect -f @Pacman 1 1 390 75 33 33
      drawrect -f @Pacman 1 1 425 75 33 33
      drawrect -f @Pacman 1 1 460 75 33 33
      drawrect -f @Pacman 1 1 495 75 33 33
      drawrect -f @Pacman 1 1 75 110 33 33
      drawrect -f @Pacman 1 1 495 110 33 33
      drawrect -f @Pacman 1 1 75 145 33 33
      drawrect -f @Pacman 1 1 145 145 33 33
      drawrect -f @Pacman 1 1 180 145 33 33
      drawrect -f @Pacman 1 1 250 145 33 33
      drawrect -f @Pacman 1 1 285 145 33 33
      drawrect -f @Pacman 1 1 320 145 33 33
      drawrect -f @Pacman 1 1 390 145 33 33
      drawrect -f @Pacman 1 1 425 145 33 33
      drawrect -f @Pacman 1 1 495 145 33 33
      drawrect -f @Pacman 1 1 40 215 33 33
      drawrect -f @Pacman 1 1 110 215 33 33
      drawrect -f @Pacman 1 1 145 215 33 33
      drawrect -f @Pacman 1 1 180 215 33 33
      drawrect -f @Pacman 1 1 215 215 33 33
      drawrect -f @Pacman 1 1 250 215 33 33
      drawrect -f @Pacman 1 1 320 215 33 33
      drawrect -f @Pacman 1 1 355 215 33 33
      drawrect -f @Pacman 1 1 390 215 33 33
      drawrect -f @Pacman 1 1 425 215 33 33
      drawrect -f @Pacman 1 1 460 215 33 33
      drawrect -f @Pacman 1 1 530 215 33 33
      drawrect -f @Pacman 1 1 145 250 33 33
      drawrect -f @Pacman 1 1 180 250 33 33
      drawrect -f @Pacman 1 1 390 250 33 33
      drawrect -f @Pacman 1 1 425 250 33 33
      drawrect -f @Pacman 1 1 75 285 33 33
      drawrect -f @Pacman 1 1 145 285 33 33
      drawrect -f @Pacman 1 1 425 285 33 33
      drawrect -f @Pacman 1 1 495 285 33 33
      drawrect -f @Pacman 1 1 75 285 33 33
      drawrect -f @Pacman 1 1 75 320 33 33
      drawrect -f @Pacman 1 1 145 320 33 33
      drawrect -f @Pacman 1 1 180 320 33 33
      drawrect -f @Pacman 1 1 390 320 33 33
      drawrect -f @Pacman 1 1 425 320 33 33
      drawrect -f @Pacman 1 1 495 320 33 33
      drawrect -f @Pacman 1 1 145 355 33 33
      drawrect -f @Pacman 1 1 180 355 33 33
      drawrect -f @Pacman 1 1 215 355 33 33
      drawrect -f @Pacman 1 1 250 355 33 33
      drawrect -f @Pacman 1 1 285 355 33 33
      drawrect -f @Pacman 1 1 320 355 33 33
      drawrect -f @Pacman 1 1 355 355 33 33
      drawrect -f @Pacman 1 1 390 355 33 33
      drawrect -f @Pacman 1 1 425 355 33 33
      drawrect -f @Pacman 1 1 75 425 33 33
      drawrect -f @Pacman 1 1 145 425 33 33
      drawrect -f @Pacman 1 1 180 425 33 33
      drawrect -f @Pacman 1 1 250 425 33 33
      drawrect -f @Pacman 1 1 285 425 33 33
      drawrect -f @Pacman 1 1 320 425 33 33
      drawrect -f @Pacman 1 1 390 425 33 33
      drawrect -f @Pacman 1 1 425 425 33 33
      drawrect -f @Pacman 1 1 495 425 33 33
      drawrect -f @Pacman 1 1 75 460 33 33
      drawrect -f @Pacman 1 1 495 460 33 33
      drawrect -f @Pacman 1 1 75 495 33 33
      drawrect -f @Pacman 1 1 110 495 33 33
      drawrect -f @Pacman 1 1 145 495 33 33
      drawrect -f @Pacman 1 1 180 495 33 33
      drawrect -f @Pacman 1 1 215 495 33 33
      drawrect -f @Pacman 1 1 250 495 33 33
      drawrect -f @Pacman 1 1 320 495 33 33
      drawrect -f @Pacman 1 1 355 495 33 33
      drawrect -f @Pacman 1 1 390 495 33 33
      drawrect -f @Pacman 1 1 425 495 33 33
      drawrect -f @Pacman 1 1 460 495 33 33
      drawrect -f @Pacman 1 1 495 495 33 33
    }
  }
}
on *:keydown:@Pacman:37,38,39,40:{
  if (!%PaCli) {
    if ($keyval == 37) var %z = $calc($gettok(%p,1,32) - 35) $gettok(%p,2,32)
    if ($keyval == 38) var %z = $gettok(%p,1,32) $calc($gettok(%p,2,32) - 35)
    if ($keyval == 39) var %z = $calc($gettok(%p,1,32) + 35) $gettok(%p,2,32)
    if ($keyval == 40) var %z = $gettok(%p,1,32) $calc($gettok(%p,2,32) + 35)
    if ($getdot(@Pacman,$gettok(%z,1,32),$gettok(%z,2,32))) {
      set %p %z
      drawreplace @pacman 08 14
      drawdot @Pacman 8 16.5 %p
      set %PaCli $true | .timer -m 1 600 unset %PaCli
    }
  }
}