White Flag works!

grafproc.asm

@@ -587,20 +587,20 @@ UnequalTanks
 ;-------------------------------------------------
 .proc drawtanks
 ;-------------------------------------------------
-    lda tanknr
+    lda TankNr
     pha
     ldx #$00
-    stx tanknr
+    stx TankNr
 
 DrawNextTank
     jsr drawtanknr
-    inc tanknr
-    ldx tanknr
+    inc TankNr
+    ldx TankNr
     Cpx NumberOfPlayers
     bne DrawNextTank
 
     pla
-    sta tankNr
+    sta TankNr
 
     rts
 .endp

scorch.asm

@@ -413,6 +413,27 @@ ManualShooting
     seq:rts
 
 AfterManualShooting
+	; White Flag handling
+	ldx TankNr
+	lda ActiveDefenceWeapon,x
+    cmp #ind_White_Flag_____ ; White Flag
+	bne StandardShoot
+	; --- white flag ---
+	mva #sfx_death_begin sfx_effect
+	jsr FlashTank	; first we flash tank
+    mva #1 Erase
+    jsr DrawTankNr	; and erase tank
+	mva #0 Erase
+    ldx TankNr
+	sta Energy,x	; clear tan energy
+	sta eXistenZ,x	; erase from existence
+	sta LASTeXistenZ,x	; to prevent explosion
+	sta ActiveDefenceWeapon,x	; deactivate White Flag
+	jsr PMoutofScreen
+    jsr drawtanks	; for restore PM
+	; --- white flag end ---
+	jmp NextPlayerShoots ; and we skip shoot
+StandardShoot
     inc noDeathCounter
 
     jsr DecreaseWeaponBeforeShoot
@@ -453,10 +474,8 @@ AfterExplode
 @
 
     ;temporary tanks removal (would fall down with soil)
-    mva TankNr tempor2
     mva #1 Erase
     jsr drawtanks
-    mva tempor2 TankNr
     mva #0 Erase
     lda FallDown2
     beq NoFallDown2