Merge pull request #155 from pkali/develop

Develop

.gitignore

@@ -4,3 +4,4 @@ scorch.lab
 scorch.lst
 textproc.lab
 textproc.lst
+artwork/talk.as_

MANUAL_EN.md

@@ -8,7 +8,7 @@ On the first screen, you can configure gameplay options:
 * number of players (2 - 6) includes both human and computer-controlled players
 * the initial amount of cash of each player (2K is the optimal value we chose, but for short games, it is worth choosing a higher value)
 * gravity
-* maximum wind strength (wind is drawn at the beginning of each round, here you can choose how strong it can be)
+* maximum wind strength (wind is drawn at the beginning of each round or during the round between turns, here we can choose how strong it can be)
 * number of rounds in a game
 * missile speed (does not affect the flight path - only changes the apparent missile speed - does not change anything in the gameplay itself)
 * frequency of suicides :) - if for a number of turns the game has not recorded hits (tanks are constantly shooting inaccurately), after one of such misses a tank commits suicide - here you determine how long they can "shooting for the stars" :) - if only people play the optimal setting is "norm", in the case of computer-controlled players ... you choose.
@@ -24,7 +24,7 @@ On the first screen, you can configure gameplay options:
 
 Select options with cursor keys or a joystick.
 
-The [TAB] or [SELECT] key, and on the Atari 5200 console the [5] controller key change the color of the mountains (3 versions to choose).
+The [TAB] or [SELECT] key, and on the Atari 5200 console, the [5] controller key change the color of the mountains (3 versions to choose from) or (if the cursor indicates the wind strength selection option "Wind") change the way the wind strength is drawn from "every round" to "every turn" and vice versa. Drawing every turn is indicated by the "?" sign next to the word "Wind".
 
 The [RETURN] key or a joystick button moves to the next screen.
 
@@ -75,6 +75,7 @@ The keyboard controls here are simple, cursor keys or joystick: left/right - cha
 | [START] | N/A | speed up some game animations. |
 | [O] | [3] | end the current game and jump to the Game Over screen with a summary. The summary of the results does not take into account the current round of the game, but only the rounds completed earlier. This corresponds to pressing the [ESC] key with the difference that the summary and credits are displayed. |
 | [START] + [OPTION] | N/A | immediately force the end of the game (Game Over), just like [O] but without confirmation.
+| [G] | N/A | changes the mountain shading |
 | [ESC] | [*] | during the entire game at any time (unless the computer is playing, then sometimes you have to wait a while) you can press the [ESC] key, which allows you to abort the game and return to the beginning (of course, there is protection against accidental pressing). |
 | [Y] | [1] | when asked to abort or terminate the game - confirmation |
 
@@ -182,6 +183,8 @@ Only these points determine the order in the summary
 * **Auto Defense** - activates the mode of automatic activation of defensive weapons. After its activation, the tank automatically activates the strongest shield it has (consuming it, of course) at any time when there is no shield (also between shots of other players). At the same time, if the tank's energy level drops below 30 units, it automatically activates **Battery** if it has it. This weapon remains active until the end of the round and is indicated by the "computer" symbol before the name of the active defensive weapon in the status line. It is the second defensive weapon that does not deactivate other defensive weapons when used.
 * **Spy Hard** - Help for the forgetful :) . When activated, it shows a preview of information about the next opponents one by one. Left/Right - changes the "spied" tank. Fire/Space/Return/Esc - ends the "spying". This is the last defensive weapon, which does not deactivate other defensive weapons when used.
 
+Due to the different warhead tracking system of **MIRV** weapons, the **Bouncy Castle** and **Mag Deflector** defensive weapons only use the shielding function when hit by these weapons. In addition, **MIRV** warheads do not bounce or fly through sidewalls when falling!
+
 None of the shields protect against **Napalm**. **Bouncy Castle** or **Mag Deflector** on a direct hit will deflect it or carry it past, but just hit very close to a tank and its shield will not save it.
 
 **White Flag**, **Hovercraft** and **Nuclear Winter** weapons, when selected, require activation, this is accomplished by "firing a shot" after the selection of that weapon. Of course, the shot of the offensive weapon is then not fired, but only the selected defensive weapon is activated.

MANUAL_PL.md

@@ -7,7 +7,7 @@ Na pierwszym ekranie możemy skonfigurować opcje rozgrywki:
 * ilość graczy (2 - 6) obejmuje tak ludzi jak graczy sterowanych przez komputer
 * początkową ilość gotówki każdego z graczy (8k to wybrana przez nas wartość optymalna, lecz przy krótkich rozgrywkach warto wybrać większą wartość)
 * grawitacja
-* maksymalna siła wiatru (wiatr jest losowany na początku każdej z rund, tu możemy wybrać jak silny może być)
+* maksymalna siła wiatru (wiatr jest losowany na początku każdej z rund lub w czasie rundy pomiędzy turami, tu możemy wybrać jak silny może być)
 * liczba rozgrywanych rund
 * szybkość lotu pocisków (nie ma wpływu na tor lotu - zmienia jedynie widoczną prędkość rysowania - nie zmienia nic w samej rozgrywce)
 * częstotliwość samobójstw :) - jeśli przez ileś tur gra nie odnotowała trafień (czołgi ciągle strzelają niecelnie) jeden z takich pudłujących czołgów popełnia samobójstwo - tu określamy jak długo mogą “strzelać w próżnię” :) - jeśli grają tylko ludzie optymalne ustawienie to “norm”, w przypadku graczy sterowanych przez komputer… wedle uznania.
@@ -23,7 +23,7 @@ Na pierwszym ekranie możemy skonfigurować opcje rozgrywki:
 
 Wybór opcji klawiszami kursora lub joystickiem.
 
-Klawisz [TAB] lub [SELECT], a na konsoli Atari 5200 klawisz [5] kontrolera zmieniają kolor gór (3 wersje do wyboru).
+Klawisz [TAB] lub [SELECT], a na konsoli Atari 5200 klawisz [5] kontrolera zmieniają kolor gór (3 wersje do wyboru) lub (leśli kursor wskazuje opcję wyboru siły wiatru "Wind") zmieniają sposób losowania siły wiatru z "co rundę" na "co turę" i odwrotnie. Losowanie co turę jest sygnalizowane znakiem "?" przy słowie "Wind".
 
 Klawisz [RETURN] lub przycisk Joysticka przechodzi do następnego ekranu.
 
@@ -74,6 +74,7 @@ Tutaj klawiszologia jest prosta, klawisze kursora lub joystick: lewo/prawo - zmi
 | [START] | brak | przyspiesza/pomija niektóre animacje w grze |
 | [O] | [3] | wymuszenie zakończenia gry (Game Over). W podsumowaniu wyników nie jest brana pod uwagę przerwana właśnie runda rozgrywki, a wyłącznie rundy zakończone wcześniej. Odpowiada to wciśnięciu klawisza [ESC] z tą różnicą, że wyświetlane jest podsumowanie oraz creditsy. |
 | [START] + [OPTION] | brak | natychmiastowe wymuszenie zakończenia gry (Game Over), tak jak [O] ale bez potwierdzenia. |
+| [G] | brak | zmienia cieniowanie gór |
 | [ESC] | [*] | w czasie całej gry w dowolnym momencie (chyba że akurat gra komputer, wtedy czasem trzeba chwilę poczekać) można nacisnąć klawisz [ESC], który umożliwia przerwanie gry i powrót na początek (oczywiście jest zabezpieczenie przed przypadkowym naciśnięciem). |
 | [Y] | [1] | w przypadku pytania o przerwanie lub zakończenie gry - potwierdzenie decyzji |
 

README.md

@@ -51,6 +51,53 @@ With the advent of [fujinet](https://fujinet.online/) we are thinking about maki
 
 ## Changelog:
 
+###### Version 1.27
+2023-02-07
+
+Late evening edition. It is 2:11 am and I am writing this instead of dreaming of electric sheep.
+Our Senior Executive Art Director @+Adam+ ordered us to stop procrastinating and finally release the version with colorized mountains. So here it is. Enjoy :)
+Please note you can still press [Tab] or [5] in the main menu and revert to the classic or classy look of the "Polish rainbow" (it's a reference to a strangely accurate Wulffmorgenthaler comic strip: https://i.imgur.com/HMctP.jpg)
+Other changes:
+- nicer Lazy targeting and "visual Debug" for Lazy Boys
+- extreme memory optimizations to fit 2 new texts from @RB5200 based on "Sandford and Son"
+- fix for [G] key bug when turn wind changes were selected
+- fix for Lazy Boys deactivation bug
+- PAL mode now has got the full-color table, so it is possible to adjust colors better
+- the x-position of tanks was always adjusted to even X values, this is no more, which saves some hassle and unnecessary tank shakes left and right. As tanks are painted with sprites of a lower resolution, a rare artifact might appear here and there.
+- improved tank shapes
+
+###### Version 1.26
+2023-01-23
+
+Early morning edition. It is 5:11 am and I am writing this instead of dreaming of electric sheep.
+For the last 6 weeks, the versions we released had an awful bug - the conversations of tanks were completely invisible. Thanks for pointing this out, RB5200.
+- tanks talk to each other again
+- better stochastic non-blocking wait one frame
+- rare distance measurement bug fixed (rarely a tank survived a direct hit)
+- 5200: second fire (by RB5200)
+- "visual debug" mode in A800 version, triggered by pressing [CTRL]+[HELP]. It displays distances measured, laser aiming, and aiming technique. It leaves a mess on the screen, but it does not impair the game, just makes it a bit harder.
+
+
+###### Version 1.25
+2023-01-17
+
+Y2K Compliance Edition
+This version is 5200 SuperSystem focused.
+- the correct production year in the splash screens!!!
+- very rare hangups when accessing the inventory seemingly eliminated, thanks @RB5200 for testing!
+- a new feature - pressing [Tab] (atari800) or [5] (5200) when selecting the wind power switches wind mode to changing with each turn, which makes aiming arguably more challenging! It is indicated by "?" next to the "Wind" in the main menu.
+- pressing [G] during the game changes the color scheme (classic, Polish rainbow, Xmas).
+- all these changes were made possible thanks to the extensive code size optimization by @Pecus
+
+
+###### Version 1.23
+2023-01-01
+
+New year edition! Who could imagine?
+The new feature is that pressing [Tab] in the main menu now changes colors of the small tank area down the screen and makes it clear what color version you are going to run (classic/ Polish rainbow/ Christmas colors).
+Also a small gradient optimization. 
+
+
 ###### Version 1.22
 2022-12-24
 
@@ -639,4 +686,5 @@ For the first time Scorched Earth for Atari XL/XE (build 103) published.
 Together with Pecus we were working on this piece of code for four years and it does not look like it is accelerating so we decided to publish what we have. Last few weeks I was translating source code comments and labels to English to let other people work on this project with us. In other words Scorched Earth becomes an open source project :)
 Now it's your turn to help this idea happen!
 
-...transmission error...former history missing...
+...transmission error...former history missing...
+

ai.asm

@@ -545,10 +545,7 @@ skipThisPlayer
 	sta RandBoundaryHigh+1
     jsr RandomizeForce
 RepeatAim
-	lda ForceTableL,x
-	sta Force
-	lda ForceTableH,x
-	sta Force+1
+	jsr Table2Force
 	; wind correction 90+(wind/8)
 	mwa Wind temp2
 	:7 lsrw temp2

artwork/Scorch50.asm

@@ -760,7 +760,7 @@ quit
 	ini main
 ; ---
 
-	opt l-
+	;opt l-  ; this stops the listing
 
 .MACRO	SPRITES
 missiles

artwork/talk.asm

@@ -53,79 +53,81 @@ L49  dta d"DIE, TANK-SCUM!"
 L50  dta d"I'M GONNA BREAK YOUR FACE!"
 L51  dta d"MAMA SAID KNOCK YOU OUT!"
 L52  dta d"I HOPE YOU ENJOY PAIN!"
