mirror of
https://gitlab.com/xCrystal/pokecrystal-board.git
synced 2024-09-09 09:51:34 -07:00
32ed487a47
# Conflicts: # audio/engine.asm # constants/gfx_constants.asm # constants/map_data_constants.asm # constants/pokemon_data_constants.asm # constants/sprite_constants.asm # constants/wram_constants.asm # data/maps/data.asm # engine/battle/ai/scoring.asm # engine/battle/core.asm # engine/battle/effect_commands.asm # engine/battle/misc.asm # engine/battle_anims/getpokeballwobble.asm # engine/breeding.asm # engine/buy_sell_toss.asm # engine/decorations.asm # engine/events/battle_tower/battle_tower.asm # engine/events/battle_tower/rules.asm # engine/events/buena.asm # engine/events/bug_contest/contest_2.asm # engine/events/daycare.asm # engine/events/dratini.asm # engine/events/halloffame.asm # engine/events/happiness_egg.asm # engine/events/kurt.asm # engine/events/lucky_number.asm # engine/events/magnet_train.asm # engine/events/overworld.asm # engine/events/pokerus/pokerus.asm # engine/events/print_unown.asm # engine/events/print_unown_2.asm # engine/events/unown_walls.asm # engine/item_effects.asm # engine/link.asm # engine/mon_menu.asm # engine/player_object.asm # engine/routines/playslowcry.asm # engine/scripting.asm # engine/search.asm # engine/search2.asm # engine/specials.asm # engine/start_menu.asm # engine/timeset.asm # home/battle_vars.asm # home/map.asm # maps/GoldenrodUndergroundSwitchRoomEntrances.asm # maps/IlexForest.asm # maps/KrissHouse2F.asm # maps/Route39Barn.asm # mobile/mobile_12_2.asm # mobile/mobile_40.asm # mobile/mobile_5f.asm # wram.asm
225 lines
3.6 KiB
NASM
225 lines
3.6 KiB
NASM
Unreferenced_Function88248: ; 88248
|
|
ld c, CAL
|
|
ld a, [wPlayerGender]
|
|
bit PLAYERGENDER_FEMALE_F, a
|
|
jr z, .okay
|
|
ld c, KAREN
|
|
|
|
.okay
|
|
ld a, c
|
|
ld [wTrainerClass], a
|
|
ret
|
|
|
|
MovePlayerPicRight: ; 88258
|
|
hlcoord 6, 4
|
|
ld de, 1
|
|
jr MovePlayerPic
|
|
|
|
MovePlayerPicLeft: ; 88260
|
|
hlcoord 13, 4
|
|
ld de, -1
|
|
; fallthrough
|
|
|
|
MovePlayerPic: ; 88266
|
|
; Move player pic at hl by de * 7 tiles.
|
|
ld c, $8
|
|
.loop
|
|
push bc
|
|
push hl
|
|
push de
|
|
xor a
|
|
ld [hBGMapMode], a
|
|
lb bc, 7, 7
|
|
predef PlaceGraphic
|
|
xor a
|
|
ld [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
|
|
|
|
ShowPlayerNamingChoices: ; 88297
|
|
ld hl, ChrisNameMenuHeader
|
|
ld a, [wPlayerGender]
|
|
bit PLAYERGENDER_FEMALE_F, a
|
|
jr z, .GotGender
|
|
ld hl, KrisNameMenuHeader
|
|
.GotGender:
|
|
call LoadMenuHeader
|
|
call VerticalMenu
|
|
ld a, [wMenuCursorY]
|
|
dec a
|
|
call CopyNameFromMenu
|
|
call CloseWindow
|
|
ret
|
|
|
|
INCLUDE "data/player_names.asm"
|
|
|
|
GetPlayerNameArray: ; 88318 This Function is never called
|
|
ld hl, wPlayerName
|
|
ld de, MalePlayerNameArray
|
|
ld a, [wPlayerGender]
|
|
bit PLAYERGENDER_FEMALE_F, a
|
|
jr z, .done
|
|
ld de, FemalePlayerNameArray
|
|
|
|
.done
|
|
call InitName
|
|
ret
|
|
|
|
GetPlayerIcon: ; 8832c
|
|
; Get the player icon corresponding to gender
|
|
|
|
; Male
|
|
ld de, ChrisSpriteGFX
|
|
ld b, BANK(ChrisSpriteGFX)
|
|
|
|
ld a, [wPlayerGender]
|
|
bit PLAYERGENDER_FEMALE_F, a
|
|
jr z, .done
|
|
|
|
; Female
|
|
ld de, KrisSpriteGFX
|
|
ld b, BANK(KrisSpriteGFX)
|
|
|
|
.done
|
|
ret
|
|
|
|
GetCardPic: ; 8833e
|
|
ld hl, ChrisCardPic
|
|
ld a, [wPlayerGender]
|
|
bit PLAYERGENDER_FEMALE_F, a
|
|
jr z, .GotClass
|
|
ld hl, KrisCardPic
|
|
.GotClass:
|
|
ld de, vTiles2 tile $00
|
|
ld bc, $23 tiles
|
|
ld a, BANK(ChrisCardPic) ; BANK(KrisCardPic)
|
|
call FarCopyBytes
|
|
ld hl, CardGFX
|
|
ld de, vTiles2 tile $23
|
|
ld bc, 6 tiles
|
|
ld a, BANK(CardGFX)
|
|
call FarCopyBytes
|
|
ret
|
|
|
|
ChrisCardPic: ; 88365
|
|
INCBIN "gfx/trainer_card/chris_card.2bpp"
|
|
|
|
KrisCardPic: ; 88595
|
|
INCBIN "gfx/trainer_card/kris_card.2bpp"
|
|
|
|
CardGFX: ; 887c5
|
|
INCBIN "gfx/trainer_card/trainer_card.2bpp"
|
|
|
|
GetPlayerBackpic: ; 88825
|
|
ld a, [wPlayerGender]
|
|
bit PLAYERGENDER_FEMALE_F, a
|
|
jr z, GetChrisBackpic
|
|
call GetKrisBackpic
|
|
ret
|
|
|
|
GetChrisBackpic: ; 88830
|
|
ld hl, ChrisBackpic
|
|
ld b, BANK(ChrisBackpic)
|
|
ld de, vTiles2 tile $31
|
|
ld c, 7 * 7
|
|
predef DecompressGet2bpp
|
|
ret
|
|
|
|
HOF_LoadTrainerFrontpic: ; 88840
|
|
call WaitBGMap
|
|
xor a
|
|
ld [hBGMapMode], a
|
|
ld e, 0
|
|
ld a, [wPlayerGender]
|
|
bit PLAYERGENDER_FEMALE_F, a
|
|
jr z, .GotClass
|
|
ld e, 1
|
|
|
|
.GotClass:
|
|
ld a, e
|
|
ld [wTrainerClass], a
|
|
ld de, ChrisPic
|
|
ld a, [wPlayerGender]
|
|
bit PLAYERGENDER_FEMALE_F, a
|
|
jr z, .GotPic
|
|
ld de, KrisPic
|
|
|
|
.GotPic:
|
|
ld hl, vTiles2
|
|
ld b, BANK(ChrisPic) ; BANK(KrisPic)
|
|
ld c, 7 * 7
|
|
call Get2bpp
|
|
call WaitBGMap
|
|
ld a, $1
|
|
ld [hBGMapMode], a
|
|
ret
|
|
|
|
DrawIntroPlayerPic: ; 88874
|
|
; Draw the player pic at (6,4).
|
|
|
|
; Get class
|
|
ld e, CHRIS
|
|
ld a, [wPlayerGender]
|
|
bit PLAYERGENDER_FEMALE_F, a
|
|
jr z, .GotClass
|
|
ld e, KRIS
|
|
.GotClass:
|
|
ld a, e
|
|
ld [wTrainerClass], a
|
|
|
|
; Load pic
|
|
ld de, ChrisPic
|
|
ld a, [wPlayerGender]
|
|
bit PLAYERGENDER_FEMALE_F, a
|
|
jr z, .GotPic
|
|
ld de, KrisPic
|
|
.GotPic:
|
|
ld hl, vTiles2
|
|
ld b, BANK(ChrisPic) ; BANK(KrisPic)
|
|
ld c, 7 * 7 ; dimensions
|
|
call Get2bpp
|
|
|
|
; Draw
|
|
xor a
|
|
ld [hGraphicStartTile], a
|
|
hlcoord 6, 4
|
|
lb bc, 7, 7
|
|
predef PlaceGraphic
|
|
ret
|
|
|
|
ChrisPic: ; 888a9
|
|
INCBIN "gfx/player/chris.2bpp"
|
|
|
|
KrisPic: ; 88bb9
|
|
INCBIN "gfx/player/kris.2bpp"
|
|
|
|
GetKrisBackpic: ; 88ec9
|
|
; Kris's backpic is uncompressed.
|
|
ld de, KrisBackpic
|
|
ld hl, vTiles2 tile $31
|
|
lb bc, BANK(KrisBackpic), 7 * 7 ; dimensions
|
|
call Get2bpp
|
|
ret
|
|
|
|
KrisBackpic: ; 88ed6
|
|
INCBIN "gfx/player/kris_back.2bpp"
|