// 2011.07.09 # Doj

  :noname  pchar" data\sounds\newlevel.wav" sound ;init
  :noname  draw-finish-cell ;draw_ F
  :noname  COLOR 2dup PURPLES GEN[]2 ^ set-color draw-cell-rect ;draw_ #
  :noname  COLOR BLUE ^ set-color draw-cell-rect ;draw_ |
  :noname  timer level-started - 5 mins <= if 2drop exit then
           COLOR BLUE ^ set-color cell-x @ 2 div draw-sized-cell ;draw_ .
  :noname  player-y! player-x! ;oninit_ S
  :noname  2drop ;enter_ #
  :noname  2dup maze-x @ lrot - swap maze[]@ 35 = if 2drop else passed then ;enter_  
  :noname  2dup maze-x @ lrot - swap maze[]@ 35 = if 2drop else passed then ;enter_ .
  :noname  2drop ;enter_ |
  :noname 
    maze-x @ player-last-x @ - x->global maze-x @ player-x @ - x->global
    delta-linear-comb
    player-last-y @ y->global player-y @ y->global delta-linear-comb
    do-player-render
  ;after-update
lab 
####################################
#      #          |   #   #        #
#    ##..... #    |  #             #
#  ##...  #.    # | #   # #        #
# ....   #..#     |        # #     #
# .   # # .#  #   | #  #   #  # ## #
# . # # # .   # # |      #  # #  # #
# F       .      S|   # #  #  ## #F#
#   #    #.     #.| #    #   #     #
#  #  #  #..#### .|        #    #  #
#   #   #  . .....|     #   # #  # #
#   # #   #. .   #|  ## #     #  # #
#   #     #. .#   |                #
#      #   ... #  |       #      # #
####################################
\lab
maze!
16 cell-x! 16 cell-y!
centrize
