Better search for weakest opponent by IA

ai.asm

@@ -452,7 +452,13 @@ ItIsHuman
     clc
     adc Energy,y    ; if robotank energy=energy+100 (100 or 0 from PreferHumansFlag)
     cmp temp2 ; lowest
-    bcs lowestIsLower
+    bcc lowestIsHigher
+    ; lower or equal
+    bne lowestIsLower
+    ; if equal then select random (of two tanks)
+    bit RANDOM
+    bmi lowestIsLower
+lowestIsHigher
     sta temp2
     sty temp2+1 ; number of the closest tank
     mva #0 tempor2

constants.asm

@@ -628,9 +628,6 @@ CreditsStart
       dta d"Mario 'Emkay' Krix"^
       dta d" "*
     .ENDIF
-    dta   d"Code Optimization"^
-    dta   d"Piotr '0xF' Fusik"^
-    dta   d" "*
     dta   d"Art"^
     dta   d"Adam Wachowski"^
     .IF TARGET = 800
@@ -641,8 +638,9 @@ CreditsStart
     .ENDIF
     dta   d" "*
     dta   d"Ideas, help and QA"^
+    dta   d"Piotr '0xF' Fusik, Shanti, Jakub Husak"^
     dta   d"Bocianu, Probabilitydragon,"^
-    dta   d"EnderDude, Dracon, Jakub Husak, TDC,"^
+    dta   d"EnderDude, Dracon, TDC,"^
     dta   d"Beeblebrox, KrzysRog, lopezpb,"^
     dta   d"brad-colbert, archon800, nowy80,"^
     dta   d"Shaggy the Atarian, RetroBorsuk, ZPH"
@@ -654,7 +652,7 @@ CreditsStart
     .ELIF TARGET = 5200
       dta d","*
       dta d"x-usr(1536), Aking, JAC!, phaeron,"^
-      dta d"RB5200"^
+      dta d"RB5200, Krzysztof 'Kaz' Ziembik"^
     .ENDIF
     dta   d" "*
     dta   d"Additional testing"^
@@ -670,9 +668,9 @@ CreditsStart
     dta d"       "*
 CreditsEnd
 .IF TARGET = 800
-  CreditsLines=41 + 7  ; add 7 for scrollout
+  CreditsLines=39 + 7  ; add 7 for scrollout
 .ELIF TARGET = 5200
-  CreditsLines=35 + 7; add 7 for scrollout
+  CreditsLines=33 + 7; add 7 for scrollout
 .ENDIF
 
 .IF TARGET = 5200