mirror of
https://github.com/pret/pokered.git
synced 2024-10-23 06:58:24 +00:00
192 lines
3.6 KiB
NASM
192 lines
3.6 KiB
NASM
DrawAllPokeballs:
|
|
call LoadPartyPokeballGfx
|
|
call SetupOwnPartyPokeballs
|
|
ld a, [wIsInBattle]
|
|
dec a
|
|
ret z ; return if wild pokémon
|
|
jp SetupEnemyPartyPokeballs
|
|
|
|
DrawEnemyPokeballs:
|
|
call LoadPartyPokeballGfx
|
|
jp SetupEnemyPartyPokeballs
|
|
|
|
LoadPartyPokeballGfx:
|
|
ld de, PokeballTileGraphics
|
|
ld hl, vSprites tile $31
|
|
lb bc, BANK(PokeballTileGraphics), (PokeballTileGraphicsEnd - PokeballTileGraphics) / $10
|
|
jp CopyVideoData
|
|
|
|
SetupOwnPartyPokeballs:
|
|
call PlacePlayerHUDTiles
|
|
ld hl, wPartyMon1
|
|
ld de, wPartyCount
|
|
call SetupPokeballs
|
|
ld a, $60
|
|
ld hl, wBaseCoordX
|
|
ld [hli], a
|
|
ld [hl], a
|
|
ld a, 8
|
|
ld [wHUDPokeballGfxOffsetX], a
|
|
ld hl, wOAMBuffer
|
|
jp WritePokeballOAMData
|
|
|
|
SetupEnemyPartyPokeballs:
|
|
call PlaceEnemyHUDTiles
|
|
ld hl, wEnemyMons
|
|
ld de, wEnemyPartyCount
|
|
call SetupPokeballs
|
|
ld hl, wBaseCoordX
|
|
ld a, $48
|
|
ld [hli], a
|
|
ld [hl], $20
|
|
ld a, -8
|
|
ld [wHUDPokeballGfxOffsetX], a
|
|
ld hl, wOAMBuffer + PARTY_LENGTH * 4
|
|
jp WritePokeballOAMData
|
|
|
|
SetupPokeballs:
|
|
ld a, [de]
|
|
push af
|
|
ld de, wBuffer
|
|
ld c, PARTY_LENGTH
|
|
ld a, $34 ; empty pokeball
|
|
.emptyloop
|
|
ld [de], a
|
|
inc de
|
|
dec c
|
|
jr nz, .emptyloop
|
|
pop af
|
|
ld de, wBuffer
|
|
.monloop
|
|
push af
|
|
call PickPokeball
|
|
inc de
|
|
pop af
|
|
dec a
|
|
jr nz, .monloop
|
|
ret
|
|
|
|
PickPokeball:
|
|
inc hl
|
|
ld a, [hli]
|
|
and a
|
|
jr nz, .alive
|
|
ld a, [hl]
|
|
and a
|
|
ld b, $33 ; crossed ball (fainted)
|
|
jr z, .done_fainted
|
|
.alive
|
|
inc hl
|
|
inc hl
|
|
ld a, [hl] ; status
|
|
and a
|
|
ld b, $32 ; black ball (status)
|
|
jr nz, .done
|
|
dec b ; regular ball
|
|
jr .done
|
|
.done_fainted
|
|
inc hl
|
|
inc hl
|
|
.done
|
|
ld a, b
|
|
ld [de], a
|
|
ld bc, wPartyMon2 - wPartyMon1Status
|
|
add hl, bc ; next mon struct
|
|
ret
|
|
|
|
WritePokeballOAMData:
|
|
ld de, wBuffer
|
|
ld c, PARTY_LENGTH
|
|
.loop
|
|
ld a, [wBaseCoordY]
|
|
ld [hli], a
|
|
ld a, [wBaseCoordX]
|
|
ld [hli], a
|
|
ld a, [de]
|
|
ld [hli], a
|
|
xor a
|
|
ld [hli], a
|
|
ld a, [wBaseCoordX]
|
|
ld b, a
|
|
ld a, [wHUDPokeballGfxOffsetX]
|
|
add b
|
|
ld [wBaseCoordX], a
|
|
inc de
|
|
dec c
|
|
jr nz, .loop
|
|
ret
|
|
|
|
PlacePlayerHUDTiles:
|
|
ld hl, PlayerBattleHUDGraphicsTiles
|
|
ld de, wHUDGraphicsTiles
|
|
ld bc, $3
|
|
call CopyData
|
|
hlcoord 18, 10
|
|
ld de, -1
|
|
jr PlaceHUDTiles
|
|
|
|
PlayerBattleHUDGraphicsTiles:
|
|
; The tile numbers for specific parts of the battle display for the player's pokemon
|
|
db $73 ; unused ($73 is hardcoded into the routine that uses these bytes)
|
|
db $77 ; lower-right corner tile of the HUD
|
|
db $6F ; lower-left triangle tile of the HUD
|
|
|
|
PlaceEnemyHUDTiles:
|
|
ld hl, EnemyBattleHUDGraphicsTiles
|
|
ld de, wHUDGraphicsTiles
|
|
ld bc, $3
|
|
call CopyData
|
|
hlcoord 1, 2
|
|
ld de, $1
|
|
jr PlaceHUDTiles
|
|
|
|
EnemyBattleHUDGraphicsTiles:
|
|
; The tile numbers for specific parts of the battle display for the enemy
|
|
db $73 ; unused ($73 is hardcoded in the routine that uses these bytes)
|
|
db $74 ; lower-left corner tile of the HUD
|
|
db $78 ; lower-right triangle tile of the HUD
|
|
|
|
PlaceHUDTiles:
|
|
ld [hl], $73
|
|
ld bc, SCREEN_WIDTH
|
|
add hl, bc
|
|
ld a, [wHUDGraphicsTiles + 1] ; leftmost tile
|
|
ld [hl], a
|
|
ld a, 8
|
|
.loop
|
|
add hl, de
|
|
ld [hl], $76
|
|
dec a
|
|
jr nz, .loop
|
|
add hl, de
|
|
ld a, [wHUDGraphicsTiles + 2] ; rightmost tile
|
|
ld [hl], a
|
|
ret
|
|
|
|
SetupPlayerAndEnemyPokeballs:
|
|
call LoadPartyPokeballGfx
|
|
ld hl, wPartyMons
|
|
ld de, wPartyCount
|
|
call SetupPokeballs
|
|
ld hl, wBaseCoordX
|
|
ld a, $50
|
|
ld [hli], a
|
|
ld [hl], $40
|
|
ld a, 8
|
|
ld [wHUDPokeballGfxOffsetX], a
|
|
ld hl, wOAMBuffer
|
|
call WritePokeballOAMData
|
|
ld hl, wEnemyMons
|
|
ld de, wEnemyPartyCount
|
|
call SetupPokeballs
|
|
ld hl, wBaseCoordX
|
|
ld a, $50
|
|
ld [hli], a
|
|
ld [hl], $68
|
|
ld hl, wOAMBuffer + $18
|
|
jp WritePokeballOAMData
|
|
|
|
; four tiles: pokeball, black pokeball (status ailment), crossed out pokeball (fainted) and pokeball slot (no mon)
|
|
PokeballTileGraphics::
|
|
INCBIN "gfx/battle/balls.2bpp"
|
|
PokeballTileGraphicsEnd:
|