( 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

end.jor 0 4 exitdoor dx
' dx 0 5 scanner sx

6 7 N ' {gord-sit} defentity Gord
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
    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 ;

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
      6 6 WALKABLE mapflag? not and if
    1 gord-jaye !
    cancel-ev
    move-player
    jaye say" Hey! Gord?\I'm Jaye."
    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 chain-listener ;

Gord :noname
  dup EVTOUCH = isrexx? and if
    gord say" AHHH NOOO\NOT GARBAGE\I AM NOT GARBAGE"
    rexx say" Whatever you say, boss!"
  then chain-listener ;

:noname
  reset-level O

  :| Gord 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