mirror of
https://github.com/pret/pokefirered.git
synced 2026-05-11 14:35:05 -05:00
174 lines
4.6 KiB
PHP
174 lines
4.6 KiB
PHP
.equ LOCALID_DAYCARE_MAN, 1
|
|
.equ LOCALID_RIVAL, 10
|
|
|
|
FourIsland_MapScripts:: @ 8167CAE
|
|
map_script MAP_SCRIPT_ON_TRANSITION, FourIsland_OnTransition
|
|
map_script MAP_SCRIPT_ON_FRAME_TABLE, FourIsland_OnFrame
|
|
.byte 0
|
|
|
|
FourIsland_OnTransition:: @ 8167CB9
|
|
setworldmapflag FLAG_WORLD_MAP_FOUR_ISLAND
|
|
compare VAR_MAP_SCENE_FOUR_ISLAND, 0
|
|
call_if_eq FourIsland_EventScript_ShowRival
|
|
call FourIsland_EventScript_TrySetDayCareManPos
|
|
end
|
|
|
|
FourIsland_EventScript_ShowRival:: @ 8167CCD
|
|
clearflag FLAG_HIDE_FOUR_ISLAND_RIVAL
|
|
return
|
|
|
|
FourIsland_EventScript_TrySetDayCareManPos:: @ 8167CD1
|
|
goto_if_unset FLAG_PENDING_DAYCARE_EGG, FourIsland_EventScript_EndSetDayCareManPos
|
|
setobjectxyperm LOCALID_DAYCARE_MAN, 16, 14
|
|
FourIsland_EventScript_EndSetDayCareManPos:: @ 8167CE1
|
|
return
|
|
|
|
FourIsland_OnFrame:: @ 8167CE2
|
|
map_script_2 VAR_MAP_SCENE_FOUR_ISLAND, 0, FourIsland_EventScript_RivalScene
|
|
.2byte 0
|
|
|
|
FourIsland_EventScript_RivalScene:: @ 8167CEC
|
|
lockall
|
|
textcolor 0
|
|
applymovement LOCALID_RIVAL, Movement_WalkInPlaceFastestDown
|
|
waitmovement 0
|
|
playbgm MUS_ENCOUNTER_RIVAL, 0
|
|
applymovement LOCALID_RIVAL, Movement_ExclamationMark
|
|
waitmovement 0
|
|
applymovement LOCALID_RIVAL, Movement_Delay48
|
|
waitmovement 0
|
|
delay 25
|
|
applymovement LOCALID_RIVAL, FourIsland_Movement_RivalApproach
|
|
waitmovement 0
|
|
msgbox FourIsland_Text_RivalAlreadyGotEggBeSmellingYa
|
|
closemessage
|
|
applymovement OBJ_EVENT_ID_PLAYER, FourIsland_Movement_PlayerWatchRivalExit
|
|
applymovement LOCALID_RIVAL, FourIsland_Movement_RivalExit
|
|
waitmovement 0
|
|
fadedefaultbgm
|
|
playse SE_EXIT
|
|
delay 35
|
|
removeobject LOCALID_RIVAL
|
|
setvar VAR_MAP_SCENE_FOUR_ISLAND, 1
|
|
releaseall
|
|
end
|
|
|
|
FourIsland_Movement_RivalApproach:: @ 8167D49
|
|
walk_right
|
|
walk_right
|
|
walk_down
|
|
walk_down
|
|
step_end
|
|
|
|
FourIsland_Movement_RivalExit:: @ 8167D4E
|
|
delay_16
|
|
delay_4
|
|
walk_down
|
|
step_end
|
|
|
|
FourIsland_Movement_PlayerWatchRivalExit:: @ 8167D52
|
|
walk_left
|
|
walk_in_place_fastest_right
|
|
step_end
|
|
|
|
FourIsland_EventScript_DaycareMan:: @ 8167D55
|
|
goto_if_questlog EventScript_ReleaseEnd
|
|
special QuestLog_CutRecording
|
|
lock
|
|
faceplayer
|
|
special GetDaycareMonNicknames
|
|
specialvar VAR_RESULT, GetDaycareState
|
|
compare VAR_RESULT, DAYCARE_EGG_WAITING
|
|
goto_if_eq FourIsland_EventScript_DaycareEggWaiting
|
|
compare VAR_RESULT, DAYCARE_ONE_MON
|
|
goto_if_eq FourIsland_EventScript_CheckOnOneMon
|
|
compare VAR_RESULT, DAYCARE_TWO_MONS
|
|
goto_if_eq FourIsland_EventScript_CheckOnTwoMons
|
|
msgbox DayCare_Text_ImDaycareManSpeakToMyWife
|
|
release
|
|
end
|
|
|
|
FourIsland_EventScript_DaycareEggWaiting:: @ 8167D9B
|
|
msgbox DayCare_Text_DoYouWantEgg, MSGBOX_YESNO
|
|
compare VAR_RESULT, YES
|
|
goto_if_eq FourIsland_EventScript_DaycareAcceptEgg
|
|
msgbox DayCare_Text_IWillKeepDoYouWantIt, MSGBOX_YESNO
|
|
compare VAR_RESULT, YES
|
|
goto_if_eq FourIsland_EventScript_DaycareAcceptEgg
|
|
msgbox DayCare_Text_IllKeepIt
|
|
clearflag FLAG_PENDING_DAYCARE_EGG
|
|
special RejectEggFromDayCare
|
|
release
|
|
end
|
|
|
|
FourIsland_EventScript_DaycareAcceptEgg:: @ 8167DD1
|
|
specialvar VAR_RESULT, CalculatePlayerPartyCount
|
|
compare VAR_RESULT, PARTY_SIZE
|
|
goto_if_ne FourIsland_EventScript_DaycareReceivedEgg
|
|
msgbox DayCare_Text_YouHaveNoRoomForIt
|
|
release
|
|
end
|
|
|
|
FourIsland_EventScript_DaycareReceivedEgg:: @ 8167DEB
|
|
textcolor 3
|
|
message DayCare_Text_ReceivedEgg
|
|
call EventScript_RestorePrevTextColor
|
|
playfanfare MUS_LEVEL_UP
|
|
waitfanfare
|
|
waitbuttonpress
|
|
msgbox DayCare_Text_TakeGoodCareOfIt
|
|
special GiveEggFromDaycare
|
|
clearflag FLAG_PENDING_DAYCARE_EGG
|
|
release
|
|
end
|
|
|
|
FourIsland_EventScript_CheckOnOneMon:: @ 8167E0C
|
|
special GetDaycareMonNicknames
|
|
msgbox DayCare_Text_YourMonIsDoingFine
|
|
release
|
|
end
|
|
|
|
FourIsland_EventScript_CheckOnTwoMons:: @ 8167E19
|
|
special GetDaycareMonNicknames
|
|
msgbox DayCare_Text_YourMonsAreDoingFine
|
|
special SetDaycareCompatibilityString
|
|
special ShowFieldMessageStringVar4
|
|
waitmessage
|
|
waitbuttonpress
|
|
release
|
|
end
|
|
|
|
FourIsland_EventScript_OldWoman:: @ 8167E2E
|
|
lock
|
|
faceplayer
|
|
goto_if_set FLAG_SYS_CAN_LINK_WITH_RS, FourIsland_EventScript_OldWomanLoreleiLeft
|
|
msgbox FourIsland_Text_LoreleiHasReturned
|
|
release
|
|
end
|
|
|
|
FourIsland_EventScript_OldWomanLoreleiLeft:: @ 8167E43
|
|
famechecker FAMECHECKER_LORELEI, 5
|
|
msgbox FourIsland_Text_LoreleiMetLaprasAsChild
|
|
release
|
|
end
|
|
|
|
FourIsland_EventScript_LittleGirl:: @ 8167E5A
|
|
lock
|
|
faceplayer
|
|
famechecker FAMECHECKER_LORELEI, 4
|
|
msgbox FourIsland_Text_LoreleiHasLotsOfStuffedDolls
|
|
release
|
|
end
|
|
|
|
FourIsland_EventScript_FatMan:: @ 8167E73
|
|
msgbox FourIsland_Text_MadeSlushieUsingIcefallCaveIce, MSGBOX_NPC
|
|
end
|
|
|
|
FourIsland_EventScript_IslandSign:: @ 8167E7C
|
|
msgbox FourIsland_Text_IslandSign, MSGBOX_SIGN
|
|
end
|
|
|
|
FourIsland_EventScript_LoreleisHouseSign:: @ 8167E85
|
|
msgbox FourIsland_Text_LoreleisHouse, MSGBOX_SIGN
|
|
end
|