+L53  dta d"HOW'D YOU LIKE ONE ACROSS YOUR LIPS?"             ;(sanford and son)
 ;--------------------------------
-L53  dta d"PARTING IS SUCH SWEET SORROW... NOT!"
-L54  dta d"UGH!"
-L55  dta d"AARGH!"
-L56  dta d"AAAGGHHH!"
-L57  dta d"I'M MELTING!"
-L58  dta d"OOF.."
-L59  dta d"OH!"
-L60  dta d"EEEK!"
-L61  dta d"AACCH!"
-L62  dta d"I HATE IT WHEN THAT HAPPENS."
-L63  dta d"ONE DIRECT HIT CAN RUIN YOUR WHOLE DAY."
-L64  dta d"OH NO!"
-L65  dta d"NOT ME!"
-L66  dta d"OUCH."
-L67  dta d"OH NO, NOT AGAIN."
-L68  dta d"ANOTHER ONE BITES THE DUST."
-L69  dta d"GOODBYE."
-L70  dta d"HELP ME!"
-L71  dta d"FAREWELL, CRUEL WORLD."
-L72  dta d"REMEMBER THE ALAMO!"
-L73  dta d"OH MAN!"
-L74  dta d"DOOUGH!"
-L75  dta d"ANOTHER DAY, ANOTHER BOMB."
-L76  dta d"THIS IS THE END, MY ONLY FRIEND."
-L77  dta d"VERY FUNNY."
-L78  dta d"THE FAT LADY SANG."
-L79  dta d"WHY DOES EVERYTHING HAPPEN TO ME?"
-L80  dta d"I'M GOING DOWN."
-L81  dta d"I'VE GOT A BAD FEELING ABOUT THIS."
-L82  dta d"CRAPOLA."
-L83  dta d"POW!"
-L84  dta d"BIF!"
-L85  dta d"BAM!"
-L86  dta d"ZONK!"
-L87  dta d"I SHOULD'VE LISTENED TO MY MOTHER..."
-L88  dta d"I WALK THROUGH THE VALLEY OF THE SHADOW..."
-L89  dta d"WHAT WAS THAT NOISE?"
-L90  dta d"MAMA SAID THERE'D BE DAYS LIKE THIS."
-L91  dta d"ITS JUST ONE OF THOSE DAYS..."
-L92  dta d"I SEE A BRIGHT LIGHT..."
-L93  dta d"MOMMY? IS THAT YOU?"
-L94  dta d"I LET YOU HIT ME!"
-L95  dta d"SUCKER SHOT!"
-L96  dta d"I DIDN'T WANT TO LIVE ANYWAY."
-L97  dta d"-<SOB>-"
-L98  dta d"WAS THAT AS CLOSE AS I THINK IT WAS?"
-L99  dta d"JOIN THE ARMY, SEE THE WORLD THEY SAID."
-L100 dta d"IT WASN'T JUST A JOB IT WAS AN ADVENTURE!"
-L101 dta d"I DIDN'T LIKE VIOLENCE ANYWAY!"
-L102 dta d"I THOUGHT YOU LIKED ME?"
-L103 dta d"CTO XYEB"
-L104 dta d"I THINK THIS GUY'S A LITTLE CRAZY."
-L105 dta d"SOMEHOW I DON'T FEEL LIKE KILLING ANYMORE."
-L106 dta d"HEY! KILLIN' AIN'T COOL."
-L107 dta d"GEE... THANKS."
-L108 dta d"I'VE FALLEN AND I CAN'T GET UP!"
-L109 dta d"911?"
-L110 dta d"OH NO! HERE I BLOW AGAIN!"
-L111 dta d"I'LL BE BACK..."
-L112 dta d"HEY - I'VE GOT LAWYERS."
-L113 dta d"TIME TO CALL 1-900-SUE-TANK."
+L54  dta d"PARTING IS SUCH SWEET SORROW... NOT!"
+L55  dta d"UGH!"
+L56  dta d"AARGH!"
+L57  dta d"AAAGGHHH!"
+L58  dta d"I'M MELTING!"
+L59  dta d"OOF.."
+L60  dta d"OH!"
+L61  dta d"EEEK!"
+L62  dta d"AACCH!"
+L63  dta d"I HATE IT WHEN THAT HAPPENS."
+L64  dta d"ONE DIRECT HIT CAN RUIN YOUR WHOLE DAY."
+L65  dta d"OH NO!"
+L66  dta d"NOT ME!"
+L67  dta d"OUCH."
+L68  dta d"OH NO, NOT AGAIN."
+L69  dta d"ANOTHER ONE BITES THE DUST."
+L70  dta d"GOODBYE."
+L71  dta d"HELP ME!"
+L72  dta d"FAREWELL, CRUEL WORLD."
+L73  dta d"REMEMBER THE ALAMO!"
+L74  dta d"OH MAN!"
+L75  dta d"DOOUGH!"
+L76  dta d"ANOTHER DAY, ANOTHER BOMB."
+L77  dta d"THIS IS THE END, MY ONLY FRIEND."
+L78  dta d"VERY FUNNY."
+L79  dta d"THE FAT LADY SANG."
+L80  dta d"WHY DOES EVERYTHING HAPPEN TO ME?"
+L81  dta d"I'M GOING DOWN."
+L82  dta d"I'VE GOT A BAD FEELING ABOUT THIS."
+L83  dta d"CRAPOLA."
+L84  dta d"POW!"
+L85  dta d"BIF!"
+L86  dta d"BAM!"
+L87  dta d"ZONK!"
+L88  dta d"I SHOULD'VE LISTENED TO MY MOTHER..."
+L89  dta d"I WALK THROUGH THE VALLEY OF THE SHADOW..."
+L90  dta d"WHAT WAS THAT NOISE?"
+L91  dta d"MAMA SAID THERE'D BE DAYS LIKE THIS."
+L92  dta d"ITS JUST ONE OF THOSE DAYS..."
+L93  dta d"I SEE A BRIGHT LIGHT..."
+L94  dta d"MOMMY? IS THAT YOU?"
+L95  dta d"I LET YOU HIT ME!"
+L96  dta d"SUCKER SHOT!"
+L97  dta d"I DIDN'T WANT TO LIVE ANYWAY."
+L98  dta d"-<SOB>-"
+L99  dta d"WAS THAT AS CLOSE AS I THINK IT WAS?"
+L100  dta d"JOIN THE ARMY, SEE THE WORLD THEY SAID."
+L101 dta d"IT WASN'T JUST A JOB IT WAS AN ADVENTURE!"
+L102 dta d"I DIDN'T LIKE VIOLENCE ANYWAY!"
+L103 dta d"I THOUGHT YOU LIKED ME?"
+L104 dta d"CTO XYEB"
+L105 dta d"I THINK THIS GUY'S A LITTLE CRAZY."
+L106 dta d"SOMEHOW I DON'T FEEL LIKE KILLING ANYMORE."
+L107 dta d"HEY! KILLIN' AIN'T COOL."
+L108 dta d"GEE... THANKS."
+L109 dta d"I'VE FALLEN AND I CAN'T GET UP!"
+L110 dta d"911?"
+L111 dta d"OH NO! HERE I BLOW AGAIN!"
+L112 dta d"I'LL BE BACK..."
+L113 dta d"HEY - I'VE GOT LAWYERS."
+L114 dta d"TIME TO CALL 1-900-SUE-TANK."
+L115 dta d"YOU BIG DUMMY!"                                    ;(sanford and son)
 LEND
 OffensiveTextTableL
-    dta <L0,<L1,<L2,<L3,<L4,<L5,<L6,<L7,<L8,<L9,<L10,<L11,<L12,<L13,<L14,<L15,<L16,<L17,<L18,<L19,<L20,<L21,<L22,<L23,<L24,<L25,<L26,<L27,<L28,<L29,<L30,<L31,<L32,<L33,<L34,<L35,<L36,<L37,<L38,<L39,<L40,<L41,<L42,<L43,<L44,<L45,<L46,<L47,<L48,<L49,<L50,<L51,<L52
-    dta <L53,<L54,<L55,<L56,<L57,<L58,<L59,<L60,<L61,<L62,<L63,<L64,<L65,<L66,<L67,<L68,<L69,<L70,<L71,<L72,<L73,<L74,<L75,<L76,<L77,<L78,<L79,<L80,<L81,<L82,<L83,<L84,<L85,<L86,<L87,<L88,<L89,<L90,<L91,<L92,<L93,<L94,<L95,<L96,<L97,<L98,<L99,<L100,<L101,<L102,<L103,<L104,<L105,<L106,<L107,<L108,<L109,<L110,<L111,<L112,<L113
+    dta <L0,<L1,<L2,<L3,<L4,<L5,<L6,<L7,<L8,<L9,<L10,<L11,<L12,<L13,<L14,<L15,<L16,<L17,<L18,<L19,<L20,<L21,<L22,<L23,<L24,<L25,<L26,<L27,<L28,<L29,<L30,<L31,<L32,<L33,<L34,<L35,<L36,<L37,<L38,<L39,<L40,<L41,<L42,<L43,<L44,<L45,<L46,<L47,<L48,<L49,<L50,<L51,<L52,<L53
+    dta <L54,<L55,<L56,<L57,<L58,<L59,<L60,<L61,<L62,<L63,<L64,<L65,<L66,<L67,<L68,<L69,<L70,<L71,<L72,<L73,<L74,<L75,<L76,<L77,<L78,<L79,<L80,<L81,<L82,<L83,<L84,<L85,<L86,<L87,<L88,<L89,<L90,<L91,<L92,<L93,<L94,<L95,<L96,<L97,<L98,<L99,<L100,<L101,<L102,<L103,<L104,<L105,<L106,<L107,<L108,<L109,<L110,<L111,<L112,<L113,<L114,<L115
     dta <LEND
 OffensiveTextTableH
-    dta >L0,>L1,>L2,>L3,>L4,>L5,>L6,>L7,>L8,>L9,>L10,>L11,>L12,>L13,>L14,>L15,>L16,>L17,>L18,>L19,>L20,>L21,>L22,>L23,>L24,>L25,>L26,>L27,>L28,>L29,>L30,>L31,>L32,>L33,>L34,>L35,>L36,>L37,>L38,>L39,>L40,>L41,>L42,>L43,>L44,>L45,>L46,>L47,>L48,>L49,>L50,>L51,>L52
-    dta >L53,>L54,>L55,>L56,>L57,>L58,>L59,>L60,>L61,>L62,>L63,>L64,>L65,>L66,>L67,>L68,>L69,>L70,>L71,>L72,>L73,>L74,>L75,>L76,>L77,>L78,>L79,>L80,>L81,>L82,>L83,>L84,>L85,>L86,>L87,>L88,>L89,>L90,>L91,>L92,>L93,>L94,>L95,>L96,>L97,>L98,>L99,>L100,>L101,>L102,>L103,>L104,>L105,>L106,>L107,>L108,>L109,>L110,>L111,>L112,>L113
+    dta >L0,>L1,>L2,>L3,>L4,>L5,>L6,>L7,>L8,>L9,>L10,>L11,>L12,>L13,>L14,>L15,>L16,>L17,>L18,>L19,>L20,>L21,>L22,>L23,>L24,>L25,>L26,>L27,>L28,>L29,>L30,>L31,>L32,>L33,>L34,>L35,>L36,>L37,>L38,>L39,>L40,>L41,>L42,>L43,>L44,>L45,>L46,>L47,>L48,>L49,>L50,>L51,>L52,>L53
+    dta >L54,>L55,>L56,>L57,>L58,>L59,>L60,>L61,>L62,>L63,>L64,>L65,>L66,>L67,>L68,>L69,>L70,>L71,>L72,>L73,>L74,>L75,>L76,>L77,>L78,>L79,>L80,>L81,>L82,>L83,>L84,>L85,>L86,>L87,>L88,>L89,>L90,>L91,>L92,>L93,>L94,>L95,>L96,>L97,>L98,>L99,>L100,>L101,>L102,>L103,>L104,>L105,>L106,>L107,>L108,>L109,>L110,>L111,>L112,>L113,>L114,>L115
     dta >LEND
 NumberOfOffensiveTexts=54
