release 137

constants.asm

@@ -788,8 +788,8 @@ WeaponUnits
   .by 10 ;Baby_Roller____
   .by 5  ;Roller_________
   .by 2  ;Heavy_Roller___
-  .by 1  ;Riot_Charge____
+  .by 5  ;Riot_Charge____
-  .by 5  ;Riot_Blast_____
+  .by 2  ;Riot_Blast_____
   .by 5  ;Riot_Bomb______
   .by 2  ;Heavy_Riot_Bomb
   .by 10 ;Baby_Digger____
@@ -802,7 +802,7 @@ WeaponUnits
   .by 5  ;Dirt_Ball______
   .by 2  ;Ton_of_Dirt____
   .by 2  ;Liquid_Dirt____
-  .by 10 ;Dirt_Charge____
+  .by 2  ;Dirt_Charge____
   .by 10 ;Earth_Disrupter
   .by 5  ;Plasma_Blast___
   .by 5  ;Laser__________

definitions.asm

@@ -26,8 +26,8 @@ price_Smoke_Tracer___ = 291    ;_11
 price_Baby_Roller____ = 689    ;_12
 price_Roller_________ = 600    ;_13
 price_Heavy_Roller___ = 592    ;_14
-price_Riot_Charge____ = 0 ;330    ;_15
+price_Riot_Charge____ = 330    ;_15
-price_Riot_Blast_____ = 0 ;341    ;_16
+price_Riot_Blast_____ = 341    ;_16
 price_Riot_Bomb______ = 369    ;_17
 price_Heavy_Riot_Bomb = 322    ;_18
 price_Baby_Digger____ = 336    ;_19

display.asm

@@ -65,7 +65,7 @@ dl ; MAIN game display list
 ;Screen displays go first to avoid crossing 4kb barrier
 ;-----------------------------------------------
 OptionsScreen
- dta d"Welcome to Scorch ver. 136 (un)2000-2022"
+ dta d"Welcome to Scorch ver. 137 (un)2000-2022"
  dta d" Please select option with cursor keys  "
  dta d"     and press (Return) to proceed      "
 OptionsHere   

lib/macro.hea

@@ -77,11 +77,12 @@
 ;	WAIT
 ;	waits one frame (1/50 s(PAL) or 1/60s(NTSC))
          LDA VCOUNT
-         STA WSYNC
+         ldy vcount
-         STA WSYNC
+?WA      cpy VCOUNT
-         STA WSYNC
+         BEQ ?WA
-?WA      CMP VCOUNT
+?wframe
-         BNE ?WA
+         cmp vcount
+         bne ?wframe
          .ENDM
 ;-------------------------------------
     .macro negw

scorch.asm

@@ -239,10 +239,10 @@ skipzeroing
 Round .proc ; 
 ;--------------------------------------------------
 ; at the beginning of each Round we set energy
-; of all players to 100
+; of all players to 99
-; the maximum shooting energy to 1000 (it is 10*energy)
+; the maximum shooting energy to 990 (it is 10*energy)
 ; the default shooting energy to 350
-; the default shooting angle to 45 degrees
+; the shooting angle is randomized
 ; of course gains an looses are zeroed
 
 	jsr StatusDisplay
@@ -361,12 +361,8 @@ DoNotFinishTheRound
     mva #0 noDeathCounter
     
     jsr DisplaySeppuku
-    
     jmp Seppuku
 
-
-
-
     ;ldx TankNr
 @
     ldx TankSequencePointer

weapons.asm

@@ -37,8 +37,8 @@ ExplosionRoutines
     .word babyroller-1
     .word roller-1
     .word heavyroller-1
-    .word VOID-1 ;riotcharge
+    .word riotcharge-1
-    .word VOID-1 ;riotblast
+    .word riotblast-1
     .word riotbomb-1
     .word heavyriotbomb-1
     .word babydigger-1
@@ -482,6 +482,20 @@ DiggerCharacter
     jmp ofdirt
 .endp
 ; ------------------------
+.proc riotcharge
+    inc FallDown2
+    mva #31 ExplosionRadius
+    jsr CalculateExplosionRange
+    jmp cleanDirt
+.endp
+; ------------------------
+.proc riotblast
+    inc FallDown2
+    mva #61 ExplosionRadius
+    jsr CalculateExplosionRange
+    jmp cleanDirt
+.endp
+; ------------------------
 .proc laser
     ldx TankNr
     lda AngleTable,x
@@ -785,15 +799,21 @@ ExplodeNow
     rts
 .endp
 ; --------------------------------------------------
+.proc cleanDirt
+    mva #0 color
+    jmp ofdirt.NoColor
+.endp
+; --------------------------------------------------
 .proc ofdirt ;
 ; --------------------------------------------------
 ; makes dirt on xdraw,ydraw position and of ExplosionRadius height
+    mva #1 color
+NoColor ; jump here with color=0 to clean dirt
     mwa xdraw xcircle
     mva ydraw ycircle
     lda #1
 ; current dirt width
     sta magic
-    sta color
 NextRow
     wait
     ldy magic