1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
|
ProfBirch_EventScript_UpdateLocation:: @ 81A02F4
compare VAR_PETALBURG_GYM_STATE, 0
goto_if_eq Common_EventScript_Return
compare VAR_BIRCH_STATE, 0
call_if_eq ProfBirch_EventScript_MoveToLab
compare VAR_BIRCH_STATE, 1
call_if_eq ProfBirch_EventScript_MoveToLab
compare VAR_BIRCH_STATE, 2
call_if_eq ProfBirch_EventScript_MoveToRoute101
compare VAR_BIRCH_STATE, 3
call_if_eq ProfBirch_EventScript_MoveToRoute101
compare VAR_BIRCH_STATE, 4
call_if_eq ProfBirch_EventScript_MoveToRoute103
compare VAR_BIRCH_STATE, 5
call_if_eq ProfBirch_EventScript_MoveToRoute103
compare VAR_BIRCH_STATE, 6
call_if_eq ProfBirch_EventScript_MoveToLab
compare VAR_BIRCH_STATE, 7
call_if_eq ProfBirch_EventScript_MoveToLab
return
ProfBirch_EventScript_MoveToLab:: @ 81A0358
clearflag FLAG_HIDE_BIRCH_IN_LAB
clearflag FLAG_UNKNOWN_BIRCH_380
setflag FLAG_HIDE_BIRCH_ROUTE101
setflag FLAG_HIDE_BIRCH_ROUTE103
return
ProfBirch_EventScript_MoveToRoute101:: @ 81A0365
clearflag FLAG_HIDE_BIRCH_ROUTE101
setflag FLAG_HIDE_BIRCH_IN_LAB
setflag FLAG_UNKNOWN_BIRCH_380
setflag FLAG_HIDE_BIRCH_ROUTE103
return
ProfBirch_EventScript_MoveToRoute103:: @ 81A0372
clearflag FLAG_HIDE_BIRCH_ROUTE103
setflag FLAG_HIDE_BIRCH_ROUTE101
setflag FLAG_HIDE_BIRCH_IN_LAB
setflag FLAG_UNKNOWN_BIRCH_380
return
ProfBirch_EventScript_AskRatePokedex:: @ 81A037F
lock
faceplayer
msgbox gBirchDexRatingText_ComeToShowMePokedex, MSGBOX_YESNO
compare VAR_RESULT, NO
goto_if_eq ProfBirch_EventScript_DeclineRating
call ProfBirch_EventScript_RatePokedex
release
end
ProfBirch_EventScript_DeclineRating:: @ 81A039B
msgbox gBirchDexRatingText_Cancel, MSGBOX_DEFAULT
release
end
ProfBirch_EventScript_ShowRatingMessage:: @ 81A03A5
copyvar VAR_0x8004, VAR_0x8009
special ShowPokedexRatingMessage
waitmessage
waitbuttonpress
return
ProfBirch_EventScript_RatePokedex:: @ 81A03B0
setvar VAR_0x8004, 0
specialvar VAR_RESULT, ScriptGetPokedexInfo
copyvar VAR_0x8008, VAR_0x8005
copyvar VAR_0x8009, VAR_0x8006
copyvar VAR_0x800A, VAR_RESULT
buffernumberstring 0, VAR_0x8008 @ Num Hoenn seen
buffernumberstring 1, VAR_0x8009 @ Num Hoenn caught
msgbox gBirchDexRatingText_SoYouveSeenAndCaught, MSGBOX_DEFAULT
call ProfBirch_EventScript_ShowRatingMessage
compare VAR_0x800A, 0
goto_if_eq Common_EventScript_Return @ National dex not enabled
setvar VAR_0x8004, 1
specialvar VAR_RESULT, ScriptGetPokedexInfo
copyvar VAR_0x8008, VAR_0x8005
copyvar VAR_0x8009, VAR_0x8006
buffernumberstring 0, VAR_0x8008 @ Num National seen
buffernumberstring 1, VAR_0x8009 @ Num National caught
msgbox gBirchDexRatingText_OnANationwideBasis, MSGBOX_DEFAULT
return
|
