check all chars for non-default tank name

This commit is contained in:
2022-08-18 08:58:29 -04:00
parent ff1965a402
commit 38345c3359
2 changed files with 10 additions and 2 deletions
BIN
View File
Binary file not shown.
+10 -2
View File
@@ -1231,10 +1231,18 @@ EndOfNick
mva #sfx_next_player sfx_effect mva #sfx_next_player sfx_effect
lda NameAdr ; check if first char is " "
and #$7F ; remove inverse (Cursor) ; check if all chars are empty (" ")
ldy #7
lda #0
@ ora NameAdr,y
and #$7F ; remove inverse (Cursor)
dey
bpl @-
tay
beq MakeDefaultName beq MakeDefaultName
ldy #0
nextchar04 nextchar04
lda NameAdr,y lda NameAdr,y
and #$7f ; remove inverse (Cursor) and #$7f ; remove inverse (Cursor)