summaryrefslogtreecommitdiff
path: root/engine/HoF_room_pc.asm
diff options
context:
space:
mode:
authordannye <33dannye@gmail.com>2020-11-04 00:06:44 -0600
committerdannye <33dannye@gmail.com>2020-11-04 00:06:44 -0600
commit5647ca687b92954dcf37a6ea6bfbc9a341c32de4 (patch)
treedde1937a1bfdb3a835f4155e1c2eb8f1aaf86f63 /engine/HoF_room_pc.asm
parent53fcd05aa24693093d8af1dc8ec4fedd3957decc (diff)
Sync with pokered
Diffstat (limited to 'engine/HoF_room_pc.asm')
-rwxr-xr-xengine/HoF_room_pc.asm323
1 files changed, 0 insertions, 323 deletions
diff --git a/engine/HoF_room_pc.asm b/engine/HoF_room_pc.asm
deleted file mode 100755
index 71a98c59..00000000
--- a/engine/HoF_room_pc.asm
+++ /dev/null
@@ -1,323 +0,0 @@
-HallOfFamePC:
- callab AnimateHallOfFame
- call ClearScreen
- ld c, 100
- call DelayFrames
-
- call DisableLCD
- ld a, $a7
- ld [rWX], a
- xor a
- ld [rSCX], a
- ld [rSCY], a
- ld [hSCX], a
- ld [hSCY], a
- ld [hWY], a
- ld [rWY], a
- call CreditsLoadFont
- coord hl, 0, 0
- call FillFourRowsWithBlack
- coord hl, 0, 14
- call FillFourRowsWithBlack
- ld a, %11000000
- ld [rBGP], a
- call UpdateGBCPal_BGP
- call EnableLCD
- call StopAllMusic
- ld hl, vBGMap1
- call CreditsCopyTileMapToVRAM
- ld hl, vBGMap0
- call CreditsCopyTileMapToVRAM
- ld c, BANK(Music_Credits)
- ld a, MUSIC_CREDITS
- call PlayMusic
- ld c, 128
- call DelayFrames
- xor a
- ld [wHoFMonSpecies], a
- ld [wNumCreditsMonsDisplayed], a
- jp Credits
-
-FadeInCreditsText:
- ld a, 1
- ld [H_AUTOBGTRANSFERENABLED], a
- ld hl, HoFGBPalettes
- ld b, 4
-.loop
- ld a, [hli]
- ld [rBGP], a
- call UpdateGBCPal_BGP
- ld c, 5
- call DelayFrames
- dec b
- jr nz, .loop
- ret
-
-HoFGBPalettes:
- db %11000000
- db %11010000
- db %11100000
- db %11110000
-
-DisplayCreditsMon:
- ld hl, vBGMap1
- call CreditsCopyTileMapToVRAM
- xor a
- ld [H_AUTOBGTRANSFERENABLED], a
- ld hl, rLCDC
- set 3, [hl]
- call SaveScreenTilesToBuffer2
- call FillMiddleOfScreenWithWhite
- call GetNextCreditsMon
- ld hl, vBGMap0 + 12
- call CreditsCopyTileMapToVRAM
- xor a
- ld [H_AUTOBGTRANSFERENABLED], a
- call LoadScreenTilesFromBuffer2DisableBGTransfer
- ld hl, vBGMap0
- call CreditsCopyTileMapToVRAM
- ld a, %11111100 ; make the mon a black silhouette
- ld [rBGP], a
- call UpdateGBCPal_BGP
- ld hl, rLCDC
- res 3, [hl]
- ld a, 1
- ld [H_AUTOBGTRANSFERENABLED], a
- ld b, 0
- ld c, 10
- call ScrollCreditsMonLeft
- call FillLeftHalfOfScreenWithWhite
- ld c, 10
- call ScrollCreditsMonLeft
- call FillRightHalfOfScreenWithWhite
- ld c, 8
- call ScrollCreditsMonLeft
- ld a, %11000000
- ld [rBGP], a
- call UpdateGBCPal_BGP
- xor a
- ld [hSCX], a
- ret
-
-ScrollCreditsMonLeft:
- ld a, b
- ld [hSCX], a
- add 8
- ld b, a
- call DelayFrame
- dec c
- jr nz, ScrollCreditsMonLeft
- ret
-
-GetNextCreditsMon:
- ld hl, wNumCreditsMonsDisplayed
- ld c, [hl]
- inc [hl]
- ld b, 0
- ld hl, CreditsMons
- add hl, bc
- ld a, [hl]
- ld [wcf91], a
- ld [wd0b5], a
- coord hl, 8, 6
- call GetMonHeader
- call LoadFrontSpriteByMonIndex
- ret
-
-INCLUDE "data/credit_mons.asm"
-
-CreditsCopyTileMapToVRAM:
- ld a, l
- ld [H_AUTOBGTRANSFERDEST], a
- ld a, h
- ld [H_AUTOBGTRANSFERDEST + 1], a
- ld a, 1
- ld [H_AUTOBGTRANSFERENABLED], a
- jp Delay3
-
-CreditsLoadFont:
- call LoadFontTilePatterns
- ld hl, vChars1
- ld bc, $40 * $10
- call ZeroMemory
-
- call LoadTextBoxTilePatterns
- ld hl, vChars2 + $60 * $10
- ld bc, $10 * $10
- call ZeroMemory
-
- ld hl, vChars2 + $7e * $10
- ld bc, $1 * $10
- ld a, $ff
- call FillMemory
- ret
-
-ZeroMemory:
-; zero bc bytes at hl
- ld [hl], 0
- inc hl
- inc hl
- dec bc
- ld a, b
- or c
- jr nz, ZeroMemory
- ret
-
-FillFourRowsWithBlack:
- ld bc, SCREEN_WIDTH * 4
- ld a, $7e
- jp FillMemory
-
-FillMiddleOfScreenWithWhite:
- coord hl, 0, 4
- ld bc, SCREEN_WIDTH * 10
- ld a, " "
- jp FillMemory
-
-FillLeftHalfOfScreenWithWhite:
- coord hl, 0, 4
- push bc
- call FillHalfOfScreenWithWhite
- pop bc
- ret
-
-FillRightHalfOfScreenWithWhite:
- coord hl, 10, 4
- push bc
- call FillHalfOfScreenWithWhite
- pop bc
- ret
-
-FillHalfOfScreenWithWhite:
- ld b, 10
- ld c, 10
- ld a, " "
-.loop
- push bc
- push hl
-.innerLoop
- ld [hli], a
- dec c
- jr nz, .innerLoop
- pop hl
- ld bc, SCREEN_WIDTH
- add hl, bc
- pop bc
- dec b
- jr nz, .loop
- ret
-
-Credits: ; Roll credits
- ld de, CreditsOrder
- push de
-.nextCreditsScreen
- pop de
- coord hl, 9, 6
- push hl
- call FillMiddleOfScreenWithWhite
- pop hl
-.nextCreditsCommand
- ld a, [de]
- inc de
- push de
- cp $ff
- jr z, .fadeInTextAndShowMon
- cp $fe
- jr z, .showTextAndShowMon
- cp $fd
- jr z, .fadeInText
- cp $fc
- jr z, .showText
- cp $fb
- jr z, .showCopyrightText
- cp $fa
- jr z, .showTheEnd
- call PlaceCreditsText
- pop de
- jr .nextCreditsCommand
-
-.showCopyrightText
- callba LoadCopyrightTiles
- pop de
- jr .nextCreditsCommand
-
-
-.fadeInTextAndShowMon
- call FadeInCreditsText
- ld c, 102
- jr .next1
-
-.showTextAndShowMon
- ld c, 122
-.next1
- call DelayFrames
- call DisplayCreditsMon
- jr .nextCreditsScreen
-
-.fadeInText
- call FadeInCreditsText
- ld c, 132
- jr .next2
-
-.showText
- ld c, 152
-.next2
- call DelayFrames
- jr .nextCreditsScreen
-
-.showTheEnd
- call ShowTheEndGFX
- pop de
- ret
-
-ShowTheEndGFX:
- ld c, 24
- call DelayFrames
- call FillMiddleOfScreenWithWhite
- ld de, TheEndGfx
- ld hl, vChars2 + $600
- lb bc, BANK(TheEndGfx), (TheEndGfxEnd - TheEndGfx) / $10
- call CopyVideoData
- coord hl, 4, 8
- ld de, TheEndTextString
- call PlaceString
- coord hl, 4, 9
- inc de
- call PlaceString
- jp FadeInCreditsText
-
-TheEndTextString:
-; "T H E E N D"
- db $60, " ", $62, " ", $64, " ", $64, " ", $66, " ", $68, "@"
- db $61, " ", $63, " ", $65, " ", $65, " ", $67, " ", $69, "@"
-
-PlaceCreditsText:
- push hl
- push hl
- ld hl, CreditsTextPointers
- ld c, a
- ld b, 0
- add hl, bc
- add hl, bc
- ld e, [hl]
- inc hl
- ld d, [hl]
- pop hl
- ld a, [de]
- inc de
- ld c, a
- ld b, $ff
- add hl, bc
- call PlaceString
- pop hl
- ld bc, SCREEN_WIDTH * 2
- add hl, bc
- ret
-
-INCLUDE "data/credits_order.asm"
-
-INCLUDE "text/credits_text.asm"
-
-TheEndGfx:
- INCBIN "gfx/theend.2bpp"
-TheEndGfxEnd: