mirror of https://github.com/pret/pokecrystal.git
43 lines
607 B
NASM
43 lines
607 B
NASM
LoadFishingGFX:
|
|
ld a, [rVBK]
|
|
push af
|
|
ld a, $1
|
|
ld [rVBK], a
|
|
|
|
ld de, FishingGFX
|
|
ld a, [wPlayerGender]
|
|
bit PLAYERGENDER_FEMALE_F, a
|
|
jr z, .got_gender
|
|
ld de, KrisFishingGFX
|
|
.got_gender
|
|
|
|
ld hl, vTiles0 tile $02
|
|
call .LoadGFX
|
|
ld hl, vTiles0 tile $06
|
|
call .LoadGFX
|
|
ld hl, vTiles0 tile $0a
|
|
call .LoadGFX
|
|
ld hl, vTiles0 tile $fc
|
|
call .LoadGFX
|
|
|
|
pop af
|
|
ld [rVBK], a
|
|
ret
|
|
|
|
.LoadGFX:
|
|
lb bc, BANK(FishingGFX), 2
|
|
push de
|
|
call Get2bpp
|
|
pop de
|
|
ld hl, 2 tiles
|
|
add hl, de
|
|
ld d, h
|
|
ld e, l
|
|
ret
|
|
|
|
FishingGFX:
|
|
INCBIN "gfx/overworld/chris_fish.2bpp"
|
|
|
|
KrisFishingGFX:
|
|
INCBIN "gfx/overworld/kris_fish.2bpp"
|