// 2011.07.07 # Doj

:noname  player-y! player-x! ;oninit_ S
:noname  pchar" data\sounds\newlevel.wav" sound ;init
:noname  draw-finish ;draw_ F
: draw-unknown COLOR YELLOW ^ set-color draw-cell-rect ;
:noname  draw-unknown ;draw_ !
:noname  draw-unknown ;draw_ ?
: eat pchar" data\sounds\eat.wav" sound ;
:noname  eat 35 rrot maze[]! ;enter_ !
:noname  eat 2dup passed 32 rrot maze[]! ;enter_ ?

lab 
##########
#S !#  ? #
# #   ## #
# ###?#  #
#?    # ##
# # ## ? #
# #!   # #
# ##?###!#
#!      F#
##########
\lab
maze!

64 cell-x! 64 cell-y!
  centrize
