ref: 248763b238b6f8e8cb0bc0c5db05a270f1931ae7
dir: /home/battle.asm/
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 GetDexNumber:: ; unreferenced ; Probably used in gen 1 to convert index number to dex number ; Not required in gen 2 because index number == dex number push hl ld a, b dec a ld b, 0 add hl, bc ld hl, BaseData + BASE_DEX_NO ld bc, BASE_DATA_SIZE call AddNTimes ld a, BANK(BaseData) call GetFarHalfword ld b, l ld c, h pop hl ret 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 [MBC3RomBank], 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 [MBC3RomBank], a ret MobileTextBorder:: ; For mobile link battles only. ld a, [wLinkMode] cp LINK_MOBILE ret c ; Draw a cell phone icon at the ; top right corner of the border. hlcoord 19, 12 ld [hl], $5e ; top hlcoord 19, 13 ld [hl], $5f ; bottom ret BattleTextbox:: ; Open a textbox and print text at hl. push hl call SpeechTextbox call MobileTextBorder 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) / 16 ld [wRequested2bpp], a ret