e8bc86d1fe
Since we're aiming for consistency across the codebase, I believe it includes a uniform way to refer to the creatures this game consists of in the labels of the code. The only exceptions to this rule are labels referring to things named through the use of the <PK><MN> or <PKMN> characters, in which case PKMN is used. Most of this was already consistent enough™, I just picked the convention with the most occurences and fixed the outliers.
230 lines
2.9 KiB
NASM
230 lines
2.9 KiB
NASM
Unreferenced_CorrectErrorsInPlayerParty:
|
|
ld hl, wPartyCount
|
|
ld a, [hl]
|
|
and a
|
|
ret z
|
|
|
|
cp PARTY_LENGTH + 1
|
|
jr c, .party_length_okay
|
|
ld a, PARTY_LENGTH
|
|
ld [hl], a
|
|
.party_length_okay
|
|
inc hl
|
|
|
|
ld b, a
|
|
ld c, 0
|
|
.loop1
|
|
ld a, [hl]
|
|
and a
|
|
jr z, .invalid_species
|
|
cp NUM_POKEMON + 1
|
|
jr z, .invalid_species
|
|
cp EGG + 1
|
|
jr c, .next_species
|
|
|
|
.invalid_species
|
|
ld [hl], SMEARGLE
|
|
push hl
|
|
push bc
|
|
ld a, c
|
|
ld hl, wPartyMon1Species
|
|
call GetPartyLocation
|
|
ld [hl], SMEARGLE
|
|
pop bc
|
|
pop hl
|
|
|
|
.next_species
|
|
inc hl
|
|
inc c
|
|
dec b
|
|
jr nz, .loop1
|
|
ld [hl], $ff
|
|
|
|
ld hl, wPartyMon1
|
|
ld a, [wPartyCount]
|
|
ld d, a
|
|
ld e, 0
|
|
.loop2
|
|
push de
|
|
push hl
|
|
ld b, h
|
|
ld c, l
|
|
ld a, [hl]
|
|
and a
|
|
jr z, .invalid_species_2
|
|
cp NUM_POKEMON + 1
|
|
jr c, .check_level
|
|
|
|
.invalid_species_2
|
|
ld [hl], SMEARGLE
|
|
push de
|
|
ld d, 0
|
|
ld hl, wPartySpecies
|
|
add hl, de
|
|
pop de
|
|
ld a, SMEARGLE
|
|
ld [hl], a
|
|
|
|
.check_level
|
|
ld [wCurSpecies], a
|
|
call GetBaseData
|
|
ld hl, MON_LEVEL
|
|
add hl, bc
|
|
ld a, [hl]
|
|
cp MIN_LEVEL
|
|
ld a, MIN_LEVEL
|
|
jr c, .invalid_level
|
|
ld a, [hl]
|
|
cp MAX_LEVEL
|
|
jr c, .load_level
|
|
ld a, MAX_LEVEL
|
|
.invalid_level
|
|
ld [hl], a
|
|
.load_level
|
|
ld [wCurPartyLevel], a
|
|
|
|
ld hl, MON_MAXHP
|
|
add hl, bc
|
|
ld d, h
|
|
ld e, l
|
|
ld hl, MON_STAT_EXP - 1
|
|
add hl, bc
|
|
ld b, $1
|
|
predef CalcMonStats
|
|
pop hl
|
|
ld bc, PARTYMON_STRUCT_LENGTH
|
|
add hl, bc
|
|
pop de
|
|
inc e
|
|
dec d
|
|
jr nz, .loop2
|
|
|
|
ld de, wPartyMonNicknames
|
|
ld a, [wPartyCount]
|
|
ld b, a
|
|
ld c, 0
|
|
.loop3
|
|
push bc
|
|
call .GetLengthOfStringWith6CharCap
|
|
push de
|
|
farcall CheckStringForErrors
|
|
pop hl
|
|
pop bc
|
|
jr nc, .valid_nickname
|
|
|
|
push bc
|
|
push hl
|
|
ld hl, wPartySpecies
|
|
push bc
|
|
ld b, 0
|
|
add hl, bc
|
|
pop bc
|
|
ld a, [hl]
|
|
cp EGG
|
|
ld hl, .TAMAGO
|
|
jr z, .got_nickname
|
|
ld [wd265], a
|
|
call GetPokemonName
|
|
ld hl, wStringBuffer1
|
|
.got_nickname
|
|
pop de
|
|
ld bc, MON_NAME_LENGTH
|
|
call CopyBytes
|
|
pop bc
|
|
|
|
.valid_nickname
|
|
inc c
|
|
dec b
|
|
jr nz, .loop3
|
|
|
|
ld de, wPartyMonOT
|
|
ld a, [wPartyCount]
|
|
ld b, a
|
|
ld c, 0
|
|
.loop4
|
|
push bc
|
|
call .GetLengthOfStringWith6CharCap
|
|
push de
|
|
farcall CheckStringForErrors
|
|
pop hl
|
|
jr nc, .valid_ot_name
|
|
ld d, h
|
|
ld e, l
|
|
ld hl, wPlayerName
|
|
ld bc, NAME_LENGTH
|
|
call CopyBytes
|
|
.valid_ot_name
|
|
pop bc
|
|
inc c
|
|
dec b
|
|
jr nz, .loop4
|
|
|
|
ld hl, wPartyMon1Moves
|
|
ld a, [wPartyCount]
|
|
ld b, a
|
|
.loop5
|
|
push hl
|
|
ld c, NUM_MOVES
|
|
ld a, [hl]
|
|
and a
|
|
jr z, .invalid_move
|
|
cp NUM_ATTACKS + 1
|
|
jr c, .moves_loop
|
|
.invalid_move
|
|
ld [hl], POUND
|
|
|
|
.moves_loop
|
|
ld a, [hl]
|
|
and a
|
|
jr z, .fill_invalid_moves
|
|
cp NUM_ATTACKS + 1
|
|
jr c, .next_move
|
|
|
|
.fill_invalid_moves
|
|
xor a
|
|
ld [hli], a
|
|
dec c
|
|
jr nz, .fill_invalid_moves
|
|
jr .next_pokemon
|
|
|
|
.next_move
|
|
inc hl
|
|
dec c
|
|
jr nz, .moves_loop
|
|
|
|
.next_pokemon
|
|
pop hl
|
|
push bc
|
|
ld bc, PARTYMON_STRUCT_LENGTH
|
|
add hl, bc
|
|
pop bc
|
|
dec b
|
|
jr nz, .loop5
|
|
ret
|
|
; 13b6b
|
|
|
|
.TAMAGO: ; 13b6b
|
|
db "タマゴ@@@"
|
|
; 13b71
|
|
|
|
.GetLengthOfStringWith6CharCap: ; 13b71
|
|
push de
|
|
ld c, 1
|
|
ld b, NAME_LENGTH_JAPANESE
|
|
.search_loop
|
|
ld a, [de]
|
|
cp "@"
|
|
jr z, .done
|
|
inc de
|
|
inc c
|
|
dec b
|
|
jr nz, .search_loop
|
|
dec c
|
|
dec de
|
|
ld a, "@"
|
|
ld [de], a
|
|
.done
|
|
pop de
|
|
ret
|
|
; 13b87
|