-NumberOfDeffensiveTexts=60
+NumberOfDeffensiveTexts=62
 .endp
 hoverFull dta d"MY HOVERCRAFT IS FULL OF EELS!"
 hoverFullEnd

constants.asm

@@ -67,10 +67,14 @@ GradientAddrL
 	.by <dliColorsFore, <dliColorsFore, <dliColorsFore2
 GradientAddrH
 	.by >dliColorsFore, >dliColorsFore, >dliColorsFore2
-dliColorsFore2
+dliColorsFore2		; colors for NTSC
     .by $0a											; one mountains color
 	.by $7e,$7a,$7c,$6a,$6c,$58,$5a,$48,$4a,$38
 	.by $3a,$16,$18,$e6,$e8,$d4,$d6,$b4,$b6,$b6
+dliColorsFore2PAL	; colors for PAL
+    .by $0a											; one mountains color
+	.by $7e,$7a,$7c,$6a,$6c,$58,$5a,$48,$4a,$38
+	.by $3a,$16,$18,$e6,$e8,$c4,$c6,$a4,$a6,$a6
 
 ;-----------
 pmtableL ; addressess of the P/M memory for 6 tanks
@@ -599,7 +603,7 @@ CreditsStart
 	dta d"You were playin",d"g"*
 	dta d"Scorc",d"h"*
 	dta d"Warsaw, Miam",d"i"*
-	dta d"2000-202",d"2"*
+	dta d"2000-202",d"3"*
 	dta d" "*
 	dta d"Programmin",d"g"*
 	dta d"Tomasz 'Pecus' Peck",d"o"*
@@ -626,9 +630,13 @@ CreditsStart
 	dta d"Bocianu, Probabilitydragon, EnderDude",d","*
 	dta d"Beeblebrox, KrzysRog, lopezpb, Dracon",d","*
 	dta d"brad-colbert, archon800, nowy80",d","*
-	dta d"Shaggy the Atarian, RetroBorsuk, ZP",d"H"*
+	dta d"Shaggy the Atarian, RetroBorsuk, ZPH"
 	.IF target = 5200
-    dta d"x-usr(1536), Aking, JAC!, phaero",d"n"*
+	dta d","*
+    dta d"x-usr(1536), Aking, JAC!, phaeron",d","*
+	dta d"RB520",d"0"*
+	.ELSE
+	dta d" "*
 	.ENDIF
 	dta d" "*
 	dta d"Additional testin",d"g"*
@@ -640,9 +648,13 @@ CreditsStart
 	dta d"         "*
 CreditsEnd
 .IF target = 5200
-  CreditsLines=37
+  CreditsLines=38
 .ELSE
   CreditsLines=42  ; 34 in reality. add 7?
 .ENDIF
-
+.IF target = 5200
+  ; Atari 5200 splash
+  NewSplashText=*
+	dta d"copyright 2023 atari"
+.ENDIF
 .endif

display_static.asm

@@ -9,7 +9,7 @@
 OptionsScreen
  dta d"Welcome to Scorch v. "
  build  ; 4 bytes from scorch.asm (fancy method) :) 
- dta                          d"  (un)2000-2022"
+ dta                          d"  (un)2000-2023"
 
 .IF TARGET = 800
  dta d" Please select option with cursor keys  "

grafproc.asm

@@ -140,8 +140,13 @@ LineParametersReady
     ora DX+1
     ora DY
     ora DY+1
-    jeq EndOfDraw
+	bne NotOnePoint
+	; length=0
+	sta LineLength
+	sta LineLength+1
+    jmp EndOfDraw
 
+NotOnePoint
     ; here we have DX,DY,XK and we know which operations
     ; are to be performed with these factors when doing PLOT
     ; (accordingly to given bits of 'HowToDraw')
@@ -219,6 +224,8 @@ PutPixelinDraw
     bit drawFunction
     bpl @+
     inw LineLength
+	bit Vdebug
+	bmi MeasureVisualisation
     jmp ContinueDraw  ; was `bne` - not good, because LineLength starts from $ffff
 @
     bvc @+
@@ -266,6 +273,7 @@ CheckCollisionDraw
 StopHitChecking
     jmp ContinueDraw
 @
+MeasureVisualisation
     jsr plot   
 
 ContinueDraw
@@ -543,16 +551,20 @@ NotHigherByte02
     sec
     lda xtankstableL,x
     sbc #$0f
+	; and clear lowest bit to be sure that the X coordinate is even
+	; (this is to have P/M background look nice)
+	; "AND" does not change "Carry" bit.
+	; x correction for P/M
+	; --
+	.IF XCORRECTION_FOR_PM = 1
+	and #$fe
+	.ENDIF
+	; --
     sta xtankstableL,x
     bcs NotHigherByte01
     dec xtankstableH,x
 NotHigherByte01
 
-; and clear lowest bit to be sure that the X coordinate is even
-; (this is to have P/M background look nice)
-    lda xtankstableL,x
-    and #$fe
-    sta xtankstableL,x
     inx
     Cpx NumberOfPlayers
     bne StillRandomize02
@@ -1200,7 +1212,10 @@ DoNotDrawParachute
     ; If it is odd then it must be corrected because otherwise
     ; P/M graphics background would not look OK
 ;    ldx TankNr
-    lda XtanksTableL,x
+	; x correction for P/M
+	; --
+	.IF XCORRECTION_FOR_PM = 1
+     lda XtanksTableL,x
     and #$01
     beq EndOfFall ; if it is even then it is the end
     ; and if not, we push it one pixel the way it was falling before
@@ -1214,6 +1229,8 @@ ForceFallLeft
 	sta UnderTank1
 	sty UnderTank2
 	jmp TankFallsX
+	.ENDIF
+	; --
 EndOfFall
     mva #1 Erase
 ;    ldx TankNr
@@ -2025,6 +2042,311 @@ EndPut4x4
     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.
+    ; Pretty cool, eh!
+    ;parameters are:
+    ;Y - number of tank above which text is displayed
+    ;fx - length of text
+    ;LineAddress4x4 - address of the text
+
+    ;lets calculate position of the text first!
+    ;that's easy because we have number of tank
+    ;and xtankstableL and H keep X position of a given tank
+
+    lda xtankstableL,y
+    sta temp
+    lda xtankstableH,y
+    sta temp+1
+    ;now we should substract length of the text-1
+    ;temp2 = (fx-1)*2
+    ldy fx
+    dey
+    tya
+    asl
+    sta temp2
+    mva #0 temp2+1
+    ;now we have HALF length in pixels
+    ;stored in temp2
+
+    ;here we assume max length of text
+    ;to display is 127 chars, but later it turns out it must be max 63!
+
+    sbw temp temp2 ; here begin of the text is in TEMP !!!!
+    ;now we should check overflows
+    ;lda temp+1  ; opty
+    bpl DOTNnotLessThanZero
+      ;less than zero, so should be zero
+      mwa #0 temp
+    beq DOTNnoOverflow
+
+DOTNnotLessThanZero
+    ;so check if end larger than screenwidth
+
+
+    lda fx
+    asl
+    asl
+    ;length in pixels -
+    ;text length max 63 chars !!!!!!!!
+
+
+    clc
+    adc temp
+    sta temp2
+    lda #0
+    adc temp+1
+    sta temp2+1
+    ;now in temp2 is end of the text in pixels
+    ;so check if not greater than screenwitdth
+    cpw temp2 #screenwidth
+    bcc DOTNnoOverflow
+
+    ;if end is greater than screenwidth
+    ;then screenwidth - length is fine
+    lda fx
+    asl
+    asl
+    sta temp
+    mva #0 temp+1
+
+    sec
+    lda #<(screenwidth-1)
+    sbc temp
+    sta temp
+    lda #>(screenwidth-1)
+    sbc temp+1
+    sta temp+1
+DOTNnoOverflow
+    ;here in temp we have really good x position of text
+
+    mwa temp LineXdraw
+
+    ;now let's get y position
+    ;we will try to put text as low as possible
+    ;just above mountains (so mountaintable will be checked)
+    lda fx
+    asl
+    asl
+    tay
+    ;in temp there still is X position of text
+    ;if we add temp and Y we will get end of the text
+    ;so, lets go through mountaintable and look for
+    ;the lowest value within
+    ;Mountaitable+temp and Mountaitable+temp+Y
+
+    adw temp #MountainTable
+
+    mva #screenheight temp2 ;initialisation of the lowest value
+
+DOTLowestMountainValueLoop
+    lda (temp),y
+    cmp temp2
+    bcs DOTOldLowestValue  ;old lowest value
+    ;new lowest value
+    sta temp2
+DOTOldLowestValue
+    dey
+    cpy #$ff
+    bne DOTLowestMountainValueLoop
+
+    sec
+    lda temp2
+    sbc #(4+9) ;9 pixels above ground (and tanks...)
+    sta LineYdraw
+
+    jmp TypeLine4x4.noLengthNoColor  ; rts
+
+.endp
+
+;--------------------------------------------------------
+.proc DisplayTankNameAbove ;
+    lda tankNr
+    :3 asl  ; *8
+    clc
+    adc #<TanksNames
+    sta temp  ; TextAddress
+    lda #0
+    adc #>Tanksnames
+    sta temp+1  ; TextAddress+1
+    mwa temp LineAddress4x4
+
+    ;find length of the tank's name
+    ldy #7
+@
+      lda (temp),y
+      bne end_found
+      dey
+    bne @-
+   
+end_found
+    iny
+    sty fx
+    ldy tankNr
+    jsr Display4x4AboveTank
+    rts
+.endp
+
+;-------------------------------
+.proc TypeLine4x4 ;
+;-------------------------------
+    ;this routine prints line of length `fx`
+    ;address in LineAddress4x4
+    ;starting from LineXdraw, LineYdraw
+
+    lda #14 ; default length of 4x4 texts
+    sta fx
+
+variableLength
+    lda #$ff  ; $ff - visible characters, $00 - clearing
+
+staplot4x4color
+    sta plot4x4color
+noLengthNoColor
+
+    ldy #0
+    sty LineCharNr
+
+TypeLine4x4Loop
+    ldy LineCharNr
+
+    lda (LineAddress4x4),y
+    and #$3f ;always CAPITAL letters
+    sta CharCode4x4
+    mwa LineXdraw dx
+    mva LineYdraw dy
+	mva #0 dy+1  ;	dy is 2 bytes value
+    jsr PutChar4x4 ;type empty pixels as well!
+    adw LineXdraw #4
+    inc:lda LineCharNr
+    cmp fx
+    bne TypeLine4x4Loop
+
+EndOfTypeLine4x4
+    rts
+.endp
+
+
+;--------------------------------
+.proc AreYouSure
+;using 4x4 font
+    
+    mva #4 ResultY  ; where seppuku text starts Y-wise on the screen
+    
+    ;top frame
+    mva ResultY LineYdraw
+    jsr TL4x4_top
+    adb ResultY  #4 ;next line
+    
+    ;sure?
+    mwa #areYouSureText LineAddress4x4
+    jsr _sep_opty    
+    ;bottom frame
+    mva ResultY LineYdraw
+    jsr TL4x4_bottom
+    
+
+    jsr GetKey
+    cmp #@kbcode._Y  ; $2b  ; "Y"
+    bne @+
+    mva #$80 escFlag
+    bne skip01
+@    mva #0 escFlag
+skip01
+    jsr WaitForKeyRelease
+    
+    ;clean
+    mva #3 di
+    mva #4 ResultY
+@
+      mva #$ff plot4x4color
+      mwa #lineClear LineAddress4x4
+      jsr _sep_opty  
+      dec di
+      bne @-
+
+quit_areyousure
+    rts
+.endp
+
+.proc _sep_opty
+      mwa #((ScreenWidth/2)-(8*4)) LineXdraw  ; centering
+      mva ResultY LineYdraw
+      jsr TypeLine4x4
+      adb ResultY  #4 ;next line
+    rts
+.endp
+
+;--------------------------------
+.proc DisplaySeppuku
+;using 4x4 font
+    
+
+    mva #20 fs  ; temp, how many times blink the billboard
+seppuku_loop
+      lda CONSOL  ; turbo mode
+	  and #%00000001 ; START KEY
+      sne:mva #1 fs  ; finish it     
+
+      mva #4 ResultY  ; where seppuku text starts Y-wise on the screen
+      
+      ;top frame
+      mva ResultY LineYdraw
+      jsr TL4x4_top
+      adb ResultY  #4 ;next line
+      
+      ;seppuku
+      mwa #seppukuText LineAddress4x4
+      jsr _sep_opty
+            
+      ;bottom frame
+      mva ResultY LineYdraw
+      jsr TL4x4_bottom  ; just go
+
+    ;clean seppuku
+    
+    mva #3 di
+    ;mva #4 ResultY
+    lda #4
+    sta ResultY
+loplop ;@
+      mwa #lineClear LineAddress4x4
+      jsr _sep_opty
+  
+      dec di
+      bne loplop ;@-
+
+     dec fs
+    jne seppuku_loop
+
+quit_seppuku
+    rts
+   
+.endp
+
+;--------------------------------------------------
 .proc SetMainScreen
 ;    mva #0 dmactls 
     SetDLI DLIinterruptGraph  ; jsr SetDLI for graphics (game) screen
