mirror of
https://github.com/pret/pokefirered.git
synced 2026-05-10 14:01:52 -05:00
128 lines
4.2 KiB
C++
128 lines
4.2 KiB
C++
.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 QuestLog_CutRecording
|
|
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
|