1 files changed, 167 insertions, 0 deletions
diff --git a/engine/diploma_3a.asm b/engine/diploma_3a.asm
new file mode 100755
index 00000000..3b633a1b
--- /dev/null
+++ b/engine/diploma_3a.asm
@@ -0,0 +1,167 @@
+_DisplayDiploma:
+	call GBPalWhiteOutWithDelay3
+	call ClearScreen
+	ld de, SurfingPikachu3Graphics
+	ld hl, vChars2
+	lb bc, BANK(SurfingPikachu3Graphics), (SurfingPikachu3GraphicsEnd - SurfingPikachu3Graphics) / $10
+	call CopyVideoData
+
+	coord hl, 0, 0
+	call Func_e9bdf
+
+	coord hl, 0, 0
+	call Func_e9beb
+
+	coord hl, 19, 0
+	call Func_e9beb
+
+	ld a, $00
+	coord hl, 0, 0
+	ld [hl], a
+	coord hl, 19, 0
+	ld [hl], a
+
+	ld de, String_e9a73
+	coord hl, 5, 2
+	call PlaceString
+
+	ld de, String_e9a7d
+	coord hl, 3, 4
+	call PlaceString
+
+	ld de, wPlayerName
+	coord hl, 10, 4
+	call PlaceString
+
+	ld de, String_e9a84
+	coord hl, 2, 6
+	call PlaceString
+
+	ld de, String_e9ac8
+	coord hl, 9, 16
+	call PlaceString
+
+	ld b, SET_PAL_GENERIC
+	call RunPaletteCommand
+	ld a, $01
+	ld [$ffba], a
+	call Delay3
+	call GBPalNormal
+	ret
+
+; e9a73
+String_e9a73:
+	db $10, "Diploma", $10, "@"
+
+String_e9a7d:
+	db "Player@"
+
+String_e9a84:
+	db   "Congrats! This"
+	next "diploma certifies"
+	next "that you have"
+	next "completed your"
+	next "#DEX.@"
+
+String_e9ac8:
+	db "GAME FREAK@"
+
+Func_e9ad3:
+	call ClearScreen
+	coord hl, 0, 17
+	call Func_e9bdf
+	coord hl, 0, 0
+	call Func_e9beb
+	coord hl, 19, 0
+	call Func_e9beb
+	ld a, $00
+	coord hl, 0, 17
+	ld [hl], a
+	coord hl, 19, 17
+	ld [hl], a
+	ld de, Tilemap_e9b3e
+	coord hl, 6, 2
+	lb bc, 10, 12
+	call Diploma_Surfing_CopyBox
+	ld de, Tilemap_e9bb6
+	coord hl, 5, 13
+	lb bc, 1, 11
+	call Diploma_Surfing_CopyBox
+	ld de, String_e9bd5
+	coord hl, 2, 15
+	call PlaceString
+	coord hl, 12, 15
+	ld de, wPlayTimeHours
+	lb bc, $40 | 1, 3
+	call PrintNumber
+	ld [hl], $16
+	inc hl
+	ld de, wPlayTimeMinutes
+	lb bc, $80 | 1, 2
+	call PrintNumber
+	ld a, [wNumSetBits]
+	cp 151
+	ret nz
+	ld de, TileMap_e9bc1
+	coord hl, 2, 0
+	lb bc, 4, 5
+	call Diploma_Surfing_CopyBox
+	ret
+
+Tilemap_e9b3e:
+	db $7f, $7f, $7f, $1a, $1b, $7f, $7f, $7f, $7f, $7f
+	db $7f, $7f, $7f, $7f, $7f, $1c, $1d, $1e, $1f, $20
+	db $7f, $21, $22, $23, $7f, $24, $25, $26, $27, $28
+	db $29, $2a, $2b, $2c, $2d, $2e, $2f, $30, $31, $32
+	db $33, $34, $35, $36, $37, $38, $39, $3a, $3b, $3c
+	db $7f, $3d, $3e, $3f, $40, $41, $42, $43, $29, $44
+	db $45, $46, $47, $48, $49, $4a, $4b, $29, $29, $4c
+	db $4d, $4e, $4f, $50, $51, $52, $53, $54, $55, $56
+	db $57, $58, $59, $7f, $7f, $7f, $5a, $5b, $5c, $5d
+	db $5e, $5f, $60, $61, $62, $7f, $7f, $7f, $7f, $63
+	db $64, $65, $66, $67, $68, $7f, $7f, $7f, $7f, $7f
+	db $7f, $69, $6a, $6b, $6c, $6d, $6e, $7f, $7f, $7f
+
+Tilemap_e9bb6:
+	db $05
+	db $06
+	db $07
+	db $08
+	db $09
+	db $0a
+	db $0b
+	db $0c
+	db $0d
+	db $0e
+	db $0f
+
+TileMap_e9bc1:
+	db $70, $71, $7f, $72, $7f
+	db $73, $74, $75, $76, $77
+	db $7f, $78, $11, $12, $13
+	db $7f, $7f, $14, $15, $7f
+
+String_e9bd5:  db "PLAY TIME@"
+
+Func_e9bdf:
+	ld c, 10
+.asm_e9be1
+	ld [hl], $02
+	inc hl
+	ld [hl], $01
+	inc hl
+	dec c
+	jr nz, .asm_e9be1
+	ret
+
+Func_e9beb:
+	ld c, 9
+	ld de, SCREEN_WIDTH
+.asm_e9bed
+	ld [hl], $04
+	add hl, de
+	ld [hl], $03
+	add hl, de
+	dec c
+	jr nz, .asm_e9bed
+	ret