ref: 40ea6a5f757bbbfdb4296e5acf644f6679a03a14
dir: /engine/menu/diploma.asm/
DisplayDiploma: ; 566e2 (15:66e2) 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 hlCoord 0, 0 ld bc, $1012 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 hlCoord 10, 4 ld de, wPlayerName call PlaceString callba Func_44dd ld hl, wOAMBuffer + $01 ld bc, $8028 .asm_5673e ld a, [hl] add $21 ld [hli], a inc hl ld a, b ld [hli], a inc hl dec c jr nz, .asm_5673e call EnableLCD callba LoadTrainerInfoTextBoxTiles ld b, $8 call GoPAL_SET 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 Func_56777: ; 56777 (15:6777) ld hl, wPlayerName ld bc, $ff00 .asm_5677d ld a, [hli] cp $50 ret z dec c jr .asm_5677d DiplomaTextPointersAndCoords: ; 56784 (15:6784) dw DiplomaText dwCoord 5, 2 dw DiplomaPlayer dwCoord 3, 4 dw DiplomaEmptyText dwCoord 15, 4 dw DiplomaCongrats dwCoord 2, 6 dw DiplomaGameFreak dwCoord 9, 16 DiplomaText: db $70,"Diploma",$70,"@" DiplomaPlayer: db "Player@" DiplomaEmptyText: db "@" DiplomaCongrats: db "Congrats! This" next "diploma certifies" next "that you have" next "completed your" next "#DEX.@" DiplomaGameFreak: db "GAME FREAK@"