pokecrystal-board/engine/events/prof_oaks_pc.asm

ProfOaksPC:
	ld hl, OakPCText1
	call MenuTextbox
	call YesNoBox
	jr c, .shutdown
	call ProfOaksPCBoot ; player chose "yes"?
.shutdown
	ld hl, OakPCText4
	call PrintText
	call JoyWaitAorB
	call ExitMenu
	ret

ProfOaksPCBoot:
	ld hl, OakPCText2
	call PrintText
	call Rate
	call PlaySFX ; sfx loaded by previous Rate function call
	call JoyWaitAorB
	call WaitSFX
	ret

ProfOaksPCRating:
	call Rate
	push de
	ld de, MUSIC_NONE
	call PlayMusic
	pop de
	call PlaySFX
	call JoyWaitAorB
	call WaitSFX
	ret

Rate:
; calculate Seen/Owned
	ld hl, wPokedexSeen
	ld b, wEndPokedexSeen - wPokedexSeen
	call CountSetBits
	ld [wTempPokedexSeenCount], a
	ld hl, wPokedexCaught
	ld b, wEndPokedexCaught - wPokedexCaught
	call CountSetBits
	ld [wTempPokedexCaughtCount], a

; print appropriate rating
	call .UpdateRatingBuffers
	ld hl, OakPCText3
	call PrintText
	call JoyWaitAorB
	ld a, [wTempPokedexCaughtCount]
	ld hl, OakRatings
	call FindOakRating
	push de
	call PrintText
	pop de
	ret

.UpdateRatingBuffers:
	ld hl, wStringBuffer3
	ld de, wTempPokedexSeenCount
	call .UpdateRatingBuffer
	ld hl, wStringBuffer4
	ld de, wTempPokedexCaughtCount
	call .UpdateRatingBuffer
	ret

.UpdateRatingBuffer:
	push hl
	ld a, "@"
	ld bc, ITEM_NAME_LENGTH
	call ByteFill
	pop hl
	lb bc, PRINTNUM_LEFTALIGN | 1, 3
	call PrintNum
	ret

FindOakRating:
; return sound effect in de
; return text pointer in hl
	nop
	ld c, a
.loop
	ld a, [hli]
	cp c
	jr nc, .match
rept 4
	inc hl
endr
	jr .loop

.match
	ld a, [hli]
	ld e, a
	ld a, [hli]
	ld d, a
	ld a, [hli]
	ld h, [hl]
	ld l, a
	ret

INCLUDE "data/events/pokedex_ratings.asm"

OakPCText1:
	text_far _OakPCText1
	text_end

OakPCText2:
	text_far _OakPCText2
	text_end

OakPCText3:
	text_far _OakPCText3
	text_end

OakRating01:
	text_far _OakRating01
	text_end

OakRating02:
	text_far _OakRating02
	text_end

OakRating03:
	text_far _OakRating03
	text_end

OakRating04:
	text_far _OakRating04
	text_end

OakRating05:
	text_far _OakRating05
	text_end

OakRating06:
	text_far _OakRating06
	text_end

OakRating07:
	text_far _OakRating07
	text_end

OakRating08:
	text_far _OakRating08
	text_end

OakRating09:
	text_far _OakRating09
	text_end

OakRating10:
	text_far _OakRating10
	text_end

OakRating11:
	text_far _OakRating11
	text_end

OakRating12:
	text_far _OakRating12
	text_end

OakRating13:
	text_far _OakRating13
	text_end

OakRating14:
	text_far _OakRating14
	text_end

OakRating15:
	text_far _OakRating15
	text_end

OakRating16:
	text_far _OakRating16
	text_end

OakRating17:
	text_far _OakRating17
	text_end

OakRating18:
	text_far _OakRating18
	text_end

OakRating19:
	text_far _OakRating19
	text_end

OakPCText4:
	text_far _OakPCText4
	text_end
Remove even more address comments That should be all of them this time 2018-06-24 17:10:37 -07:00			`ProfOaksPC:`
Pokegear 2016-01-10 14:44:09 -08:00			`ld hl, OakPCText1`
TextBox -> Textbox Homogenizing names. 2019-04-08 05:15:10 -07:00			`call MenuTextbox`
Pokegear 2016-01-10 14:44:09 -08:00			`call YesNoBox`
			`jr c, .shutdown`
