thorn/jep-hack
1
0
Fork 0
mirror of https://github.com/thornAvery/jep-hack.git synced 2026-02-07 16:45:24 +13:00
Code Issues Projects Releases Packages Wiki Activity Actions

Rom will not build but kanto badge code

Browse source
This commit is contained in:
Zeta_Null 2024-12-13 16:29:33 -05:00
parent 2e053211ec
commit 733f7396cf
5 changed files with 231 additions and 25 deletions
Download patch file Download diff file Expand all files Collapse all files

130
engine/menus/trainer_card.asm
View file

@ -107,6 +107,10 @@ TrainerCard_Page1_LoadGFX:
ld d, 6
call TrainerCard_InitBorder
call WaitBGMap
ld b, SCGB_TRAINER_CARD
call GetSGBLayout
call SetPalettes
call WaitBGMap
ld de, CardStatusGFX
ld hl, vTiles2 tile $29
lb bc, BANK(CardStatusGFX), 86
@ -128,13 +132,13 @@ TrainerCard_Page1_Joypad:
ld [wJumptableIndex], a
ret
.KantoBadgeCheck: ; unreferenced
ld a, [wKantoBadges]
and a
ret z
ld a, TRAINERCARDSTATE_PAGE3_LOADGFX
ld [wJumptableIndex], a
ret
;.KantoBadgeCheck: ; unreferenced
; ld a, [wKantoBadges]
; and a
; ret z
; ld a, TRAINERCARDSTATE_PAGE3_LOADGFX
; ld [wJumptableIndex], a
; ret
TrainerCard_Page2_LoadGFX:
call ClearSprites
@ -142,6 +146,10 @@ TrainerCard_Page2_LoadGFX:
ld d, 6
call TrainerCard_InitBorder
call WaitBGMap
ld b, SCGB_TRAINER_CARD
call GetSGBLayout
call SetPalettes
call WaitBGMap
ld de, LeaderGFX
ld hl, vTiles2 tile $29
lb bc, BANK(LeaderGFX), 86
@ -150,6 +158,7 @@ TrainerCard_Page2_LoadGFX:
ld hl, vTiles0 tile $00
lb bc, BANK(BadgeGFX), 44
call Request2bpp
ld hl, TrainerCard_JohtoBadgesOAM
call TrainerCard_Page2_3_InitObjectsAndStrings
call TrainerCard_IncrementJumptable
ret
@ -159,22 +168,34 @@ TrainerCard_Page2_Joypad:
call TrainerCard_Page2_3_AnimateBadges
ld hl, hJoyLast
ld a, [hl]
and D_LEFT
jr nz, .pressed_left
ld a, [wKantoBadges]
and a
jr nz, .has_kanto_badges
ld a, [hl]
and A_BUTTON
jr nz, .Quit
; ld a, [hl]
; and D_LEFT
; jr nz, .d_left
ret
.has_kanto_badges
ld a, [hl]
and D_LEFT
jr nz, .d_left
and D_RIGHT | A_BUTTON
jr nz, .pressed_right_a
ret
.d_left
.pressed_left
ld a, TRAINERCARDSTATE_PAGE1_LOADGFX
ld [wJumptableIndex], a
ret
.KantoBadgeCheck: ; unreferenced
ld a, [wKantoBadges]
and a
ret z
;.KantoBadgeCheck: ; unreferenced
; ld a, [wKantoBadges]
; and a
; ret z
.pressed_right_a
ld a, TRAINERCARDSTATE_PAGE3_LOADGFX
ld [wJumptableIndex], a
ret
@ -190,6 +211,10 @@ TrainerCard_Page3_LoadGFX:
ld d, 6
call TrainerCard_InitBorder
call WaitBGMap
ld b, SCGB_TRAINER_CARD_KANTO
call GetSGBLayout
call SetPalettes
call WaitBGMap
ld de, LeaderGFX2
ld hl, vTiles2 tile $29
lb bc, BANK(LeaderGFX2), 86
@ -198,29 +223,34 @@ TrainerCard_Page3_LoadGFX:
ld hl, vTiles0 tile $00
lb bc, BANK(BadgeGFX2), 44
call Request2bpp
ld hl, TrainerCard_KantoBadgesOAM
call TrainerCard_Page2_3_InitObjectsAndStrings
call TrainerCard_IncrementJumptable
ret
TrainerCard_Page3_Joypad:
ld hl, TrainerCard_JohtoBadgesOAM
ld hl, TrainerCard_KantoBadgesOAM
call TrainerCard_Page2_3_AnimateBadges
ld hl, hJoyLast
ld a, [hl]
and D_LEFT
jr nz, .left
jr nz, .pressed_left
ld a, [hl]
and D_RIGHT
jr nz, .right
; and D_RIGHT
; jr nz, .right
and A_BUTTON
jr nz, .pressed_a
ret
.left
.pressed_left
ld a, TRAINERCARDSTATE_PAGE2_LOADGFX
ld [wJumptableIndex], a
ret
.right
ld a, TRAINERCARDSTATE_PAGE1_LOADGFX
;.right
; ld a, TRAINERCARDSTATE_PAGE1_LOADGFX
.pressed_a
ld a, TRAINERCARDSTATE_QUIT
ld [wJumptableIndex], a
ret
@ -313,6 +343,7 @@ TrainerCard_Page1_PrintDexCaught_GameTime:
db $29, $2a, $2b, $2c, $2d, -1
TrainerCard_Page2_3_InitObjectsAndStrings:
push hl
hlcoord 2, 8
ld de, .BadgesTilemap
call TrainerCardSetup_PlaceTilemapString
@ -338,7 +369,8 @@ endr
jr nz, .loop2
xor a
ld [wTrainerCardBadgeFrameCounter], a
ld hl, TrainerCard_JohtoBadgesOAM
;ld hl, TrainerCard_JohtoBadgesOAM
pop hl
call TrainerCard_Page2_3_OAMUpdate
ret
@ -616,11 +648,61 @@ TrainerCard_JohtoBadgesOAM:
db $1c, $20, $24, $20 | (1 << 7)
db $1c | (1 << 7), $20, $24, $20 | (1 << 7)
TrainerCard_KantoBadgesOAM:
; Template OAM data for Kanto badges on the trainer card.
; Format:
; y, x, palette
; cycle 1: face tile, in1 tile, in2 tile, in3 tile
; cycle 2: face tile, in1 tile, in2 tile, in3 tile
dw wKantoBadges
; Boulderbadge
db $68, $18, 0
db $00, $20 | (1 << 7), $24, $20
db $00, $20 | (1 << 7), $24, $20
; Cascadebadge
db $68, $38, 0
db $04, $20 | (1 << 7), $24, $20
db $04, $20 | (1 << 7), $24, $20
; Thunderbadge
db $68, $58, 0
db $08, $20 | (1 << 7), $24, $20
db $08, $20 | (1 << 7), $24, $20
; Rainbowbadge
db $68, $78, 0
db $0c, $20 | (1 << 7), $24, $20
db $0c, $20 | (1 << 7), $24, $20
; Soulbadge
db $80, $18, 0
db $10, $20 | (1 << 7), $24, $20
db $10, $20 | (1 << 7), $24, $20
; Marshbadge
db $80, $38, 0
db $14, $20 | (1 << 7), $24, $20
db $14, $20 | (1 << 7), $24, $20
; Volcanobadge
db $80, $58, 0
db $18, $20 | (1 << 7), $24, $20
db $18, $20 | (1 << 7), $24, $20
; Earthbadge
; X-flips on alternate cycles.
db $80, $78, 0
db $1c, $20 | (1 << 7), $24, $20
db $1c | (1 << 7), $20 | (1 << 7), $24, $20
CardStatusGFX: INCBIN "gfx/trainer_card/card_status.2bpp"
LeaderGFX: INCBIN "gfx/trainer_card/leaders.2bpp"
LeaderGFX2: INCBIN "gfx/trainer_card/leaders.2bpp"
LeaderGFX2: INCBIN "gfx/trainer_card/kanto_leaders.2bpp"
BadgeGFX: INCBIN "gfx/trainer_card/badges.2bpp"
BadgeGFX2: INCBIN "gfx/trainer_card/badges.2bpp"
BadgeGFX2: INCBIN "gfx/trainer_card/kanto_badges.2bpp"
CardRightCornerGFX: INCBIN "gfx/trainer_card/card_right_corner.2bpp"