mirror of https://github.com/pret/pokecrystal.git
617 lines
9.5 KiB
NASM
Executable File
617 lines
9.5 KiB
NASM
Executable File
TrainerCard: ; 25105
|
|
ld a, [VramState]
|
|
push af
|
|
xor a
|
|
ld [VramState], a
|
|
ld hl, Options
|
|
ld a, [hl]
|
|
push af
|
|
set 4, [hl]
|
|
call .InitRAM
|
|
.loop
|
|
call UpdateTime
|
|
call JoyTextDelay
|
|
ld a, [wJumptableIndex]
|
|
bit 7, a
|
|
jr nz, .quit
|
|
ld a, [hJoyLast]
|
|
and B_BUTTON
|
|
jr nz, .quit
|
|
call .RunJumptable
|
|
call DelayFrame
|
|
jr .loop
|
|
|
|
.quit
|
|
pop af
|
|
ld [Options], a
|
|
pop af
|
|
ld [VramState], a
|
|
ret
|
|
|
|
.InitRAM: ; 2513b (9:513b)
|
|
call ClearBGPalettes
|
|
call ClearSprites
|
|
call ClearTileMap
|
|
call DisableLCD
|
|
|
|
callba GetCardPic
|
|
|
|
ld hl, CardRightCornerGFX
|
|
ld de, VTiles2 tile $1c
|
|
ld bc, 1 tiles
|
|
ld a, BANK(CardRightCornerGFX)
|
|
call FarCopyBytes
|
|
|
|
ld hl, CardStatusGFX
|
|
ld de, VTiles2 tile $29
|
|
ld bc, 86 tiles
|
|
ld a, BANK(CardStatusGFX)
|
|
call FarCopyBytes
|
|
|
|
call TrainerCard_PrintTopHalfOfCard
|
|
|
|
hlcoord 0, 8
|
|
ld d, 6
|
|
call TrainerCard_InitBorder
|
|
|
|
call EnableLCD
|
|
call WaitBGMap
|
|
ld b, SCGB_TRAINER_CARD
|
|
call GetSGBLayout
|
|
call SetPalettes
|
|
call WaitBGMap
|
|
ld hl, wJumptableIndex
|
|
xor a
|
|
ld [hli], a
|
|
ld [hli], a
|
|
ld [hli], a
|
|
ld [hl], a
|
|
ret
|
|
|
|
.RunJumptable: ; 2518e (9:518e)
|
|
jumptable .Jumptable, wJumptableIndex
|
|
|
|
.Jumptable: ; 2519d (9:519d)
|
|
dw TrainerCard_Page1_LoadGFX
|
|
dw TrainerCard_Page1_Joypad
|
|
dw TrainerCard_Page2_LoadGFX
|
|
dw TrainerCard_Page2_Joypad
|
|
dw TrainerCard_Page3_LoadGFX
|
|
dw TrainerCard_Page3_Joypad
|
|
dw TrainerCard_Quit
|
|
|
|
|
|
TrainerCard_IncrementJumptable: ; 251ab (9:51ab)
|
|
ld hl, wJumptableIndex
|
|
inc [hl]
|
|
ret
|
|
|
|
TrainerCard_Quit: ; 251b0 (9:51b0)
|
|
ld hl, wJumptableIndex
|
|
set 7, [hl]
|
|
ret
|
|
|
|
TrainerCard_Page1_LoadGFX: ; 251b6 (9:51b6)
|
|
call ClearSprites
|
|
hlcoord 0, 8
|
|
ld d, 6
|
|
call TrainerCard_InitBorder
|
|
call WaitBGMap
|
|
ld de, CardStatusGFX
|
|
ld hl, VTiles2 tile $29
|
|
lb bc, BANK(CardStatusGFX), 86
|
|
call Request2bpp
|
|
call TrainerCard_Page1_PrintDexCaught_GameTime
|
|
call TrainerCard_IncrementJumptable
|
|
ret
|
|
|
|
TrainerCard_Page1_Joypad: ; 251d7 (9:51d7)
|
|
call TrainerCard_Page1_PrintGameTime
|
|
ld hl, hJoyLast
|
|
ld a, [hl]
|
|
and D_RIGHT | A_BUTTON
|
|
jr nz, .pressed_right_a
|
|
ret
|
|
|
|
.pressed_right_a
|
|
ld a, $2
|
|
ld [wJumptableIndex], a
|
|
ret
|
|
|
|
.KantoCheck:
|
|
; unreferenced
|
|
ld a, [KantoBadges]
|
|
and a
|
|
ret z
|
|
ld a, $4
|
|
ld [wJumptableIndex], a
|
|
ret
|
|
|
|
; 251f4
|
|
|
|
TrainerCard_Page2_LoadGFX: ; 251f4 (9:51f4)
|
|
call ClearSprites
|
|
hlcoord 0, 8
|
|
ld d, 6
|
|
call TrainerCard_InitBorder
|
|
call WaitBGMap
|
|
ld de, LeaderGFX
|
|
ld hl, VTiles2 tile $29
|
|
lb bc, BANK(LeaderGFX), $56
|
|
call Request2bpp
|
|
ld de, BadgeGFX
|
|
ld hl, VTiles0 tile $00
|
|
lb bc, BANK(BadgeGFX), $2c
|
|
call Request2bpp
|
|
call TrainerCard_Page2_3_InitObjectsAndStrings
|
|
call TrainerCard_IncrementJumptable
|
|
ret
|
|
|
|
TrainerCard_Page2_Joypad: ; 25221 (9:5221)
|
|
ld hl, TrainerCard_JohtoBadgesOAM
|
|
call TrainerCard_Page2_3_AnimateBadges
|
|
ld hl, hJoyLast
|
|
ld a, [hl]
|
|
and A_BUTTON
|
|
jr nz, .Quit
|
|
ld a, [hl]
|
|
and D_LEFT
|
|
jr nz, .d_left
|
|
ret
|
|
|
|
.d_left
|
|
ld a, $0
|
|
ld [wJumptableIndex], a
|
|
ret
|
|
|
|
.KantoCheck:
|
|
; unreferenced
|
|
ld a, [KantoBadges]
|
|
and a
|
|
ret z
|
|
ld a, $4
|
|
ld [wJumptableIndex], a
|
|
ret
|
|
|
|
.Quit:
|
|
ld a, $6
|
|
ld [wJumptableIndex], a
|
|
ret
|
|
|
|
TrainerCard_Page3_LoadGFX: ; 2524c (9:524c)
|
|
call ClearSprites
|
|
hlcoord 0, 8
|
|
ld d, 6
|
|
call TrainerCard_InitBorder
|
|
call WaitBGMap
|
|
ld de, LeaderGFX2
|
|
ld hl, VTiles2 tile $29
|
|
lb bc, BANK(LeaderGFX2), $56
|
|
call Request2bpp
|
|
ld de, BadgeGFX2
|
|
ld hl, VTiles0 tile $00
|
|
lb bc, BANK(BadgeGFX2), $2c
|
|
call Request2bpp
|
|
call TrainerCard_Page2_3_InitObjectsAndStrings
|
|
call TrainerCard_IncrementJumptable
|
|
ret
|
|
|
|
TrainerCard_Page3_Joypad: ; 25279 (9:5279)
|
|
ld hl, TrainerCard_JohtoBadgesOAM
|
|
call TrainerCard_Page2_3_AnimateBadges
|
|
ld hl, hJoyLast
|
|
ld a, [hl]
|
|
and D_LEFT
|
|
jr nz, .left
|
|
ld a, [hl]
|
|
and D_RIGHT
|
|
jr nz, .right
|
|
ret
|
|
|
|
.left
|
|
ld a, $2
|
|
ld [wJumptableIndex], a
|
|
ret
|
|
|
|
.right
|
|
ld a, $0
|
|
ld [wJumptableIndex], a
|
|
ret
|
|
|
|
TrainerCard_PrintTopHalfOfCard: ; 25299 (9:5299)
|
|
hlcoord 0, 0
|
|
ld d, 5
|
|
call TrainerCard_InitBorder
|
|
hlcoord 2, 2
|
|
ld de, .Name_Money
|
|
call PlaceString
|
|
hlcoord 2, 4
|
|
ld de, .ID_No
|
|
call TrainerCardSetup_PlaceTilemapString
|
|
hlcoord 7, 2
|
|
ld de, PlayerName
|
|
call PlaceString
|
|
hlcoord 5, 4
|
|
ld de, PlayerID
|
|
lb bc, PRINTNUM_LEADINGZEROS | 2, 5
|
|
call PrintNum
|
|
hlcoord 7, 6
|
|
ld de, Money
|
|
lb bc, PRINTNUM_MONEY | 3, 6
|
|
call PrintNum
|
|
hlcoord 1, 3
|
|
ld de, .HorizontalDivider
|
|
call TrainerCardSetup_PlaceTilemapString
|
|
hlcoord 14, 1
|
|
lb bc, 5, 7
|
|
xor a
|
|
ld [hGraphicStartTile], a
|
|
predef PlaceGraphic
|
|
ret
|
|
|
|
; 252ec (9:52ec)
|
|
|
|
.Name_Money: ; 252ec
|
|
db "NAME/"
|
|
next ""
|
|
next "MONEY@"
|
|
|
|
.ID_No: ; 252f9
|
|
db $27, $28, $ff ; ID NO
|
|
|
|
.HorizontalDivider: ; 252fc
|
|
db $25, $25, $25, $25, $25, $25, $25, $25, $25, $25, $25, $25, $26, $ff ; ____________>
|
|
; 2530a
|
|
|
|
TrainerCard_Page1_PrintDexCaught_GameTime: ; 2530a (9:530a)
|
|
hlcoord 2, 10
|
|
ld de, .Dex_PlayTime
|
|
call PlaceString
|
|
hlcoord 10, 15
|
|
ld de, .Badges
|
|
call PlaceString
|
|
ld hl, PokedexCaught
|
|
ld b, EndPokedexCaught - PokedexCaught
|
|
call CountSetBits
|
|
ld de, wd265
|
|
hlcoord 15, 10
|
|
lb bc, 1, 3
|
|
call PrintNum
|
|
call TrainerCard_Page1_PrintGameTime
|
|
hlcoord 2, 8
|
|
ld de, .StatusTilemap
|
|
call TrainerCardSetup_PlaceTilemapString
|
|
ld a, [StatusFlags] ; pokedex
|
|
bit 0, a
|
|
ret nz
|
|
hlcoord 1, 9
|
|
lb bc, 2, 17
|
|
call ClearBox
|
|
ret
|
|
|
|
.Dex_PlayTime:
|
|
db "#DEX"
|
|
next "PLAY TIME@@"
|
|
|
|
.Badges:
|
|
db " BADGES▶@"
|
|
|
|
.StatusTilemap: ; 25366
|
|
db $29, $2a, $2b, $2c, $2d, $ff
|
|
; 2536c
|
|
|
|
TrainerCard_Page2_3_InitObjectsAndStrings: ; 2536c (9:536c)
|
|
hlcoord 2, 8
|
|
ld de, .BadgesTilemap
|
|
call TrainerCardSetup_PlaceTilemapString
|
|
hlcoord 2, 10
|
|
ld a, $29
|
|
ld c, 4
|
|
.loop
|
|
call TrainerCard_Page2_3_PlaceLeadersFaces
|
|
rept 4
|
|
inc hl
|
|
endr
|
|
dec c
|
|
jr nz, .loop
|
|
hlcoord 2, 13
|
|
ld a, $51
|
|
ld c, 4
|
|
.loop2
|
|
call TrainerCard_Page2_3_PlaceLeadersFaces
|
|
rept 4
|
|
inc hl
|
|
endr
|
|
dec c
|
|
jr nz, .loop2
|
|
xor a
|
|
ld [wcf64], a
|
|
ld hl, TrainerCard_JohtoBadgesOAM
|
|
call TrainerCard_Page2_3_OAMUpdate
|
|
ret
|
|
|
|
; 253a2 (9:53a2)
|
|
|
|
.BadgesTilemap: ; 253a2
|
|
db $79, $7a, $7b, $7c, $7d, $ff ; "BADGES"
|
|
; 253a8
|
|
|
|
TrainerCardSetup_PlaceTilemapString: ; 253a8 (9:53a8)
|
|
.loop
|
|
ld a, [de]
|
|
cp $ff
|
|
ret z
|
|
ld [hli], a
|
|
inc de
|
|
jr .loop
|
|
|
|
TrainerCard_InitBorder: ; 253b0 (9:53b0)
|
|
ld e, 20
|
|
.loop1
|
|
ld a, $23
|
|
ld [hli], a
|
|
dec e
|
|
jr nz, .loop1
|
|
|
|
ld a, $23
|
|
ld [hli], a
|
|
ld e, 17
|
|
ld a, " "
|
|
.loop2
|
|
ld [hli], a
|
|
dec e
|
|
jr nz, .loop2
|
|
|
|
ld a, $1c
|
|
ld [hli], a
|
|
ld a, $23
|
|
ld [hli], a
|
|
.loop3
|
|
ld a, $23
|
|
ld [hli], a
|
|
|
|
ld e, 18
|
|
ld a, " "
|
|
.loop4
|
|
ld [hli], a
|
|
dec e
|
|
jr nz, .loop4
|
|
|
|
ld a, $23
|
|
ld [hli], a
|
|
dec d
|
|
jr nz, .loop3
|
|
|
|
ld a, $23
|
|
ld [hli], a
|
|
ld a, $24
|
|
ld [hli], a
|
|
|
|
ld e, 17
|
|
ld a, " "
|
|
.loop5
|
|
ld [hli], a
|
|
dec e
|
|
jr nz, .loop5
|
|
ld a, $23
|
|
ld [hli], a
|
|
ld e, 20
|
|
.loop6
|
|
ld a, $23
|
|
ld [hli], a
|
|
dec e
|
|
jr nz, .loop6
|
|
ret
|
|
|
|
TrainerCard_Page2_3_PlaceLeadersFaces: ; 253f4 (9:53f4)
|
|
push de
|
|
push hl
|
|
ld [hli], a
|
|
inc a
|
|
ld [hli], a
|
|
inc a
|
|
ld [hli], a
|
|
inc a
|
|
ld [hli], a
|
|
inc a
|
|
ld de, SCREEN_WIDTH - 3
|
|
add hl, de
|
|
ld [hli], a
|
|
inc a
|
|
ld [hli], a
|
|
inc a
|
|
ld [hli], a
|
|
inc a
|
|
ld de, SCREEN_WIDTH - 3
|
|
add hl, de
|
|
ld [hli], a
|
|
inc a
|
|
ld [hli], a
|
|
inc a
|
|
ld [hli], a
|
|
inc a
|
|
pop hl
|
|
pop de
|
|
ret
|
|
|
|
TrainerCard_Page1_PrintGameTime: ; 25415 (9:5415)
|
|
hlcoord 11, 12
|
|
ld de, GameTimeHours
|
|
lb bc, 2, 4
|
|
call PrintNum
|
|
inc hl
|
|
ld de, GameTimeMinutes
|
|
lb bc, PRINTNUM_LEADINGZEROS | 1, 2
|
|
call PrintNum
|
|
ld a, [hVBlankCounter]
|
|
and $1f
|
|
ret nz
|
|
hlcoord 15, 12
|
|
ld a, [hl]
|
|
xor %01010001 ; $7F <--> $2E
|
|
ld [hl], a
|
|
ret
|
|
|
|
TrainerCard_Page2_3_AnimateBadges: ; 25438 (9:5438)
|
|
ld a, [hVBlankCounter]
|
|
and $7
|
|
ret nz
|
|
ld a, [wcf64]
|
|
inc a
|
|
and $7
|
|
ld [wcf64], a
|
|
jr TrainerCard_Page2_3_OAMUpdate
|
|
|
|
TrainerCard_Page2_3_OAMUpdate: ; 25448 (9:5448)
|
|
; copy flag array pointer
|
|
ld a, [hli]
|
|
ld e, a
|
|
ld a, [hli]
|
|
; get flag array
|
|
ld d, a
|
|
ld a, [de]
|
|
ld c, a
|
|
ld de, Sprites
|
|
ld b, 8
|
|
.loop
|
|
srl c
|
|
push bc
|
|
jr nc, .skip_badge
|
|
push hl
|
|
ld a, [hli] ; y
|
|
ld b, a
|
|
ld a, [hli] ; x
|
|
ld c, a
|
|
ld a, [hli] ; pal
|
|
ld [wcf66], a
|
|
ld a, [wcf64]
|
|
add l
|
|
ld l, a
|
|
ld a, 0
|
|
adc h
|
|
ld h, a
|
|
ld a, [hl]
|
|
ld [wcf65], a
|
|
call .PrepOAM
|
|
pop hl
|
|
.skip_badge
|
|
ld bc, $b ; 3 + 2 * 4
|
|
add hl, bc
|
|
pop bc
|
|
dec b
|
|
jr nz, .loop
|
|
ret
|
|
|
|
.PrepOAM: ; 2547b (9:547b)
|
|
ld a, [wcf65]
|
|
and $80
|
|
jr nz, .xflip
|
|
ld hl, .facing1
|
|
jr .loop2
|
|
|
|
.xflip
|
|
ld hl, .facing2
|
|
.loop2
|
|
ld a, [hli]
|
|
cp $ff
|
|
ret z
|
|
add b
|
|
ld [de], a
|
|
inc de
|
|
|
|
ld a, [hli]
|
|
add c
|
|
ld [de], a
|
|
inc de
|
|
|
|
ld a, [wcf65]
|
|
and $7f
|
|
add [hl]
|
|
ld [de], a
|
|
inc hl
|
|
inc de
|
|
|
|
ld a, [wcf66]
|
|
add [hl]
|
|
ld [de], a
|
|
inc hl
|
|
inc de
|
|
jr .loop2
|
|
|
|
; 254a7 (9:54a7)
|
|
|
|
.facing1 ; 254a7
|
|
; y, x, tile, OAM attributes
|
|
db 0, 0, 0, 0
|
|
db 0, 8, 1, 0
|
|
db 8, 0, 2, 0
|
|
db 8, 8, 3, 0
|
|
db -1
|
|
|
|
.facing2 ; 254b8
|
|
db 0, 0, 1, X_FLIP
|
|
db 0, 8, 0, X_FLIP
|
|
db 8, 0, 3, X_FLIP
|
|
db 8, 8, 2, X_FLIP
|
|
db -1
|
|
|
|
TrainerCard_JohtoBadgesOAM: ; 254c9
|
|
; Template OAM data for each badge 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 JohtoBadges
|
|
|
|
; Zephyrbadge
|
|
db $68, $18, 0
|
|
db $00, $20, $24, $20 | $80
|
|
db $00, $20, $24, $20 | $80
|
|
|
|
; Hivebadge
|
|
db $68, $38, 0
|
|
db $04, $20, $24, $20 | $80
|
|
db $04, $20, $24, $20 | $80
|
|
|
|
; Plainbadge
|
|
db $68, $58, 0
|
|
db $08, $20, $24, $20 | $80
|
|
db $08, $20, $24, $20 | $80
|
|
|
|
; Fogbadge
|
|
db $68, $78, 0
|
|
db $0c, $20, $24, $20 | $80
|
|
db $0c, $20, $24, $20 | $80
|
|
|
|
; Mineralbadge
|
|
db $80, $38, 0
|
|
db $10, $20, $24, $20 | $80
|
|
db $10, $20, $24, $20 | $80
|
|
|
|
; Stormbadge
|
|
db $80, $18, 0
|
|
db $14, $20, $24, $20 | $80
|
|
db $14, $20, $24, $20 | $80
|
|
|
|
; Glacierbadge
|
|
db $80, $58, 0
|
|
db $18, $20, $24, $20 | $80
|
|
db $18, $20, $24, $20 | $80
|
|
|
|
; Risingbadge
|
|
; X-flips on alternate cycles.
|
|
db $80, $78, 0
|
|
db $1c, $20, $24, $20 | $80
|
|
db $1c | $80, $20, $24, $20 | $80
|
|
; 25523
|
|
|
|
CardStatusGFX: INCBIN "gfx/misc/card_status.2bpp"
|
|
|
|
LeaderGFX: INCBIN "gfx/misc/leaders.2bpp"
|
|
LeaderGFX2: INCBIN "gfx/misc/leaders.2bpp"
|
|
BadgeGFX: INCBIN "gfx/misc/badges.2bpp"
|
|
BadgeGFX2: INCBIN "gfx/misc/badges.2bpp"
|
|
|
|
CardRightCornerGFX: INCBIN "gfx/misc/card_right_corner.2bpp"
|