pokecrystal/engine/diploma.asm

_Diploma: ; 1dd702
	call PlaceDiplomaOnScreen
	call WaitPressAorB_BlinkCursor
	ret
; 1dd709

PlaceDiplomaOnScreen: ; 1dd709
	call ClearBGPalettes
	call ClearTileMap
	call ClearSprites
	call DisableLCD
	ld hl, DiplomaGFX
	ld de, vTiles2
	call Decompress
	ld hl, DiplomaPage1Tilemap
	decoord 0, 0
	ld bc, SCREEN_WIDTH * SCREEN_HEIGHT
	call CopyBytes
	ld de, .Player
	hlcoord 2, 5
	call PlaceString
	ld de, .EmptyString
	hlcoord 15, 5
	call PlaceString
	ld de, PlayerName
	hlcoord 9, 5
	call PlaceString
	ld de, .Certification
	hlcoord 2, 8
	call PlaceString
	call EnableLCD
	call WaitBGMap
	ld b, SCGB_DIPLOMA
	call GetSGBLayout
	call SetPalettes
	call DelayFrame
	ret
; 1dd760

.Player:
	db "PLAYER@"

.EmptyString:
	db "@"

.Certification:
	db   "This certifies"
	next "that you have"
	next "completed the"
	next "new #DEX."
	next "Congratulations!"
	db   "@"
; 1dd7ae

PrintDiplomaPage2: ; 1dd7ae
	hlcoord 0, 0
	ld bc, SCREEN_WIDTH * SCREEN_HEIGHT
	ld a, $7f
	call ByteFill
	ld hl, DiplomaPage2Tilemap
	decoord 0, 0
	ld bc, SCREEN_WIDTH * SCREEN_HEIGHT
	call CopyBytes
	ld de, .GameFreak
	hlcoord 8, 0
	call PlaceString
	ld de, .PlayTime
	hlcoord 3, 15
	call PlaceString
	hlcoord 12, 15
	ld de, GameTimeHours
	lb bc, 2, 4
	call PrintNum
	ld [hl], $67 ; colon
	inc hl
	ld de, GameTimeMinutes
	lb bc, PRINTNUM_LEADINGZEROS | 1, 2
	call PrintNum
	ret
; 1dd7f0

.PlayTime: db "PLAY TIME@"
.GameFreak: db "GAME FREAK@"
; 1dd805

DiplomaGFX: ; 1dd805
INCBIN "gfx/diploma/diploma.2bpp.lz"

DiplomaPage1Tilemap: ; 1ddc4b
INCBIN "gfx/diploma/page1.tilemap"

DiplomaPage2Tilemap: ; 1dddb3
INCBIN "gfx/diploma/page2.tilemap"
More specials; bank 12 mobile 2015-11-17 03:29:54 +00:00			`_Diploma: ; 1dd702`
Name all printer functions 2016-05-11 21:16:03 +00:00			`call PlaceDiplomaOnScreen`
Added w3 and w5 labels for misc/mobile_40.asm 2015-11-11 04:23:28 +00:00			`call WaitPressAorB_BlinkCursor`
Split out the diploma code. 2015-02-11 22:08:07 +00:00			`ret`
			`; 1dd709`

Name all printer functions 2016-05-11 21:16:03 +00:00			`PlaceDiplomaOnScreen: ; 1dd709`
More splits; map setup labels 2015-11-12 04:38:57 +00:00			`call ClearBGPalettes`
Split out the diploma code. 2015-02-11 22:08:07 +00:00			`call ClearTileMap`
			`call ClearSprites`
			`call DisableLCD`
Name all printer functions 2016-05-11 21:16:03 +00:00			`ld hl, DiplomaGFX`
Lowercase v for VRAM addresses 2017-12-28 12:32:33 +00:00			`ld de, vTiles2`
Split out the diploma code. 2015-02-11 22:08:07 +00:00			`call Decompress`
Name all printer functions 2016-05-11 21:16:03 +00:00			`ld hl, DiplomaPage1Tilemap`
Various annotations Annotated the SGB functions in predef/sgb.asm, and some of the map scripts. Renamed several functions in home. Renamed six WRAM addresses corresponding to party icon animations, and renamed several others relative to these. 2015-07-22 19:57:02 +00:00			`decoord 0, 0`
			`ld bc, SCREEN_WIDTH * SCREEN_HEIGHT`
Split out the diploma code. 2015-02-11 22:08:07 +00:00			`call CopyBytes`
Name all printer functions 2016-05-11 21:16:03 +00:00			`ld de, .Player`
Split out the diploma code. 2015-02-11 22:08:07 +00:00			`hlcoord 2, 5`
			`call PlaceString`
Name all printer functions 2016-05-11 21:16:03 +00:00			`ld de, .EmptyString`
Split out the diploma code. 2015-02-11 22:08:07 +00:00			`hlcoord 15, 5`
			`call PlaceString`
			`ld de, PlayerName`
			`hlcoord 9, 5`
			`call PlaceString`
