1 files changed, 176 insertions, 0 deletions
diff --git a/scripts/CeladonMansion3F.asm b/scripts/CeladonMansion3F.asm
new file mode 100755
index 00000000..64a8343b
--- /dev/null
+++ b/scripts/CeladonMansion3F.asm
@@ -0,0 +1,176 @@
+CeladonMansion3F_Script:
+	call EnableAutoTextBoxDrawing
+	ret
+
+CeladonMansion3_PokedexCount:
+	ld hl, wPokedexOwned
+	ld b, wPokedexOwnedEnd - wPokedexOwned
+	call CountSetBits
+	ld a, [wNumSetBits]
+	ret
+
+CeladonMansion3F_TextPointers:
+	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_BLINK
+	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