From ccd30e37006c68d4edeee8fe9985766c645766f1 Mon Sep 17 00:00:00 2001
From: Pecusx <Pecus@poczta.fm>
Date: Tue, 30 Jan 2024 10:41:28 +0100
Subject: [PATCH] Better place for propaganda!

---
 constants.asm   |  82 ++++++++++++++++++++++++------------------------
 definitions.asm |  40 +++++++++++------------
 scorch.bin      | Bin 32768 -> 32768 bytes
 scorch.xex      | Bin 32724 -> 32724 bytes
 scorchC64.prg   | Bin 39888 -> 39888 bytes
 weapons.asm     |  20 ++++++------
 6 files changed, 71 insertions(+), 71 deletions(-)

diff --git a/constants.asm b/constants.asm
index 34d6933..5091d2d 100644
--- a/constants.asm
+++ b/constants.asm
@@ -250,7 +250,6 @@ WeaponPriceH ; weapons prices (tables with prices of weapons)
   .by >price_Riot_Blast
   .by >price_Riot_Bomb
   .by >price_Heavy_Riot_Bomb
-  .by >price_Propaganda
   .by >price_Digger
   .by >price_Heavy_Digger
   .by >price_Sandhog
@@ -260,6 +259,7 @@ WeaponPriceH ; weapons prices (tables with prices of weapons)
   .by >price_Ton_of_Dirt
   .by >price_Liquid_Dirt
   .by >price_Dirt_Charge
+  .by >price_Propaganda
   .by >price_Punch
   .by >price_Buy_me
   .by >price_Laser
@@ -299,7 +299,6 @@ WeaponPriceL
   .by <price_Riot_Blast
   .by <price_Riot_Bomb
   .by <price_Heavy_Riot_Bomb
-  .by <price_Propaganda
   .by <price_Digger
   .by <price_Heavy_Digger
   .by <price_Sandhog
@@ -309,6 +308,7 @@ WeaponPriceL
   .by <price_Ton_of_Dirt
   .by <price_Liquid_Dirt
   .by <price_Dirt_Charge
+  .by <price_Propaganda
   .by <price_Punch
   .by <price_Buy_me
   .by <price_Laser
@@ -355,16 +355,16 @@ WeaponUnits
   .by 2  ;Riot_Blast     ;_16
   .by 5  ;Riot_Bomb      ;_17
   .by 2  ;Heavy_Riot_Bomb;_18
-  .by 4  ;Propaganda     ;_19
-  .by 5  ;Digger         ;_20
-  .by 2  ;Heavy_Digger   ;_21
-  .by 5  ;Sandhog        ;_22
-  .by 2  ;Heavy_Sandhog  ;_23
-  .by 5  ;Dirt_Clod      ;_24
-  .by 3  ;Dirt_Ball      ;_25
-  .by 1  ;Ton_of_Dirt    ;_26
-  .by 4  ;Liquid_Dirt    ;_27
-  .by 2  ;Dirt_Charge    ;_28
+  .by 5  ;Digger         ;_19
+  .by 2  ;Heavy_Digger   ;_20
+  .by 5  ;Sandhog        ;_21
+  .by 2  ;Heavy_Sandhog  ;_22
+  .by 5  ;Dirt_Clod      ;_23
+  .by 3  ;Dirt_Ball      ;_24
+  .by 1  ;Ton_of_Dirt    ;_25
+  .by 4  ;Liquid_Dirt    ;_26
+  .by 2  ;Dirt_Charge    ;_27
+  .by 4  ;Propaganda     ;_28
   .by 2  ;Punch          ;_29
   .by 1  ;Buy_me         ;_30
   .by 5  ;Laser          ;_31
@@ -392,12 +392,12 @@ PurchaseMeTable ;weapons good to be purchased by the robot
     .by %01111111
     ; "Napalm          ","Hot Napalm      ","Tracer          ","Smoke Tracer    "
     ; "Baby Roller     ","Roller          ","Heavy Roller    ","Riot Charge     "
-    .by %11001110
-    ; "Riot Blast      ","Riot Bomb       ","Heavy Riot Bomb ","Propaganda      "
-    ; "Digger          ","Heavy Digger    ","Sandhog         ","Heavy Sandhog   "
+    .by %11011100
+    ; "Riot Blast      ","Riot Bomb       ","Heavy Riot Bomb ","Digger          "
+    ; "Heavy Digger    ","Sandhog         ","Heavy Sandhog   ","Dirt Clod       "
     .by %00000000