Remove Special_ prefix from special routines (close #478) 2018-01-24 08:17:05 -08:00			`call ProfOaksPCBoot ; player chose "yes"?`
Pokegear 2016-01-10 14:44:09 -08:00			`.shutdown`
			`ld hl, OakPCText4`
			`call PrintText`
			`call JoyWaitAorB`
			`call ExitMenu`
			`ret`

Remove even more address comments That should be all of them this time 2018-06-24 17:10:37 -07:00			`ProfOaksPCBoot:`
Pokegear 2016-01-10 14:44:09 -08:00			`ld hl, OakPCText2`
			`call PrintText`
			`call Rate`
			`call PlaySFX ; sfx loaded by previous Rate function call`
			`call JoyWaitAorB`
			`call WaitSFX`
			`ret`

Remove even more address comments That should be all of them this time 2018-06-24 17:10:37 -07:00			`ProfOaksPCRating:`
Pokegear 2016-01-10 14:44:09 -08:00			`call Rate`
			`push de`
			`ld de, MUSIC_NONE`
			`call PlayMusic`
			`pop de`
			`call PlaySFX`
			`call JoyWaitAorB`
			`call WaitSFX`
			`ret`

Remove even more address comments That should be all of them this time 2018-06-24 17:10:37 -07:00			`Rate:`
Pokegear 2016-01-10 14:44:09 -08:00			`; calculate Seen/Owned`
Prefix wram labels with w, part 2. 2018-01-23 14:39:09 -08:00			`ld hl, wPokedexSeen`
			`ld b, wEndPokedexSeen - wPokedexSeen`
Pokegear 2016-01-10 14:44:09 -08:00			`call CountSetBits`
Identify the remaining (non-mobile) uses of another WRAM union 2020-10-29 11:45:40 -07:00			`ld [wTempPokedexSeenCount], a`
Prefix wram labels with w, part 2. 2018-01-23 14:39:09 -08:00			`ld hl, wPokedexCaught`
			`ld b, wEndPokedexCaught - wPokedexCaught`
Pokegear 2016-01-10 14:44:09 -08:00			`call CountSetBits`
Identify the remaining (non-mobile) uses of another WRAM union 2020-10-29 11:45:40 -07:00			`ld [wTempPokedexCaughtCount], a`
Pokegear 2016-01-10 14:44:09 -08:00
			`; print appropriate rating`
			`call .UpdateRatingBuffers`
			`ld hl, OakPCText3`
			`call PrintText`
			`call JoyWaitAorB`
Identify the remaining (non-mobile) uses of another WRAM union 2020-10-29 11:45:40 -07:00			`ld a, [wTempPokedexCaughtCount]`
Pokegear 2016-01-10 14:44:09 -08:00			`ld hl, OakRatings`
			`call FindOakRating`
			`push de`
			`call PrintText`
			`pop de`
			`ret`

Remove even more address comments That should be all of them this time 2018-06-24 17:10:37 -07:00			`.UpdateRatingBuffers:`
Prefix wram labels with w, part 2. 2018-01-23 14:39:09 -08:00			`ld hl, wStringBuffer3`
Identify the remaining (non-mobile) uses of another WRAM union 2020-10-29 11:45:40 -07:00			`ld de, wTempPokedexSeenCount`
Pokegear 2016-01-10 14:44:09 -08:00			`call .UpdateRatingBuffer`
Prefix wram labels with w, part 2. 2018-01-23 14:39:09 -08:00			`ld hl, wStringBuffer4`
Identify the remaining (non-mobile) uses of another WRAM union 2020-10-29 11:45:40 -07:00			`ld de, wTempPokedexCaughtCount`
Pokegear 2016-01-10 14:44:09 -08:00			`call .UpdateRatingBuffer`
			`ret`

Remove even more address comments That should be all of them this time 2018-06-24 17:10:37 -07:00			`.UpdateRatingBuffer:`
Pokegear 2016-01-10 14:44:09 -08:00			`push hl`
			`ld a, "@"`
			`ld bc, ITEM_NAME_LENGTH`
			`call ByteFill`
			`pop hl`
Bit 6 of PrintNum left-aligns numbers 2019-11-03 17:17:04 -08:00			`lb bc, PRINTNUM_LEFTALIGN \| 1, 3`
Pokegear 2016-01-10 14:44:09 -08:00			`call PrintNum`
			`ret`

Remove even more address comments That should be all of them this time 2018-06-24 17:10:37 -07:00			`FindOakRating:`
Pokegear 2016-01-10 14:44:09 -08:00			`; return sound effect in de`
			`; return text pointer in hl`
			`nop`
			`ld c, a`
			`.loop`
			`ld a, [hli]`
			`cp c`
			`jr nc, .match`
			`rept 4`
			`inc hl`
			`endr`
			`jr .loop`

			`.match`
			`ld a, [hli]`
			`ld e, a`
			`ld a, [hli]`
			`ld d, a`
			`ld a, [hli]`
			`ld h, [hl]`
			`ld l, a`
			`ret`

Move event data to data/events/ 2018-01-25 19:19:24 -08:00			`INCLUDE "data/events/pokedex_ratings.asm"`
Pokegear 2016-01-10 14:44:09 -08:00
Remove even more address comments That should be all of them this time 2018-06-24 17:10:37 -07:00			`OakPCText1:`
text_jump → text_far The previous name for this was rather misleading. It isn't an actual jump like you'd expect the `jp` instruction to behave as. Instead, it behaves more like a `farcall`. This also makes it consistent with its current command ID name of `TX_FAR`. 2018-10-28 09:16:55 -07:00			`text_far _OakPCText1`
Resolve issue #575: Rename text commands 2018-11-17 10:33:03 -08:00			`text_end`
Pokegear 2016-01-10 14:44:09 -08:00
Remove even more address comments That should be all of them this time 2018-06-24 17:10:37 -07:00			`OakPCText2:`
text_jump → text_far The previous name for this was rather misleading. It isn't an actual jump like you'd expect the `jp` instruction to behave as. Instead, it behaves more like a `farcall`. This also makes it consistent with its current command ID name of `TX_FAR`. 2018-10-28 09:16:55 -07:00			`text_far _OakPCText2`
Resolve issue #575: Rename text commands 2018-11-17 10:33:03 -08:00			`text_end`
Pokegear 2016-01-10 14:44:09 -08:00
Remove even more address comments That should be all of them this time 2018-06-24 17:10:37 -07:00			`OakPCText3:`
text_jump → text_far The previous name for this was rather misleading. It isn't an actual jump like you'd expect the `jp` instruction to behave as. Instead, it behaves more like a `farcall`. This also makes it consistent with its current command ID name of `TX_FAR`. 2018-10-28 09:16:55 -07:00			`text_far _OakPCText3`
Resolve issue #575: Rename text commands 2018-11-17 10:33:03 -08:00			`text_end`
Pokegear 2016-01-10 14:44:09 -08:00
			`OakRating01:`
text_jump → text_far The previous name for this was rather misleading. It isn't an actual jump like you'd expect the `jp` instruction to behave as. Instead, it behaves more like a `farcall`. This also makes it consistent with its current command ID name of `TX_FAR`. 2018-10-28 09:16:55 -07:00			`text_far _OakRating01`
Resolve issue #575: Rename text commands 2018-11-17 10:33:03 -08:00			`text_end`
Pokegear 2016-01-10 14:44:09 -08:00
			`OakRating02:`
text_jump → text_far The previous name for this was rather misleading. It isn't an actual jump like you'd expect the `jp` instruction to behave as. Instead, it behaves more like a `farcall`. This also makes it consistent with its current command ID name of `TX_FAR`. 2018-10-28 09:16:55 -07:00			`text_far _OakRating02`
Resolve issue #575: Rename text commands 2018-11-17 10:33:03 -08:00			`text_end`
Pokegear 2016-01-10 14:44:09 -08:00
			`OakRating03:`
text_jump → text_far The previous name for this was rather misleading. It isn't an actual jump like you'd expect the `jp` instruction to behave as. Instead, it behaves more like a `farcall`. This also makes it consistent with its current command ID name of `TX_FAR`. 2018-10-28 09:16:55 -07:00			`text_far _OakRating03`
Resolve issue #575: Rename text commands 2018-11-17 10:33:03 -08:00			`text_end`
Pokegear 2016-01-10 14:44:09 -08:00
			`OakRating04:`
text_jump → text_far The previous name for this was rather misleading. It isn't an actual jump like you'd expect the `jp` instruction to behave as. Instead, it behaves more like a `farcall`. This also makes it consistent with its current command ID name of `TX_FAR`. 2018-10-28 09:16:55 -07:00			`text_far _OakRating04`
Resolve issue #575: Rename text commands 2018-11-17 10:33:03 -08:00			`text_end`
Pokegear 2016-01-10 14:44:09 -08:00
			`OakRating05:`
text_jump → text_far The previous name for this was rather misleading. It isn't an actual jump like you'd expect the `jp` instruction to behave as. Instead, it behaves more like a `farcall`. This also makes it consistent with its current command ID name of `TX_FAR`. 2018-10-28 09:16:55 -07:00			`text_far _OakRating05`
Resolve issue #575: Rename text commands 2018-11-17 10:33:03 -08:00			`text_end`
Pokegear 2016-01-10 14:44:09 -08:00
			`OakRating06:`
text_jump → text_far The previous name for this was rather misleading. It isn't an actual jump like you'd expect the `jp` instruction to behave as. Instead, it behaves more like a `farcall`. This also makes it consistent with its current command ID name of `TX_FAR`. 2018-10-28 09:16:55 -07:00			`text_far _OakRating06`
Resolve issue #575: Rename text commands 2018-11-17 10:33:03 -08:00			`text_end`
Pokegear 2016-01-10 14:44:09 -08:00
			`OakRating07:`
text_jump → text_far The previous name for this was rather misleading. It isn't an actual jump like you'd expect the `jp` instruction to behave as. Instead, it behaves more like a `farcall`. This also makes it consistent with its current command ID name of `TX_FAR`. 2018-10-28 09:16:55 -07:00			`text_far _OakRating07`
Resolve issue #575: Rename text commands 2018-11-17 10:33:03 -08:00			`text_end`
Pokegear 2016-01-10 14:44:09 -08:00
			`OakRating08:`
text_jump → text_far The previous name for this was rather misleading. It isn't an actual jump like you'd expect the `jp` instruction to behave as. Instead, it behaves more like a `farcall`. This also makes it consistent with its current command ID name of `TX_FAR`. 2018-10-28 09:16:55 -07:00			`text_far _OakRating08`
Resolve issue #575: Rename text commands 2018-11-17 10:33:03 -08:00			`text_end`
Pokegear 2016-01-10 14:44:09 -08:00
			`OakRating09:`
text_jump → text_far The previous name for this was rather misleading. It isn't an actual jump like you'd expect the `jp` instruction to behave as. Instead, it behaves more like a `farcall`. This also makes it consistent with its current command ID name of `TX_FAR`. 2018-10-28 09:16:55 -07:00			`text_far _OakRating09`
Resolve issue #575: Rename text commands 2018-11-17 10:33:03 -08:00			`text_end`
Pokegear 2016-01-10 14:44:09 -08:00
			`OakRating10:`
text_jump → text_far The previous name for this was rather misleading. It isn't an actual jump like you'd expect the `jp` instruction to behave as. Instead, it behaves more like a `farcall`. This also makes it consistent with its current command ID name of `TX_FAR`. 2018-10-28 09:16:55 -07:00			`text_far _OakRating10`
Resolve issue #575: Rename text commands 2018-11-17 10:33:03 -08:00			`text_end`
Pokegear 2016-01-10 14:44:09 -08:00
			`OakRating11:`
text_jump → text_far The previous name for this was rather misleading. It isn't an actual jump like you'd expect the `jp` instruction to behave as. Instead, it behaves more like a `farcall`. This also makes it consistent with its current command ID name of `TX_FAR`. 2018-10-28 09:16:55 -07:00			`text_far _OakRating11`
Resolve issue #575: Rename text commands 2018-11-17 10:33:03 -08:00			`text_end`
Pokegear 2016-01-10 14:44:09 -08:00
			`OakRating12:`
text_jump → text_far The previous name for this was rather misleading. It isn't an actual jump like you'd expect the `jp` instruction to behave as. Instead, it behaves more like a `farcall`. This also makes it consistent with its current command ID name of `TX_FAR`. 2018-10-28 09:16:55 -07:00			`text_far _OakRating12`
Resolve issue #575: Rename text commands 2018-11-17 10:33:03 -08:00			`text_end`
Pokegear 2016-01-10 14:44:09 -08:00
			`OakRating13:`
text_jump → text_far The previous name for this was rather misleading. It isn't an actual jump like you'd expect the `jp` instruction to behave as. Instead, it behaves more like a `farcall`. This also makes it consistent with its current command ID name of `TX_FAR`. 2018-10-28 09:16:55 -07:00			`text_far _OakRating13`
Resolve issue #575: Rename text commands 2018-11-17 10:33:03 -08:00			`text_end`
Pokegear 2016-01-10 14:44:09 -08:00
			`OakRating14:`
text_jump → text_far The previous name for this was rather misleading. It isn't an actual jump like you'd expect the `jp` instruction to behave as. Instead, it behaves more like a `farcall`. This also makes it consistent with its current command ID name of `TX_FAR`. 2018-10-28 09:16:55 -07:00			`text_far _OakRating14`
Resolve issue #575: Rename text commands 2018-11-17 10:33:03 -08:00			`text_end`
Pokegear 2016-01-10 14:44:09 -08:00
			`OakRating15:`
text_jump → text_far The previous name for this was rather misleading. It isn't an actual jump like you'd expect the `jp` instruction to behave as. Instead, it behaves more like a `farcall`. This also makes it consistent with its current command ID name of `TX_FAR`. 2018-10-28 09:16:55 -07:00			`text_far _OakRating15`
Resolve issue #575: Rename text commands 2018-11-17 10:33:03 -08:00			`text_end`
Pokegear 2016-01-10 14:44:09 -08:00
			`OakRating16:`
text_jump → text_far The previous name for this was rather misleading. It isn't an actual jump like you'd expect the `jp` instruction to behave as. Instead, it behaves more like a `farcall`. This also makes it consistent with its current command ID name of `TX_FAR`. 2018-10-28 09:16:55 -07:00			`text_far _OakRating16`
Resolve issue #575: Rename text commands 2018-11-17 10:33:03 -08:00			`text_end`
Pokegear 2016-01-10 14:44:09 -08:00
			`OakRating17:`
text_jump → text_far The previous name for this was rather misleading. It isn't an actual jump like you'd expect the `jp` instruction to behave as. Instead, it behaves more like a `farcall`. This also makes it consistent with its current command ID name of `TX_FAR`. 2018-10-28 09:16:55 -07:00			`text_far _OakRating17`
Resolve issue #575: Rename text commands 2018-11-17 10:33:03 -08:00			`text_end`
Pokegear 2016-01-10 14:44:09 -08:00
			`OakRating18:`
text_jump → text_far The previous name for this was rather misleading. It isn't an actual jump like you'd expect the `jp` instruction to behave as. Instead, it behaves more like a `farcall`. This also makes it consistent with its current command ID name of `TX_FAR`. 2018-10-28 09:16:55 -07:00			`text_far _OakRating18`
Resolve issue #575: Rename text commands 2018-11-17 10:33:03 -08:00			`text_end`
Pokegear 2016-01-10 14:44:09 -08:00
			`OakRating19:`
text_jump → text_far The previous name for this was rather misleading. It isn't an actual jump like you'd expect the `jp` instruction to behave as. Instead, it behaves more like a `farcall`. This also makes it consistent with its current command ID name of `TX_FAR`. 2018-10-28 09:16:55 -07:00			`text_far _OakRating19`
Resolve issue #575: Rename text commands 2018-11-17 10:33:03 -08:00			`text_end`
Pokegear 2016-01-10 14:44:09 -08:00
Remove even more address comments That should be all of them this time 2018-06-24 17:10:37 -07:00			`OakPCText4:`
text_jump → text_far The previous name for this was rather misleading. It isn't an actual jump like you'd expect the `jp` instruction to behave as. Instead, it behaves more like a `farcall`. This also makes it consistent with its current command ID name of `TX_FAR`. 2018-10-28 09:16:55 -07:00			`text_far _OakPCText4`
Resolve issue #575: Rename text commands 2018-11-17 10:33:03 -08:00			`text_end`