@@ -2190,19 +2512,20 @@ ybarrel
 .proc PMoutofScreen
 ;--------------------------------------------------
     lda #$00 ; let all P/M disappear
-    :8 sta hposp0+#
+	ldy #7
+@	sta hposp0,y
+	dey
+	bpl @-
+    ;:8 sta hposp0+#	; optimized... but Y!
     rts
 .endp
 ;--------------------------------------------------
-.proc ColorsOfSprites     
-    lda TankColoursTable ; colours of sprites under tanks
-    sta PCOLR0
-    lda TankColoursTable+1
-    sta PCOLR1
-    lda TankColoursTable+2
-    sta PCOLR2
-    lda TankColoursTable+3
-    sta PCOLR3
+.proc ColorsOfSprites
+	ldy #3
+@	lda TankColoursTable,y ; colours of sprites under tanks
+	sta PCOLR0,y
+	dey
+	bpl @-
     LDA TankColoursTable+4
     STA COLOR3     ; joined missiles (5th tank)
     rts

interrupts.asm

@@ -0,0 +1,267 @@
+;	@com.wudsn.ide.asm.mainsourcefile=scorch.asm
+
+    .IF *>0 ;this is a trick that prevents compiling this file alone
+
+;--------------------------------------------------
+.proc DLIinterruptGraph
+	pha
+	phy
+	ldy dliCounter
+	lda dliColorsBack,y
+    .IF TARGET = 800
+	    nop  ; necessary on 800 because DLIs take less time, jitter visible without it
+		nop
+		nop
+    .ENDIF
+	nop
+	nop
+    sta COLPF1
+	lda GradientNr
+	bne GoGradient
+	ldy #$ff	; one mauntain color
+GoGradient
+	iny
+	lda (GradientColors),y		; mountains colors array
+	sta COLPF2
+	inc dliCounter
+    ply
+    pla
+    rti
+.endp
+;--------------------------------------------------
+.proc DLIinterruptOptions
+	pha
+	phy
+	lda #0	; background color
+    sta COLPF1
+	ldy GradientNr
+	beq @+
+	ldy #1
+@	lda (GradientColors),y		; mountains colors array
+	sta COLPF2
+	ply
+    pla
+    rti
+.endp
+;--------------------------------------------------
+.proc DLIinterruptGameOver
+	pha
+	phy
+	lda dliCounter
+	bne EndofPMG
+    lda #%00100001	; playfield after P/M - prior=1
+	;STA WSYNC
+    sta PRIOR
+	bne EndOfDLI_GO
+EndofPMG
+	cmp #1
+	bne ColoredLines
+    lda #%00100100	; playfield before P/M
+	;STA WSYNC
+    sta PRIOR
+	bne EndOfDLI_GO
+ColoredLines
+	cmp #9
+	beq CreditsScroll
+	tay
+	lda GameOverColoursTable-3,y	; -2 because this is DLI nr 2 and -1 (labels line)
+	ldy #$0a	; text colour (brightnes)
+	;STA WSYNC
+	sta COLPF2
+	sty COLPF1
+	bne EndOfDLI_GO
+CreditsScroll
+	lda #$00
+	sta COLPF2
+EndOfDLI_GO
+	inc dliCounter
+	ply
+	pla
+	rti
+.endp
+;--------------------------------------------------
+.proc DLIinterruptText
+    pha
+	lda dliCounter
+	bne MoreBarsColorChange
+    lda #TextBackgroundColor
+	;sta WSYNC
+    sta COLPF2
+    mva #TextForegroundColor COLPF3
+	bne EndOfDLI_Text
+MoreBarsColorChange
+	and #%00000001
+	rol
+	sta COLPF2
+EndOfDLI_Text
+	inc dliCounter
+    pla
+DLIinterruptNone
+	rti
+	
+.endp
+;--------------------------------------------------
+.proc VBLinterrupt
+	mva #0 dliCounter
+	mva #$02 DliColorBack
+	
+	lda PAL
+	and #%00001110
+	beq itsPAL
+	;it is NTSC here
+    dec NTSCcounter
+    bne itsPAL
+    mva #6 NTSCcounter
+    bne SkippedIfNTSC ; skip doing VBL things each 6 frames in Amerika, Amerika
+                ; We're all living in Amerika, Coca Cola, Wonderbra
+
+itsPAL
+    ; pressTimer is trigger tick counter. always 50 ticks / s
+    bit:smi:inc pressTimer ; timer halted if >127. max time measured 2.5 s
+	
+SkippedIfNTSC
+
+	bit RMT_blocked
+	bmi SkipRMTVBL
+    ; ------- RMT -------
+	lda sfx_effect
+    bmi lab2
+    asl @                       ; * 2
+    tay                         ;Y = 2,4,..,16  instrument number * 2 (0,2,4,..,126)
+    ldx #0                      ;X = 0          channel (0..3 or 0..7 for stereo module)
+    lda #0                      ;A = 0          note (0..60)
+    bit noSfx
+    smi:jsr RASTERMUSICTRACKER+15   ;RMT_SFX start tone (It works only if FEAT_SFX is enabled !!!)
+
+    lda #$ff
+    sta sfx_effect              ;reinit value
+lab2
+    jsr RASTERMUSICTRACKER+3    ;1 play
+    ; ------- RMT -------
+SkipRMTVBL	   
+	bit ScrollFlag
+	bpl EndOfCreditsVBI
+CreditsVBI
+	inc CreditsVScrol
+	lda CreditsVScrol
+	cmp #32		;not too fast
+	beq nextlinedisplay
+	:2 lsr		;not too fast
+	sta VSCROL
+	jmp EndOfCreditsVBI
+nextlinedisplay
+	lda #0
+	sta CreditsVScrol
+	sta VSCROL
+	clc
+	lda DLCreditsAddr
+	adc #40
+	sta DLCreditsAddr
+	bcc @+
+	inc DLCreditsAddr+1
+@
+	cmp #<CreditsLastLine
+	bne EndOfCreditsVBI
+	lda DLCreditsAddr+1
+	cmp #>CreditsLastLine
+	bne EndOfCreditsVBI
+;	adw DLCreditsAddr #40
+;	cpw DLCreditsAddr #CreditsLastLine
+;	bne EndOfCreditsVBI
+	mwa #Credits DLCreditsAddr
+EndOfCreditsVBI
+	.IF TARGET = 5200
+		lda SkStatSimulator
+		bmi @+
+		inc SkStatSimulator
+@
+		lda JoystickNumber		; select port
+		ora #%00000100          ; Speaker off, Pots enabled
+        sta CONSOL5200
+
+        center = 114            ;Read analog stick and make it look like a digital stick
+        threshold = 60
+		
+		lda JoystickNumber
+		asl
+		tax
+        lda paddl0,x            ;Read POT0 value (horizontal position)
+        cmp #center+threshold       ;Compare with right threshold
+        rol stick0          ;Feed carry into digital stick value
+        cmp #center-threshold       ;Compare with left threshold
+        rol stick0          ;Feed carry into digital stick value
+    
+        lda paddl1,x            ;Read POT1 value (vertical position)
+        cmp #center+threshold       ;Compare with down threshold
+        rol stick0          ;Feed carry into digital stick value
+        cmp #center-threshold       ;Compare with down threshold
+        rol stick0          ;Feed carry into digital stick value
+    
+        lda stick0          ;0 indicates a press so the right/down values need to be inverted
+        eor #2+8
+        and #$0f
+        sta stick0
+		
+		ldx JoystickNumber
+		; check shift key (5200 second fire button)
+		lda SKSTAT
+		:3 lsr		; third bit
+		and trig0,x	; and first button	
+		;lda trig0,x
+		sta strig0        ;Move hardware to shadow
+        
+        mva chbas chbase
+    
+        lda skstat          ;Reset consol key shadow is no key is pressed anymore
+        and #4
+        beq @+
+          mva #consol_reset consol
+          mva #@kbcode._none kbcode
+@
+
+        pla
+        tay
+        pla
+        tax
+        pla
+		rti
+    .ELSE	
+		; support for joysticks :)
+		ldx JoystickNumber
+		lda STICK0,x
+		sta STICK0
+		lda STRIG0,x
+		sta STRIG0
+		jmp XITVBV
+	.ENDIF
+.endp
+    .IF TARGET = 5200
+.proc kb_continue
+    sta kbcode          ;Store key code in shadow.
+	mva #0 SkStatSimulator
+exit    pla
+    tay
+    pla
+    tax
+    pla
+    rti
+.endp    
+    .ENDIF
+
+;--------------------------------------------------
+.macro SetDLI
+;	SetDLI #WORD
+;	Initialises Display List Interrupts
+         LDY # <:1
+         LDX # >:1
+		 jsr _SetDLIproc
+.endm
+.proc _SetDLIproc
+	LDA #$C0
+	STY VDSLST
+	STX VDSLST+1
+	STA NMIEN
+	rts
+.endp
+
+    .ENDIF

lib/5200MACRO.ASM

@@ -74,23 +74,24 @@
 
          .ENDM
 ;-------------------------------------
-         .MACRO WAIT
+	.MACRO WAIT
 ;	WAIT
 ;	waits one frame (1/50 s(PAL) or 1/60s(NTSC))
-?zero	 LDA VCOUNT
-		cmp #$05
-		 bcc ?zero
-		 cmp #$70
-		 bcc ?WA
-		 sbc #10	; last lines correction
-?WA		 cmp VCOUNT
-		 beq ?WA
-		 bcc ?WA
-?WFRAME	 cmp VCOUNT
-		 beq ?nowait
-		 bcs ?WFRAME
-?nowait
-         .ENDM
+?ze	LDA VCOUNT
+	cmp #16	; if line<16 then wait for line>15 (long VBI protection)
+	bcc ?ze
+	sbc #10	; last lines correction
+?wa	cmp VCOUNT
+	bcc ?wa
+?wf	cmp VCOUNT
+	bcs ?wf
+	.ENDM
+;-------------------------------------
+	.macro waitRTC
+	lda RTCLOK+1
+?wa	cmp RTCLOK+1
+	beq ?wa
+	.endm
 ;-------------------------------------
     .macro negw
     ; negate the given word (0-a)

