ProfOak_EventScript_RatePokedexInPerson:: @ 81A737B goto_if_questlog EventScript_ReleaseEnd special sub_8112364 call_if_set FLAG_OAK_SAW_DEX_COMPLETION, ProfOak_EventScript_DexCompleteIntro call_if_unset FLAG_OAK_SAW_DEX_COMPLETION, ProfOak_EventScript_NormalIntro call ProfOak_EventScript_RatePokedex return ProfOak_EventScript_DexCompleteIntro:: @ 81A73A4 msgbox Text_LoveSeeingYourPokedex return ProfOak_EventScript_NormalIntro:: @ 81A73AD msgbox Text_HowIsPokedexComingAlong return ProfOak_EventScript_ShowRatingMsg:: @ 81A73B6 copyvar VAR_0x8004, VAR_0x8009 special Special_GetProfOaksRatingMessage waitmessage compare VAR_RESULT, FALSE call_if_eq ProfOak_EventScript_RatingFanfare compare VAR_RESULT, TRUE call_if_eq ProfOak_EventScript_DexCompleteFanfare waitfanfare waitbuttonpress return ProfOak_EventScript_RatingFanfare:: @ 81A73D8 playfanfare MUS_FAN2 return ProfOak_EventScript_DexCompleteFanfare:: @ 81A73DC playfanfare MUS_FANFA5 return ProfOak_EventScript_RatePokedex:: @ 81A73E0 setvar VAR_0x8004, 31 special HelpSystem_BackupSomeVariable special Special_SetSomeVariable setvar VAR_0x8004, 0 specialvar VAR_RESULT, Special_GetPokedexCount copyvar VAR_0x8008, VAR_0x8005 copyvar VAR_0x8009, VAR_0x8006 copyvar VAR_0x800A, VAR_RESULT getnumberstring 0, VAR_0x8008 @ Num Kanto Seen getnumberstring 1, VAR_0x8009 @ Num Kanto Caught msgbox Text_YouveSeenXAndOwnedYMons call_if_unset FLAG_OAKS_RATING_IS_VIA_PC, ProfOak_EventScript_SetTextColor call ProfOak_EventScript_ShowRatingMsg compare VAR_0x800A, FALSE goto_if_eq ProfOak_EventScript_EndRatePokedex @ National Dex not enabled setvar VAR_0x8004, 1 specialvar VAR_RESULT, Special_GetPokedexCount copyvar VAR_0x8008, VAR_0x8005 copyvar VAR_0x8009, VAR_0x8006 getnumberstring 0, VAR_0x8008 @ Num National Seen getnumberstring 1, VAR_0x8009 @ Num National Caught msgbox Text_AndNationalDexSeenXOwnedY specialvar VAR_RESULT, HasAllMons compare VAR_RESULT, FALSE goto_if_eq ProfOak_EventScript_DexIncomplete compare VAR_RESULT, TRUE goto_if_eq ProfOak_EventScript_DexComplete end ProfOak_EventScript_SetTextColor:: @ 81A746D textcolor 0 return ProfOak_EventScript_DexIncomplete:: @ 81A7470 msgbox Text_LookForwardToFilledNationalDex goto ProfOak_EventScript_EndRatePokedex end ProfOak_EventScript_DexComplete:: @ 81A747E setflag FLAG_OAK_SAW_DEX_COMPLETION msgbox Text_YouveCompletedDex goto ProfOak_EventScript_EndRatePokedex end ProfOak_EventScript_EndRatePokedex:: @ 81A748F special HelpSystem_RestoreSomeVariable return