ref: 7d40476e14542163830cfb60d4b84787d1123797
dir: /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