honeylisp/game/level1.fnl

39 lines
1.3 KiB
Plaintext
Raw Normal View History

2020-12-03 01:08:10 +00:00
(local {: deflevel : say : itile : controlstate} (require :game.defs))
2020-11-27 04:46:36 +00:00
(local {: ev} (require :game.entity))
(local level (deflevel "game/map1.json" :level1))
2020-11-27 04:46:36 +00:00
(local vm level.vm)
(vm:word :firstdoor
2020-11-29 05:44:23 +00:00
(vm:if-and [[:is-jaye?] [:dup ev.touch :=] [:responder-itile (itile :doorclosed) :=]] [
(say :jaye "IT WON'T OPEN!")
]) :door)
(vm:word :neutterm
(vm:if-and [[:is-jaye?] [:dup ev.touch :=]] [
:neut-hidden? (vm:if [
(say :jaye "MAYBE NEUT CAN HELP.")
2020-12-03 01:08:10 +00:00
controlstate.neut :controlstate :bset
:move-to-responder
controlstate.jaye :controlstate :bset
2020-11-29 05:44:23 +00:00
(say :neut "NEUT V0.71.4RC12 ONLINE" "" "PRESS SPACE TO TAKE CONTROL")
] [
(say :jaye "NEUT IS RUNNING NOW." "I CAN HIT THE SPACE BAR" "TO CONTROL THEM.")
])
]) :term)
(vm:word :firstterm
(vm:if-and [[:is-jaye?] [:dup ev.touch :=]] [
:responder-itile (itile :termoff) := (vm:when
(say :jaye "LOOKS LIKE THERE'S STILL" "POWER TO THIS TERMINAL."))
(say :jaye "IF I TURN A TERMINAL ON," "NEUT CAN USE IT TO" "TRAVEL THROUGH THE NETWORK.")
]) :term)
(vm:word :exitscanner
(vm:if-and [[:is-jaye?] [:dup ev.touch :=]] [
(say :jaye "IT'S A CARD SCANNER." "IT SHOULD OPEN THIS DOOR.")
(say :jaye "IT'S NOT READING MY CARD" "FOR SOME REASON." "QUAKE MUST'VE DAMAGED IT.")
(say :jaye "NEUT MIGHT BE ABLE TO" "HACK IT...")
]) :scan)
2020-11-27 04:33:14 +00:00
level