-    ; "Dirt Clod       ","Dirt Ball       ","Ton of Dirt     ","Liquid Dirt     "
-    ; "Dirt Charge     ","Punch           ","Buy me!         ","Laser           "
+    ; "Dirt Ball       ","Ton of Dirt     ","Liquid Dirt     ","Dirt Charge     "
+    ; "Propaganda      ","Punch           ","Buy me!         ","Laser           "
     .by %00000000
     ; "White Flag      ","Battery         ","Hovercraft      ","Parachute       "
     ; "Strong Parachute","Mag Deflector   ","Shield          ","Heavy Shield    "
@@ -414,11 +414,11 @@ PurchaseMeTable2 ;weapons good to be purchased by the robot (Cyborg)
     ; "Napalm          ","Hot Napalm      ","Tracer          ","Smoke Tracer    "
     ; "Baby Roller     ","Roller          ","Heavy Roller    ","Riot Charge     "
     .by %01000000
-    ; "Riot Blast      ","Riot Bomb       ","Heavy Riot Bomb ","Propaganda      "
-    ; "Digger          ","Heavy Digger    ","Sandhog         ","Heavy Sandhog   "
+    ; "Riot Blast      ","Riot Bomb       ","Heavy Riot Bomb ","Digger          "
+    ; "Heavy Digger    ","Sandhog         ","Heavy Sandhog   ","Dirt Clod       "
     .by %00000000
-    ; "Dirt Clod       ","Dirt Ball       ","Ton of Dirt     ","Liquid Dirt     "
-    ; "Dirt Charge     ","Punch           ","Buy me!         ","Laser           "
+    ; "Dirt Ball       ","Ton of Dirt     ","Liquid Dirt     ","Dirt Charge     "
+    ; "Propaganda      ","Punch           ","Buy me!         ","Laser           "
     .by %00000000
     ; "White Flag      ","Battery         ","Hovercraft      ","Parachute       "
     ; "Strong Parachute","Mag Deflector   ","Shield          ","Heavy Shield    "
@@ -449,16 +449,16 @@ WeaponSymbols
     .by $50 ;ind_Riot_Blast      ;_16
     .by $51 ;ind_Riot_Bomb       ;_17
     .by $52 ;ind_Heavy_Riot_Bomb ;_18
-    .by $53 ;ind_Propaganda      ;_19
-    .by $54 ;ind_Digger          ;_20
-    .by $55 ;ind_Heavy_Digger    ;_21
-    .by $57 ;ind_Sandhog         ;_22
-    .by $58 ;ind_Heavy_Sandhog   ;_23
-    .by $59 ;ind_Dirt_Clod       ;_24
-    .by $5a ;ind_Dirt_Ball       ;_25
-    .by $5b ;ind_Ton_of_Dirt     ;_26
-    .by $60 ;ind_Liquid_Dirt     ;_27
-    .by $7b ;ind_Dirt_Charge     ;_28
+    .by $54 ;ind_Digger          ;_19
+    .by $55 ;ind_Heavy_Digger    ;_20
+    .by $57 ;ind_Sandhog         ;_21
+    .by $58 ;ind_Heavy_Sandhog   ;_22
+    .by $59 ;ind_Dirt_Clod       ;_23
+    .by $5a ;ind_Dirt_Ball       ;_24
+    .by $5b ;ind_Ton_of_Dirt     ;_25
+    .by $60 ;ind_Liquid_Dirt     ;_26
+    .by $7b ;ind_Dirt_Charge     ;_27
+    .by $53 ;ind_Propaganda      ;_28
     .by $56 ;ind_Punch           ;_29
     .by $1f ;ind_Buy_me          ;_30
     .by $20 ;ind_Laser           ;_31
@@ -500,16 +500,16 @@ NamesOfWeapons ;the comment is an index in the tables
     dta d"Riot Blast"^       ; 16
     dta d"Riot Bomb"^        ; 17
     dta d"Heavy Riot Bomb"^  ; 18
-    dta d"Propaganda"^       ; 19
-    dta d"Digger"^           ; 20
-    dta d"Heavy Digger"^     ; 21
-    dta d"Sandhog"^          ; 22
-    dta d"Heavy Sandhog"^    ; 23
-    dta d"Dirt Clod"^        ; 24
-    dta d"Dirt Ball"^        ; 25
-    dta d"Ton of Dirt"^      ; 26
-    dta d"Liquid Dirt"^      ; 27
-    dta d"Dirt Charge"^      ; 28
+    dta d"Digger"^           ; 19
+    dta d"Heavy Digger"^     ; 20
+    dta d"Sandhog"^          ; 21
+    dta d"Heavy Sandhog"^    ; 22
+    dta d"Dirt Clod"^        ; 23
+    dta d"Dirt Ball"^        ; 24
+    dta d"Ton of Dirt"^      ; 25
+    dta d"Liquid Dirt"^      ; 26
+    dta d"Dirt Charge"^      ; 27
+    dta d"Propaganda"^       ; 28
     dta d"Stomp"^            ; 29
     dta d"Best F...g Gifts"^ ; 30
     dta d"Laser"^            ; 31
