pokecrystal/engine/events/diploma.asm

_Diploma:
	call PlaceDiplomaOnScreen
	call WaitPressAorB_BlinkCursor
	ret

PlaceDiplomaOnScreen:
	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, wPlayerName
	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

.Player:
	db "PLAYER@"

.EmptyString:
	db "@"

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

PrintDiplomaPage2:
	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, wGameTimeHours
	lb bc, 2, 4
	call PrintNum
	ld [hl], $67 ; colon
	inc hl
	ld de, wGameTimeMinutes
	lb bc, PRINTNUM_LEADINGZEROS | 1, 2
	call PrintNum
	ret

.PlayTime: db "PLAY TIME@"
.GameFreak: db "GAME FREAK@"

DiplomaGFX:
INCBIN "gfx/diploma/diploma.2bpp.lz"

DiplomaPage1Tilemap:
INCBIN "gfx/diploma/page1.tilemap"

DiplomaPage2Tilemap:
INCBIN "gfx/diploma/page2.tilemap"
Remove all address comments 2018-06-24 14:09:41 +00:00			`_Diploma:`
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`

Remove all address comments 2018-06-24 14:09:41 +00:00			`PlaceDiplomaOnScreen:`
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`
Prefix wram labels with w, part 2. 2018-01-23 22:39:09 +00:00			`ld de, wPlayerName`
Split out the diploma code. 2015-02-11 22:08:07 +00:00			`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`

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 "@"`

Remove all address comments 2018-06-24 14:09:41 +00:00			`PrintDiplomaPage2:`
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`
Prefix wram labels with w, part 2. 2018-01-23 22:39:09 +00:00			`ld de, wGameTimeHours`
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`
Prefix wram labels with w, part 2. 2018-01-23 22:39:09 +00:00			`ld de, wGameTimeMinutes`
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`

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
Remove all address comments 2018-06-24 14:09:41 +00:00			`DiplomaGFX:`
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
Remove all address comments 2018-06-24 14:09:41 +00:00			`DiplomaPage1Tilemap:`
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
Remove all address comments 2018-06-24 14:09:41 +00:00			`DiplomaPage2Tilemap:`
Move some gfx/unknown/ files into meaningful directories 2017-12-10 04:37:08 +00:00			`INCBIN "gfx/diploma/page2.tilemap"`