mirror of https://github.com/pret/pokecrystal.git
622 lines
9.1 KiB
NASM
622 lines
9.1 KiB
NASM
INCLUDE "constants.asm"
|
|
|
|
|
|
SECTION "Credits", ROMX
|
|
|
|
Credits:: ; 109847
|
|
bit 6, b ; Hall Of Fame
|
|
ld a, $0
|
|
jr z, .okay
|
|
ld a, $40
|
|
.okay
|
|
ld [wJumptableIndex], a
|
|
|
|
ld a, [rSVBK]
|
|
push af
|
|
ld a, BANK(wPals)
|
|
ld [rSVBK], a
|
|
|
|
call ClearBGPalettes
|
|
call ClearTileMap
|
|
call ClearSprites
|
|
|
|
ld hl, wCreditsFaux2bpp
|
|
ld c, $80
|
|
ld de, $ff00
|
|
|
|
.load_loop
|
|
ld a, e
|
|
ld [hli], a
|
|
ld a, d
|
|
ld [hli], a
|
|
dec c
|
|
jr nz, .load_loop
|
|
|
|
ld de, CreditsBorderGFX
|
|
ld hl, vTiles2 tile $20
|
|
lb bc, BANK(CreditsBorderGFX), 9
|
|
call Request2bpp
|
|
|
|
ld de, CopyrightGFX
|
|
ld hl, vTiles2 tile $60
|
|
lb bc, BANK(CopyrightGFX), 29
|
|
call Request2bpp
|
|
|
|
ld de, TheEndGFX
|
|
ld hl, vTiles2 tile $40
|
|
lb bc, BANK(TheEndGFX), 16
|
|
call Request2bpp
|
|
|
|
ld a, $ff
|
|
ld [wCreditsBorderFrame], a
|
|
xor a
|
|
ld [wCreditsBorderMon], a
|
|
|
|
call Credits_LoadBorderGFX
|
|
ld e, l
|
|
ld d, h
|
|
ld hl, vTiles2
|
|
lb bc, BANK(CreditsMonsGFX), 16
|
|
call Request2bpp
|
|
|
|
call ConstructCreditsTilemap
|
|
xor a
|
|
ld [wCreditsLYOverride], a
|
|
|
|
ld hl, LYOverrides
|
|
ld bc, $100
|
|
xor a
|
|
call ByteFill
|
|
|
|
ld a, rSCX - $ff00
|
|
ld [hLCDCPointer], a
|
|
|
|
call GetCreditsPalette
|
|
call SetPalettes
|
|
ld a, [hVBlank]
|
|
push af
|
|
ld a, $5
|
|
ld [hVBlank], a
|
|
ld a, $1
|
|
ld [hInMenu], a
|
|
xor a
|
|
ld [hBGMapMode], a
|
|
ld [CreditsPos], a
|
|
ld [CreditsUnusedCD21], a
|
|
ld [CreditsTimer], a
|
|
|
|
.execution_loop
|
|
call Credits_HandleBButton
|
|
call Credits_HandleAButton
|
|
jr nz, .exit_credits
|
|
|
|
call Credits_Jumptable
|
|
call DelayFrame
|
|
jr .execution_loop
|
|
|
|
.exit_credits
|
|
call ClearBGPalettes
|
|
xor a
|
|
ld [hLCDCPointer], a
|
|
ld [hBGMapAddress], a
|
|
pop af
|
|
ld [hVBlank], a
|
|
pop af
|
|
ld [rSVBK], a
|
|
ret
|
|
; 1098fd
|
|
|
|
Credits_HandleAButton: ; 1098fd
|
|
ld a, [hJoypadDown]
|
|
and A_BUTTON
|
|
ret z
|
|
ld a, [wJumptableIndex]
|
|
bit 7, a
|
|
ret
|
|
; 109908
|
|
|
|
Credits_HandleBButton: ; 109908
|
|
ld a, [hJoypadDown]
|
|
and B_BUTTON
|
|
ret z
|
|
ld a, [wJumptableIndex]
|
|
bit 6, a
|
|
ret z
|
|
ld hl, CreditsPos
|
|
ld a, [hli]
|
|
cp $d
|
|
jr nc, .okay
|
|
ld a, [hli]
|
|
and a
|
|
ret z
|
|
.okay
|
|
ld hl, CreditsTimer
|
|
ld a, [hl]
|
|
and a
|
|
ret z
|
|
dec [hl]
|
|
ret
|
|
; 109926
|
|
|
|
Credits_Jumptable: ; 109926
|
|
ld a, [wJumptableIndex]
|
|
and $f
|
|
ld e, a
|
|
ld d, 0
|
|
ld hl, .Jumptable
|
|
add hl, de
|
|
add hl, de
|
|
ld a, [hli]
|
|
ld h, [hl]
|
|
ld l, a
|
|
jp hl
|
|
; 109937
|
|
|
|
.Jumptable: ; 109937 (42:5937)
|
|
dw ParseCredits
|
|
dw Credits_Next
|
|
dw Credits_Next
|
|
dw Credits_PrepBGMapUpdate
|
|
dw Credits_UpdateGFXRequestPath
|
|
dw Credits_RequestGFX
|
|
dw Credits_LYOverride
|
|
dw Credits_Next
|
|
dw Credits_Next
|
|
dw Credits_Next
|
|
dw Credits_UpdateGFXRequestPath
|
|
dw Credits_RequestGFX
|
|
dw Credits_LoopBack
|
|
|
|
Credits_Next: ; 109951 (42:5951)
|
|
ld hl, wJumptableIndex
|
|
inc [hl]
|
|
ret
|
|
|
|
Credits_LoopBack: ; 109956 (42:5956)
|
|
ld hl, wJumptableIndex
|
|
ld a, [hl]
|
|
and $f0
|
|
ld [hl], a
|
|
ret
|
|
|
|
Credits_PrepBGMapUpdate: ; 10995e (42:595e)
|
|
xor a
|
|
ld [hBGMapMode], a
|
|
jp Credits_Next
|
|
|
|
Credits_UpdateGFXRequestPath: ; 109964 (42:5964)
|
|
call Credits_LoadBorderGFX
|
|
ld a, l
|
|
ld [Requested2bppSource], a
|
|
ld a, h
|
|
ld [Requested2bppSource + 1], a
|
|
ld a, LOW(vTiles2)
|
|
ld [Requested2bppDest], a
|
|
ld a, HIGH(vTiles2)
|
|
ld [Requested2bppDest + 1], a
|
|
jr Credits_RequestGFX
|
|
|
|
Credits_RequestGFX: ; 10997b (42:597b)
|
|
xor a
|
|
ld [hBGMapMode], a
|
|
ld a, $8
|
|
ld [Requested2bpp], a
|
|
jp Credits_Next
|
|
|
|
Credits_LYOverride: ; 109986 (42:5986)
|
|
ld a, [rLY]
|
|
cp $30
|
|
jr c, Credits_LYOverride
|
|
ld a, [wCreditsLYOverride]
|
|
dec a
|
|
dec a
|
|
ld [wCreditsLYOverride], a
|
|
ld hl, LYOverrides + $1f
|
|
call .Fill
|
|
ld hl, LYOverrides + $87
|
|
call .Fill
|
|
jp Credits_Next
|
|
|
|
.Fill: ; 1099a3 (42:59a3)
|
|
ld c, $8
|
|
.loop
|
|
ld [hli], a
|
|
dec c
|
|
jr nz, .loop
|
|
ret
|
|
; 1099aa
|
|
|
|
|
|
ParseCredits: ; 1099aa
|
|
ld hl, wJumptableIndex
|
|
bit 7, [hl]
|
|
jp nz, .done
|
|
|
|
; Wait until the timer has run out to parse the next command.
|
|
ld hl, CreditsTimer
|
|
ld a, [hl]
|
|
and a
|
|
jr z, .parse
|
|
|
|
; One tick has passed.
|
|
dec [hl]
|
|
jp .done
|
|
|
|
.parse
|
|
; First, let's clear the current text display,
|
|
; starting from line 5.
|
|
xor a
|
|
ld [hBGMapMode], a
|
|
hlcoord 0, 5
|
|
ld bc, 20 * 12
|
|
ld a, " "
|
|
call ByteFill
|
|
|
|
; Then read the script.
|
|
|
|
.loop
|
|
call .get
|
|
|
|
; Commands:
|
|
cp CREDITS_END
|
|
jp z, .end
|
|
cp CREDITS_WAIT
|
|
jr z, .wait
|
|
cp CREDITS_SCENE
|
|
jr z, .scene
|
|
cp CREDITS_CLEAR
|
|
jr z, .clear
|
|
cp CREDITS_MUSIC
|
|
jr z, .music
|
|
cp CREDITS_WAIT2
|
|
jr z, .wait2
|
|
cp CREDITS_THEEND
|
|
jr z, .theend
|
|
|
|
; If it's not a command, it's a string identifier.
|
|
|
|
push af
|
|
ld e, a
|
|
ld d, 0
|
|
ld hl, CreditsStrings
|
|
add hl, de
|
|
add hl, de
|
|
ld a, [hli]
|
|
ld d, [hl]
|
|
ld e, a
|
|
pop af
|
|
|
|
; Strings spanning multiple lines have special cases.
|
|
|
|
cp COPYRIGHT
|
|
jr z, .copyright
|
|
|
|
cp STAFF
|
|
jr c, .staff
|
|
|
|
; The rest start from line 6.
|
|
|
|
hlcoord 0, 6
|
|
jr .print
|
|
|
|
.copyright
|
|
hlcoord 2, 6
|
|
jr .print
|
|
|
|
.staff
|
|
hlcoord 0, 6
|
|
|
|
.print
|
|
; Print strings spaced every two lines.
|
|
call .get
|
|
ld bc, 20 * 2
|
|
call AddNTimes
|
|
call PlaceString
|
|
jr .loop
|
|
|
|
.theend
|
|
; Display "The End" graphic.
|
|
call Credits_TheEnd
|
|
jr .loop
|
|
|
|
.scene
|
|
; Update the scene number and corresponding palette.
|
|
call .get
|
|
ld [wCreditsBorderMon], a ; scene
|
|
xor a
|
|
ld [wCreditsBorderFrame], a ; frame
|
|
call GetCreditsPalette
|
|
call SetPalettes ; update hw pal registers
|
|
jr .loop
|
|
|
|
.clear
|
|
; Clear the banner.
|
|
ld a, $ff
|
|
ld [wCreditsBorderFrame], a ; frame
|
|
jr .loop
|
|
|
|
.music
|
|
; Play the credits music.
|
|
ld de, MUSIC_CREDITS
|
|
push de
|
|
ld de, MUSIC_NONE
|
|
call PlayMusic
|
|
call DelayFrame
|
|
pop de
|
|
call PlayMusic
|
|
jp .loop
|
|
|
|
.wait2
|
|
; Wait for some amount of ticks.
|
|
call .get
|
|
ld [CreditsTimer], a
|
|
jr .done
|
|
|
|
.wait
|
|
; Wait for some amount of ticks, and do something else.
|
|
call .get
|
|
ld [CreditsTimer], a
|
|
|
|
xor a
|
|
ld [hBGMapThird], a
|
|
ld a, 1
|
|
ld [hBGMapMode], a
|
|
|
|
.done
|
|
jp Credits_Next
|
|
|
|
.end
|
|
; Stop execution.
|
|
ld hl, wJumptableIndex
|
|
set 7, [hl]
|
|
ld a, 32
|
|
ld [MusicFade], a
|
|
ld a, LOW(MUSIC_POST_CREDITS)
|
|
ld [MusicFadeID], a
|
|
ld a, HIGH(MUSIC_POST_CREDITS)
|
|
ld [MusicFadeID + 1], a
|
|
ret
|
|
|
|
.get
|
|
; Get byte CreditsPos from CreditsScript
|
|
push hl
|
|
push de
|
|
ld a, [CreditsPos]
|
|
ld e, a
|
|
ld a, [CreditsPos+1]
|
|
ld d, a
|
|
ld hl, CreditsScript
|
|
add hl, de
|
|
|
|
inc de
|
|
ld a, e
|
|
ld [CreditsPos], a
|
|
ld a, d
|
|
ld [CreditsPos+1], a
|
|
ld a, [hl]
|
|
pop de
|
|
pop hl
|
|
ret
|
|
; 109a95
|
|
|
|
|
|
ConstructCreditsTilemap: ; 109a95 (42:5a95)
|
|
xor a
|
|
ld [hBGMapMode], a
|
|
ld a, $c
|
|
ld [hBGMapAddress], a
|
|
|
|
ld a, $28
|
|
hlcoord 0, 0
|
|
ld bc, SCREEN_HEIGHT * SCREEN_WIDTH
|
|
call ByteFill
|
|
|
|
ld a, $7f
|
|
hlcoord 0, 4
|
|
ld bc, (SCREEN_HEIGHT - 4) * SCREEN_WIDTH
|
|
call ByteFill
|
|
|
|
hlcoord 0, 4
|
|
ld a, $24
|
|
call DrawCreditsBorder
|
|
|
|
hlcoord 0, 17
|
|
ld a, $20
|
|
call DrawCreditsBorder
|
|
|
|
hlcoord 0, 0, AttrMap
|
|
ld bc, 4 * SCREEN_WIDTH
|
|
xor a
|
|
call ByteFill
|
|
|
|
hlcoord 0, 4, AttrMap
|
|
ld bc, SCREEN_WIDTH
|
|
ld a, $1
|
|
call ByteFill
|
|
|
|
hlcoord 0, 5, AttrMap
|
|
ld bc, 12 * SCREEN_WIDTH
|
|
ld a, $2
|
|
call ByteFill
|
|
|
|
hlcoord 0, 17, AttrMap
|
|
ld bc, SCREEN_WIDTH
|
|
ld a, $1
|
|
call ByteFill
|
|
|
|
call WaitBGMap2
|
|
xor a
|
|
ld [hBGMapMode], a
|
|
ld [hBGMapAddress], a
|
|
hlcoord 0, 0
|
|
call .InitTopPortion
|
|
call WaitBGMap2
|
|
ret
|
|
|
|
.InitTopPortion: ; 109aff (42:5aff)
|
|
ld b, 5
|
|
.outer_loop
|
|
push hl
|
|
ld de, SCREEN_WIDTH - 3
|
|
ld c, 4
|
|
xor a
|
|
.inner_loop
|
|
rept 3
|
|
ld [hli], a
|
|
inc a
|
|
endr
|
|
ld [hl], a
|
|
inc a
|
|
add hl, de
|
|
dec c
|
|
jr nz, .inner_loop
|
|
pop hl
|
|
rept 4
|
|
inc hl
|
|
endr
|
|
dec b
|
|
jr nz, .outer_loop
|
|
ret
|
|
|
|
DrawCreditsBorder: ; 109b1d (42:5b1d)
|
|
ld c, SCREEN_WIDTH / 4
|
|
.loop
|
|
push af
|
|
rept 3
|
|
ld [hli], a
|
|
inc a
|
|
endr
|
|
ld [hli], a
|
|
pop af
|
|
dec c
|
|
jr nz, .loop
|
|
ret
|
|
|
|
GetCreditsPalette: ; 109b2c
|
|
call .GetPalAddress
|
|
|
|
push hl
|
|
ld a, 0
|
|
call .UpdatePals
|
|
pop hl
|
|
ret
|
|
|
|
.GetPalAddress:
|
|
; Each set of palette data is 24 bytes long.
|
|
ld a, [wCreditsBorderMon] ; scene
|
|
and %11
|
|
add a
|
|
add a ; * 8
|
|
add a
|
|
ld e, a
|
|
ld d, 0
|
|
ld hl, CreditsPalettes
|
|
add hl, de
|
|
add hl, de ; * 3
|
|
add hl, de
|
|
ret
|
|
|
|
.UpdatePals:
|
|
; Update the first three colors in both palette buffers.
|
|
push af
|
|
push hl
|
|
add LOW(wBGPals1)
|
|
ld e, a
|
|
ld a, 0
|
|
adc HIGH(wBGPals1)
|
|
ld d, a
|
|
ld bc, 24
|
|
call CopyBytes
|
|
|
|
pop hl
|
|
pop af
|
|
add LOW(wBGPals2)
|
|
ld e, a
|
|
ld a, 0
|
|
adc HIGH(wBGPals2)
|
|
ld d, a
|
|
ld bc, 24
|
|
call CopyBytes
|
|
ret
|
|
|
|
CreditsPalettes:
|
|
INCLUDE "gfx/credits/credits.pal"
|
|
; 109bca
|
|
|
|
Credits_LoadBorderGFX: ; 109bca (42:5bca)
|
|
ld hl, wCreditsBorderFrame
|
|
ld a, [hl]
|
|
cp $ff
|
|
jr z, .init
|
|
|
|
and %11
|
|
ld e, a
|
|
inc a
|
|
and %11
|
|
ld [hl], a
|
|
ld a, [wCreditsBorderMon]
|
|
and %11
|
|
add a
|
|
add a
|
|
add e
|
|
add a
|
|
ld e, a
|
|
ld d, 0
|
|
ld hl, .Frames
|
|
add hl, de
|
|
ld a, [hli]
|
|
ld h, [hl]
|
|
ld l, a
|
|
ret
|
|
|
|
.init
|
|
ld hl, wCreditsFaux2bpp
|
|
ret
|
|
; 109bf1 (42:5bf1)
|
|
|
|
.Frames: ; 109bf1
|
|
dw CreditsPichuGFX
|
|
dw CreditsPichuGFX + 16 tiles
|
|
dw CreditsPichuGFX + 32 tiles
|
|
dw CreditsPichuGFX + 48 tiles
|
|
dw CreditsSmoochumGFX
|
|
dw CreditsSmoochumGFX + 16 tiles
|
|
dw CreditsSmoochumGFX + 32 tiles
|
|
dw CreditsSmoochumGFX + 48 tiles
|
|
dw CreditsDittoGFX
|
|
dw CreditsDittoGFX + 16 tiles
|
|
dw CreditsDittoGFX + 32 tiles
|
|
dw CreditsDittoGFX + 48 tiles
|
|
dw CreditsIgglybuffGFX
|
|
dw CreditsIgglybuffGFX + 16 tiles
|
|
dw CreditsIgglybuffGFX + 32 tiles
|
|
dw CreditsIgglybuffGFX + 48 tiles
|
|
; 109c11
|
|
|
|
Credits_TheEnd: ; 109c11 (42:5c11)
|
|
ld a, $40
|
|
hlcoord 6, 9
|
|
call .Load
|
|
hlcoord 6, 10
|
|
.Load: ; 109c1c (42:5c1c)
|
|
ld c, 8
|
|
.loop
|
|
ld [hli], a
|
|
inc a
|
|
dec c
|
|
jr nz, .loop
|
|
ret
|
|
; 109c24 (42:5c24)
|
|
|
|
|
|
CreditsBorderGFX: INCBIN "gfx/credits/border.2bpp"
|
|
|
|
CreditsMonsGFX:
|
|
CreditsPichuGFX: INCBIN "gfx/credits/pichu.2bpp"
|
|
CreditsSmoochumGFX: INCBIN "gfx/credits/smoochum.2bpp"
|
|
CreditsDittoGFX: INCBIN "gfx/credits/ditto.2bpp"
|
|
CreditsIgglybuffGFX: INCBIN "gfx/credits/igglybuff.2bpp"
|
|
|
|
INCLUDE "data/credits_script.asm"
|
|
INCLUDE "data/credits_strings.asm"
|