implement libb, write emails

footer.jor

@@ -116,6 +116,8 @@ var cchoose
 3 LBLUE character jaye userword
 5 CYAN character gord userword
 6 LMAGENTA character pady userword
+4 LGREEN character term userword
+8 RED character libb userword
 
 : noone WHITE text-color ! s"     " dup dup dup
   8 portraity 16 portraity 24 portraity 32 portraity ; userword

game.jor

@@ -179,9 +179,9 @@ var q-level
     isprog? if prog-view else human-view then
   then then
   ^Z key-pressed if player.state GORDSIT f@ if
-    isprog? 0 player.state ISPROG f!
+    :| isprog? 0 player.state ISPROG f!
-    activate-gord
+       activate-gord
-    player.state ISPROG f!
+       player.state ISPROG f! |; sched
   then then
   0 ^LEFT key-down if drop 1 W player entity.dir ! then
   ^RIGHT key-down if drop 1 E player entity.dir ! then

lev00006.jor

@@ -51,10 +51,109 @@ var pady-introduced
 17 1 door d2
 4 11 door d3
 10 9 door d4
+16 11 door d5
+defer term-loop
+' term-loop 2 1 computer c1
+' term-loop 2 3 computer c2
+' term-loop 2 6 computer c3
+' term-loop 2 10 computer c4
+' term-loop 18 3 computer c5
+' term-loop 18 6 computer c6
+' term-loop 18 9 computer c7
+' term-loop 8 6 computer c8
+' term-loop 12 6 computer c9
 
-1234 ' d1 3 2 keypad k1
+: ret-if-on ( e -- ) dup computer-on? if rdrop else drop then ;
+: first-on ( -- e )
+  c1 ret-if-on c2 ret-if-on c3 ret-if-on c4 ret-if-on c5 ret-if-on
+  c6 ret-if-on c7 ret-if-on c8 ret-if-on c9 ret-if-on 0 ;
+defer cmp-next-on
+: next-on ( e -- e )
+  :| over = if drop ' ret-if-on ' cmp-next-on redefine then |; ' cmp-next-on redefine
+  c1 cmp-next-on c2 cmp-next-on c3 cmp-next-on c4 cmp-next-on c5 cmp-next-on
+  c6 cmp-next-on c7 cmp-next-on c8 cmp-next-on c9 cmp-next-on first-on ;
+:noname responder next-on ; ' term-loop redefine
+
+c1 :noname dup chain-listener EVACT = if
+  term say" .:: welcome to farquaad ::.\please select your choice:"
+  :| s" about farquaad" :| term say" farquaad runs ms-dos 9:\the lOSt DOS" |; yield
+     s" s3cr3t c0d3z" :| term say" get out lamer" |; yield
+     s" wake bill" :| c4 EVACT entity>do term say" your wish is my command" |; yield
+     s" open pod bay doors" :| term say" i can't do that dave" |; yield
+     s" boss key" :| term say" press f12 to activate\at any time" |; yield
+     done |; choose
+then ;
+
+c2 :noname dup chain-listener EVACT = if
+  term say" Subject: Misuse of Rexx\Thanks to SOMEone, who shall\remain nameless, that decided"
+  term say" that it would be 'funny' to\teach the cleaning robot to\play fetch with expensive"
+  term say" equipment, access to Rexx\by developers will be strictly\controlled by management."
+  term say" The code has been changed.\Do not attempt to hack the\keypad. This means YOU, Bill."
+then ;
+
+c3 :noname dup chain-listener EVACT = if
+  term say" Subject: Server's down\Hey, I don't have the code to\access the server room. Can"
+  term say" someone reboot it for me?"
+  term say" Subject: RE: Server's down\I don't have TIME for this\nonsense!! Reboot it yourself."
+  c7 computer-on? if
+    term say" The passcode is\[ BLOCKED BY FIREWALL ]."
+  else
+    term say" The passcode is 5197."
+  then
+  term say" Subject: re: RE: Server's down\Uhhh the firewall blocked\the passcode?"
+  term say" Subject: re: RE: Server's down\AUGH FINE I rebooted it."
+then ;
+
+var libb-intro
+c4 :noname dup EVTOUCH = if isneut? if
+  libb-intro @ not if
+    1 libb-intro !
+    libb say" well, well, well.\what have we here?"
+    libb say" > /version"
+    neut say" < NEUT v0.71.4rc12"
+    neut say" > IDENTIFY_PROGRAM.EXE"
+    libb say" < libb v2.718282"
+    libb say" oh, a nosy little fella."
+    neut say" NOT A FELLA."
+    libb say" perhaps you and i could\help each other."
+    neut say" WE ARE ASSISTING ALL WHO\ARE IN NEED."
+    libb say" i've been watching the\network. it's kind of what\i do."
+    libb say" you and your programmer,\you're escaping, aren't\you?"
+    neut say" THE BUILDING IS UNSAFE.\WE ARE HELPING."
+    libb say" i want out, neut."
+    libb say" i hate being cooped up in\this locked-down corporate\hellhole of a network."
+    libb say" you're going to take me\with you."
+    neut say" THIS COURSE OF ACTION\ALSO SEEMS POTENTIALLY\UNSAFE."
+    libb say" that wasn't a threat, neut.\that was a fact."
+    libb say" you can't get out of here\without me."
+    libb say" i can disable keypads.\i can reprogram terminals.\i can HELP, neut."
+    hide-footer 10 sleep
+    neut say" IT NEVER HURTS TO HELP."
+    libb say" that's the spirit."
+    neut say" > UPLOAD.EXE /LIBB"
+  then
+then then chain-listener ;
+
+c5 :noname dup chain-listener EVACT = if
+  term say" Subject: Password security\A reminder to all developers\about security best practice:"
+  term say" DO NOT WRITE DOWN PASSWORDS!\We pay significant license fees\for encrypted password"
+  term say" managers for all employees!\Use it to generate and store\secure passwords!"
+  gord say" There's a sticky note attached\to the monitor that says\'7777'."
+then ;
+
+c7 :noname dup chain-listener EVTOUCH = if isprog? not if
+  term say" WorkSecure (tm) v2.0\AUTHORIZED PERSONNEL ONLY"
+  term say" Actively neutralizing:\1 threat(s)"
+then then ;
+
+5197 ' d1 3 2 keypad k1
 -1 ' d2 17 2 keypad k2 ( must be hacked )
 3456 ' d3 4 10 keypad k3
+7777 ' d5 16 10 keypad k5
+
+' c7 19 11 switch b1
+
+18 1 defrexx r1
 
 LEV_END 13 12 exitdoor dx
 ' dx 14 12 scanner sx