pokecrystal-board/home/battle.asm

248 lines
3.6 KiB
NASM

GetPartyParamLocation::
; Get the location of parameter a from wCurPartyMon in hl
push bc
ld hl, wPartyMons
ld c, a
ld b, 0
add hl, bc
ld a, [wCurPartyMon]
call GetPartyLocation
pop bc
ret
GetPartyLocation::
; Add the length of a PartyMon struct to hl a times.
ld bc, PARTYMON_STRUCT_LENGTH
jp AddNTimes
UserPartyAttr::
push af
ldh a, [hBattleTurn]
and a
jr nz, .ot
pop af
jr BattlePartyAttr
.ot
pop af
jr OTPartyAttr
OpponentPartyAttr::
push af
ldh a, [hBattleTurn]
and a
jr z, .ot
pop af
jr BattlePartyAttr
.ot
pop af
jr OTPartyAttr
BattlePartyAttr::
; Get attribute a from the party struct of the active battle mon.
push bc
ld c, a
ld b, 0
ld hl, wPartyMons
add hl, bc
ld a, [wCurBattleMon]
call GetPartyLocation
pop bc
ret
OTPartyAttr::
; Get attribute a from the party struct of the active enemy mon.
push bc
ld c, a
ld b, 0
ld hl, wOTPartyMon1Species
add hl, bc
ld a, [wCurOTMon]
call GetPartyLocation
pop bc
ret
ResetDamage::
xor a
ld [wCurDamage], a
ld [wCurDamage + 1], a
ret
SetPlayerTurn::
xor a
ldh [hBattleTurn], a
ret
SetEnemyTurn::
ld a, 1
ldh [hBattleTurn], a
ret
UpdateOpponentInParty::
ldh a, [hBattleTurn]
and a
jr z, UpdateEnemyMonInParty
jr UpdateBattleMonInParty
UpdateUserInParty::
ldh a, [hBattleTurn]
and a
jr z, UpdateBattleMonInParty
jr UpdateEnemyMonInParty
UpdateBattleMonInParty::
; Update level, status, current HP
ld a, [wCurBattleMon]
UpdateBattleMon::
ld hl, wPartyMon1Level
call GetPartyLocation
ld d, h
ld e, l
ld hl, wBattleMonLevel
ld bc, wBattleMonMaxHP - wBattleMonLevel
jp CopyBytes
UpdateEnemyMonInParty::
; Update level, status, current HP
; No wildmons.
ld a, [wBattleMode]
dec a
ret z
ld a, [wCurOTMon]
ld hl, wOTPartyMon1Level
call GetPartyLocation
ld d, h
ld e, l
ld hl, wEnemyMonLevel
ld bc, wEnemyMonMaxHP - wEnemyMonLevel
jp CopyBytes
RefreshBattleHuds::
call UpdateBattleHuds
ld c, 3
call DelayFrames
jp WaitBGMap
UpdateBattleHuds::
farcall UpdatePlayerHUD
farcall UpdateEnemyHUD
ret
INCLUDE "home/battle_vars.asm"
FarCopyRadioText::
inc hl
ldh a, [hROMBank]
push af
ld a, [hli]
ld e, a
ld a, [hli]
ld d, a
ld a, [hli]
ldh [hROMBank], a
ld [MBC5RomBankLo], a
ld a, e
ld l, a
ld a, d
ld h, a
ld de, wRadioText
ld bc, 2 * SCREEN_WIDTH
call CopyBytes
pop af
ldh [hROMBank], a
ld [MBC5RomBankLo], a
ret
BattleTextbox::
; Open a textbox and print text at hl.
push hl
call SpeechTextbox
call UpdateSprites
call ApplyTilemap
pop hl
call PrintTextboxText
ret
StdBattleTextbox::
; Open a textbox and print battle text at 20:hl.
ldh a, [hROMBank]
push af
ld a, BANK(BattleText)
rst Bankswitch
call BattleTextbox
pop af
rst Bankswitch
ret
GetBattleAnimPointer::
ld a, BANK(BattleAnimations)
rst Bankswitch
ld a, [hli]
ld [wBattleAnimAddress], a
ld a, [hl]
ld [wBattleAnimAddress + 1], a
; ClearBattleAnims is the only function that calls this...
ld a, BANK(ClearBattleAnims)
rst Bankswitch
ret
GetBattleAnimByte::
push hl
push de
ld hl, wBattleAnimAddress
ld e, [hl]
inc hl
ld d, [hl]
ld a, BANK(BattleAnimations)
rst Bankswitch
ld a, [de]
ld [wBattleAnimByte], a
inc de
ld a, BANK(BattleAnimCommands)
rst Bankswitch
ld [hl], d
dec hl
ld [hl], e
pop de
pop hl
ld a, [wBattleAnimByte]
ret
PushLYOverrides::
ldh a, [hLCDCPointer]
and a
ret z
ld a, LOW(wLYOverridesBackup)
ld [wRequested2bppSource], a
ld a, HIGH(wLYOverridesBackup)
ld [wRequested2bppSource + 1], a
ld a, LOW(wLYOverrides)
ld [wRequested2bppDest], a
ld a, HIGH(wLYOverrides)
ld [wRequested2bppDest + 1], a
ld a, (wLYOverridesEnd - wLYOverrides) / LEN_2BPP_TILE
ld [wRequested2bppSize], a
ret