Clean up ending
This commit is contained in:
parent
a59a079d09
commit
ce40cc342f
BIN
NeutTower.dsk
BIN
NeutTower.dsk
Binary file not shown.
|
@ -80,7 +80,7 @@
|
||||||
[:bpl :start]
|
[:bpl :start]
|
||||||
|
|
||||||
[:lda vm.WH]
|
[:lda vm.WH]
|
||||||
[:cmp 0x3d]
|
[:cmp 0x3c]
|
||||||
[:bcs :done]
|
[:bcs :done]
|
||||||
; cmp has cleared carry for us here
|
; cmp has cleared carry for us here
|
||||||
[:lda 4] [:adc vm.WH] [:sta vm.WH]
|
[:lda 4] [:adc vm.WH] [:sta vm.WH]
|
||||||
|
|
|
@ -127,8 +127,42 @@
|
||||||
(say :jaye "IT'S NOT TURNING ON FOR SOME" "REASON.")
|
(say :jaye "IT'S NOT TURNING ON FOR SOME" "REASON.")
|
||||||
:drop ev.noop]) :term)
|
:drop ev.noop]) :term)
|
||||||
|
|
||||||
|
(fn center [str lineaddr]
|
||||||
|
[:vm (vm:str str) (+ lineaddr (math.floor (/ (- 40 (length str)) 2))) :draw-text])
|
||||||
(vm:word :endgame :drop
|
(vm:word :endgame :drop
|
||||||
(vm:pstr "ELEVATOR.SCREEN") :loadscreen
|
(vm:pstr "ELEVATOR.SCREEN") :loadscreen
|
||||||
|
(vm:until :read-key)
|
||||||
|
0x2280 :clearline 0x2300 :clearline 0x2380 :clearline
|
||||||
|
0x2028 :clearline 0x20a8 :clearline 0x2128 :clearline
|
||||||
|
0x21a8 :clearline 0x2228 :clearline 0x22a8 :clearline
|
||||||
|
0x2328 :clearline 0x23a8 :clearline 0x2050 :clearline
|
||||||
|
|
||||||
|
(center "JAYE AND GORD HAVE FOUND THEIR WAY" 0x2300)
|
||||||
|
(center "TO THE ELEVATOR!" 0x2380)
|
||||||
|
(center "BUT HAVE THEY FOUND THEIR WAY" 0x2028)
|
||||||
|
(center "TO FREEDOM?" 0x20a8)
|
||||||
|
(center "ARE THERE OTHERS IN THE BUILDING" 0x2128)
|
||||||
|
(center "IN NEED OF HELP?" 0x21a8)
|
||||||
|
(center "AND WHAT FATE AWAITS NEUT AND THEIR" 0x2228)
|
||||||
|
(center "SHIFTY NEW FRIEND LIBB?" 0x22a8)
|
||||||
|
(center "TO BE CONTINUED..." 0x23a8)
|
||||||
|
(vm:until :read-key)
|
||||||
|
|
||||||
|
:cleargfx
|
||||||
|
(center "NEU] [OWER" 0x2300)
|
||||||
|
(center "BY JEREMY PENNER" 0x2380)
|
||||||
|
|
||||||
|
(center "EVERY BYTE OF THIS GAME WAS CREATED" 0x20a8)
|
||||||
|
(center "WITH LOVE USING THE HONEYLISP" 0x2128)
|
||||||
|
(center "PROGRAMMING ENVIRONMENT" 0x21a8)
|
||||||
|
|
||||||
|
(center "GREETS TO:" 0x22a8)
|
||||||
|
(center "GLORIOUS TRAINWRECKS" 0x2328)
|
||||||
|
(center "DIRTY RECTANGLES" 0x23a8)
|
||||||
|
(center "#FENNEL" 0x2050)
|
||||||
|
(center "KANSASFEST" 0x20d0)
|
||||||
|
|
||||||
|
(center "APPLE ][ FOREVER!" 0x21d0)
|
||||||
(vm:forever))
|
(vm:forever))
|
||||||
|
|
||||||
level
|
level
|
||||||
|
|
|
@ -1 +1 @@
|
||||||
{"neut":{"y":1,"x":5},"map":"210261616161616161616161812261616161E1614161C2C081C0C0C0C0C0C0C0C0C0E0C081C0C0622161E04384C0C0C043C0C0C043C0C0C0848201612102616161C0C061610281026161C0C0616161612161C2C0C0C0C061E2C0C0C0A261C0C0C0C0E2612161E003C0C0C061C0C0C0C08261C0C0C003E06121026161C0C0C061E08282E2E061C0C0C06161612161C2C0C0C0C06103C0C0C02361C0C0C0C0C2614161E003C0C0C0616102C1026161C0C0C003E06121026184C0C0C0C043C043C063C0C0C0846161612161E081C0C0C0C0C0C0C0C0C0C0C0C081C083612161612261816161616161616161616161616161","loadword":"","tickword":"","jaye":{"y":2,"x":6},"gord-following":true,"moveword":"","objects":[{"link":6,"y":10,"func":"c4","name":"","linkword":"linkloop","x":3},{"link":3,"y":10,"func":"keypad2","name":"","linkword":"","x":5},{"x":5,"func":"door","y":11,"linkword":"","name":""},{"x":11,"func":"door","y":9,"linkword":"","name":""},{"link":17,"y":6,"func":"c9","name":"","linkword":"linkloop","x":13},{"link":5,"y":6,"func":"c8","name":"","linkword":"linkloop","x":9},{"x":11,"func":"switch","y":4,"linkword":"","name":"","link":23},{"link":1,"y":7,"func":"c3","name":"","linkword":"linkloop","x":3},{"link":8,"y":4,"func":"c2","name":"","linkword":"linkloop","x":3},{"link":23,"y":2,"func":"c1","name":"","linkword":"linkloop","x":3},{"x":4,"func":"door","y":2,"linkword":"","name":""},{"link":11,"y":3,"func":"keypad1","name":"","linkword":"","x":4},{"link":4,"y":1,"func":"scan","name":"","linkword":"","x":4},{"x":17,"func":"door","y":2,"linkword":"","name":""},{"link":14,"y":3,"func":"keypad3","name":"","linkword":"","x":17},{"x":19,"func":"rexx","y":2,"linkword":"","name":""},{"link":18,"y":4,"func":"c5","name":"","linkword":"linkloop","x":19},{"link":19,"y":7,"func":"c6","name":"","linkword":"linkloop","x":19},{"link":10,"y":10,"func":"c7","name":"firewall","linkword":"linkloop","x":19},{"link":19,"y":12,"func":"switch","name":"","linkword":"","x":19},{"link":22,"y":10,"func":"keypad4","name":"","linkword":"","x":17},{"x":17,"func":"door","y":11,"linkword":"","name":""},{"link":9,"y":11,"func":"cx","name":"","linkword":"linkloop","x":15},{"link":25,"y":12,"func":"scan","name":"","linkword":"","x":14},{"x":13,"linkentity":"","func":"exitdoor","y":12,"linkword":"endgame","name":""}]}
|
{"neut":{"y":1,"x":5},"map":"210261616161616161616161812261616161E1614161C2C081C0C0C0C0C0C0C0C0C0E0C081C0C0622161E04384C0C0C043C0C0C043C0C0C0848201612102616161C0C061610281026161C0C0616161612161C2C0C0C0C061E2C0C0C0A261C0C0C0C0E2612161E003C0C0C061C0C0C0C08261C0C0C003E06121026161C0C0C061E08282E2E061C0C0C06161612161C2C0C0C0C06103C0C0C02361C0C0C0C0C2614161E003C0C0C0616102C1026161C0C0C003E06121026184C0C0C0C043C043C063C0C0C0846161612161E081C0C0C0C0C0C0C0C0C0C0C0C081C083612161612261816161616161616161616161616161","loadword":"","tickword":"","jaye":{"y":2,"x":6},"gord-following":true,"moveword":"","objects":[{"x":3,"func":"c4","y":10,"name":"","linkword":"linkloop","link":6},{"x":5,"func":"keypad2","y":10,"name":"","linkword":"","link":3},{"x":5,"func":"door","y":11,"name":"","linkword":""},{"x":11,"func":"door","y":9,"name":"","linkword":""},{"x":13,"func":"c9","y":6,"name":"","linkword":"linkloop","link":17},{"x":9,"func":"c8","y":6,"name":"","linkword":"linkloop","link":5},{"link":23,"y":4,"func":"switch","linkword":"","name":"","x":11},{"x":3,"func":"c3","y":7,"name":"","linkword":"linkloop","link":1},{"x":3,"func":"c2","y":4,"name":"","linkword":"linkloop","link":8},{"x":3,"func":"c1","y":2,"name":"","linkword":"linkloop","link":23},{"x":4,"func":"door","y":2,"name":"","linkword":""},{"x":4,"func":"keypad1","y":3,"name":"","linkword":"","link":11},{"x":4,"func":"scan","y":1,"name":"","linkword":"","link":4},{"x":17,"func":"door","y":2,"name":"","linkword":""},{"x":17,"func":"keypad3","y":3,"name":"","linkword":"","link":14},{"x":19,"func":"rexx","y":2,"name":"","linkword":""},{"x":19,"func":"c5","y":4,"name":"","linkword":"linkloop","link":18},{"x":19,"func":"c6","y":7,"name":"","linkword":"linkloop","link":19},{"x":19,"func":"c7","y":10,"name":"firewall","linkword":"linkloop","link":10},{"x":19,"func":"switch","y":12,"name":"","linkword":"","link":19},{"x":17,"func":"keypad4","y":10,"name":"","linkword":"","link":22},{"x":17,"func":"door","y":11,"name":"","linkword":""},{"x":15,"func":"cx","y":11,"name":"","linkword":"linkloop","link":9},{"x":14,"func":"scan","y":12,"name":"","linkword":"","link":25},{"x":13,"linkentity":"","func":"exitdoor","y":12,"name":"","linkword":"endgame"}]}
|
Loading…
Reference in a new issue