neuttower/lev00003.jor
2020-02-25 22:12:40 -05:00

128 lines
3.5 KiB
Plaintext
Executable file

( L E V 0 0 0 0 3 )
objects: O
9 9 door d1
7 6 door d2
12 8 door d3
deflistener b1targ
b1targ :noname d1 evproxy d2 evproxy chain-listener ;
' d3 9 10 scanner s1
' b1targ 7 7 switch b1
defer c1 ' c1 8 3 computer c3
' c3 12 11 computer c2
' c2 5 7 computer _c1 ' _c1 ' c1 redefine
lev00004.jor 0 4 exitdoor dx
' dx 0 5 scanner sx
5 2 defrexx Rexx
: flicker c1 EVTOG entity>do 15 sleep ;
var gord-introduced
c1 :noname
dup EVTOUCH = isneut? and gord-introduced @ not and if
1 gord-introduced !
DEV not if
neut say" HUMAN PRESENCE\DETECTED"
flicker flicker flicker flicker
neut say" > HUMAN ASSISTANCE IS\REQUIRED"
neut say" > IF HUMAN IS PRESENT\PLEASE RESPOND"
hide-footer
human-view
flicker flicker flicker flicker
gord say" What the..."
gord say" Is someone in the terminal?"
gord say" > HUMAN IS PRESENT"
prog-view
neut say" > GREETINGS, HUMAN"
neut say" > THIS IS NEUT v0.71.4rc12"
neut say" > PLEASE STATE NAME AND\STATUS"
human-view
gord say" > THIS IS GORD"
gord say" v1, I guess."
gord say" > LEG IS PINNED UNDER DESK\UNABLE TO MOVE"
prog-view
neut say" > CAN YOU REACH THE SWITCH\BEHIND YOU?"
human-view
then
5 sleep b1 EVACT entity>do 15 sleep
gord say" > I TURNED IT ON"
prog-view
neut say" > MY PROGRAMMER THANKS\YOU, GORD"
neut say" > WE WILL ASSIST YOU SOON"
human-view
gord say" > AWAITING YOUR HELP, NEUT"
prog-view
cancel-ev
then chain-listener ;
var rexx-introduced
Rexx :noname
dup EVTOUCH = isneut? and rexx-introduced @ not and if
1 rexx-introduced !
neut say" MOBILE ROBOTIC UNIT\IDENTIFY YOURSELF"
rexx say" Hiya boss!\I'm Rexx, the janitor!"
rexx say" And your best friend!"
neut say" A HUMAN IS IN PERIL"
neut say" YOUR ASSISTANCE IS\REQUIRED"
rexx say" You need me to take out\some garbage??"
rexx say" Oh boy! Let me at it!"
then chain-listener ;
var gord-jaye
d2 :noname
dup EVTOUCH = isjaye? and gord-jaye @ not and if
1 gord-jaye !
cancel-ev
move-player
jaye say" Hey! Gord?\I'm Jaye."
6 6 WALKABLE mapflag? if
gord say" Jaye, am I glad to see you."
else
gord say" Jaye, am I glad to see you.\Can you move this desk?"
jaye say" Let me try..."
jaye say" . . . .\!!!!....."
jaye say" !!!!!!!!!!!!!...."
jaye say" No, I don't think I can."
gord say" I keep staring at that\cleaning robot."
gord say" He looks like he could\lift a building."
then
then chain-listener ;
var gord-up
Gord :noname
dup EVTOUCH = isrexx? and if
gord say" AHHH NOOO\NOT GARBAGE\I AM NOT GARBAGE"
rexx say" Whatever you say, boss!"
then
dup EVTOUCH = isjaye? and gord-up @ not and if
jaye say" Are you hurt?"
gord say" My leg was pinned.\I don't think I can put\any weight on it."
jaye say" Here, let me help you up."
hide-footer
then
dup chain-listener
EVTOUCH = isjaye? and gord-up @ not and if
1 gord-up !
gord say" Thanks."
jaye say" Don't mention it."
jaye say" I can help you get around if\you help me navigate this\maze of a security system."
gord say" I'm just as eager to get\out of here as you."
gord say" Let's go."
then ;
:noname
reset-level O
s" lev00003.map" load-map
7 11 tile>world Jaye entity.pos!
6 12 tile>world Neut entity.pos!
6 7 tile>world Gord entity.pos!
; ' onload redefine