diff --git a/definitions.asm b/definitions.asm
index e9da444..691e50d 100644
--- a/definitions.asm
+++ b/definitions.asm
@@ -69,16 +69,16 @@ price_Riot_Charge     =  230  ;_15
 price_Riot_Blast      =  241  ;_16
 price_Riot_Bomb       =  259  ;_17
 price_Heavy_Riot_Bomb =  272  ;_18
-price_Propaganda      =  234  ;_19
-price_Digger          =  176  ;_20
-price_Heavy_Digger    =  207  ;_21
-price_Sandhog         =  191  ;_22
-price_Heavy_Sandhog   =  223  ;_23
-price_Dirt_Clod       =  104  ;_24
-price_Dirt_Ball       =  130  ;_25
-price_Ton_of_Dirt     =  171  ;_26
-price_Liquid_Dirt     =  330  ;_27
-price_Dirt_Charge     =  343  ;_28
+price_Digger          =  176  ;_19
+price_Heavy_Digger    =  207  ;_20
+price_Sandhog         =  191  ;_21
+price_Heavy_Sandhog   =  223  ;_22
+price_Dirt_Clod       =  104  ;_23
+price_Dirt_Ball       =  130  ;_24
+price_Ton_of_Dirt     =  171  ;_25
+price_Liquid_Dirt     =  330  ;_26
+price_Dirt_Charge     =  343  ;_27
+price_Propaganda      =  234  ;_28
 price_Punch           =  208  ;_29
 price_Buy_me          =  170  ;_30
 price_Laser           =  277  ;_31
@@ -119,16 +119,16 @@ ind_Riot_Charge     = 15
 ind_Riot_Blast      = 16
 ind_Riot_Bomb       = 17
 ind_Heavy_Riot_Bomb = 18
-ind_Propaganda      = 19
-ind_Digger          = 20
-ind_Heavy_Digger    = 21
-ind_Sandhog         = 22
-ind_Heavy_Sandhog   = 23
-ind_Dirt_Clod       = 24
-ind_Dirt_Ball       = 25
-ind_Ton_of_Dirt     = 26
-ind_Liquid_Dirt     = 27
-ind_Dirt_Charge     = 28
+ind_Digger          = 19
+ind_Heavy_Digger    = 20
+ind_Sandhog         = 21
+ind_Heavy_Sandhog   = 22
+ind_Dirt_Clod       = 23
+ind_Dirt_Ball       = 24
+ind_Ton_of_Dirt     = 25
+ind_Liquid_Dirt     = 26
+ind_Dirt_Charge     = 27
+ind_Propaganda      = 28
 ind_Punch           = 29
 ind_Buy_me          = 30
 ind_Laser           = 31
diff --git a/scorch.bin b/scorch.bin
index cb3daeb0b3166b78afc29053a15b692e6cf10fcf..d80af2125053f5cada505ebae97480ba695ba443 100644
GIT binary patch
delta 161
zcmZo@U}|V!+VE6@nURrU@(T$yt_|n+-_K}T?G^rNvV^3XJS!6rGBdI;u`n^RGBPtU
zGXW7ZBNHPN6BA4QoyoD1vRomd;SrHh(FxVTlUpPYPWG3I<T5DAFGx&J%u9JVd4<$H
z4jEw)Q894|$<2Mz6)Ga$%?ZsJ%{k3JEdebdEh}1@TCO*3mU6fz%P2khW2_F4l#8=r
Ll-V2|w^R`TZ_hDC

