1 files changed, 112 insertions, 0 deletions
diff --git a/de/engine/menu/diploma.asm b/de/engine/menu/diploma.asm
new file mode 100755
index 00000000..9f559b8a
--- /dev/null
+++ b/de/engine/menu/diploma.asm
@@ -0,0 +1,112 @@
+DisplayDiploma:
+	call SaveScreenTilesToBuffer2
+	call GBPalWhiteOutWithDelay3
+	call ClearScreen
+	xor a
+	ld [wUpdateSpritesEnabled], a
+	ld hl, wd730
+	set 6, [hl]
+	call DisableLCD
+	ld hl, CircleTile
+	ld de, vChars2 + $700
+	ld bc, $0010
+	ld a, BANK(CircleTile)
+	call FarCopyData2
+	coord hl, 0, 0
+	lb bc, 16, 18
+	predef Diploma_TextBoxBorder
+	ld hl, DiplomaTextPointersAndCoords
+	ld c, $5
+.asm_56715
+	push bc
+	ld a, [hli]
+	ld e, a
+	ld a, [hli]
+	ld d, a
+	ld a, [hli]
+	push hl
+	ld h, [hl]
+	ld l, a
+	call PlaceString
+	pop hl
+	inc hl
+	pop bc
+	dec c
+	jr nz, .asm_56715
+	coord hl, 9, 6
+	ld de, wPlayerName
+	call PlaceString
+	callba DrawPlayerCharacter
+
+; Move the player 33 pixels right and set the priority bit so he appears
+; behind the background layer.
+	ld hl, wOAMBuffer + $01
+	lb bc, $80, $28
+.adjustPlayerGfxLoop
+	ld a, [hl] ; X
+	add 33
+	ld [hli], a
+	inc hl
+	ld a, b
+	ld [hli], a ; attributes
+	inc hl
+	dec c
+	jr nz, .adjustPlayerGfxLoop
+
+	call EnableLCD
+	callba LoadTrainerInfoTextBoxTiles
+	ld b, SET_PAL_GENERIC
+	call RunPaletteCommand
+	call Delay3
+	call GBPalNormal
+	ld a, $90
+	ld [rOBP0], a
+	call WaitForTextScrollButtonPress
+	ld hl, wd730
+	res 6, [hl]
+	call GBPalWhiteOutWithDelay3
+	call RestoreScreenTilesAndReloadTilePatterns
+	call Delay3
+	jp GBPalNormal
+
+UnusedPlayerNameLengthFunc:
+; Unused function that does a calculation involving the length of the player's
+; name.
+	ld hl, wPlayerName
+	ld bc, $ff00
+.loop
+	ld a, [hli]
+	cp "@"
+	ret z
+	dec c
+	jr .loop
+
+DiplomaTextPointersAndCoords:
+	dw DiplomaText
+	dwCoord 6, 2
+	dw DiplomaPlayer1
+	dwCoord 2, 4
+	dw DiplomaPlayer2
+	dwCoord 2, 6
+	dw DiplomaCongrats
+	dwCoord 2, 8
+	dw DiplomaGameFreak
+	dwCoord 9, 16
+
+DiplomaText:
+	db $70,"Diplom",$70,"@"
+
+DiplomaPlayer1:
+	db "Herzlichen Glück-@"
+
+DiplomaPlayer2:
+	db "wunsch         !@"
+
+DiplomaCongrats:
+	db "Du hast es ge-"
+	next "schafft, den"
+	next "#DEX zu"
+	next "vervollständigen@"
+
+DiplomaGameFreak:
+	db "GAME FREAK@"