more sound effects, FIXED BUG WHERE NEUT VANISHED

game.jor

@@ -124,16 +124,18 @@ var posessed-rexx
 defer touch-override ( x y -- b )
 
 : rexx-touch ( x y -- b )
-  2dup RUBBLE mapflag? isrexx? and if
-    tile 3 swap b! invalidate-map 0
+  0 >r isrexx? if
+    2dup RUBBLE mapflag? if
+      tile 3 swap b! invalidate-map
       sfx-garbage
     else tile b@ REXX-POD = if
       move-player
       S posessed-rexx @ entity.dir !
       posessed-rexx @ entity>pos Neut entity.pos!
       0 posessed-rexx !
-    1
-  else 0 then then ;
+      rdrop 1 >r
+    then then
+  else drop drop then <r ;
 
 defer on-gord-sit
 
@@ -430,8 +432,12 @@ does>
   :| dup EVTOUCH = isjaye? and if responder EVACT entity>do then
      dup EVTOUCH = isneut? and COMP-ON responder>tile? and if move-player then
      dup EVHACK = if hacked libb say" nothing interesting on this one." then
+     COMP-OFF responder>tile? swap
      dup COMP-ON COMP-OFF handle-onoff
-     handle-teleport |; listener! ;
+     handle-teleport
+     COMP-OFF responder>tile? != if
+       COMP-OFF responder>tile? if sfx-termoff else sfx-termon then
+     then |; listener! ;
 
 : scanner create-linked-object
   :| dup EVTOUCH = isneut? and if
@@ -439,6 +445,7 @@ does>
        responder EVACT entity>do
      then
      dup EVHACK = if
+       sfx-libb
        libb say" that's easy."
        responder entity>pos Libb entity.pos!
        hacked
@@ -457,6 +464,7 @@ does>
        move-player
        responder posessed-rexx !
        -100 -100 Neut entity.pos!
+       sfx-rexx
      then |; listener! ;
 
 0 const unconnected
@@ -487,6 +495,7 @@ Gord @ const gord-listener
 : chain-gord-listener gord-listener execute ;
 
 :noname
+  ' norm-rexxinst ' rexxinst redefine
   HASNEUT player.state !
   human-view
   0 objects ! 0 ticking-objects ! 0 visible-objects !

jorth.h

@@ -1,7 +1,7 @@
 
 #include <stdio.h>
 
-#define MEM_SIZE 33792
+#define MEM_SIZE 40960
 #define STACK_SIZE 64
 #define RSTACK_SIZE 64
 

lev00005.jor

@@ -1,5 +1,11 @@
 ( L E V 0 0 0 0 5 )
 
+202 12 128 192 17 244 0 46 9 241 18 0 instrument glitch-inst
+202 10 48 0 83 245 0 10 0 221 6 3 instrument drop-inst
+
+: sfx-glitch glitch-inst 1 loadsfx %F ;
+: sfx-dropgarbage :| drop-inst 3 loadsfx %A rest 1 octave ! %A |; SFX send ;
+
 objects: O
 
 lazy 60 over 19 9 timedswitch ts
@@ -42,17 +48,21 @@ here rubbletiles - 1 - const MAXRUBBLE
 : touch ( x y -- b )
   drop 13 <= isrexx? and posessed-rexx @ Rexx = and if
     3 glitchlevel !
+    sfx-glitch
     rexx say" PaRiTy ErrRor!!"
+    noteoff
     0 glitchlevel !
     1
   else
     not-picking-up? can-drop-rubble? and isrexx? and if
       randomrubble rexx-pos tile b! invalidate-map
+      sfx-dropgarbage
     then 0
   then ;
 
 var first-rexx-touch
 Rexx :noname
+  ' sick-rexxinst ' rexxinst redefine
   dup EVTOUCH = isneut? and first-rexx-touch @ not and if
     1 first-rexx-touch !
     rexx say" bOSssS..."
@@ -61,6 +71,7 @@ Rexx :noname
 
 var first-rexx2-touch
 Rexx2 :noname
+  ' norm-rexxinst ' rexxinst redefine
   dup EVTOUCH = isneut? and first-rexx2-touch @ not and if
     1 first-rexx2-touch !
     neut say" REXX UNIT\PERFORM FULL DIAGNOSTIC SCAN"
@@ -79,19 +90,25 @@ d2 :noname
     move-player
     W mr
     1 glitchlevel !
+    :| sick-rexxinst 2 loadsfx 5 sleep
+      %G 10 sleep %E 10 sleep %C 10 sleep 1 octave ! %G |; SFX send
     rexx say" daaAiisSyyy, daAAIIsYY..." hide-footer
     2 glitchlevel !
     W mr
     W mr
