dionmoustos/Pokemon-Firered
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Document Five Island scripts

Browse Source
This commit is contained in:
GriffinR
2020-02-28 00:22:34 -05:00
parent 43f66fce55
commit 7d7c51973c
45 changed files with 450 additions and 432 deletions
Download Patch File Download Diff File Expand all files Collapse all files
data/maps/FiveIsland_WaterLabyrinth/scripts.inc
+31 -29
View File
@@ -1,68 +1,70 @@
FiveIsland_WaterLabyrinth_MapScripts:: @ 816884D
.byte 0
FiveIsland_WaterLabyrinth_EventScript_16884E:: @ 816884E
FiveIsland_WaterLabyrinth_EventScript_EggGentleman:: @ 816884E
goto_if_questlog EventScript_ReleaseEnd
special sub_8112364
lock
faceplayer
goto_if_set FLAG_GOT_TOGEPI_EGG, EventScript_1688E3
goto_if_set FLAG_NO_ROOM_FOR_TOGEPI_EGG, EventScript_16892C
msgbox gUnknown_818A80D
specialvar VAR_RESULT, Special_GetLeadMonFriendship
compare VAR_RESULT, 6
goto_if_eq EventScript_1688AC
msgbox gUnknown_818A88F
goto_if_set FLAG_GOT_TOGEPI_EGG, FiveIsland_WaterLabyrinth_EventScript_PostEggComment
goto_if_set FLAG_NO_ROOM_FOR_TOGEPI_EGG, FiveIsland_WaterLabyrinth_EventScript_ReturnForEgg
msgbox FiveIsland_WaterLabyrinth_Text_LetMeTakeLookAtMons
specialvar VAR_RESULT, GetLeadMonFriendship
compare VAR_RESULT, 6 @ Max friendship
goto_if_eq FiveIsland_WaterLabyrinth_EventScript_LeadMonMaxFriendship
msgbox FiveIsland_WaterLabyrinth_Text_HmmISeeIsee
release
end
EventScript_168895:: @ 8168895
FiveIsland_WaterLabyrinth_EventScript_MonDaisyComment:: @ 8168895
famechecker FAMECHECKER_DAISY, 2
msgbox gUnknown_818AA0C
msgbox FiveIsland_WaterLabyrinth_Text_CuteMonRemindsMeOfDaisy
release
end
EventScript_1688AC:: @ 81688AC
msgbox gUnknown_818A8A6
goto EventScript_1688BA
FiveIsland_WaterLabyrinth_EventScript_LeadMonMaxFriendship:: @ 81688AC
msgbox FiveIsland_WaterLabyrinth_Text_TreatMonRightHaveThis
goto FiveIsland_WaterLabyrinth_EventScript_TryGiveEgg
end
EventScript_1688BA:: @ 81688BA
FiveIsland_WaterLabyrinth_EventScript_TryGiveEgg:: @ 81688BA
getpartysize
compare VAR_RESULT, PARTY_SIZE
goto_if_eq EventScript_16891F
goto_if_eq FiveIsland_WaterLabyrinth_EventScript_NoRoomForEgg
setflag FLAG_GOT_TOGEPI_EGG
giveegg SPECIES_TOGEPI
textcolor 3
playfanfare MUS_FANFA1
message Text_18A91F
message FiveIsland_WaterLabyrinth_Text_ReceivedEggFromMan
waitfanfare
waitmessage
call EventScript_1A6675
goto EventScript_1688E3
goto FiveIsland_WaterLabyrinth_EventScript_PostEggComment
end
EventScript_1688E3:: @ 81688E3
@ If the player has a Togepi/Togetic from this game (assumed to be the one the man gave you) then comment on it
@ Otherwise make normal comment
FiveIsland_WaterLabyrinth_EventScript_PostEggComment:: @ 81688E3
getspeciesname 1, SPECIES_TOGEPI
setvar VAR_0x8004, SPECIES_TOGEPI
specialvar VAR_RESULT, Special_PlayerPartyContainsSpeciesWithPlayerID
compare VAR_RESULT, 1
goto_if_eq EventScript_168895
specialvar VAR_RESULT, PlayerPartyContainsSpeciesWithPlayerID
compare VAR_RESULT, TRUE
goto_if_eq FiveIsland_WaterLabyrinth_EventScript_MonDaisyComment
getspeciesname 1, SPECIES_TOGETIC
setvar VAR_0x8004, SPECIES_TOGETIC
specialvar VAR_RESULT, Special_PlayerPartyContainsSpeciesWithPlayerID
compare VAR_RESULT, 1
goto_if_eq EventScript_168895
msgbox gUnknown_818A9C0
specialvar VAR_RESULT, PlayerPartyContainsSpeciesWithPlayerID
compare VAR_RESULT, TRUE
goto_if_eq FiveIsland_WaterLabyrinth_EventScript_MonDaisyComment
msgbox FiveIsland_WaterLabyrinth_Text_GladIMetSomeoneLikeYou
release
end
EventScript_16891F:: @ 816891F
FiveIsland_WaterLabyrinth_EventScript_NoRoomForEgg:: @ 816891F
setflag FLAG_NO_ROOM_FOR_TOGEPI_EGG
msgbox gUnknown_818A940
msgbox FiveIsland_WaterLabyrinth_Text_DontHaveSpaceInYourParty
release
end
EventScript_16892C:: @ 816892C
goto EventScript_1688BA
FiveIsland_WaterLabyrinth_EventScript_ReturnForEgg:: @ 816892C
goto FiveIsland_WaterLabyrinth_EventScript_TryGiveEgg
end