Display active joystick on weapon purchase/activation screens and game screen.

MANUAL_EN.md

@@ -52,6 +52,7 @@ Another [RETURN] key or joystick button press switches to the next player's shop
 
 The status line shows which player is currently allowed to take a shot and a set of other information:
 * player's tank name,
+* active joystick number
 * currently selected offensive weapon,
 * the player's remaining energy points and if he has an active defensive weapon that has its energy - in parentheses the energy level,
 * the angle and the direction of the barrel set by the player,

MANUAL_PL.md

@@ -51,6 +51,7 @@ Klawisz [RETURN] lub przycisk joysticka przechodzi do ekranu zakupów następneg
 
 W linii statusowej widoczna jest informacja o tym który z graczy aktualnie może oddać strzał oraz zestaw innych informacji:
 * nazwa czołgu gracza
+* numer aktywnego joysticka
 * wybrana aktualnie broń ofensywna
 * pozostała ilość punktów energii gracza i jeśli ma on aktywną broń defensywną posiadającą swój zasób energii - w nawiasie ten zasób
 * ustawiony przez gracza kąt nachylenia lufy i kierunek jej nachylenia

display_purchasedl.asm

@@ -3,7 +3,7 @@
 .IF *>0 ;this is a trick that prevents compiling this file alone
 ;---------------------------------------------------
 purchaseTextBuffer
- dta d"Player:             Cash:      0"  ; ZERO TO MAKE YOU RICHER ON THE SCREEN
+ dta d"Player:         *   Cash:      0"  ; ZERO TO MAKE YOU RICHER ON THE SCREEN
 
 ; DLs fragments (modified by game code)
 ; all Purchase DL :)

display_status.asm

@@ -4,7 +4,7 @@
 
 statusBuffer
      ; 0123456789012345678901234567890123456789
- dta d"Player:                                 "
+ dta d"Player:         *                       "
  dta d"Energy:        Angle:        Force:     "
  dta d"Round:     Wind:                        "
 

textproc.asm

@@ -329,11 +329,16 @@ GoToActivation
     tax
 NextChar03
     lda tanksnames,x
-    sta purchaseTextBuffer+8,y
+    sta purchaseTextBuffer+7,y
     inx
     iny
     cpy #$08
     bne NextChar03
+	; displaying number of active controller port
+	ldy JoystickNumber
+	lda digits+1,y
+	sta purchaseTextBuffer+17
+
     ; and we display cash of the given player
 
 ; here we must jump in after each purchase
@@ -1730,8 +1735,9 @@ DOTOldLowestValue
     sbw temp LineAddress4x4 temp2
     mva temp2 fx 
 
-    jsr Display4x4AboveTank
+    ;jsr Display4x4AboveTank
-    rts
+    ;rts
+	; POZOR !!!
 .endp
 
 ;--------------------------------------------------------
@@ -2322,6 +2328,10 @@ EndOfCredits
 .proc DisplayStatus
 ;-------------------------------------------------
 
+	; displaying number of active controller port
+	ldy JoystickNumber
+	lda digits+1,y
+	sta statusBuffer+17
     ;---------------------
     ;displaying symbol of the weapon
     ;---------------------
@@ -2332,7 +2342,7 @@ EndOfCredits
     ldx TankNr
     ldy ActiveWeapon,x
     lda WeaponSymbols,y
-    sta statusBuffer+18
+    sta statusBuffer+19
 
     ;---------------------
     ;displaying quantity of the given weapon
@@ -2340,7 +2350,7 @@ EndOfCredits
     lda ActiveWeapon,x
     jsr HowManyBullets
     sta decimal
-    mwa #statusBuffer+20 displayposition
+    mwa #statusBuffer+21 displayposition
     jsr displaybyte
 
     ;---------------------
@@ -2361,7 +2371,7 @@ EndOfCredits
     ldy #15
 @
       lda (temp),y
-      sta statusBuffer+23,y
+      sta statusBuffer+24,y
       dey
     bpl @-