diff --git a/debug.jim b/debug.jim index 47d874f..571d02e 100755 Binary files a/debug.jim and b/debug.jim differ diff --git a/footer.jim b/footer.jim index f529ea9..4f65227 100755 Binary files a/footer.jim and b/footer.jim differ diff --git a/footer.jor b/footer.jor index 7e2ced0..32cf99e 100755 --- a/footer.jor +++ b/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 diff --git a/game.jim b/game.jim index 47eb4a2..3db0d2e 100755 Binary files a/game.jim and b/game.jim differ diff --git a/game.jor b/game.jor index 3a56846..b2c0477 100755 --- a/game.jor +++ b/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! - activate-gord - player.state ISPROG f! + :| isprog? 0 player.state ISPROG f! + activate-gord + 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 diff --git a/jiles.jim b/jiles.jim index 6dc40ff..64b5320 100755 Binary files a/jiles.jim and b/jiles.jim differ diff --git a/job.jim b/job.jim index c996f87..c69acbe 100755 Binary files a/job.jim and b/job.jim differ diff --git a/lev00006.jim b/lev00006.jim index f8f54de..13cc3a5 100755 Binary files a/lev00006.jim and b/lev00006.jim differ diff --git a/lev00006.jor b/lev00006.jor index baab093..e353932 100755 --- a/lev00006.jor +++ b/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 diff --git a/lev00006.map b/lev00006.map index 9dc6380..e2810bf 100755 Binary files a/lev00006.map and b/lev00006.map differ diff --git a/level.jim b/level.jim index 75052db..d5fd4e5 100755 Binary files a/level.jim and b/level.jim differ diff --git a/map.jim b/map.jim index 7aaae41..bd2bee7 100755 Binary files a/map.jim and b/map.jim differ diff --git a/portrait.gfx b/portrait.gfx index f969436..69e0d59 100755 Binary files a/portrait.gfx and b/portrait.gfx differ diff --git a/state.jim b/state.jim index 8aa7366..b327899 100755 Binary files a/state.jim and b/state.jim differ