neuttower/lev00003.jor

68 lines
1.7 KiB
Plaintext
Raw Normal View History

2020-02-17 02:36:02 +00:00
( L E V 0 0 0 0 3 )
objects: O
9 9 door d1
2020-02-18 01:43:11 +00:00
7 5 door d2
2020-02-17 02:36:02 +00:00
' d1 7 7 switch b1
2020-02-18 01:43:11 +00:00
' d2 0 3 switch b2
defer c2 ' c2 5 7 computer c1
' c1 8 3 computer _c2 ' _c2 ' c2 redefine
end.jor 0 4 exitdoor dx
' dx 0 5 scanner sx
2020-02-17 02:36:02 +00:00
6 7 N ' {gord-sit} defentity Gord
2020-02-18 01:43:11 +00:00
5 2 S ' {rexx} defentity Rexx
2020-02-17 02:36:02 +00:00
: flicker c1 EVTOG entity>do 15 sleep ;
var gord-introduced
c1 :noname
dup EVTOUCH = isneut? and gord-introduced @ not and if
1 gord-introduced !
neut say" HUMAN PRESENCE\DETECTED"
flicker flicker flicker flicker
neut say" > HUMAN ASSISTANCE IS\REQUIRED"
neut say" > IF HUMAN IS PRESENT\PLEASE RESPOND"
2020-02-18 01:43:11 +00:00
human-view
2020-02-17 02:36:02 +00:00
flicker flicker flicker flicker
gord say" What the..."
gord say" Is someone in the terminal?"
gord say" > HUMAN IS PRESENT"
2020-02-18 01:43:11 +00:00
prog-view
2020-02-17 02:36:02 +00:00
neut say" > GREETINGS, HUMAN"
neut say" > THIS IS NEUT v0.71.4rc12"
neut say" > PLEASE STATE NAME AND\STATUS"
2020-02-18 01:43:11 +00:00
human-view
2020-02-17 02:36:02 +00:00
gord say" > THIS IS GORD"
gord say" v1, I guess."
gord say" > LEG IS PINNED UNDER DESK\UNABLE TO MOVE"
2020-02-18 01:43:11 +00:00
prog-view
2020-02-17 02:36:02 +00:00
neut say" > CAN YOU REACH THE SWITCH\BEHIND YOU?"
2020-02-18 01:43:11 +00:00
human-view
2020-02-17 02:36:02 +00:00
gord say" Huh? Oh, there is a\switch there on the wall."
gord say" Never thought about what\it connected to."
2020-02-18 01:43:11 +00:00
5 sleep b1 EVACT entity>do 15 sleep
2020-02-17 02:36:02 +00:00
gord say" > I TURNED IT ON"
2020-02-18 01:43:11 +00:00
prog-view
2020-02-17 02:36:02 +00:00
neut say" > MY PROGRAMMER THANKS\YOU, GORD"
neut say" > WE WILL ASSIST YOU SOON"
2020-02-18 01:43:11 +00:00
human-view
2020-02-17 02:36:02 +00:00
gord say" > AWAITING YOUR HELP, NEUT"
2020-02-18 01:43:11 +00:00
prog-view
cancel-ev
2020-02-17 02:36:02 +00:00
then chain-listener ;
:noname
reset-level O
2020-02-18 01:43:11 +00:00
:| Gord yield Rexx yield done |; ' entities redefine
2020-02-17 02:36:02 +00:00
s" lev00003.map" load-map
7 11 tile>world pjaye entity.pos!
6 12 tile>world pneut entity.pos!
; ' onload redefine