17 lines
510 B
Plaintext
17 lines
510 B
Plaintext
|
(local {: deflevel : say : itile : controlstate} (require :game.defs))
|
||
|
|
(local {: ev} (require :game.entity))
|
||
|
|
(local tile (require :game.tiles))
|
||
|
|
(local {: walkable : neutable : debris : sittable} tile.flag-to-bit)
|
||
|
|
(local level (deflevel "game/map6.json"))
|
||
|
|
(local vm level.vm)
|
||
|
|
|
||
|
|
(vm:word :linkloop ; e -- e
|
||
|
|
(vm:until :link-arg :dup :entity-itile (itile :termon) :=))
|
||
|
|
|
||
|
|
(vm:word :keypad1 0x1234 :keypad)
|
||
|
|
(vm:word :keypad2 0x2345 :keypad)
|
||
|
|
(vm:word :keypad3 0x3456 :keypad)
|
||
|
|
(vm:word :keypad4 0x4567 :keypad)
|
||
|
|
|
||
|
|
level
|