// 2011.07.06 # Doj

:noname  pchar" data\sounds\newlevel.wav" sound ;init
:noname  draw-finish ;draw_ F
: draw_# 
  2dup player-y @ - abs swap player-x @ - abs max 1 > if drop drop exit then
  COLOR 2dup PURPLES GEN[]2 ^ set-color draw-cell-rect 
;
:noname  draw_# ;draw_ #
:noname  COLOR 2dup BROWNS GEN[]2 ^ set-color draw-cell-rect ;draw_ 2
:noname  player-y! player-x! ;oninit_ S
lab 
############
#  #       #
# ## ##    #
#      ##  #
#   # #  # #
#S       #F#
#      ##  #
#    ##  # #
# #    #  ##
#   #   #  #
#    #     #
############
\lab
maze!
64 cell-x! 64 cell-y!
centrize
