( L E V 0 0 0 0 3 )

objects: O

9 9 door d1
' d1 7 7 switch b1
' unconnected 5 7 computer c1

6 7 N ' {gord-sit} defentity Gord

: 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"
    day
    flicker flicker flicker flicker
    gord say" What the..."
    gord say" Is someone in the terminal?"
    gord say" > HUMAN IS PRESENT"
    night
    neut say" > GREETINGS, HUMAN"
    neut say" > THIS IS NEUT v0.71.4rc12"
    neut say" > PLEASE STATE NAME AND\STATUS"
    day
    gord say" > THIS IS GORD"
    gord say" v1, I guess."
    gord say" > LEG IS PINNED UNDER DESK\UNABLE TO MOVE"
    night
    neut say" > CAN YOU REACH THE SWITCH\BEHIND YOU?"
    day
    gord say" Huh? Oh, there is a\switch there on the wall."
    gord say" Never thought about what\it connected to."
    b1 EVACT entity>do 15 sleep
    gord say" > I TURNED IT ON"
    night
    neut say" > MY PROGRAMMER THANKS\YOU, GORD"
    neut say" > WE WILL ASSIST YOU SOON"
    day
    gord say" > AWAITING YOUR HELP, NEUT"
    night
  then chain-listener ;

:noname
  reset-level O

  :| Gord yield done |; ' entities redefine

  s" lev00003.map" load-map
  7 11 tile>world pjaye entity.pos!
  6 12 tile>world pneut entity.pos!

; ' onload redefine