delta 161
zcmZo@U}|V!+VE6@nSqgU@(T$yu2&n*@4uhXwAw3tvV^3XJPRum5Hd5eFflQ*GBPtU
zGXW7ZBNHPN6BA4QxyiATvRuI-q2UpcQPBz2lUpPYav2om7bK=9=A}HG>?##Gd4<$H
z4q*{dF>wh=sm*=T6)Gavo4lJ7nlqYnntfUVT0&Y@v^2GBmU6fz%P2GXW2_F4l#8=r
Ll-(R1w^R`Tbj~p^

diff --git a/scorch.xex b/scorch.xex
index 4265e9db1bec64194bf364e708c65721c247aee1..11abf537fb66e1a35bb89a1a96fba97abd5cb73f 100644
GIT binary patch
delta 161
zcmccepYh6n#tru+m>C%vCO?u;<Jxe3|NV@n)n4JRCJRZb$+I#6Au}Tj6AKd~D<d-#
zGZPRoGcqwUF)^{!-<cdPDa#cS8XgfD6`fEWJh@Kt;ABs!NG^k-{DQ>v#JrS;lNU+d
z<B$;+5fu}cklfrMeOpB&xw)dbp}D0wr6r>!r{zG)td{ppo68-p$ude$_KVX2lGSlG
Mj53>d#K|ZE0GAmv`2YX_

delta 161
zcmccepYh6n#tru+m>C!uCqI%<<9fB>{QmnHO{=}aCksic$+NIB0U<LZ3lkF~D<d-#
zGZPRoGcqwUF)^{!pPL*mDa#cc5*i*685NySJ-JTuAeTW=enDb-VqVI_$@Wr_lNU+d
z;}8}R6%&_`l-k@OeOpE3eN%FCMRP-QOLIy~MoUi1ftFb<o68-p$ui1J_KVX2lGSlG
MjIx_|#K|ZE0GwJg;s5{u

diff --git a/scorchC64.prg b/scorchC64.prg
index 0c1d9bf64abb746d16874e77f9f08a3ac283e8d0..a925e59ed2db62ede86f9a840888b45632a8e09d 100644
GIT binary patch
delta 161
zcmcbxo$11MrVWM>%#4f-lT9MjxHg>Me?OyXwO9D7$te+P@~lii$jr#X#KOeL%E-*b
z%mhTtj7*G7OiV2GcP6ilkmU*q4UdS7icY8wo_rzV;N;nnkz58v`2~sTiFqjxCx3~&
z#~~vuA}S^>A-VZh)IKqhJ2f9`e%Ac0xm)|N_GztUop4=7&E_?QXJr|sCs+0B0LkV3
NHjFZxpY*@s1^^``IcER>

delta 161
zcmcbxo$11MrVWM>%nXc-lT9MjxL$2IzyE$l(`v8q$te+P@+_=OK*-F<!o<YL%E-*b
z%mhTtj7*G7OiV2G=O(X=kmU*v2@Q{kjEYXEo_rzVAeTW=enDb-VqVI_$rB?ZCx3~&
z#~~~tDkd%=DYf}l)IKqhjG8+&A8UTr{H?iL`>^(Dt!15X-R3ogXJr{>CRg?A0LkV3
NHjJ{HpY*@s1^^a0IZyxq

diff --git a/weapons.asm b/weapons.asm
index fef5feb..922c255 100644
--- a/weapons.asm
+++ b/weapons.asm
@@ -41,16 +41,16 @@ ExplosionRoutines
     .word riotblast-1                ;Riot_Blast     ;_16
     .word riotbomb-1                 ;Riot_Bomb      ;_17
     .word heavyriotbomb-1            ;Heavy_Riot_Bomb;_18
-    .word propaganda-1               ;Propaganda     ;_19
-    .word digger-1                   ;Digger         ;_20
-    .word heavydigger-1              ;Heavy_Digger   ;_21
-    .word sandhog-1                  ;Sandhog        ;_22
-    .word heavysandhog-1             ;Heavy_Sandhog  ;_23
-    .word dirtclod-1                 ;Dirt_Clod      ;_24
-    .word dirtball-1                 ;Dirt_Ball      ;_25
-    .word tonofdirt-1                ;Ton_of_Dirt    ;_26
-    .word liquiddirt-1               ;Liquid_Dirt    ;_27
-    .word dirtcharge-1               ;Dirt_Charge    ;_28
+    .word digger-1                   ;Digger         ;_19
+    .word heavydigger-1              ;Heavy_Digger   ;_20
+    .word sandhog-1                  ;Sandhog        ;_21
+    .word heavysandhog-1             ;Heavy_Sandhog  ;_22
+    .word dirtclod-1                 ;Dirt_Clod      ;_23
+    .word dirtball-1                 ;Dirt_Ball      ;_24
+    .word tonofdirt-1                ;Ton_of_Dirt    ;_25
+    .word liquiddirt-1               ;Liquid_Dirt    ;_26
+    .word dirtcharge-1               ;Dirt_Charge    ;_27
+    .word propaganda-1               ;Propaganda     ;_28
     .word punch-1                    ;Baby_Sandhog   ;_29
     .word BFG-1                      ;Buy_me         ;_30
     .word laser-1                    ;Laser          ;_31