pokeyellow/scripts/celadonmansion3.asm
2016-06-08 05:44:58 -06:00

177 lines
2.9 KiB
NASM
Executable File

CeladonMansion3Script:
call EnableAutoTextBoxDrawing
ret
CeladonMansion3_PokedexCount:
ld hl, wPokedexOwned
ld b, wPokedexOwnedEnd - wPokedexOwned
call CountSetBits
ld a, [wNumSetBits]
ret
CeladonMansion3TextPointers:
dw ProgrammerText
dw GraphicArtistText
dw WriterText
dw DirectorText
dw GameFreakPCText1
dw GameFreakPCText2
dw GameFreakPCText3
dw GameFreakSignText
ProgrammerText:
TX_ASM
call CeladonMansion3_PokedexCount
cp 150
ld hl, CeladonMansion3Text_486f5
jr nc, .print
ld hl, CeladonMansion3Text_486f0
.print
call PrintText
jp TextScriptEnd
CeladonMansion3Text_486f0:
TX_FAR _ProgrammerText
db "@"
CeladonMansion3Text_486f5:
TX_FAR _ProgrammerText2
db "@"
GraphicArtistText:
TX_ASM
call CeladonMansion3_PokedexCount
cp 150
jr nc, .completed
ld hl, CeladonMansion3Text_48757
jr .print
.completed
ld hl, CeladonMansion3Text_4875c
call PrintText
call YesNoChoice
ld a, [wCurrentMenuItem]
and a
jr nz, .declined_print
call SaveScreenTilesToBuffer2
xor a
ld [wUpdateSpritesEnabled], a
ld hl, wd730
set 6, [hl]
callab PrintDiploma
ld hl, wd730
res 6, [hl]
call GBPalWhiteOutWithDelay3
call ReloadTilesetTilePatterns
call RestoreScreenTilesAndReloadTilePatterns
call LoadScreenTilesFromBuffer2
call Delay3
call GBPalNormal
ld hl, CeladonMansion3Text_4876b
ld a, [$ffdb]
and a
jr nz, .print
ld hl, CeladonMansion3Text_48766
jr .print
.declined_print
ld hl, CeladonMansion3Text_48761
.print
call PrintText
jp TextScriptEnd
CeladonMansion3Text_48757:
TX_FAR _GraphicArtistText
db "@"
CeladonMansion3Text_4875c:
TX_FAR _GraphicArtistText2
db "@"
CeladonMansion3Text_48761:
TX_FAR _GraphicArtistText3
db "@"
CeladonMansion3Text_48766:
TX_FAR _GraphicArtistText4
db "@"
CeladonMansion3Text_4876b:
TX_FAR _GraphicArtistText5
db "@"
WriterText:
TX_ASM
call CeladonMansion3_PokedexCount
cp 150
ld hl, CeladonMansion3Text_48789
jr nc, .print
ld hl, CeladonMansion3Text_48784
.print
call PrintText
jp TextScriptEnd
CeladonMansion3Text_48784:
TX_FAR _WriterText
db "@"
CeladonMansion3Text_48789:
TX_FAR _WriterText2
db "@"
DirectorText:
TX_ASM
call CeladonMansion3_PokedexCount
; check pokédex
cp 150
jr nc, .CompletedDex
ld hl, .GameDesigner
jr .done
.CompletedDex
ld hl, .CompletedDexText
call PrintText
call Delay3
xor a
ld [wDoNotWaitForButtonPressAfterDisplayingText], a
ld hl, .UnlockedDiplomaPrinting
.done
call PrintText
jp TextScriptEnd
.GameDesigner
TX_FAR _GameDesignerText
db "@"
.CompletedDexText
TX_FAR _CompletedDexText
TX_BUTTON_SOUND
TX_ASM
callab DisplayDiploma
ld a, $1
ld [wDoNotWaitForButtonPressAfterDisplayingText], a
jp TextScriptEnd
.UnlockedDiplomaPrinting
TX_FAR _CompletedDexText2
db "@"
GameFreakPCText1:
TX_ASM
callba Func_f1ef3
jp TextScriptEnd
GameFreakPCText2:
TX_ASM
callba Func_f1eff
jp TextScriptEnd
GameFreakPCText3:
TX_ASM
callba Func_f1f0b
jp TextScriptEnd
GameFreakSignText:
TX_ASM
callba Func_f1f17
jp TextScriptEnd