64 lines
1.5 KiB
Fennel
64 lines
1.5 KiB
Fennel
(local util (require :lib.util))
|
|
(local {: lo : hi : readjson} util)
|
|
(local tile (util.reload :game.tiles))
|
|
(local {: prg : vm : org} (util.reload :game.defs))
|
|
|
|
(local disk (util.reload :game.disk))
|
|
|
|
(util.reload :game.gfx)
|
|
(util.reload :game.footer)
|
|
(util.reload :game.map)
|
|
(util.reload :game.entity)
|
|
(util.reload :game.player)
|
|
(util.reload :game.boop)
|
|
(util.reload :game.cheat)
|
|
|
|
(tile.appendtiles org.code)
|
|
(org.code:append [:align 0x100] :font)
|
|
(tile.appendgfx org.code (tile.loadgfx tile.fn-font))
|
|
|
|
(util.reload :game.level1)
|
|
(util.reload :game.level2)
|
|
(util.reload :game.level3)
|
|
(util.reload :game.level4)
|
|
(util.reload :game.level5)
|
|
(util.reload :game.level6)
|
|
|
|
(util.reload :game.bosskey)
|
|
|
|
(vm:var :tick-count)
|
|
(vm:word :handle-key :tick :read-key :dup :cheat-key :player-key :hide-footer)
|
|
(vm:word :tick :map-specific-tick :tick-count :get 1 :+ :tick-count :set :player-redraw :rnd :drop)
|
|
|
|
(vm:var :next-level 0)
|
|
(vm:word :load-next-level :next-level :get :dup (vm:if [:load-level 0 :next-level :set] [:drop]))
|
|
(vm:word :load-level ; level-ptr --
|
|
:lit :map-ptr :set :reload-level)
|
|
|
|
(vm:word :reload-level
|
|
:map-jaye-yx :jaye-yx :set
|
|
:map-neut-yx :neut-yx :set
|
|
:map-gord-yx :gord-yx :set
|
|
0 :gord-dir :set
|
|
0xffff :rexx-yx :set
|
|
:map-specific-load
|
|
:full-redraw)
|
|
|
|
(vm.code:append :main
|
|
[:jsr :reset]
|
|
[:jsr :interpret]
|
|
[:vm :hires
|
|
:lit :level1 :load-level
|
|
(vm:forever
|
|
(vm:hotswap-sync :lit :level6 :load-level)
|
|
:interactive-eval-checkpoint
|
|
:handle-key
|
|
)
|
|
:quit])
|
|
|
|
(disk.append-boot-loader prg)
|
|
(prg:assemble)
|
|
(disk.write prg)
|
|
|
|
prg
|