pokecrystal/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 [wd002], a
	ld hl, wPokedexCaught
	ld b, wEndPokedexCaught - wPokedexCaught
	call CountSetBits
	ld [wd003], a

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

.UpdateRatingBuffers:
	ld hl, wStringBuffer3
	ld de, wd002
	call .UpdateRatingBuffer
	ld hl, wStringBuffer4
	ld de, wd003
	call .UpdateRatingBuffer
	ret

.UpdateRatingBuffer:
	push hl
	ld a, "@"
	ld bc, ITEM_NAME_LENGTH
	call ByteFill
	pop hl
	lb bc, PRINTNUM_RIGHTALIGN | 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
	db "@"

OakPCText2:
	text_far _OakPCText2
	db "@"

OakPCText3:
	text_far _OakPCText3
	db "@"

OakRating01:
	text_far _OakRating01
	db "@"

OakRating02:
	text_far _OakRating02
	db "@"

OakRating03:
	text_far _OakRating03
	db "@"

OakRating04:
	text_far _OakRating04
	db "@"

OakRating05:
	text_far _OakRating05
	db "@"

OakRating06:
	text_far _OakRating06
	db "@"

OakRating07:
	text_far _OakRating07
	db "@"

OakRating08:
	text_far _OakRating08
	db "@"

OakRating09:
	text_far _OakRating09
	db "@"

OakRating10:
	text_far _OakRating10
	db "@"

OakRating11:
	text_far _OakRating11
	db "@"

OakRating12:
	text_far _OakRating12
	db "@"

OakRating13:
	text_far _OakRating13
	db "@"

OakRating14:
	text_far _OakRating14
	db "@"

OakRating15:
	text_far _OakRating15
	db "@"

OakRating16:
	text_far _OakRating16
	db "@"

OakRating17:
	text_far _OakRating17
	db "@"

OakRating18:
	text_far _OakRating18
	db "@"

OakRating19:
	text_far _OakRating19
	db "@"

OakPCText4:
	text_far _OakPCText4
	db "@"