pokecrystal-board/engine/gfx/player_gfx.asm

219 lines
3.4 KiB
NASM
Raw Normal View History

BetaLoadPlayerTrainerClass: ; unreferenced
ld c, CAL
ld a, [wPlayerGender]
2018-01-22 11:34:55 -08:00
bit PLAYERGENDER_FEMALE_F, a
jr z, .got_class
ld c, KAREN ; not KRIS?
.got_class
ld a, c
2018-01-23 14:39:09 -08:00
ld [wTrainerClass], a
ret
2018-06-24 07:09:41 -07:00
MovePlayerPicRight:
hlcoord 6, 4
ld de, 1
jr MovePlayerPic
2018-06-24 07:09:41 -07:00
MovePlayerPicLeft:
hlcoord 13, 4
ld de, -1
; fallthrough
2018-06-24 07:09:41 -07:00
MovePlayerPic:
; Move player pic at hl by de * 7 tiles.
ld c, $8
.loop
push bc
push hl
push de
xor a
ldh [hBGMapMode], a
lb bc, 7, 7
predef PlaceGraphic
xor a
ldh [hBGMapThird], a
call WaitBGMap
call DelayFrame
pop de
pop hl
add hl, de
pop bc
dec c
ret z
push hl
push bc
ld a, l
sub e
ld l, a
ld a, h
sbc d
ld h, a
lb bc, 7, 7
call ClearBox
pop bc
pop hl
jr .loop
2018-06-24 07:09:41 -07:00
ShowPlayerNamingChoices:
ld hl, ChrisNameMenuHeader
ld a, [wPlayerGender]
2018-01-22 11:34:55 -08:00
bit PLAYERGENDER_FEMALE_F, a
jr z, .got_header
ld hl, KrisNameMenuHeader
.got_header
call LoadMenuHeader
call VerticalMenu
ld a, [wMenuCursorY]
dec a
call CopyNameFromMenu
call CloseWindow
ret
INCLUDE "data/player_names.asm"
GetPlayerNameArray: ; unreferenced
2018-01-23 14:39:09 -08:00
ld hl, wPlayerName
ld de, MalePlayerNameArray
ld a, [wPlayerGender]
2018-01-22 11:34:55 -08:00
bit PLAYERGENDER_FEMALE_F, a
jr z, .got_array
ld de, FemalePlayerNameArray
.got_array
call InitName
ret
2018-06-24 07:09:41 -07:00
GetPlayerIcon:
ld de, ChrisSpriteGFX
ld b, BANK(ChrisSpriteGFX)
ld a, [wPlayerGender]
2018-01-22 11:34:55 -08:00
bit PLAYERGENDER_FEMALE_F, a
jr z, .got_gfx
ld de, KrisSpriteGFX
ld b, BANK(KrisSpriteGFX)
.got_gfx
ret
2018-06-24 07:09:41 -07:00
GetCardPic:
ld hl, ChrisCardPic
ld a, [wPlayerGender]
2018-01-22 11:34:55 -08:00
bit PLAYERGENDER_FEMALE_F, a
jr z, .got_pic
ld hl, KrisCardPic
.got_pic
2017-12-28 04:32:33 -08:00
ld de, vTiles2 tile $00
ld bc, $23 tiles
ld a, BANK(ChrisCardPic) ; aka BANK(KrisCardPic)
call FarCopyBytes
ld hl, TrainerCardGFX
2017-12-28 04:32:33 -08:00
ld de, vTiles2 tile $23
ld bc, 6 tiles
ld a, BANK(TrainerCardGFX)
call FarCopyBytes
ret
2018-06-24 07:09:41 -07:00
ChrisCardPic:
INCBIN "gfx/trainer_card/chris_card.2bpp"
2018-06-24 07:09:41 -07:00
KrisCardPic:
INCBIN "gfx/trainer_card/kris_card.2bpp"
TrainerCardGFX:
INCBIN "gfx/trainer_card/trainer_card.2bpp"
2018-06-24 07:09:41 -07:00
GetPlayerBackpic:
ld a, [wPlayerGender]
2018-01-22 11:34:55 -08:00
bit PLAYERGENDER_FEMALE_F, a
jr z, GetChrisBackpic
call GetKrisBackpic
ret
2018-06-24 07:09:41 -07:00
GetChrisBackpic:
ld hl, ChrisBackpic
ld b, BANK(ChrisBackpic)
2017-12-28 04:32:33 -08:00
ld de, vTiles2 tile $31
ld c, 7 * 7
predef DecompressGet2bpp
ret
2018-06-24 07:09:41 -07:00
HOF_LoadTrainerFrontpic:
call WaitBGMap
xor a
ldh [hBGMapMode], a
; Get class
ld e, CHRIS
ld a, [wPlayerGender]
2018-01-22 11:34:55 -08:00
bit PLAYERGENDER_FEMALE_F, a
jr z, .got_class
ld e, KRIS
.got_class
ld a, e
2018-01-23 14:39:09 -08:00
ld [wTrainerClass], a
; Load pic
ld de, ChrisPic
ld a, [wPlayerGender]
2018-01-22 11:34:55 -08:00
bit PLAYERGENDER_FEMALE_F, a
jr z, .got_pic
ld de, KrisPic
.got_pic
2017-12-28 04:32:33 -08:00
ld hl, vTiles2
ld b, BANK(ChrisPic) ; aka BANK(KrisPic)
ld c, 7 * 7
call Get2bpp
call WaitBGMap
ld a, $1
ldh [hBGMapMode], a
ret
2018-06-24 07:09:41 -07:00
DrawIntroPlayerPic:
; Draw the player pic at (6,4).
; Get class
ld e, CHRIS
ld a, [wPlayerGender]
2018-01-22 11:34:55 -08:00
bit PLAYERGENDER_FEMALE_F, a
jr z, .got_class
ld e, KRIS
.got_class
ld a, e
2018-01-23 14:39:09 -08:00
ld [wTrainerClass], a
; Load pic
ld de, ChrisPic
ld a, [wPlayerGender]
2018-01-22 11:34:55 -08:00
bit PLAYERGENDER_FEMALE_F, a
jr z, .got_pic
ld de, KrisPic
.got_pic
2017-12-28 04:32:33 -08:00
ld hl, vTiles2
ld b, BANK(ChrisPic) ; aka BANK(KrisPic)
ld c, 7 * 7 ; dimensions
call Get2bpp
; Draw
xor a
ldh [hGraphicStartTile], a
hlcoord 6, 4
lb bc, 7, 7
predef PlaceGraphic
ret
2018-06-24 07:09:41 -07:00
ChrisPic:
INCBIN "gfx/player/chris.2bpp"
2018-06-24 07:09:41 -07:00
KrisPic:
INCBIN "gfx/player/kris.2bpp"
2018-06-24 07:09:41 -07:00
GetKrisBackpic:
; Kris's backpic is uncompressed.
ld de, KrisBackpic
2017-12-28 04:32:33 -08:00
ld hl, vTiles2 tile $31
lb bc, BANK(KrisBackpic), 7 * 7 ; dimensions
call Get2bpp
ret
2018-06-24 07:09:41 -07:00
KrisBackpic:
INCBIN "gfx/player/kris_back.2bpp"