New dafault tanks names

2026-05-20 22:33:43 +02:00 · 2023-05-24 19:54:23 +02:00
parent 9be7a6577a
commit 9a18bf6c8d
6 changed files with 26 additions and 10 deletions
@@ -1269,12 +1269,19 @@ NotRobot
    beq MakeDefaultName    
    rts
 MakeDefaultName
+    ldy difficultyLevel
+    lda LevelNameBeginL,y ; address on the screen
+    sta temp2
+    lda LevelNameBeginH,y
+    sta temp2+1
    ldx temp+1
-    ldy #7
-@   lda tanksnamesDefault,y
+    ldy #1  ; after first char (space)
+@   lda (temp2),y
+    and #$7f    ; remove inverse
    sta tanksnames,x
    inx
-    dey
+    iny
+    cpy #8
    bne @-
    ldy tanknr
    lda digits+1,y