lib/MACRO.ASM

@@ -51,6 +51,28 @@
          STX $0201
          STA NMIEN
          .ENDM
+;-------------------------------------
+        .MACRO VDL
+;   VDL #WORD
+;   Changes Display List addres
+; and sets width of the screen
+;    vdl dl,$01 - narrow screen (32 bytes)
+;    vdl dl,$02 - normal screen (40 bytes)
+;    vdl dl,$03 - wide screen   (48 bytes)
+;       (works only with system interrupts ON)
+
+         .if %0=2
+           lda dmactls
+           and #$fc
+           ora #%2
+           sta dmactls
+         .endif
+
+         LDA # <%1
+         STA DLPTRS
+         LDA # >%1
+         STA DLPTRS+1
+         .ENDM
 ;-------------------------------------
       .MACRO halt
 ?stop  
@@ -73,23 +95,24 @@
          PLA
          .ENDM
 ;-------------------------------------
-         .MACRO WAIT
+	.MACRO WAIT
 ;	WAIT
 ;	waits one frame (1/50 s(PAL) or 1/60s(NTSC))
-?zero	 LDA VCOUNT
-		cmp #$05
-		 bcc ?zero
-		 cmp #$70
-		 bcc ?WA
-		 sbc #10	; last lines correction
-?WA		 cmp VCOUNT
-		 beq ?WA
-		 bcc ?WA
-?WFRAME	 cmp VCOUNT
-		 beq ?nowait
-		 bcs ?WFRAME
-?nowait
-         .ENDM
+?ze	LDA VCOUNT
+	cmp #16	; if line<16 then wait for line>15 (long VBI protection)
+	bcc ?ze
+	sbc #10	; last lines correction
+?wa	cmp VCOUNT
+	bcc ?wa
+?wf	cmp VCOUNT
+	bcs ?wf
+	.ENDM
+;-------------------------------------
+	.macro waitRTC
+	lda RTCLOK+2
+?wa	cmp RTCLOK+2
+	beq ?wa
+	.endm
 ;-------------------------------------
     .macro negw
     ; negate the given word (0-a)

scorch.asm

@@ -3,19 +3,22 @@
 ;---------------------------------------------------
 ;by Tomasz 'pecus' Pecko and Pawel 'pirx' Kalinowski
 ;Warsaw 2000, 2001, 2002, 2003, 2009, 2012, 2013
-;Miami & Warsaw 2022
+;Miami & Warsaw 2022, 2023
 
 ;---------------------------------------------------
 .def TARGET = 800 ;5200  ; or 800
 ;atari800  -5200 -cart ${outputFilePath} -cart-type 4
 ;atari800  -run ${outputFilePath}
+;---------------------------------------------------
+.def XCORRECTION_FOR_PM = 0
+; if 1 - active x position of tanks correction fo PMG
 ;---------------------------------------------------
 
    ;OPT r+  ; saves 12 bytes :O
 
 ;---------------------------------------------------
 .macro build
-	dta d"1.22" ; number of this build (4 bytes)
+	dta d"1.27" ; number of this build (4 bytes)
 .endm
 
 .macro RMTSong
@@ -26,12 +29,16 @@
 ;---------------------------------------------------
     icl 'definitions.asm'
 ;---------------------------------------------------
-FirstZpageVariable = $5B
+
+FirstZpageVariable = $57
     .zpvar DliColorBack		.byte = FirstZpageVariable
-	.zpvar Gradient			.byte
 	.zpvar GradientNr		.byte
 	.zpvar GradientColors	.word
+	.zpvar WindChangeInRound	.byte	; wind change after each turn (not round only) flag - (0 - round only, >0 - each turn)
 	.zpvar JoystickNumber	.byte
+	.zpvar LazyFlag			.byte	; 7 bit - run Lazy Darwin, 6 bit - run Lazy Boy or Darwin (!) after inventory, 0 - nothing
+	.zpvar SpyHardFlag		.byte	; >$7f - run SpyHard after inventory
+	.zpvar Vdebug			.byte ; "visual debug" flag ($00 - off, $ff - on)
     .zpvar xdraw            .word ;= $64 ;variable X for plot
     .zpvar ydraw            .word ;variable Y for plot (like in Atari Basic - Y=0 in upper right corner of the screen)
     .zpvar xbyte            .word
@@ -93,6 +100,7 @@ FirstZpageVariable = $5B
     .zpvar NumberOfPlayers .byte ;current number of players (counted from 1)
     .zpvar Counter .byte ;temporary Counter for outside loops
     .zpvar ExplosionRadius .byte
+	.zpvar FunkyBombCounter .byte
     .zpvar ResultY .byte
     .zpvar xcircle .word
     .zpvar ycircle .word
@@ -130,7 +138,7 @@ FirstZpageVariable = $5B
     .zpvar goleft .byte
     .zpvar OffsetDL1 .byte
     .zpvar L1 .byte
-	
+	HotNapalmFlag = FunkyBombCounter ; reuse variable!
     ;* RMT ZeroPage addresses in artwork/sfx/rmtplayr.a65
 
     displayposition = modify
@@ -179,7 +187,7 @@ FirstZpageVariable = $5B
 		_atari = $fd  ; not used in 5200
         _none = $0f
 
-      .ende */
+      .ende
     .ELSE
       icl 'lib/ATARISYS.ASM'
       icl 'lib/MACRO.ASM'
@@ -230,6 +238,60 @@ StatusBufferCopyEnd
 ; Game Code
 ;--------------------------------------------------
 FirstSTART
+    .IF TARGET = 5200
+    ; start in 5200 diagnostic mode
+    ; move original startup procedure to RAM
+    Modified5200Splash = $2100  ; apparently there is some free space here
+    ; 6502 initialization
+    ; SEI
+    ; CLD
+    ; LDX #$FF
+    ; TXS
+    
+    ; check kernel version
+    Atari5200KernelByte = $fff8
+    ; $32 - 4 joy 
+    ; $00 - 2 joy
+    ; $ff - Altirra kernel
+
+    lda Atari5200KernelByte
+    beq rom2joy
+    cmp #$32
+    beq rom4joy
+altirra_kernel
+    mwa #Modified5200Splash+$8a modify
+    bne @+  ; JMP
+
+rom4joy
+    mwa #Modified5200Splash+$16b modify
+    bne @+  ; JMP
+
+rom2joy
+    mwa #Modified5200Splash+$181 modify
+@
+    mwa $fffc temp  ; startup proc address
+    mwa #Modified5200Splash temp2
+    jsr CopyFromROM    
+    ; modify the end of the splash procedure
+    lda #$60  ; rts
+    sta (temp2),y
+    
+    jsr Modified5200Splash+$0f  ; after the diag cart detection
+    ; modify the text
+    splash_text = $3c80 ; '.scorch.supersystem.copyright.19xx.atari'
+    splash_year = splash_text + $1e
+	splash_copyright = splash_text + $14
+	ldy #19	; 20 characters
+@	lda NewSplashText,y
+	sta splash_copyright,y
+	dey
+	bpl @-    
+    
+    ; splash screen delay. maybe add fire to speed up?
+@    cpx RTCLOK+1
+    bne @-
+no5200splash  
+    .ENDIF
 	jsr MakeDarkScreen
 
 	; one time zero variables in RAM (non zero page)
@@ -253,10 +315,13 @@ FirstSTART
 	bpl @-
 
 	; initialize one Variable in zero page :)
-	lda #<dliColorsFore
-	sta GradientColors
-	lda #>dliColorsFore
-	sta GradientColors+1
+	;lda #<dliColorsFore
+	;sta GradientColors
+	;lda #>dliColorsFore
+	;sta GradientColors+1
+    ; set gradient to the full LGBTIQQAAPP+ flag on start
+	mva #1 GradientNr
+	jsr SelectNextGradient 
 
     ; generate linetables
     mwa #display temp
@@ -290,7 +355,10 @@ FirstSTART
 	mva #$10 MODUL-6+$a69	; $12 > $10
 	mva #$04 MODUL-6+$bf8	; $05 > $04
 	mva #$08 MODUL-6+$e3d	; $0a > $08
-	; and colors - sorry no memory!
+	
+	; and mountains colors table address
+	mva #<dliColorsFore2PAL GradientAddrL+2
+	mva #>dliColorsFore2PAL GradientAddrH+2
 ;	mva #$c4 dliColorsFore2+16
 ;	mva #$c6 dliColorsFore2+17
 ;	mva #$a4 dliColorsFore2+18
@@ -321,6 +389,7 @@ NoRMT_PALchange
 	mva #2 chactl  ; necessary for 5200
 	
 START
+	jsr MakeDarkScreen
     ; Startup sequence
     jsr Initialize
 
@@ -350,7 +419,6 @@ MainGameLoop
     jsr SetStandardBarrels
 
 	jsr CallPurchaseForEveryTank
-	mva #0 SpyHardFlag
 	jsr MakeDarkScreen
     bit escFlag
     bmi START
@@ -827,8 +895,14 @@ NoPlayerNoDeath
 
     inc:lda TankSequencePointer
     cmp NumberOfPlayers
-    sne:mva #0 TankSequencePointer
-
+	bne NotLastPlayerInRound
+    mva #0 TankSequencePointer
+	
+	lda WindChangeInRound
+	beq NoWindChangeNow
+	jsr GetRandomWind	; wind change after each turn (not round only)
+NoWindChangeNow
+NotLastPlayerInRound
     jmp MainRoundLoop
 .endp
 	
@@ -1191,273 +1265,6 @@ MakeTanksVisible
 	bpl @-
 	rts
 .endp
