Untitled

menu * { 
  Pacman:{ 
    window -pdk0 @Pacman -1 -1 614 640 
    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 
    } 
    drawtext @pacman 9 arial 15 30 12 Score: 0 
    set %pacdo 2 1-3 1-4 1-5 1-6 1-7 1-8 1-9 1-10 1-11 1-12 1-13 1-14 1-15 1- $+ $& 
      1 2-8 2-15 2- $+ $& 
      1 3-3 3-4 3-5 3-6 3-7 3-8 3-9 3-10 3-11 3-12 3-13 3-15 3- $+ $& 
      1 4-3 4-6 4-10 4-13 4-15 4- $+ $& 
      1 5-2 5-3 5-4 5-5 5-6 5-7 5-8 5-9 5-10 5-11 5-12 5-13 5-14 5-15 5- $+ $& 
      2 6-14 6- $+ $& 
      1 7-2 7-3 7-13 7-14 7-15 7- $+ $& 
      1 8-3 8-13 8-15 8- $+ $& 
      1 9-3 9-13 9-15 9- $+ $& 
      1 10-2 10-3 10-13 10-14 10-15 10- $+ $& 
      1 11-2 11-3 11-4 11-5 11-6 11-7 11-8 11-9 11-10 11-11 11-12 11-13 11-14 11-15 11- $+ $& 
      1 12-3 12-6 12-10 12-13 12-15 12- $+ $& 
      1 13-3 13-4 13-5 13-6 13-7 13-8 13-9 13-10 13-11 13-12 13-13 13-15 13- $+ $& 
      1 14-8 14-15 14- $+ $& 
      1 15-2 15-3 15-4 15-5 15-6 15-7 15-8 15-9 15-10 15-11 15-12 15-13 15-14 15-15 15 
    var %k = 1, %a = 75 75.110 75.145 75.180 75.215 75.250 75.320 75.355 75.390 75.425 75.460 75.495 75.75 110.495 110.75 145.145 145.180 145.250 145.285 145.320 145.390 145.425 145.495 145.40 215.110 215.145 215.180 215.215 215.250 215.320 215.355 215.390 215.425 215.460 215.530 215.145 250.180 250.390 250.425 250.75 285.145 285.425 285.495 285.75 285.75 320.145 320.180 320.390 320.425 320.495 320.145 355.180 355.215 355.250 355.320 355.355 355.390 355.425 355.75 425.145 425.180 425.250 425.285 425.320 425.390 425.425 425.495 425.75 460.495 460.75 495.110 495.145 495.180 495.215 495.250 495.320 495.355 495.390 495.425 495.460 495.495 495 
    while (%k <= $numtok(%a,46)) { 
      drawrect -f @Pacman 1 1 $gettok(%a,%k,46) 33 33 
      inc %k 
    } 
    set %pacrg 320 285 
    set %pacpg 250 285 
    .timerPacRg -m 0 800 pacm 
    drawrect -f @Pacman 4 1 %pacrg 33 33 
    drawrect -f @Pacman 13 1 %pacpg 33 33 
    var %z = 1 
    while (%z <= $numtok(%pacdo,45)) { 
      drawdot @pacman 7 6 $calc($PacPi1($gettok($gettok(%pacdo,%z,45),1,32)) + 18.5) $calc($PacPi1($gettok($gettok(%pacdo,%z,45),2,32)) + 18.5) 
      inc %z 
    } 
  } 
} 
alias pacm { 
  if ($getdot(@Pacman,$calc($gettok(%pacrg,1,32) + 35),$gettok(%pacrg,2,32))) var %zr = %zr $+ . $+ $calc($gettok(%pacrg,1,32) + 35) $gettok(%pacrg,2,32),46) 
  if ($getdot(@Pacman,$calc($gettok(%pacrg,1,32) - 35),$gettok(%pacrg,2,32))) var %zr = %zr $+ . $+ $calc($gettok(%pacrg,1,32) - 35) $gettok(%pacrg,2,32),46) 
  if ($getdot(@Pacman,$gettok(%pacrg,1,32),$calc($gettok(%pacrg,2,32) + 35))) var %zr = %zr $+ . $+ $gettok(%pacrg,1,32) $calc($gettok(%pacrg,2,32) + 35),46) 
  if ($getdot(@Pacman,$gettok(%pacrg,1,32),$calc($gettok(%pacrg,2,32) - 35))) var %zr = %zr $+ . $+ $gettok(%pacrg,1,32) $calc($gettok(%pacrg,2,32) - 35),46) 
  if ($getdot(@Pacman,$calc($gettok(%pacpg,1,32) + 35),$gettok(%pacpg,2,32))) var %zp = %zp $+ . $+ $calc($gettok(%pacpg,1,32) + 35) $gettok(%pacpg,2,32),46) 
  if ($getdot(@Pacman,$calc($gettok(%pacpg,1,32) - 35),$gettok(%pacpg,2,32))) var %zp = %zp $+ . $+ $calc($gettok(%pacpg,1,32) - 35) $gettok(%pacpg,2,32),46) 
  if ($getdot(@Pacman,$gettok(%pacpg,1,32),$calc($gettok(%pacpg,2,32) + 35))) var %zp = %zp $+ . $+ $gettok(%pacpg,1,32) $calc($gettok(%pacpg,2,32) + 35),46) 
  if ($getdot(@Pacman,$gettok(%pacpg,1,32),$calc($gettok(%pacpg,2,32) - 35))) var %zp = %zp $+ . $+ $gettok(%pacpg,1,32) $calc($gettok(%pacpg,2,32) - 35),46) 
  drawreplace @pacman 4 14 
  drawreplace @pacman 13 14 
  set %pacrg $gettok(%zr,$r(1,$numtok(%zr,46)),46) 
  set %pacpg $gettok(%zp,$r(1,$numtok(%zp,46)),46) 
  if (($getdot(@pacman,$calc($gettok(%pacpg,1,32) + 18),$calc($gettok(%pacpg,2,32) + 18)) == 65535) || ($getdot(@pacman,$calc($gettok(%pacrg,1,32) + 18),$calc($gettok(%pacrg,2,32) + 18)) == 65535)) { 
    .timerpac* off 
    unset %pac* 
    set %over $true 
    drawtext @pacman 11 arial 50 170 300 Game over! 
  } 
  else { 
    drawrect -f @pacman 4 1 %pacrg 33 33 
    drawrect -f @pacman 13 1 %pacpg 33 33 
    var %z = 1 
    while (%z <= $numtok(%pacdo,45)) { 
      drawdot @pacman 7 6 $calc($PacPi1($gettok($gettok(%pacdo,%z,45),1,32)) + 18.5) $calc($PacPi1($gettok($gettok(%pacdo,%z,45),2,32)) + 18.5) 
      inc %z 
    } 
  } 
} 
on *:keydown:@Pacman:37,38,39,40:{ 
  if ((!%PaCli) && (!%over)) { 
    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 
      if (($getdot(@pacman,$gettok(%p,1,32),$gettok(%p,2,32)) == 255) || ($getdot(@pacman,$gettok(%p,1,32),$gettok(%p,2,32)) == 16711935)) { 
        .timerpac* off 
        unset %pac* 
        set %over $true 
        drawtext @pacman 11 arial 50 170 300 Game over! 
      } 
      else { 
        drawreplace @pacman 08 14 
        if ($istok(%PacDo,$PacPi2($calc($gettok(%p,1,32) - 18.5)) $PacPi2($calc($gettok(%p,2,32) - 18.5)),45)) { 
          set %PacDo $remtok(%PacDo,$PacPi2($calc($gettok(%p,1,32) - 18.5)) $PacPi2($calc($gettok(%p,2,32) - 18.5)),45) 
          inc %PacSc 
          drawrect -f @Pacman 1 1 75 5 33 33 
          drawtext @pacman 9 arial 15 30 12 Score: %PacSc 
          if (%PacSc >= 125) { 
            .timerpac* off 
            unset %pac* 
            set %over $true 
            drawtext @pacman 11 arial 50 170 300 You won! 
          } 
        } 
        drawdot @Pacman 8 16.5 %p 
        set %PaCli $true | .timer -m 1 600 unset %PaCli 
        var %z = 1 
        while (%z <= $numtok(%pacdo,45)) { 
          drawdot @pacman 7 6 $calc($PacPi1($gettok($gettok(%pacdo,%z,45),1,32)) + 18.5) $calc($PacPi1($gettok($gettok(%pacdo,%z,45),2,32)) + 18.5) 
          inc %z 
        } 
      } 
    } 
  } 
} 
alias PacPi1 { 
  if ($1 isnum 1) return 40 
  elseif ($1 isnum 2) return 75 
  elseif ($1 isnum 3) return 110 
  elseif ($1 isnum 4) return 145 
  elseif ($1 isnum 5) return 180 
  elseif ($1 isnum 6) return 215 
  elseif ($1 isnum 7) return 250 
  elseif ($1 isnum 8) return 285 
  elseif ($1 isnum 9) return 320 
  elseif ($1 isnum 10) return 355 
  elseif ($1 isnum 11) return 390 
  elseif ($1 isnum 12) return 425 
  elseif ($1 isnum 13) return 460 
  elseif ($1 isnum 14) return 495 
  elseif ($1 isnum 15) return 530 
} 
alias PacPi2 { 
  if ($1 isnum 40) return 1 
  elseif ($1 isnum 75) return 2 
  elseif ($1 isnum 110) return 3 
  elseif ($1 isnum 145) return 4 
  elseif ($1 isnum 180) return 5 
  elseif ($1 isnum 215) return 6 
  elseif ($1 isnum 250) return 7 
  elseif ($1 isnum 285) return 8 
  elseif ($1 isnum 320) return 9 
  elseif ($1 isnum 355) return 10 
  elseif ($1 isnum 390) return 11 
  elseif ($1 isnum 425) return 12 
  elseif ($1 isnum 460) return 13 
  elseif ($1 isnum 495) return 14 
  elseif ($1 isnum 530) return 15 
} 
on *:CLOSE:*:{ 
  if ($target == @Pacman) { 
    unset %pac* 
    .timerPac* off 
    unset %over 
  } 
}