_Diploma::
	call ShowDiploma
	jp WaitPressAorB_BlinkCursor

ShowDiploma:
	call ClearBGPalettes
	call ClearTileMap
	call ClearSprites
	call DisableLCD
	ld hl, LZ_1dd805
	ld de, vBGTiles
	call Decompress
	ld hl, Tilemap_1ddc4b
	decoord 0, 0
	ld bc, SCREEN_WIDTH * SCREEN_HEIGHT
	rst CopyBytes
	ld de, .string_player
	hlcoord 2, 5
	call PlaceText
	ld de, PlayerName
	hlcoord 9, 5
	call PlaceString
	ld de, .congratulations
	hlcoord 2, 8
	call PlaceText
	call EnableLCD
	call ApplyTilemapInVBlank
	ld b, SCGB_SCROLLINGMENU
	predef GetSGBLayout
	call SetPalettes
	jp DelayFrame

.string_player
	text "Player"
	done

.congratulations
	db TX_COMPRESSED, $29, $23, $44, $64, $d7, $63, $c0, $66
	db $8a, $78, $56, $9d, $b8, $08, $2d, $44, $e8, $31
	db $d3, $c2, $64, $2f, $88, $e9, $d9, $e6, $5a
	db $4e, $9e, $17, $0a, $c6, $87, $e0, $39, $72, $74, $ef
	db $a9, $e1, $36, $84, $9c, $af, $6d, $ae, $ed, $8c, $24, $47
	db $1a, $68

PrintDiplomaPlayTimeAndSignature:
	hlcoord 0, 0
	ld bc, SCREEN_WIDTH * SCREEN_HEIGHT
	ld a, $7f
	call ByteFill
	ld hl, Tilemap_1dddb3
	decoord 0, 0
	ld bc, SCREEN_WIDTH * SCREEN_HEIGHT
	rst CopyBytes
	ld de, .signature_text
	hlcoord 6, 0
	call PlaceText
	ld de, .play_time_text
	hlcoord 3, 15
	call PlaceText
	hlcoord 12, 15
	ld de, GameTimeHours
	lb bc, 2, 4
	call PrintNum
	ld [hl], $67
	inc hl
	ld de, GameTimeMinutes
	lb bc, PRINTNUM_LEADINGZEROS | 1, 2
	jp PrintNum

.play_time_text
	db TX_COMPRESSED, $e1, $ee, $82, $85, $0d, $f3
	db $a6, $80

.signature_text
	db TX_COMPRESSED, $72, $68, $c8, $ac, $35, $70, $18, $32
	db $29, $a0

LZ_1dd805: INCBIN "gfx/unknown/1dd805.2bpp.lz"
Tilemap_1ddc4b: INCBIN "gfx/unknown/1ddc4b.tilemap"
Tilemap_1dddb3: INCBIN "gfx/unknown/1dddb3.tilemap"