-;--------------------------------------------------
-.proc DLIinterruptGraph
-    ;sta dliA
-	;sty dliY
-	pha
-	phy
-	ldy dliCounter
-	lda dliColorsBack,y
-	bit Gradient
-	bmi GoGradient
-	ldy #$ff
-GoGradient
-	iny
-    .IF TARGET = 800
-	    nop  ; necessary on 800 because DLIs take less time, jitter visible without it
-;		nop
-    .ENDIF
-    sta COLPF1
-	lda (GradientColors),y		; mountains colors array
-;	lda dliColorsFore		; one mauntain color
-	sta COLPF2
-	inc dliCounter
-	;ldy dliY
-    ;lda dliA
-    ply
-    pla
-    rti
-.endp
-
-/* .proc DLIinterruptGraph
-	pha
-	lda dliColorsFore
-	nop
-	nop
-    nop
-    .IF TARGET = 800
-	    nop  ; necessary on 800 because DLIs take less time, jitter visible without it
-        nop
-
-    .ENDIF
-	sta COLPF2
-	lda DliColorBack
-    sta COLPF1
-	eor #$02
-	sta DliColorBack
-    pla
-    rti
-.endp */
-;--------------------------------------------------
-.proc DLIinterruptOptions
-    ;sta dliA
-	;sty dliY
-	pha
-;	lda dliColorsBack
-	lda #0
-    sta COLPF1
-	lda dliColorsFore+1
-	bit Gradient
-	bmi @+
-	lda dliColorsFore
-@	sta COLPF2
-    pla
-    rti
-.endp
-;--------------------------------------------------
-.proc DLIinterruptGameOver
-    ;sta dliA
-	;sty dliY
-	pha
-	phy
-	lda dliCounter
-	bne EndofPMG
-    lda #%00100001	; playfield after P/M - prior=1
-	;STA WSYNC
-    sta PRIOR
-	bne EndOfDLI_GO
-EndofPMG
-	cmp #1
-	bne ColoredLines
-    lda #%00100100	; playfield before P/M
-	;STA WSYNC
-    sta PRIOR
-	bne EndOfDLI_GO
-ColoredLines
-	cmp #9
-	beq CreditsScroll
-	tay
-	lda GameOverColoursTable-3,y	; -2 because this is DLI nr 2 and -1 (labels line)
-	ldy #$0a	; text colour (brightnes)
-	;STA WSYNC
-	sta COLPF2
-	sty COLPF1
-	bne EndOfDLI_GO
-CreditsScroll
-	lda #$00
-	sta COLPF2
-EndOfDLI_GO
-	inc dliCounter
-	ply
-	pla
-	rti
-.endp
-;--------------------------------------------------
-.proc DLIinterruptText
-	;sta dliA
-    pha
-	lda dliCounter
-	bne MoreBarsColorChange
-    lda #TextBackgroundColor
-	;sta WSYNC
-    sta COLPF2
-    mva #TextForegroundColor COLPF3
-	bne EndOfDLI_Text
-MoreBarsColorChange
-	and #%00000001
-	rol
-	sta COLPF2
-EndOfDLI_Text
-	inc dliCounter
-    pla
-DLIinterruptNone
-	rti
-	
-.endp
-;--------------------------------------------------
-.proc VBLinterrupt
-	mva #0 dliCounter
-	mva #$02 DliColorBack
-	
-	lda PAL
-	and #%00001110
-	beq itsPAL
-	;it is NTSC here
-    dec NTSCcounter
-    bne itsPAL
-    mva #6 NTSCcounter
-    bne SkippedIfNTSC ; skip doing VBL things each 6 frames in Amerika, Amerika
-                ; We're all living in Amerika, Coca Cola, Wonderbra
-
-itsPAL
-    ; pressTimer is trigger tick counter. always 50 ticks / s
-    bit:smi:inc pressTimer ; timer halted if >127. max time measured 2.5 s
-	
-SkippedIfNTSC
-
-	bit RMT_blocked
-	bmi SkipRMTVBL
-    ; ------- RMT -------
-	lda sfx_effect
-    bmi lab2
-    asl @                       ; * 2
-    tay                         ;Y = 2,4,..,16  instrument number * 2 (0,2,4,..,126)
-    ldx #0                      ;X = 0          channel (0..3 or 0..7 for stereo module)
-    lda #0                      ;A = 0          note (0..60)
-    bit noSfx
-    smi:jsr RASTERMUSICTRACKER+15   ;RMT_SFX start tone (It works only if FEAT_SFX is enabled !!!)
-
-    lda #$ff
-    sta sfx_effect              ;reinit value
-lab2
-    jsr RASTERMUSICTRACKER+3    ;1 play
-    ; ------- RMT -------
-SkipRMTVBL	   
-	bit ScrollFlag
-	bpl EndOfCreditsVBI
-CreditsVBI
-	inc CreditsVScrol
-	lda CreditsVScrol
-	cmp #32		;not too fast
-	beq nextlinedisplay
-	:2 lsr		;not too fast
-	sta VSCROL
-	jmp EndOfCreditsVBI
-nextlinedisplay
-	lda #0
-	sta CreditsVScrol
-	sta VSCROL
-	clc
-	lda DLCreditsAddr
-	adc #40
-	sta DLCreditsAddr
-	bcc @+
-	inc DLCreditsAddr+1
-@
-	cmp #<CreditsLastLine
-	bne EndOfCreditsVBI
-	lda DLCreditsAddr+1
-	cmp #>CreditsLastLine
-	bne EndOfCreditsVBI
-;	adw DLCreditsAddr #40
-;	cpw DLCreditsAddr #CreditsLastLine
-;	bne EndOfCreditsVBI
-	mwa #Credits DLCreditsAddr
-EndOfCreditsVBI
-	.IF TARGET = 5200
-		lda SkStatSimulator
-		bmi @+
-		inc SkStatSimulator
-@
-		lda JoystickNumber		; select port
-		ora #%00000100          ; Speaker off, Pots enabled
-        sta CONSOL5200
-
-        center = 114            ;Read analog stick and make it look like a digital stick
-        threshold = 60
-		
-		lda JoystickNumber
-		asl
-		tax
-        lda paddl0,x            ;Read POT0 value (horizontal position)
-        cmp #center+threshold       ;Compare with right threshold
-        rol stick0          ;Feed carry into digital stick value
-        cmp #center-threshold       ;Compare with left threshold
-        rol stick0          ;Feed carry into digital stick value
-    
-        lda paddl1,x            ;Read POT1 value (vertical position)
-        cmp #center+threshold       ;Compare with down threshold
-        rol stick0          ;Feed carry into digital stick value
-        cmp #center-threshold       ;Compare with down threshold
-        rol stick0          ;Feed carry into digital stick value
-    
-        lda stick0          ;0 indicates a press so the right/down values need to be inverted
-        eor #2+8
-        and #$0f
-        sta stick0
-		
-		ldx JoystickNumber
-		lda trig0,x
-		sta strig0        ;Move hardware to shadow
-        
-        mva chbas chbase
-    
-        lda skstat          ;Reset consol key shadow is no key is pressed anymore
-        and #4
-        beq @+
-          mva #consol_reset consol
-          mva #@kbcode._none kbcode
-@
-
-        pla
-        tay
-        pla
-        tax
-        pla
-		rti
-    .ELSE	
-		; support for joysticks :)
-		ldx JoystickNumber
-		lda STICK0,x
-		sta STICK0
-		lda STRIG0,x
-		sta STRIG0
-		jmp XITVBV
-	.ENDIF
-.endp
-    .IF TARGET = 5200
-.proc kb_continue
-    sta kbcode          ;Store key code in shadow.
-	mva #0 SkStatSimulator
-exit    pla
-    tay
-    pla
-    tax
-    pla
-    rti
-.endp    
-    .ENDIF
 ;----------------------------------------------
 .proc RandomizeSequence0
     ldx #0
@@ -1587,6 +1394,14 @@ LimitForce
 
 .endp
 ;----------------------------------------------
+.proc Table2Force
+	lda ForceTableL,x
+	sta Force
+	lda ForceTableH,x
+	sta Force+1
+	rts
+.endp
+;----------------------------------------------
 .proc MoveBarrelToNewPosition
 	mva #1 Erase
 	jsr DrawTankNr.BarrelChange
@@ -1860,14 +1675,14 @@ peopleAreHere
 MakeDarkScreen
 	jsr PMoutofScreen
 	mva #0 dmactls		; dark screen
-    sta dmactl
+    ; sta dmactl ; probably not necessary (3 bytes!!! :) )
 	; and wait one frame :)
 .proc WaitOneFrame
 	lda CONSOL
 	and #%00000101	; Start + Option
 	sne:mva #$40 escFlag	
 	and #%00000001 ; START KEY
-	seq:wait
+	seq:wait	; or waitRTC ?
     rts
 .endp
 
@@ -1921,66 +1736,7 @@ noingame
     rts
 .endp
 ;--------------------------------------------------
-.macro SetDLI
-;	SetDLI #WORD
-;	Initialises Display List Interrupts
-         LDY # <:1
-         LDX # >:1
-		 jsr _SetDLIproc
-.endm
-.proc _SetDLIproc
-	LDA #$C0
-	STY VDSLST
-	STX VDSLST+1
-	STA NMIEN
-	rts
-.endp
-;--------------------------------------------------
-/* ;--------------------------------------------------
-.macro randomize floor ceiling
-;--------------------------------------------------
-    ;usage: randomize floor ceiling
-    ;returns (in A) a random .byte between "floor" and "ceiling"
-        jsr _randomizator
-        .byte :floor
-        .byte :ceiling
-.endm
-
-.proc _randomizator
-; private function that accompanies `randomize` macro
-; trashes: magic, temp, Y
-    pla
-    sta magic
-    pla
-    sta magic+1
-    ldy #1  ; add 1 to the value got from the stack to point to the input parameters
-    lda (magic),y
-    sta temp
-    iny
-    lda (magic),y
-    sta temp+1
-
-?rand
-      lda random
-      cmp temp ;floor
-      bcc ?rand
-      cmp temp+1 ;ceiling
-      bcs ?rand
-      tay  ; save the result
-      
-    ; point the PC to a byte after the parameters
-    clc
-    lda magic
-    adc #2 ; length of the parameters in bytes
-    sta magic
-    lda magic+1
-    adc #0
-    pha
-    lda magic
-    pha
-    tya ; retrieve the result
-    rts
-.endp */
+	icl 'interrupts.asm'
 ;----------------------------------------------
     icl 'constants.asm'
 ;----------------------------------------------
@@ -2088,7 +1844,7 @@ MODULEND
     org ROM_SETTINGS  ; 5200 ROM settings address $bfe8
     ;     "01234567890123456789"
     .byte " scorch supersystem "    ;20 characters title
-    .byte "7A"          ;2 characters year .. 1900 + $7A = 2020
+    .byte " ", $ff          ;$BFFD == $ff means diagnostic cart, no splash screen
     .word FirstSTART
   .ELSE
      run FirstSTART

textproc.asm

@@ -63,6 +63,10 @@
     mva #0 OptionsY
 
 OptionsMainLoop
+
+	lda WindChangeInRound
+	sta OptionsHere+126
+
     jsr OptionsInversion
     jsr getkey
     bit escFlag
@@ -114,26 +118,31 @@ OptionsNoRight
 OptionsNoReturn
 	cmp #@kbcode._tab	; Tab key
 	bne OptionsNoTab
-	bit Gradient
-	bmi NextGradientNr
-	lda Gradient
-@	eor #$80
-	sta Gradient
-NextGradientNr
+	jsr SelectNextGradient
+OptionsNoTab
+    jmp OptionsMainLoop
+.endp
+.proc SelectNextGradient
+	lda OptionsY	; if "Wind" option selected
+	cmp #$03
+	bne NotWind
+	lda WindChangeInRound	; wind change after each turn (not round only) flag
+	eor #$1f	; '?' character
+	sta WindChangeInRound
+	rts
+NotWind
 	ldy GradientNr
 	iny
 	cpy #$03
 	bne NoGradientLoop
-	mva #$ff GradientNr
-	bne @-
+	ldy #$00
 NoGradientLoop
 	sty GradientNr
 	lda GradientAddrL,y
 	sta GradientColors
 	lda GradientAddrH,y
 	sta GradientColors+1	
-OptionsNoTab
-    jmp OptionsMainLoop
+	rts
 .endp
 ;--------
 ; inversing selected option (cursor)
@@ -899,27 +908,13 @@ NoAutoDefense
 	cmp #ind_Lazy_Boy_______
 	bne NoLazyBoy
 	; Lazy Boy - do it like battery
-    mva #sfx_lazy_boys sfx_effect
-	phy
-	jsr PrepareAIShoot
-	jsr FindBestTarget2 ; find nearest tank neighbour
-	jsr LazyAim
-	ply
-	lda #%00000000
-	sta TestFlightFlag	; set "visual aiming" off
+	mva #%01000000 LazyFlag
     jmp DecreaseDefensive ; bypass activation
 NoLazyBoy
 	cmp #ind_Lazy_Darwin____
 	bne NoLazyDarwin
 	; Lazy Darwin - do it like battery
-    mva #sfx_lazy_boys sfx_effect
-	phy
-	jsr PrepareAIShoot
-	jsr FindBestTarget3 ; find target with lowest energy
-	jsr LazyAim
-	ply
-	lda #%10000000
-	sta TestFlightFlag	; set "visual aiming" on
+	mva #%11000000 LazyFlag
     jmp DecreaseDefensive ; bypass activation
 NoLazyDarwin
 	cmp #ind_Spy_Hard_______
@@ -965,22 +960,6 @@ DefActivationEnd
     jmp WaitForKeyRelease ; rts
 
 .endp
