From 2a08447b9c93155481a1ce1ab0b85617e48516e1 Mon Sep 17 00:00:00 2001
From: Pecusx <Pecus@poczta.fm>
Date: Fri, 20 Jan 2023 11:00:46 +0100
Subject: [PATCH] The tanks talk to each other again.

---
 scorch.asm   |   2 +-
 scorch.bin   | Bin 32768 -> 32768 bytes
 scorch.xex   | Bin 49301 -> 49301 bytes
 textproc.asm |  42 +++++++++++++++++++++---------------------
 4 files changed, 22 insertions(+), 22 deletions(-)

diff --git a/scorch.asm b/scorch.asm
index 9389a8a..7c5c601 100644
--- a/scorch.asm
+++ b/scorch.asm
@@ -15,7 +15,7 @@
 
 ;---------------------------------------------------
 .macro build
-	dta d"1.25" ; number of this build (4 bytes)
+	dta d"1.26" ; number of this build (4 bytes)
 .endm
 
 .macro RMTSong
diff --git a/scorch.bin b/scorch.bin
index 98e037c8e72847facd8a855e8a90ebf963ce309b..7ddc409650dad3de7ffd62a9026ba5351f1a1098 100644
GIT binary patch
delta 74
zcmZo@U}|V!+VGT(QEc-wwp?~b?a3j0ra-cbuK-B?=96U9-Ym*5CNX)Ry5?kU^~sZ;
ZtE)4HZ06S}QUb~}dF^KdQci*U^Z;#a7kdBz

delta 74
zcmZo@U}|V!+VGT(QFQY&wp@0`eUn4@Oo3z<UjdN(%_qsYZ?h=Bn8f4|^~sa9)iozS
aS664$-psF2qy&^{^4iY^q?`ix=>Y)Oi5gh|

diff --git a/scorch.xex b/scorch.xex
index 9f426aa24ceb9d546447b6513a4ee47fc747bcfc..accaf03cc3a2f47902eeaee82ea27cc71deae432 100644
GIT binary patch
delta 94
zcmbQ*$UL=?dBZPvMzPJm-PPC`4JRx4n*zxQ{{m^l^fh53OS4;xTe20bN|qM4W&`;v
w8Cq{C7;b*-pDZ!?W`^cuw~Wb?nKIQGqc&@0PF7+x+`O-QKO2y$n<TCW0E-GEf&c&j

delta 94
zcmbQ*$UL=?dBZPvM$yf`-PPC`k4#qbHwBUr{sq!U($|EEEX{5$Zpl`#Dp^|GnhoTy
wWN5vmaAfmi|73~D`5BWZyJcujX3A7&G~BF}Ia!JE$mV_B``Lh0-6U~602h`fU;qFB

diff --git a/textproc.asm b/textproc.asm
index 49128ea..99ed067 100644
--- a/textproc.asm
+++ b/textproc.asm
@@ -1633,6 +1633,27 @@ displayloop1
     rts
 .endp
 
+;--------------------------------------------------------
+.proc DisplayOffensiveTextNr ;
+    ldx TextNumberOff
+    lda talk.OffensiveTextTableL,x
+    sta LineAddress4x4
+    lda talk.OffensiveTextTableH,x
+    sta LineAddress4x4+1
+    inx ; the next text
+    lda talk.OffensiveTextTableH,x
+    sta temp+1
+    lda talk.OffensiveTextTableL,x
+    sta temp  ; opty possible
+    ; substract address of the next text from previous to get text length
+    sbw temp LineAddress4x4 temp2
+    mva temp2 fx 
+
+    ;jsr Display4x4AboveTank
+    ;rts
+	; POZOR !!!
+.endp
+
 ;--------------------------------------------------------
 .proc Display4x4AboveTank ;
     ; Displays texts using PutChar4x4 above tank and mountains.
@@ -1751,27 +1772,6 @@ DOTOldLowestValue
 
 .endp
 
-;--------------------------------------------------------
-.proc DisplayOffensiveTextNr ;
-    ldx TextNumberOff
-    lda talk.OffensiveTextTableL,x
-    sta LineAddress4x4
-    lda talk.OffensiveTextTableH,x
-    sta LineAddress4x4+1
-    inx ; the next text
-    lda talk.OffensiveTextTableH,x
-    sta temp+1
-    lda talk.OffensiveTextTableL,x
-    sta temp  ; opty possible
-    ; substract address of the next text from previous to get text length
-    sbw temp LineAddress4x4 temp2
-    mva temp2 fx 
-
-    ;jsr Display4x4AboveTank
-    ;rts
-	; POZOR !!!
-.endp
-
 ;--------------------------------------------------------
 .proc DisplayTankNameAbove ;
     lda tankNr