Opty... more bytes :)

Atari/display_static.asm

@@ -19,13 +19,31 @@ OptionsScreen
    dta                                        d" "
    dta d"        Press "
    dta               d"Return"*
-   dta                     d" to proceed         "
+   dta                     d" to proceed  " ; this text has common part with OptionsSubTitle (7bytes) :)
 .ELIF TARGET = 5200
    dta d" Please select option with joystick one "
-   dta d"       and press FIRE to proceed        "
+   dta d"       and press FIRE to proceed " ; this text has common part with OptionsSubTitle (7bytes) :)
 .ENDIF
      ; 0123456789012345678901234567890123456789
 ;-----------------------------------------------
+OptionsSubTitle
+ dta d"       Unknown Father of All Games"
+;-----------------------------------------------
+MoreUp
+ dta d"         "    ; common part of this text and OptionsSubTitle :)
+ dta 92,92,92
+ dta d"  more  "
+ dta 92,92,92
+; dta d"         "
+MoreDown
+ dta d"         "   ; common part of both texts
+ dta 93,93,93
+ dta d"  more  "
+ dta 93,93,93
+; dta d"         "   ; common part of text and empty line :)
+EmptyLine
+ dta d"                                        "
+;-----------------------------------------------
 NameScreen
 .IF TARGET = 800
    dta d"     Enter names of players     "
@@ -57,24 +75,6 @@ NameScreen5
    dta        d"FIRE"*
    dta             d" - Proceed          "
 .ENDIF
-;-----------------------------------------------
-OptionsSubTitle
- dta d"       Unknown Father of All Games"
-;-----------------------------------------------
-MoreUp
- dta d"         "    ; common part of this text and OptionsSubTitle :)
- dta 92,92,92
- dta d"  more  "
- dta 92,92,92
-; dta d"         "
-MoreDown
- dta d"         "   ; common part of both texts
- dta 93,93,93
- dta d"  more  "
- dta 93,93,93
-; dta d"         "   ; common part of text and empty line :)
-EmptyLine
- dta d"                                        "
 WeaponsDescription
      ; 0123456789012345678901234567890123456789
  .IF TARGET = 800

ai.asm

@@ -10,6 +10,16 @@
 ; - shoots random direction and force
 ; greeeting to myself 10 years older in 2013-11-09... still no idea
 
+;----------------
+AIRoutines
+    .word Moron-1
+    .word Shooter-1 ;Shooter
+    .word Poolshark-1 ;Poolshark
+    .word Tosser-1 ;Tosser
+    .word Chooser-1 ;Chooser
+    .word Spoiler-1 ;Spoiler
+    .word Cyborg-1 ;Cyborg
+    .word Unknown-1 ;Unknown
 
 ;----------------------------------------------
 .proc ArtificialIntelligence ;
@@ -53,28 +63,11 @@ WepTableToTemp
     sta temp+1
     rts
 .endp
-;----------------
-AIRoutines
-    .word Moron-1
-    .word Shooter-1 ;Shooter
-    .word Poolshark-1 ;Poolshark
-    .word Tosser-1 ;Tosser
-    .word Chooser-1 ;Chooser
-    .word Spoiler-1 ;Spoiler
-    .word Cyborg-1 ;Cyborg
-    .word Unknown-1 ;Unknown
-
 ;----------------------------------------------
 .proc Unknown
     ; random robotank (from Poolshark to Cyborg)
-    randomize 4 13
+    randomize 3 7
-    and #%11111110
+    bne ArtificialIntelligence  ; We know that PrepareAIShoot is already done, but.... who cares :)
-    tay
-    lda AIRoutines+1,y
-    pha
-    lda AIRoutines,y
-    pha
-    rts
 .endp
 ;----------------------------------------------
 .proc Moron