implement libb, write emails

This commit is contained in:
Jeremy Penner 2020-03-30 22:27:37 -04:00
parent 175b1d81cf
commit c840de6681
14 changed files with 105 additions and 4 deletions

BIN
debug.jim

Binary file not shown.

Binary file not shown.

View file

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

BIN
game.jim

Binary file not shown.

View file

@ -179,9 +179,9 @@ var q-level
isprog? if prog-view else human-view then isprog? if prog-view else human-view then
then then then then
^Z key-pressed if player.state GORDSIT f@ if ^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 then then
0 ^LEFT key-down if drop 1 W player entity.dir ! then 0 ^LEFT key-down if drop 1 W player entity.dir ! then
^RIGHT key-down if drop 1 E player entity.dir ! then ^RIGHT key-down if drop 1 E player entity.dir ! then

BIN
jiles.jim

Binary file not shown.

BIN
job.jim

Binary file not shown.

Binary file not shown.

View file

@ -51,10 +51,109 @@ var pady-introduced
17 1 door d2 17 1 door d2
4 11 door d3 4 11 door d3
10 9 door d4 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 ) -1 ' d2 17 2 keypad k2 ( must be hacked )
3456 ' d3 4 10 keypad k3 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 LEV_END 13 12 exitdoor dx
' dx 14 12 scanner sx ' dx 14 12 scanner sx

Binary file not shown.

BIN
level.jim

Binary file not shown.

BIN
map.jim

Binary file not shown.

Binary file not shown.

BIN
state.jim

Binary file not shown.