pokered/engine/events/diploma.asm

CIRCLE_TILE_ID EQU $70

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 tile CIRCLE_TILE_ID
	ld bc, $10
	ld a, BANK(CircleTile)
	call FarCopyData2
	hlcoord 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
	hlcoord 10, 4
	ld de, wPlayerName
	call PlaceString
	farcall 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
	farcall LoadTrainerInfoTextBoxTiles
	ld b, SET_PAL_GENERIC
	call RunPaletteCommand
	call Delay3
	call GBPalNormal
	ld a, $90
	ldh [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
	lb bc, $ff, $00
.loop
	ld a, [hli]
	cp "@"
	ret z
	dec c
	jr .loop

diploma_text: MACRO
	dw \3
	dwcoord \1, \2
ENDM

DiplomaTextPointersAndCoords:
	; x, y, text
	diploma_text  5,  2, DiplomaText
	diploma_text  3,  4, DiplomaPlayer
	diploma_text 15,  4, DiplomaEmptyText
	diploma_text  2,  6, DiplomaCongrats
	diploma_text  9, 16, DiplomaGameFreak

DiplomaText:
	db CIRCLE_TILE_ID, "Diploma", CIRCLE_TILE_ID, "@"

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@"
Port pokecrystal's formatting of text commands and special characters 2020-07-04 21:09:35 +00:00			`CIRCLE_TILE_ID EQU $70`

Separate maps.asm, pics.asm, sprites.asm, and tilesets.asm from main.asm (#251) Each new file builds its own .o, along with separate main.o and home.o, which necessitates many more "exported::" labels. 2020-06-27 19:32:24 +00:00			`DisplayDiploma::`
$U-Fish-PC\Daniel$ Pull a lot of engine out of main.asm 2014-05-22 22:13:20 +00:00			`call SaveScreenTilesToBuffer2`
			`call GBPalWhiteOutWithDelay3`
			`call ClearScreen`
			`xor a`
Commented more sprite and map code 2014-09-13 07:50:56 +00:00			`ld [wUpdateSpritesEnabled], a`
Remove most static wram addresses. Use labels instead. For unknown addresses, use "w<address>". Label overleads are still an issue. 2014-05-26 21:04:56 +00:00			`ld hl, wd730`
$U-Fish-PC\Daniel$ Pull a lot of engine out of main.asm 2014-05-22 22:13:20 +00:00			`set 6, [hl]`
			`call DisableLCD`
$U-Daniel-PC\Daniel$ Rename/organize part 1 of 4 rename functions, clean up address/wram comments, other misc only broken up so that all changes are viewable on github 2015-07-03 19:37:53 +00:00			`ld hl, CircleTile`
Use 'tile' and 'tiles' macros 2020-07-07 19:09:54 +00:00			`ld de, vChars2 tile CIRCLE_TILE_ID`
Remove remaining raw $xxxx values, and replace "+ -1" with "- 1" (supported by rgbds 0.4.0) 2020-07-04 05:00:45 +00:00			`ld bc, $10`
$U-Fish-PC\Daniel$ Pull a lot of engine out of main.asm 2014-05-22 22:13:20 +00:00			`ld a, BANK(CircleTile)`
			`call FarCopyData2`
Sync coordinate macros with pokecrystal 2020-07-07 15:30:10 +00:00			`hlcoord 0, 0`
Use more lb and other clean up 2015-08-05 21:20:29 +00:00			`lb bc, 16, 18`
serial/trade/misc 2015-02-07 10:43:08 +00:00			`predef Diploma_TextBoxBorder`
$U-Daniel-PC\Daniel$ Rename/organize part 1 of 4 rename functions, clean up address/wram comments, other misc only broken up so that all changes are viewable on github 2015-07-03 19:37:53 +00:00			`ld hl, DiplomaTextPointersAndCoords`
$U-Fish-PC\Daniel$ Pull a lot of engine out of main.asm 2014-05-22 22:13:20 +00:00			`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`
$U-Daniel-PC\Daniel$ Rename/organize part 1 of 4 rename functions, clean up address/wram comments, other misc only broken up so that all changes are viewable on github 2015-07-03 19:37:53 +00:00			`jr nz, .asm_56715`
Sync coordinate macros with pokecrystal 2020-07-07 15:30:10 +00:00			`hlcoord 10, 4`
Use monster struct macros in wram. Rename related labels for consistency. 2014-06-14 11:12:40 +00:00			`ld de, wPlayerName`
$U-Fish-PC\Daniel$ Pull a lot of engine out of main.asm 2014-05-22 22:13:20 +00:00			`call PlaceString`
callba/callab -> farcall/callfar; jpba/jpab -> farjp/jpfar 2020-07-07 01:18:22 +00:00			`farcall DrawPlayerCharacter`
title / diploma / vending machine 2015-07-17 07:16:27 +00:00
			`; Move the player 33 pixels right and set the priority bit so he appears`
			`; behind the background layer.`
Remove most static wram addresses. Use labels instead. For unknown addresses, use "w<address>". Label overleads are still an issue. 2014-05-26 21:04:56 +00:00			`ld hl, wOAMBuffer + $01`
Use more lb and other clean up 2015-08-05 21:20:29 +00:00			`lb bc, $80, $28`
title / diploma / vending machine 2015-07-17 07:16:27 +00:00			`.adjustPlayerGfxLoop`
			`ld a, [hl] ; X`
			`add 33`
$U-Fish-PC\Daniel$ Pull a lot of engine out of main.asm 2014-05-22 22:13:20 +00:00			`ld [hli], a`
			`inc hl`
			`ld a, b`
title / diploma / vending machine 2015-07-17 07:16:27 +00:00			`ld [hli], a ; attributes`
$U-Fish-PC\Daniel$ Pull a lot of engine out of main.asm 2014-05-22 22:13:20 +00:00			`inc hl`
			`dec c`
title / diploma / vending machine 2015-07-17 07:16:27 +00:00			`jr nz, .adjustPlayerGfxLoop`

$U-Fish-PC\Daniel$ Pull a lot of engine out of main.asm 2014-05-22 22:13:20 +00:00			`call EnableLCD`
callba/callab -> farcall/callfar; jpba/jpab -> farjp/jpfar 2020-07-07 01:18:22 +00:00			`farcall LoadTrainerInfoTextBoxTiles`
commented SGB palette stuff 2015-08-12 09:16:56 +00:00			`ld b, SET_PAL_GENERIC`
			`call RunPaletteCommand`
$U-Fish-PC\Daniel$ Pull a lot of engine out of main.asm 2014-05-22 22:13:20 +00:00			`call Delay3`
			`call GBPalNormal`
			`ld a, $90`
Specify the ldh instruction, don't turn ld into ldh 2020-07-06 23:03:05 +00:00			`ldh [rOBP0], a`
$U-Fish-PC\Daniel$ Pull a lot of engine out of main.asm 2014-05-22 22:13:20 +00:00			`call WaitForTextScrollButtonPress`
Remove most static wram addresses. Use labels instead. For unknown addresses, use "w<address>". Label overleads are still an issue. 2014-05-26 21:04:56 +00:00			`ld hl, wd730`
$U-Fish-PC\Daniel$ Pull a lot of engine out of main.asm 2014-05-22 22:13:20 +00:00			`res 6, [hl]`
			`call GBPalWhiteOutWithDelay3`
Labelled and commented mostly sprite-related things 2014-09-10 03:55:19 +00:00			`call RestoreScreenTilesAndReloadTilePatterns`
$U-Fish-PC\Daniel$ Pull a lot of engine out of main.asm 2014-05-22 22:13:20 +00:00			`call Delay3`
			`jp GBPalNormal`

remove address comments 2016-06-12 00:24:04 +00:00			`UnusedPlayerNameLengthFunc:`
title / diploma / vending machine 2015-07-17 07:16:27 +00:00			`; Unused function that does a calculation involving the length of the player's`
			`; name.`
Use monster struct macros in wram. Rename related labels for consistency. 2014-06-14 11:12:40 +00:00			`ld hl, wPlayerName`
Replace raw hex values with HRAM constants To do: turn constants into labels and use ldh 2020-07-04 02:11:35 +00:00			`lb bc, $ff, $00`
title / diploma / vending machine 2015-07-17 07:16:27 +00:00			`.loop`
$U-Fish-PC\Daniel$ Pull a lot of engine out of main.asm 2014-05-22 22:13:20 +00:00			`ld a, [hli]`
title / diploma / vending machine 2015-07-17 07:16:27 +00:00			`cp "@"`
$U-Fish-PC\Daniel$ Pull a lot of engine out of main.asm 2014-05-22 22:13:20 +00:00			`ret z`
			`dec c`
title / diploma / vending machine 2015-07-17 07:16:27 +00:00			`jr .loop`
$U-Fish-PC\Daniel$ Pull a lot of engine out of main.asm 2014-05-22 22:13:20 +00:00
Use constants to delineate map types, and factor out more data 2020-08-31 14:23:19 +00:00			`diploma_text: MACRO`
			`dw \3`
			`dwcoord \1, \2`
			`ENDM`

remove address comments 2016-06-12 00:24:04 +00:00			`DiplomaTextPointersAndCoords:`
Use constants to delineate map types, and factor out more data 2020-08-31 14:23:19 +00:00			`; x, y, text`
			`diploma_text 5, 2, DiplomaText`
			`diploma_text 3, 4, DiplomaPlayer`
			`diploma_text 15, 4, DiplomaEmptyText`
			`diploma_text 2, 6, DiplomaCongrats`
			`diploma_text 9, 16, DiplomaGameFreak`
$U-Fish-PC\Daniel$ Pull a lot of engine out of main.asm 2014-05-22 22:13:20 +00:00
			`DiplomaText:`
Port pokecrystal's formatting of text commands and special characters 2020-07-04 21:09:35 +00:00			`db CIRCLE_TILE_ID, "Diploma", CIRCLE_TILE_ID, "@"`
$U-Fish-PC\Daniel$ Pull a lot of engine out of main.asm 2014-05-22 22:13:20 +00:00
			`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@"`