Name all printer functions 2016-05-11 21:16:03 +00:00			`ld de, .Certification`
Split out the diploma code. 2015-02-11 22:08:07 +00:00			`hlcoord 2, 8`
			`call PlaceString`
			`call EnableLCD`
			`call WaitBGMap`
Remaining layout constants 2016-06-06 22:23:00 +00:00			`ld b, SCGB_DIPLOMA`
Split out the diploma code. 2015-02-11 22:08:07 +00:00			`call GetSGBLayout`
changed more labels 2015-09-09 23:27:07 +00:00			`call SetPalettes`
Split out the diploma code. 2015-02-11 22:08:07 +00:00			`call DelayFrame`
			`ret`
			`; 1dd760`

Name all printer functions 2016-05-11 21:16:03 +00:00			`.Player:`
Split out the diploma code. 2015-02-11 22:08:07 +00:00			`db "PLAYER@"`

Name all printer functions 2016-05-11 21:16:03 +00:00			`.EmptyString:`
Split out the diploma code. 2015-02-11 22:08:07 +00:00			`db "@"`

Name all printer functions 2016-05-11 21:16:03 +00:00			`.Certification:`
Split out the diploma code. 2015-02-11 22:08:07 +00:00			`db "This certifies"`
			`next "that you have"`
			`next "completed the"`
			`next "new #DEX."`
			`next "Congratulations!"`
			`db "@"`
			`; 1dd7ae`

Name all printer functions 2016-05-11 21:16:03 +00:00			`PrintDiplomaPage2: ; 1dd7ae`
Various annotations Annotated the SGB functions in predef/sgb.asm, and some of the map scripts. Renamed several functions in home. Renamed six WRAM addresses corresponding to party icon animations, and renamed several others relative to these. 2015-07-22 19:57:02 +00:00			`hlcoord 0, 0`
			`ld bc, SCREEN_WIDTH * SCREEN_HEIGHT`
Split out the diploma code. 2015-02-11 22:08:07 +00:00			`ld a, $7f`
			`call ByteFill`
Name all printer functions 2016-05-11 21:16:03 +00:00			`ld hl, DiplomaPage2Tilemap`
Various annotations Annotated the SGB functions in predef/sgb.asm, and some of the map scripts. Renamed several functions in home. Renamed six WRAM addresses corresponding to party icon animations, and renamed several others relative to these. 2015-07-22 19:57:02 +00:00			`decoord 0, 0`
			`ld bc, SCREEN_WIDTH * SCREEN_HEIGHT`
Split out the diploma code. 2015-02-11 22:08:07 +00:00			`call CopyBytes`
Name all printer functions 2016-05-11 21:16:03 +00:00			`ld de, .GameFreak`
Split out the diploma code. 2015-02-11 22:08:07 +00:00			`hlcoord 8, 0`
			`call PlaceString`
Name all printer functions 2016-05-11 21:16:03 +00:00			`ld de, .PlayTime`
Split out the diploma code. 2015-02-11 22:08:07 +00:00			`hlcoord 3, 15`
			`call PlaceString`
			`hlcoord 12, 15`
			`ld de, GameTimeHours`
Annotation of PrintNum arguments in bc, and radio functions 2015-10-10 21:03:04 +00:00			`lb bc, 2, 4`
Split out the diploma code. 2015-02-11 22:08:07 +00:00			`call PrintNum`
Name all printer functions 2016-05-11 21:16:03 +00:00			`ld [hl], $67 ; colon`
Split out the diploma code. 2015-02-11 22:08:07 +00:00			`inc hl`
			`ld de, GameTimeMinutes`
Annotation of PrintNum arguments in bc, and radio functions 2015-10-10 21:03:04 +00:00			`lb bc, PRINTNUM_LEADINGZEROS \| 1, 2`
Split out the diploma code. 2015-02-11 22:08:07 +00:00			`call PrintNum`
			`ret`
			`; 1dd7f0`

Name all printer functions 2016-05-11 21:16:03 +00:00			`.PlayTime: db "PLAY TIME@"`
			`.GameFreak: db "GAME FREAK@"`
Split out the diploma code. 2015-02-11 22:08:07 +00:00			`; 1dd805`

Name all printer functions 2016-05-11 21:16:03 +00:00			`DiplomaGFX: ; 1dd805`
Move some gfx/unknown/ files into meaningful directories 2017-12-10 04:37:08 +00:00			`INCBIN "gfx/diploma/diploma.2bpp.lz"`
Split out the diploma code. 2015-02-11 22:08:07 +00:00
Name all printer functions 2016-05-11 21:16:03 +00:00			`DiplomaPage1Tilemap: ; 1ddc4b`
Move some gfx/unknown/ files into meaningful directories 2017-12-10 04:37:08 +00:00			`INCBIN "gfx/diploma/page1.tilemap"`
Split out the diploma code. 2015-02-11 22:08:07 +00:00
Name all printer functions 2016-05-11 21:16:03 +00:00			`DiplomaPage2Tilemap: ; 1dddb3`
Move some gfx/unknown/ files into meaningful directories 2017-12-10 04:37:08 +00:00			`INCBIN "gfx/diploma/page2.tilemap"`