+    :| sick-rexxinst 2 loadsfx
+      %A rest rest %B rest rest %C rest rest %A rest rest %C rest rest %G |;
+      SFX send
     rexx say" gIVe mE YOur AnSwerR\doOO0OO0o0oooOO..." hide-footer
     N mr
     N mr
     4 glitchlevel !
     1 quaking !
+    sfx-glitch
     rexx say" uh oh" hide-footer
     Rexx entity>pos world>tile -1 -1 +pos
     dup 3 + for dup over 3 + i >rot for i over ( x y )
-      tile randomrubble swap b! invalidate-map 1 sleep
+      tile randomrubble swap b! invalidate-map sfx-splode 1 sleep
     next drop next drop
     -100 -100 Rexx entity.pos!
     0 glitchlevel !

lev00006.jor

@@ -1,4 +1,7 @@
 ( L E V E L 0 0 0 0 6 )
+202 0 0 14 99 119 0 9 0 104 119 0 instrument keyinst
+: sfx-key ( n -- ) keyinst loadinst 36 + noteon ;
+
 objects: O
 
 2 const ^1
@@ -10,7 +13,7 @@ objects: O
   ^1 - 1 + dup 10 = if drop 0 then ;
 : draw-digit ( x n -- ) code-y swap 48 + text-color @ textc ;
 : code-digit ( code x -- code )
-  wait-for-digit swap code-x + over draw-digit swap 10 * + ;
+  wait-for-digit dup sfx-key swap code-x + over draw-digit swap 10 * + ;
 
 : read-code ( -- n )
   WHITE text-color !
@@ -58,10 +61,11 @@ var pady-introduced
        pady say" Another strange program!\My, I'm popular today!"
        libb say" oh puke. please shut up."
        runon pady say" How rud"
+       hacked sfx-libb
        libb say" > /winnuke 182.556.21.74"
        pady say" PADYSEC caused a General\Protection Fault in module\MORICON.DLL at 000A:BE3F."
        libb say" > /open"
-       drop EVACT hacked
+       drop EVACT
      then
      dup PAD-ON PAD-OFF handle-onoff
      PAD-ON handle-link |; listener! ;

map.jor

@@ -28,7 +28,7 @@ array tileflags
 ( 14:chair-brok )      RUBBLE b,
 ( 15:bookcase )        0 b,
 ( 16:bookcase-broke )  RUBBLE b,
-( 17:scattered books ) WALKABLE RUBBLE | b,
+( 17:scattered books ) WALKABLE b, ( don't want rexx to explode books )
 ( 18:plant )           0 b,
 ( 19:tipped plant )    RUBBLE b,
 ( 20:scanner-off )     NEUTABLE ENTITY | b,

sound.jor

@@ -57,6 +57,7 @@ array semitones
 
 : note dup 12 / 8 % swap 12 % cells semitones + @ 440 swap *<ratio ;
 : noteon noteoff note freqon ;
+: randnoteon rand 12 % noteon ;
 
 : panic 9 -1 for i voice ! noteoff next ; userword
 
@@ -82,6 +83,14 @@ var octave
 202 1 4 0 248 190 0 0 39 214 79 0 instrument bink
 202 4 37 0 67 52 3 1 80 54 119 0 instrument zoop
 202 10 134 129 239 1 0 1 3 152 241 0 instrument doorinst
+202 14 245 79 247 182 3 210 18 163 245 0 instrument terminst
+202 10 1 9 244 186 3 12 137 181 185 0 instrument norm-rexxinst
+202 12 0 208 244 186 3 12 11 181 185 0 instrument sick-rexxinst
+202 14 18 0 244 2 3 22 3 244 103 0 instrument splode
+202 0 0 15 248 5 1 202 128 205 20 1 instrument libbinst
+
+defer rexxinst
+' norm-rexxinst ' rexxinst redefine
 
 task const SFX
 SFX :noname activate begin receive execute again ; execute
@@ -93,3 +102,11 @@ SFX :noname activate begin receive execute again ; execute
 : sfx-zoop zoop 5 loadsfx %C ;
 : sfx-dooropen :| doorinst 4 loadsfx %C rest %E |; SFX send ;
 : sfx-doorclose :| doorinst 4 loadsfx %E rest %C |; SFX send ;
+: term-jingle terminst 3 loadsfx %E rest %F rest %G 6 sleep ;
+: sfx-termon :| term-jingle 4 octave ! %C |; SFX send ;
+: sfx-termoff :| term-jingle %C |; SFX send ;
+: sfx-splode splode 0 loadsfx %C ;
+: sfx-rexx
+  :| rexxinst 2 loadsfx %C rest %G rest %E rest 3 octave ! %C |;
+  SFX send ;
+: sfx-libb :| libbinst 2 loadsfx %D# rest %G# rest %F# rest %G |; SFX send ;