// 2011.07.07 # Doj

include" way.de"

:noname  player-y! player-x! ;oninit_ S
: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_ 1
:noname  draw-unknown ;draw_ 2
:noname  draw-unknown ;draw_ 3
:noname  draw-unknown ;draw_ 4
:noname  draw-unknown ;draw_ 5
:noname  draw-unknown ;draw_ 6
:noname  draw-unknown ;draw_ 7
:noname  draw-unknown ;draw_ 8
:noname  draw-unknown ;draw_ 9
: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_ ?

: expand ( xy?-) eat if 2dup passed 32 else 35 then rrot maze[]! ;enter_ ?
:noname  mark_1 @ expand ;enter_ 1
:noname  mark_2 @ expand ;enter_ 2
:noname  mark_3 @ expand ;enter_ 3
:noname  mark_4 @ expand ;enter_ 4
:noname  mark_5 @ expand ;enter_ 5
:noname  mark_6 @ expand ;enter_ 6
:noname  mark_7 @ expand ;enter_ 7
:noname  mark_8 @ expand ;enter_ 8
:noname  mark_9 @ expand ;enter_ 9
:noname  true expand ;enter_ ?

lab 
################################################
#        #         #              #            #
#  ##### #  ########2############ #  ######### #
#  #     #  #                   # #          # #
#  #  ####  #  ################?# #          # #
#  #  #     #           #       # #########  # #
#  #  #  ############   #       #  ?      #  # #
#  #     #    #         #  ######## ##### #  # #
#  ####  #  # #         #         # #   # #  # #
#     #  #  # #  ###############  # # # # ?  # #
####76#  #  # #  #             #  # # # # ####1#
#     #  #  # #  #    S        #  # # # # #    #
#  ####  #  # #  #             #  # # # # #  ###
#  #     #  # #  ####   ########  # # # # #    #
#  #  #  #  # #     #   #  1      # # #   #  # #
#  #  #  #  # ####  #   #  ########1#?#####  # #
#  #  #  9  #    9  #   #                 2  # #
#  #  ############  #   ###################### #
#  #        8       #                          #
#  #############################################
#                                              #
#                                              #
#####################FFF########################
\lab
maze!

  centrize
