mirror of
https://github.com/pret/pokegold.git
synced 2026-08-09 19:57:26 -05:00
54 lines
746 B
NASM
54 lines
746 B
NASM
CorrectNickErrors::
|
|
push bc
|
|
push de
|
|
ld b, MON_NAME_LENGTH
|
|
.checkchar
|
|
ld a, [de]
|
|
cp "@"
|
|
jr z, .done
|
|
ld hl, .textcommands
|
|
dec hl
|
|
.loop
|
|
inc hl
|
|
ld a, [hl]
|
|
cp $ff
|
|
jr z, .next
|
|
ld a, [de]
|
|
cp [hl]
|
|
inc hl
|
|
jr c, .loop
|
|
cp [hl]
|
|
jr nc, .loop
|
|
ld a, "?"
|
|
ld [de], a
|
|
jr .loop
|
|
|
|
.next
|
|
inc de
|
|
dec b
|
|
jr nz, .checkchar
|
|
pop de
|
|
push de
|
|
ld a, "?"
|
|
ld [de], a
|
|
inc de
|
|
ld a, "@"
|
|
ld [de], a
|
|
.done
|
|
pop de
|
|
pop bc
|
|
ret
|
|
|
|
.textcommands
|
|
; table defining which characters are actually text commands
|
|
; format:
|
|
; ≥ <
|
|
db "<NULL>", "ガ"
|
|
db "<PLAY_G>", "<JP_18>" + 1
|
|
db "<NI>", "<NO>" + 1
|
|
db "<ROUTE>", "<GREEN>" + 1
|
|
db "<ENEMY>", "<ENEMY>" + 1
|
|
db "<MOM>", "<TM>" + 1
|
|
db "<ROCKET>", "┘" + 1
|
|
db -1 ; end
|