diff --git a/NeutTower.dsk b/NeutTower.dsk index 32bbc2c..6e5ae40 100644 Binary files a/NeutTower.dsk and b/NeutTower.dsk differ diff --git a/game/gfx.fnl b/game/gfx.fnl index c91fc78..6333f22 100644 --- a/game/gfx.fnl +++ b/game/gfx.fnl @@ -80,7 +80,7 @@ [:bpl :start] [:lda vm.WH] - [:cmp 0x3d] + [:cmp 0x3c] [:bcs :done] ; cmp has cleared carry for us here [:lda 4] [:adc vm.WH] [:sta vm.WH] diff --git a/game/level6.fnl b/game/level6.fnl index a50c783..447b2ff 100644 --- a/game/level6.fnl +++ b/game/level6.fnl @@ -127,8 +127,42 @@ (say :jaye "IT'S NOT TURNING ON FOR SOME" "REASON.") :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: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)) level diff --git a/game/map6.json b/game/map6.json index 804e237..1493c9c 100644 --- a/game/map6.json +++ b/game/map6.json @@ -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":""}]} \ No newline at end of file +{"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"}]} \ No newline at end of file