mirror of
https://gitlab.com/xCrystal/pokecrystal-board.git
synced 2024-09-09 09:51:34 -07:00
43eff93861
Time to move everything out of home.asm: - InexplicablyEmptyFunction was moved to home/map.asm - The wDebugFlags functions and xor_a brothers were moved to home/flag.asm because they're all flag-related. - ret_2f3e was moved into home/region.asm - The register alias sisters were moved to a new file called home/call_regs.asm - IsInArray and SkipNames were joined by AddNTimes from home/math.asm into home/array.asm, as they're all used to index arrays. - CallPointerAt was moved into home/print_text.asm because given the contents of that file it doesn't feel very out of place (that file isn't very aptly named...) - CountSetBits was moved into home/pokedex_flags.asm because it's unique use is counting the amount of seen/caught mon in the podedex. GetWeekday was pulled into this by proximity. Other changes were also made: - PushLYOverrides was moved from home/sprite_anims.asm to home/battle.asm, because it's almost exclusively used for battle animations, with the lone exception being the Magnet Train. - home/copy.asm was renamed to home/gfx.asm, as it's all gfx-related - home/copy2.asm was renamed to home/copy.asm, now it's the only file called copy. - SetHPPal and GetHPPal were moved from home/hp_pals.asm to home/tilemap.asm, as they're attrmap related, like many functions in that file are. - home/rtc.asm was renamed to home/time_palettes.asm, as it had very little to do with the RTC at all, all RTC functions being in home/time.asm - home/handshake.asm was renamed to home/printer.asm. - home/mon_data_2.asm was renamed to home/mon_party.asm.
246 lines
3.6 KiB
NASM
246 lines
3.6 KiB
NASM
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
|