Implement suggestions in PR #687
Merge mon_stats.asm, cry.asm, print_level.asm, and mon_data.asm into pokemon.asm Merge mon_party.asm into battle.asm Merge menu.asm, menu_window.asm, and menu2.asm into menu.asm
This commit is contained in:
mid-kid
323
home/pokemon.asm
Normal file
323
home/pokemon.asm
Normal file
@@ -0,0 +1,323 @@
|
||||
IsAPokemon::
|
||||
; Return carry if species a is not a Pokemon.
|
||||
and a
|
||||
jr z, .NotAPokemon
|
||||
cp EGG
|
||||
jr z, .Pokemon
|
||||
cp NUM_POKEMON + 1
|
||||
jr c, .Pokemon
|
||||
|
||||
.NotAPokemon:
|
||||
scf
|
||||
ret
|
||||
|
||||
.Pokemon:
|
||||
and a
|
||||
ret
|
||||
|
||||
DrawBattleHPBar::
|
||||
; Draw an HP bar d tiles long at hl
|
||||
; Fill it up to e pixels
|
||||
|
||||
push hl
|
||||
push de
|
||||
push bc
|
||||
|
||||
; Place 'HP:'
|
||||
ld a, $60
|
||||
ld [hli], a
|
||||
ld a, $61
|
||||
ld [hli], a
|
||||
|
||||
; Draw a template
|
||||
push hl
|
||||
ld a, $62 ; empty bar
|
||||
.template
|
||||
ld [hli], a
|
||||
dec d
|
||||
jr nz, .template
|
||||
ld a, $6b ; bar end
|
||||
add b
|
||||
ld [hl], a
|
||||
pop hl
|
||||
|
||||
; Safety check # pixels
|
||||
ld a, e
|
||||
and a
|
||||
jr nz, .fill
|
||||
ld a, c
|
||||
and a
|
||||
jr z, .done
|
||||
ld e, 1
|
||||
|
||||
.fill
|
||||
; Keep drawing tiles until pixel length is reached
|
||||
ld a, e
|
||||
sub TILE_WIDTH
|
||||
jr c, .lastbar
|
||||
|
||||
ld e, a
|
||||
ld a, $6a ; full bar
|
||||
ld [hli], a
|
||||
ld a, e
|
||||
and a
|
||||
jr z, .done
|
||||
jr .fill
|
||||
|
||||
.lastbar
|
||||
ld a, $62 ; empty bar
|
||||
add e ; + e
|
||||
ld [hl], a
|
||||
|
||||
.done
|
||||
pop bc
|
||||
pop de
|
||||
pop hl
|
||||
ret
|
||||
|
||||
PrepMonFrontpic::
|
||||
ld a, $1
|
||||
ld [wBoxAlignment], a
|
||||
|
||||
_PrepMonFrontpic::
|
||||
ld a, [wCurPartySpecies]
|
||||
call IsAPokemon
|
||||
jr c, .not_pokemon
|
||||
|
||||
push hl
|
||||
ld de, vTiles2
|
||||
predef GetMonFrontpic
|
||||
pop hl
|
||||
xor a
|
||||
ldh [hGraphicStartTile], a
|
||||
lb bc, 7, 7
|
||||
predef PlaceGraphic
|
||||
xor a
|
||||
ld [wBoxAlignment], a
|
||||
ret
|
||||
|
||||
.not_pokemon
|
||||
xor a
|
||||
ld [wBoxAlignment], a
|
||||
inc a
|
||||
ld [wCurPartySpecies], a
|
||||
ret
|
||||
|
||||
PlayStereoCry::
|
||||
push af
|
||||
ld a, 1
|
||||
ld [wStereoPanningMask], a
|
||||
pop af
|
||||
call _PlayMonCry
|
||||
call WaitSFX
|
||||
ret
|
||||
|
||||
PlayStereoCry2::
|
||||
; Don't wait for the cry to end.
|
||||
; Used during pic animations.
|
||||
push af
|
||||
ld a, 1
|
||||
ld [wStereoPanningMask], a
|
||||
pop af
|
||||
jp _PlayMonCry
|
||||
|
||||
PlayMonCry::
|
||||
call PlayMonCry2
|
||||
call WaitSFX
|
||||
ret
|
||||
|
||||
PlayMonCry2::
|
||||
; Don't wait for the cry to end.
|
||||
push af
|
||||
xor a
|
||||
ld [wStereoPanningMask], a
|
||||
ld [wCryTracks], a
|
||||
pop af
|
||||
call _PlayMonCry
|
||||
ret
|
||||
|
||||
_PlayMonCry::
|
||||
push hl
|
||||
push de
|
||||
push bc
|
||||
|
||||
call GetCryIndex
|
||||
jr c, .done
|
||||
|
||||
ld e, c
|
||||
ld d, b
|
||||
call PlayCry
|
||||
|
||||
.done
|
||||
pop bc
|
||||
pop de
|
||||
pop hl
|
||||
ret
|
||||
|
||||
LoadCry::
|
||||
; Load cry bc.
|
||||
|
||||
call GetCryIndex
|
||||
ret c
|
||||
|
||||
ldh a, [hROMBank]
|
||||
push af
|
||||
ld a, BANK(PokemonCries)
|
||||
rst Bankswitch
|
||||
|
||||
ld hl, PokemonCries
|
||||
rept 6 ; sizeof(mon_cry)
|
||||
add hl, bc
|
||||
endr
|
||||
|
||||
ld e, [hl]
|
||||
inc hl
|
||||
ld d, [hl]
|
||||
inc hl
|
||||
|
||||
ld a, [hli]
|
||||
ld [wCryPitch], a
|
||||
ld a, [hli]
|
||||
ld [wCryPitch + 1], a
|
||||
ld a, [hli]
|
||||
ld [wCryLength], a
|
||||
ld a, [hl]
|
||||
ld [wCryLength + 1], a
|
||||
|
||||
pop af
|
||||
rst Bankswitch
|
||||
and a
|
||||
ret
|
||||
|
||||
GetCryIndex::
|
||||
and a
|
||||
jr z, .no
|
||||
cp NUM_POKEMON + 1
|
||||
jr nc, .no
|
||||
|
||||
dec a
|
||||
ld c, a
|
||||
ld b, 0
|
||||
and a
|
||||
ret
|
||||
|
||||
.no
|
||||
scf
|
||||
ret
|
||||
|
||||
PrintLevel::
|
||||
; Print wTempMonLevel at hl
|
||||
|
||||
ld a, [wTempMonLevel]
|
||||
ld [hl], "<LV>"
|
||||
inc hl
|
||||
|
||||
; How many digits?
|
||||
ld c, 2
|
||||
cp 100 ; This is distinct from MAX_LEVEL.
|
||||
jr c, Print8BitNumLeftAlign
|
||||
|
||||
; 3-digit numbers overwrite the :L.
|
||||
dec hl
|
||||
inc c
|
||||
jr Print8BitNumLeftAlign
|
||||
|
||||
PrintLevel_Force3Digits::
|
||||
; Print :L and all 3 digits
|
||||
ld [hl], "<LV>"
|
||||
inc hl
|
||||
ld c, 3
|
||||
|
||||
Print8BitNumLeftAlign::
|
||||
ld [wDeciramBuffer], a
|
||||
ld de, wDeciramBuffer
|
||||
ld b, PRINTNUM_LEFTALIGN | 1
|
||||
jp PrintNum
|
||||
|
||||
Unreferenced_GetNthMove::
|
||||
ld hl, wListMoves_MoveIndicesBuffer
|
||||
ld c, a
|
||||
ld b, 0
|
||||
add hl, bc
|
||||
ld a, [hl]
|
||||
ret
|
||||
|
||||
GetBaseData::
|
||||
push bc
|
||||
push de
|
||||
push hl
|
||||
ldh a, [hROMBank]
|
||||
push af
|
||||
ld a, BANK(BaseData)
|
||||
rst Bankswitch
|
||||
|
||||
; Egg doesn't have BaseData
|
||||
ld a, [wCurSpecies]
|
||||
cp EGG
|
||||
jr z, .egg
|
||||
|
||||
; Get BaseData
|
||||
dec a
|
||||
ld bc, BASE_DATA_SIZE
|
||||
ld hl, BaseData
|
||||
call AddNTimes
|
||||
ld de, wCurBaseData
|
||||
ld bc, BASE_DATA_SIZE
|
||||
call CopyBytes
|
||||
jr .end
|
||||
|
||||
.egg
|
||||
ld de, UnknownEggPic
|
||||
|
||||
; Sprite dimensions
|
||||
ld b, $55 ; 5x5
|
||||
ld hl, wBasePicSize
|
||||
ld [hl], b
|
||||
|
||||
; Beta front and back sprites
|
||||
; (see pokegold-spaceworld's data/pokemon/base_stats/*)
|
||||
ld hl, wBaseUnusedFrontpic
|
||||
ld [hl], e
|
||||
inc hl
|
||||
ld [hl], d
|
||||
inc hl
|
||||
ld [hl], e
|
||||
inc hl
|
||||
ld [hl], d
|
||||
jr .end ; useless
|
||||
|
||||
.end
|
||||
; Replace Pokedex # with species
|
||||
ld a, [wCurSpecies]
|
||||
ld [wBaseDexNo], a
|
||||
|
||||
pop af
|
||||
rst Bankswitch
|
||||
pop hl
|
||||
pop de
|
||||
pop bc
|
||||
ret
|
||||
|
||||
GetCurNick::
|
||||
ld a, [wCurPartyMon]
|
||||
ld hl, wPartyMonNicknames
|
||||
|
||||
GetNick::
|
||||
; Get nickname a from list hl.
|
||||
|
||||
push hl
|
||||
push bc
|
||||
|
||||
call SkipNames
|
||||
ld de, wStringBuffer1
|
||||
|
||||
push de
|
||||
ld bc, MON_NAME_LENGTH
|
||||
call CopyBytes
|
||||
pop de
|
||||
|
||||
callfar CorrectNickErrors
|
||||
|
||||
pop bc
|
||||
pop hl
|
||||
ret
|
||||
Reference in New Issue
Block a user