-.proc LazyAim
-	; aiming proc for Lazy ... weapons
-	; as proc for memory optimisation
-	; Y - target tan nr
-	; A - target direction
-	sty TargetTankNr
-	; aiming
-	jsr TakeAim		; direction still in A (0 - left, >0 - right)
-	lda Force
-	sta ForceTableL,x
-	lda Force+1
-	sta ForceTableH,x
-	lda NewAngle
-	sta AngleTable,x
-	rts
-.endp
 ; -----------------------------------------------------
 .proc calcPosDefensive
 ; calculate positionOnTheList from the activeWeapon (defensives)
@@ -1624,309 +1603,6 @@ displayloop1
     rts
 .endp
 
-;--------------------------------------------------------
-.proc Display4x4AboveTank ;
-    ; Displays texts using PutChar4x4 above tank and mountains.
-    ; Pretty cool, eh!
-    ;parameters are:
-    ;Y - number of tank above which text is displayed
-    ;fx - length of text
-    ;LineAddress4x4 - address of the text
-
-    ;lets calculate position of the text first!
-    ;that's easy because we have number of tank
-    ;and xtankstableL and H keep X position of a given tank
-
-    lda xtankstableL,y
-    sta temp
-    lda xtankstableH,y
-    sta temp+1
-    ;now we should substract length of the text-1
-    ;temp2 = (fx-1)*2
-    ldy fx
-    dey
-    tya
-    asl
-    sta temp2
-    mva #0 temp2+1
-    ;now we have HALF length in pixels
-    ;stored in temp2
-
-    ;here we assume max length of text
-    ;to display is 127 chars, but later it turns out it must be max 63!
-
-    sbw temp temp2 ; here begin of the text is in TEMP !!!!
-    ;now we should check overflows
-    ;lda temp+1  ; opty
-    bpl DOTNnotLessThanZero
-      ;less than zero, so should be zero
-      mwa #0 temp
-    beq DOTNnoOverflow
-
-DOTNnotLessThanZero
-    ;so check if end larger than screenwidth
-
-
-    lda fx
-    asl
-    asl
-    ;length in pixels -
-    ;text length max 63 chars !!!!!!!!
-
-
-    clc
-    adc temp
-    sta temp2
-    lda #0
-    adc temp+1
-    sta temp2+1
-    ;now in temp2 is end of the text in pixels
-    ;so check if not greater than screenwitdth
-    cpw temp2 #screenwidth
-    bcc DOTNnoOverflow
-
-    ;if end is greater than screenwidth
-    ;then screenwidth - length is fine
-    lda fx
-    asl
-    asl
-    sta temp
-    mva #0 temp+1
-
-    sec
-    lda #<(screenwidth-1)
-    sbc temp
-    sta temp
-    lda #>(screenwidth-1)
-    sbc temp+1
-    sta temp+1
-DOTNnoOverflow
-    ;here in temp we have really good x position of text
-
-    mwa temp LineXdraw
-
-    ;now let's get y position
-    ;we will try to put text as low as possible
-    ;just above mountains (so mountaintable will be checked)
-    lda fx
-    asl
-    asl
-    tay
-    ;in temp there still is X position of text
-    ;if we add temp and Y we will get end of the text
-    ;so, lets go through mountaintable and look for
-    ;the lowest value within
-    ;Mountaitable+temp and Mountaitable+temp+Y
-
-    adw temp #MountainTable
-
-    mva #screenheight temp2 ;initialisation of the lowest value
-
-DOTLowestMountainValueLoop
-    lda (temp),y
-    cmp temp2
-    bcs DOTOldLowestValue  ;old lowest value
-    ;new lowest value
-    sta temp2
-DOTOldLowestValue
-    dey
-    cpy #$ff
-    bne DOTLowestMountainValueLoop
-
-    sec
-    lda temp2
-    sbc #(4+9) ;9 pixels above ground (and tanks...)
-    sta LineYdraw
-
-    jmp TypeLine4x4.noLengthNoColor  ; 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 DisplayTankNameAbove ;
-    lda tankNr
-    :3 asl  ; *8
-    clc
-    adc #<TanksNames
-    sta temp  ; TextAddress
-    lda #0
-    adc #>Tanksnames
-    sta temp+1  ; TextAddress+1
-    mwa temp LineAddress4x4
-
-    ;find length of the tank's name
-    ldy #7
-@
-      lda (temp),y
-      bne end_found
-      dey
-    bne @-
-   
-end_found
-    iny
-    sty fx
-    ldy tankNr
-    jsr Display4x4AboveTank
-    rts
-.endp
-
-;-------------------------------
-.proc TypeLine4x4 ;
-;-------------------------------
-    ;this routine prints line of length `fx`
-    ;address in LineAddress4x4
-    ;starting from LineXdraw, LineYdraw
-
-    lda #14 ; default length of 4x4 texts
-    sta fx
-
-variableLength
-    lda #$ff  ; $ff - visible characters, $00 - clearing
-
-staplot4x4color
-    sta plot4x4color
-noLengthNoColor
-
-    ldy #0
-    sty LineCharNr
-
-TypeLine4x4Loop
-    ldy LineCharNr
-
-    lda (LineAddress4x4),y
-    and #$3f ;always CAPITAL letters
-    sta CharCode4x4
-    mwa LineXdraw dx
-    mva LineYdraw dy
-	mva #0 dy+1  ;	dy is 2 bytes value
-    jsr PutChar4x4 ;type empty pixels as well!
-    adw LineXdraw #4
-    inc:lda LineCharNr
-    cmp fx
-    bne TypeLine4x4Loop
-
-EndOfTypeLine4x4
-    rts
-.endp
-
-
-;--------------------------------
-.proc AreYouSure
-;using 4x4 font
-    
-    mva #4 ResultY  ; where seppuku text starts Y-wise on the screen
-    
-    ;top frame
-    mva ResultY LineYdraw
-    jsr TL4x4_top
-    adb ResultY  #4 ;next line
-    
-    ;sure?
-    mwa #areYouSureText LineAddress4x4
-    jsr _sep_opty    
-    ;bottom frame
-    mva ResultY LineYdraw
-    jsr TL4x4_bottom
-    
-
-    jsr GetKey
-    cmp #@kbcode._Y  ; $2b  ; "Y"
-    bne @+
-    mva #$80 escFlag
-    bne skip01
-@    mva #0 escFlag
-skip01
-    jsr WaitForKeyRelease
-    
-    ;clean
-    mva #3 di
-    mva #4 ResultY
-@
-      mva #$ff plot4x4color
-      mwa #lineClear LineAddress4x4
-      jsr _sep_opty  
-      dec di
-      bne @-
-
-quit_areyousure
-    rts
-.endp
-
-.proc _sep_opty
-      mwa #((ScreenWidth/2)-(8*4)) LineXdraw  ; centering
-      mva ResultY LineYdraw
-      jsr TypeLine4x4
-      adb ResultY  #4 ;next line
-    rts
-.endp
-
-;--------------------------------
-.proc DisplaySeppuku
-;using 4x4 font
-    
-
-    mva #20 fs  ; temp, how many times blink the billboard
-seppuku_loop
-      lda CONSOL  ; turbo mode
-	  and #%00000001 ; START KEY
-      sne:mva #1 fs  ; finish it     
-
-      mva #4 ResultY  ; where seppuku text starts Y-wise on the screen
-      
-      ;top frame
-      mva ResultY LineYdraw
-      jsr TL4x4_top
-      adb ResultY  #4 ;next line
-      
-      ;seppuku
-      mwa #seppukuText LineAddress4x4
-      jsr _sep_opty
-            
-      ;bottom frame
-      mva ResultY LineYdraw
-      jsr TL4x4_bottom  ; just go
-
-    ;clean seppuku
-    
-    mva #3 di
-    ;mva #4 ResultY
-    lda #4
-    sta ResultY
-loplop ;@
-      mwa #lineClear LineAddress4x4
-      jsr _sep_opty
-  
-      dec di
-      bne loplop ;@-
-
-     dec fs
-    jne seppuku_loop
-
-quit_seppuku
-    rts
-   
-.endp
 ;--------------------------------
 .proc DisplayResults ;
 ;displays results of the round
@@ -2097,6 +1773,7 @@ FinishResultDisplay
 ;--------------------------------------------------
 .proc GameOverScreen
 ;--------------------------------------------------
+	jsr MakeDarkScreen
     jsr WaitForKeyRelease
     jsr ClearScreen
     jsr ClearPMmemory
@@ -2267,7 +1944,12 @@ RandomizeTankPos
     randomize 0 180
     sta AngleTable,x
     randomize 0 (49-8)
-    and #%11111110  ; correction for PMG
+	; x correction for P/M
+	; --
+	.IF XCORRECTION_FOR_PM = 1
+    and #%11111110
+	.ENDIF
+	; --
     clc
     adc XtankOffsetGO_L,x
     sta XtankstableL,x

variables.asm

@@ -168,8 +168,6 @@ TargetTankNr	; Target tank index (for AI routines)
 	.DS 1
 SecondTryFlag	; For precise AI aiming
 	.DS 1
-SpyHardFlag	; >$7f - run SpyHard after inventory
-	.DS 1
 ;----------------------------------------------------
 ;Erase    .DS 1 ; if 1 only mask of the character is printed
                ; on the graphics screen. if 0 character is printed normally
@@ -261,7 +259,6 @@ oldplotL .DS [5]
 oldora  .DS [5]
 oldply  .DS [5]
 OldOraTemp .DS 1
-FunkyBombCounter .DS 1
 xtrajfb  .DS 2
 ytrajfb  .DS 2
 ;

weapons.asm

@@ -74,37 +74,38 @@ CheckNextTankBFG
 .endp
 ; ------------------------
 .proc babymissile
-    mva #sfx_baby_missile sfx_effect 
     mva #11 ExplosionRadius
+GoBabyMissileSFX
+    mva #sfx_baby_missile sfx_effect 
 GoXmissile
     jmp xmissile
 .endp
 ; ------------------------
 .proc missile ;
-    mva #sfx_baby_missile sfx_effect
     mva #17 ExplosionRadius
-	bne babymissile.GoXmissile
+	bne babymissile.GoBabyMissileSFX
 ;    jmp xmissile
 .endp
 ; ------------------------
 .proc babynuke
-    mva #sfx_nuke sfx_effect 
     mva #25 ExplosionRadius
+GoBabyNukeSFX
+    mva #sfx_nuke sfx_effect 	; allways <>0
 	bne babymissile.GoXmissile
 ;    jmp xmissile
 .endp
 ; ------------------------
 .proc nuke
-    mva #sfx_nuke sfx_effect 
     mva #30 ExplosionRadius
-	bne babymissile.GoXmissile
+	bne babynuke.GoBabyNukeSFX
 ;    jmp xmissile
 .endp
 ; ------------------------
 .proc leapfrog
-    mva #sfx_baby_missile sfx_effect
     mva #17 ExplosionRadius
-    jsr xmissile
+;    mva #sfx_baby_missile sfx_effect 
+;    jsr xmissile
+    jsr babymissile.GoBabyMissileSFX
 
 	jsr SecondRepeat
 	
@@ -238,22 +239,20 @@ GoXmissileWithSaveXYdraw
 .endp
 ; ------------------------
 .proc napalm
-    mva #sfx_napalm sfx_effect
-    mva #(napalmRadius+4) ExplosionRadius 	; real radius + 4 pixels (half characrer width)
-    jsr CalculateExplosionRange
-	mva #0 ExplosionRadius	; in this weapon - flag: 0 - napalm, 1 - hotnapalm
+	mva #0 HotNapalmFlag	; in this weapon - flag: 0 - napalm, 1 - hotnapalm
 	beq xnapalm
 .endp
 ; ------------------------
 .proc hotnapalm
-    mva #sfx_napalm sfx_effect
-    mva #(napalmRadius+4) ExplosionRadius 	; real radius + 4 pixels (half characrer width)
-    jsr CalculateExplosionRange
-	mva #1 ExplosionRadius	; in this weapon - flag: 0 - napalm, 1 - hotnapalm
+	mva #1 HotNapalmFlag	; in this weapon - flag: 0 - napalm, 1 - hotnapalm
 ;	jmp xnapalm
 .endp
 ; ------------------------
 .proc xnapalm
