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
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
|
.equ CHECKED_MUSHROOMS, FLAG_TEMP_1
.equ HAS_BIG_MUSHROOM, FLAG_TEMP_2
.equ HAS_TINY_MUSHROOMS, FLAG_TEMP_3
.equ HAS_BOTH_MUSHROOMS, FLAG_TEMP_4
TwoIsland_House_MapScripts:: @ 8171618
.byte 0
TwoIsland_House_EventScript_MoveManiac:: @ 8171619
goto_if_questlog EventScript_ReleaseEnd
special sub_8112364
lock
faceplayer
clearflag HAS_BIG_MUSHROOM
clearflag HAS_TINY_MUSHROOMS
clearflag HAS_BOTH_MUSHROOMS
goto_if_set CHECKED_MUSHROOMS, TwoIsland_House_EventScript_CheckPlayerHasMushrooms
msgbox TwoIsland_House_Text_TeachMonMoveForMushroom
setflag CHECKED_MUSHROOMS
goto TwoIsland_House_EventScript_CheckPlayerHasMushrooms
end
TwoIsland_House_EventScript_CheckPlayerHasMushrooms:: @ 817164F
checkitem ITEM_BIG_MUSHROOM, 1
compare VAR_RESULT, TRUE
call_if_eq TwoIsland_House_EventScript_SetHasBigMushroom
checkitem ITEM_TINY_MUSHROOM, 2
compare VAR_RESULT, TRUE
call_if_eq TwoIsland_House_EventScript_SetHasTinyMushrooms
goto_if_set HAS_BIG_MUSHROOM, TwoIsland_House_EventScript_CheckAlsoHasTinyMushrooms
goto_if_set HAS_TINY_MUSHROOMS, TwoIsland_House_EventScript_CheckAlsoHasBigMushroom
goto TwoIsland_House_EventScript_EndTutorMove
end
TwoIsland_House_EventScript_CheckAlsoHasTinyMushrooms:: @ 8171687
call_if_set HAS_TINY_MUSHROOMS, TwoIsland_House_EventScript_SetHasBothMushrooms
goto TwoIsland_House_EventScript_AskTutorMon
end
TwoIsland_House_EventScript_CheckAlsoHasBigMushroom:: @ 8171696
call_if_set HAS_BIG_MUSHROOM, TwoIsland_House_EventScript_SetHasBothMushrooms
goto TwoIsland_House_EventScript_AskTutorMon
end
TwoIsland_House_EventScript_AskTutorMon:: @ 81716A5
msgbox TwoIsland_House_Text_WantMeToTeachMove, MSGBOX_YESNO
compare VAR_RESULT, NO
goto_if_eq TwoIsland_House_EventScript_EndTutorMove
goto TwoIsland_House_EventScript_ChooseMonToTutor
end
TwoIsland_House_EventScript_ChooseMonToTutor:: @ 81716BE
msgbox TwoIsland_House_Text_TutorWhichMon
special SelectMoveTutorMon
waitstate
compare VAR_0x8004, PARTY_SIZE
goto_if_ge TwoIsland_House_EventScript_EndTutorMove
special IsSelectedMonEgg
compare VAR_RESULT, TRUE
goto_if_eq TwoIsland_House_EventScript_CantTutorEgg
compare VAR_0x8005, 0
goto_if_eq TwoIsland_House_EventScript_NoMoveToTutorMon
goto TwoIsland_House_EventScript_ChooseMoveToTeach
end
TwoIsland_House_EventScript_ChooseMoveToTeach:: @ 81716F4
msgbox TwoIsland_House_Text_TeachWhichMove
special DisplayMoveTutorMenu
waitstate
compare VAR_0x8004, 0
goto_if_eq TwoIsland_House_EventScript_ChooseMonToTutor
goto_if_set HAS_BOTH_MUSHROOMS, TwoIsland_House_EventScript_ChooseMushroom
goto_if_set HAS_BIG_MUSHROOM, TwoIsland_House_EventScript_GiveBigMushroom
goto_if_set HAS_TINY_MUSHROOMS, TwoIsland_House_EventScript_GiveTinyMushrooms
end
TwoIsland_House_EventScript_GiveBigMushroom:: @ 8171727
removeitem ITEM_BIG_MUSHROOM, 1
textcolor 3
msgbox TwoIsland_House_Text_HandedOverOneBigMushroom
call EventScript_RestorePrevTextColor
goto TwoIsland_House_EventScript_EndTutorMove
end
TwoIsland_House_EventScript_GiveTinyMushrooms:: @ 8171741
removeitem ITEM_TINY_MUSHROOM, 2
textcolor 3
msgbox TwoIsland_House_Text_HandedOverTwoTinyMushrooms
call EventScript_RestorePrevTextColor
goto TwoIsland_House_EventScript_EndTutorMove
end
TwoIsland_House_EventScript_ChooseMushroom:: @ 817175B
message TwoIsland_House_Text_IllNeedMushroomOrTwo
waitmessage
multichoice 0, 0, MULTICHOICE_MUSHROOMS, TRUE
switch VAR_RESULT
case 0, TwoIsland_House_EventScript_GiveTinyMushrooms
case 1, TwoIsland_House_EventScript_GiveBigMushroom
end
TwoIsland_House_EventScript_NoMoveToTutorMon:: @ 8171782
msgbox TwoIsland_House_Text_NoMoveICanTeachThatMon
goto TwoIsland_House_EventScript_ChooseMonToTutor
end
TwoIsland_House_EventScript_CantTutorEgg:: @ 8171790
msgbox TwoIsland_House_Text_CantTeachAnEgg
goto TwoIsland_House_EventScript_ChooseMonToTutor
end
TwoIsland_House_EventScript_EndTutorMove:: @ 817179E
msgbox TwoIsland_House_Text_NeedMushroomOrTwoToLearnMove
release
end
TwoIsland_House_EventScript_SetHasBigMushroom:: @ 81717A8
setflag HAS_BIG_MUSHROOM
return
TwoIsland_House_EventScript_SetHasTinyMushrooms:: @ 81717AC
setflag HAS_TINY_MUSHROOMS
return
TwoIsland_House_EventScript_SetHasBothMushrooms:: @ 81717B0
setflag HAS_BOTH_MUSHROOMS
return
|
