90 lines
2.4 KiB
Plaintext
Executable file
90 lines
2.4 KiB
Plaintext
Executable file
( L E V 0 0 0 0 3 )
|
|
|
|
objects: O
|
|
|
|
9 9 door d1
|
|
7 5 door d2
|
|
' d1 7 7 switch b1
|
|
' 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
|
|
|
|
6 7 N ' {gord-sit} defentity Gord
|
|
5 2 S ' {rexx} defentity Rexx
|
|
Rexx :noname
|
|
dup EVTOUCH = isneut? and if
|
|
move-player
|
|
1 f-rexx f!
|
|
' Rexx ' player-prog redefine
|
|
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 ;
|
|
|
|
: 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
|
|
gord say" Huh? Oh, there is a\switch there on the wall."
|
|
gord say" Never thought about what\it connected to."
|
|
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 ;
|
|
|
|
:noname
|
|
reset-level O
|
|
|
|
:| Gord yield Rexx yield done |; ' entities redefine
|
|
|
|
s" lev00003.map" load-map
|
|
7 11 tile>world Jaye entity.pos!
|
|
6 12 tile>world Neut entity.pos!
|
|
|
|
; ' onload redefine
|