+    mva #sfx_napalm sfx_effect
+    mva #(napalmRadius+4) ExplosionRadius 	; real radius + 4 pixels (half characrer width)
+    jsr CalculateExplosionRange
+	;
 	mwa xdraw xcircle	; store hitpoint for future repeats
 	ldy #30		; repeat 30 times
 	sty magic	
@@ -271,7 +270,7 @@ RepeatFlame		; internal loop (draw flames)
 	sbc #1	; over ground
 	sta ydraw
 	lda xdraw
-	and ExplosionRadius	; if hotnapalm and x is odd:
+	and HotNapalmFlag	; if hotnapalm and x is odd:
 	:2 asl	; modify y position 4 pixels up
 	ldy ydraw
 	sta ydraw
@@ -343,7 +342,7 @@ BurnedCheckLoop
 	bcc TankOutOfFire
 
     ldy #40		; energy decrease (napalm) - but if hotnapalm:
-	lda ExplosionRadius
+	lda HotNapalmFlag
 	beq NotHot
 	ldy #80		; energy decrease (hotnapalm)
 NotHot
@@ -385,50 +384,40 @@ EndNurnedCheckLoop
 .endp
 ; ------------------------
 .proc babydigger
-    mva #sfx_digger sfx_effect
+    mva #1 diggery  ; how many branches (-1)
+GoBabydiggerSFX
+	mva #sfx_digger sfx_effect
     mva #0 sandhogflag
     mva #13 DigLong
-    mva #1 diggery  ; how many branches (-1)
     bne xdigger
 .endp
 ; ------------------------
 .proc digger ;
-    mva #sfx_digger sfx_effect
-    mva #0 sandhogflag
-    mva #13 DigLong
     mva #3 diggery  ; how many branches (-1)
-    bne xdigger
+    bne babydigger.GoBabydiggerSFX
 .endp
 ; ------------------------
 .proc heavydigger
-    mva #sfx_digger sfx_effect
-    mva #0 sandhogflag
-    mva #13 DigLong
     mva #7 diggery  ; how many branches  (-1)
-    bne xdigger
+    bne babydigger.GoBabydiggerSFX
 .endp
 ; ------------------------
 .proc babysandhog
-    mva #sfx_sandhog sfx_effect
-    mva #char_sandhog_offset sandhogflag
-    mva #13 DigLong
     mva #1 diggery  ; how many branches (-1)
-    bne xdigger
+    bne heavysandhog.GoHeavysandhogSFX
 .endp
 ; ------------------------
 .proc sandhog
-    mva #sfx_sandhog sfx_effect
-    mva #char_sandhog_offset sandhogflag
-    mva #13 DigLong
     mva #3 diggery  ; how many branches (-1)
-    bne xdigger
+    bne heavysandhog.GoHeavysandhogSFX
 .endp
 ; ------------------------
 .proc heavysandhog
+    mva #5 diggery  ; how many branches (-1)
+GoHeavysandhogSFX
     mva #sfx_sandhog sfx_effect
     mva #char_sandhog_offset sandhogflag
     mva #13 DigLong
-    mva #5 diggery  ; how many branches (-1)
 ;    jmp xdigger
 .endp
 ; ------------------------
@@ -1160,16 +1149,19 @@ afterInventory
 	jsr MakeDarkScreen	
     jsr DisplayStatus
     jsr SetMainScreen   
-    jsr WaitOneFrame
     jsr DrawTanks
+    ;jsr WaitOneFrame    ; not necessary
+	bit LazyFlag
+	bvc NoLazy
+	jsr LazyBoys
+NoLazy
 	bit SpyHardFlag
 	bpl NoSpyHard
 	jsr SpyHard
 NoSpyHard
     RmtSong song_ingame
     mva #0 escFlag
-    jsr WaitForKeyRelease
-    jmp BeforeFire   
+    jmp ReleaseAndLoop   
 @
     cmp #$80|@kbcode._up
     jeq CTRLPressedUp
@@ -1178,8 +1170,17 @@ NoSpyHard
     cmp #$80|@kbcode._tab
     jeq CTRLPressedTAB
 
-    and #$3f ;CTRL and SHIFT ellimination
 jumpFromStick
+	.IF TARGET = 800
+	cmp #$80|17	; Ctrl+Help
+	bne NoVdebugSwitch
+	lda Vdebug
+	eor #$ff
+	sta Vdebug
+	jmp ReleaseAndLoop
+NoVdebugSwitch	
+	.ENDIF
+    and #$3f ;CTRL and SHIFT ellimination
     cmp #@kbcode._up  ; $e
     jeq pressedUp
     cmp #@kbcode._down  ; $f
@@ -1196,7 +1197,14 @@ jumpFromStick
     jeq pressedM
     cmp #@kbcode._S  ; $3e  ; S
     jeq pressedS
-    jmp notpressed
+	.IF TARGET = 800
+	cmp #61	; G
+	bne EndKeys
+	jsr SelectNextGradient.NotWind
+	jmp ReleaseAndLoop
+	.ENDIF
+EndKeys
+	jmp notpressed
 checkJoy
     ;------------JOY-------------
     ;happy happy joy joy
@@ -1376,8 +1384,7 @@ pressedTAB
     lda ActiveWeapon,x
     jsr HowManyBullets ; and we have qty of owned shells. Ufff....
     beq pressedTAB
-    jsr WaitForKeyRelease
-    jmp BeforeFire
+    bne ReleaseAndLoop
 
 CTRLpressedTAB
     mva #sfx_purchase sfx_effect
@@ -1394,21 +1401,20 @@ CTRLpressedTAB
     lda ActiveWeapon,x
     jsr HowManyBullets ; and we have qty of owned shells. Ufff....
     beq CTRLpressedTAB
-    jsr WaitForKeyRelease
-    jmp BeforeFire
+    bne ReleaseAndLoop
 
 pressedM
     ; have you tried turning the music off and on again?
     lda #$ff
     eor:sta noMusic
     RmtSong song_ingame
-    jsr WaitForKeyRelease
-    jmp BeforeFire
+    jmp ReleaseAndLoop
 
 pressedS
     ; have you tried turning sfx off and on again?
     lda #$ff
     eor:sta noSfx
+ReleaseAndLoop
     jsr WaitForKeyRelease
     jmp BeforeFire
 
@@ -1458,17 +1464,16 @@ AfterOffensiveText
 	cmp #ind_Laser__________ ; laser
 	bne NotStrongShoot
 	; Laser: (not)very strong - invisible - shot for laser beam end coordinates
+	bit Vdebug
+	bmi @+
 	mva #0 color
-	lda #1
+@	lda #1
 	sta Force
 	sta Force+1
 	mva #$ff LaserFlag	; $ff - Laser
 	bne AfterStrongShoot
 NotStrongShoot
-    lda ForceTableL,x
-    sta Force
-    lda ForceTableH,x
-    sta Force+1
+	jsr Table2Force
 	bit TestFlightFlag
 	bmi AfterStrongShoot
     mva #sfx_shoot sfx_effect
@@ -1755,7 +1760,10 @@ LaserNoWalls
 	bit TestFlightFlag
 	bmi nowait
 	bit LaserFlag	; faster laser prepare
-	bmi nowait
+	bpl nolaserwait
+	bit Vdebug
+	bpl nowait
+nolaserwait
     lda color
     beq nonowait	; smoke tracer erases slowly
     lda tracerflag	
@@ -1796,10 +1804,16 @@ SkipCollisionCheck
     mwa ytraj+1 ydraw
 	
 	bit TestFlightFlag
-	bvs NoUnPlot
-    lda tracerflag
+	bvc NoTestFlight
+	bit Vdebug
+	bpl NoUnplot
+	jsr WaitOneFrame	; visualize AI targeting
+	jmp YesUnPlot
+NoTestFlight
+	lda tracerflag
     bne NoUnPlot
-
+	
+YesUnPlot
     jsr UnPlot
 
 NoUnPlot
@@ -1951,11 +1965,7 @@ BouncyCastle
 ; ---------------- get fire parameters again
 
 	ldx TankNr
-	lda ActiveWeapon,x
-    lda ForceTableL,x
-    sta Force
-    lda ForceTableH,x
-    sta Force+1
+	jsr Table2Force
     lda AngleTable,x
     sta Angle
 
@@ -2454,6 +2464,7 @@ InverseScreenByte
 	mvx TankNr TargetTankNr	; save
 RepeatSpy
 	mvx #0 TankNr
+	stx SpyHardFlag	; 0 - optimization
 CheckNextTankSH
 	cpx TargetTankNr
 	beq ThisTankItsMe
@@ -2484,7 +2495,6 @@ SelectNextTank
 SpyHardEnd
 	mvx TargetTankNr TankNr ; restore
 	jsr DisplaySpyInfo	
-	mva #0 SpyHardFlag
 	rts
 .endp
 .proc DisplaySpyInfo
@@ -2495,6 +2505,42 @@ SpyHardEnd
 	rts
 .endp
 ; -------------------------------------------------
+.proc LazyBoys
+; -------------------------------------------------
+    mva #sfx_lazy_boys sfx_effect
+	jsr PrepareAIShoot
+	ldx TankNr
+	bit LazyFlag
+	bmi GoDarwin
+	jsr FindBestTarget2 ; find nearest tank neighbour
+	jsr LazyAim
+	lda #%00000000	; set "visual aiming" off
+	beq EndLazy
+GoDarwin
+	jsr FindBestTarget3 ; find target with lowest energy
+	jsr LazyAim
+	lda #%10000000
+EndLazy
+	sta TestFlightFlag	; set "visual aiming" on
+	mva #0 LazyFlag
+	rts
+.endp
+.proc LazyAim
+	; aiming proc for Lazy ... weapons
+	; as proc for memory optimisation
+	; Y - target tan nr
+	; A - target direction
+	sty TargetTankNr
+	; aiming
+	jsr TakeAim		; direction still in A (0 - left, >0 - right)
+	lda Force
+	sta ForceTableL,x
+	lda Force+1
+	sta ForceTableH,x
+	jsr MoveBarrelToNewPosition
+	rts
+.endp
+; -------------------------------------------------
 .proc TankFlying
 ; -------------------------------------------------
 ; This routine is run from inside of the main loop
@@ -2607,8 +2653,7 @@ KeyboardAndJoyCheck
     mva #sfx_tank_move sfx_effect
 	lda ShieldEnergy,x
 	cmp #20
-	bne notpressed
-	nop
+	bne LotOfFuel
 	
 	; display text 4x4 - low fuel
     mwa #hoverEmpty LineAddress4x4
@@ -2619,9 +2664,9 @@ KeyboardAndJoyCheck
 	sbc #12
     sta LineYdraw
     jsr TypeLine4x4.variableLength
-
 	ldx TankNr
 
+LotOfFuel
 notpressed
 	; let's animate "engine"
 	jsr DrawTankEngine
@@ -2773,7 +2818,7 @@ CheckCollisionWithTankLoop
 	; it is tricky but fast and much shorter
     lda xtankstableL,x
 	sec
-	sbc #9		; 2 pixels more on left side + tan width
+	sbc #9		; 2 pixels more on left side + tank width
 	tay
 	lda xtankstableH,x
 	sbc #0
@@ -2829,9 +2874,14 @@ ItIsMe
 	mva #1 Erase
     jsr DrawTankNr
 	mva #0 Erase
+	; x correction for P/M
+	; --
+	.IF XCORRECTION_FOR_PM = 1
 	lda XtankstableL,x
 	and #%11111110		; correction for PM
 	sta XtankstableL,x
+	.ENDIF
+	; --
 GoDown
 
 	mwa #mountaintable temp