Files
2025-03-13 18:59:56 -05:00

73 lines
2.6 KiB
ObjectPascal
Vendored

FallarborTown_House1_MapScripts:: @ 8153BAE
map_script MAP_SCRIPT_ON_TRANSITION, FallarborTown_House1_OnTransition
.byte 0
FallarborTown_House1_OnTransition:: @ 8153BB4
end
FallarborTown_CozmosHouse_EventScript_ProfCozmo:: @ 8153BB5
lock
faceplayer
goto_if_set FLAG_RECEIVED_TM_RETURN, FallarborTown_CozmosHouse_EventScript_GaveMeteorite
checkitem ITEM_METEORITE, 1
compare VAR_RESULT, 1
goto_if_eq FallarborTown_CozmosHouse_EventScript_PlayerHasMeteorite
msgbox FallarborTown_CozmosHouse_Text_MeteoriteWillNeverBeMineNow, MSGBOX_DEFAULT
release
end
FallarborTown_CozmosHouse_EventScript_PlayerHasMeteorite:: @ 8153BDA
call_if_unset FLAG_TEMP_2, FallarborTown_CozmosHouse_EventScript_NoticeMeteorite
call_if_set FLAG_TEMP_2, FallarborTown_CozmosHouse_EventScript_AskForMeteorite
compare VAR_RESULT, NO
goto_if_eq FallarborTown_CozmosHouse_EventScript_DeclineGiveMeteorite
msgbox FallarborTown_CozmosHouse_Text_PleaseUseThisTM, MSGBOX_DEFAULT
giveitem ITEM_TM27_RETURN
compare VAR_RESULT, 0
goto_if_eq Common_EventScript_ShowBagIsFull
setvar VAR_0x8004, ITEM_METEORITE
call Common_EventScript_PlayerHandedOverTheItem
setflag FLAG_RECEIVED_TM_RETURN
msgbox FallarborTown_CozmosHouse_Text_ReallyGoingToHelpMyResearch, MSGBOX_DEFAULT
release
end
FallarborTown_CozmosHouse_EventScript_NoticeMeteorite:: @ 8153C2D
msgbox FallarborTown_CozmosHouse_Text_MeteoriteWillNeverBeMineNow, MSGBOX_DEFAULT
msgbox FallarborTown_CozmosHouse_Text_IsThatMeteoriteMayIHaveIt, MSGBOX_YESNO
return
FallarborTown_CozmosHouse_EventScript_AskForMeteorite:: @ 8153C3E
msgbox FallarborTown_CozmosHouse_Text_MayIHaveMeteorite, MSGBOX_YESNO
return
FallarborTown_CozmosHouse_EventScript_DeclineGiveMeteorite:: @ 8153C47
setflag FLAG_TEMP_2
msgbox FallarborTown_CozmosHouse_Text_CrushedWithDisappointment, MSGBOX_DEFAULT
release
end
FallarborTown_CozmosHouse_EventScript_GaveMeteorite:: @ 8153C54
msgbox FallarborTown_CozmosHouse_Text_ReallyGoingToHelpMyResearch, MSGBOX_DEFAULT
release
end
FallarborTown_CozmosHouse_EventScript_CozmosWife:: @ 8153C5E
lock
faceplayer
goto_if_set FLAG_RECEIVED_TM_RETURN, FallarborTown_CozmosHouse_EventScript_CozmoIsHappy
goto_if_set FLAG_DEFEATED_EVIL_TEAM_MT_CHIMNEY, FallarborTown_CozmosHouse_EventScript_CozmoIsSad
msgbox FallarborTown_CozmosHouse_Text_CozmoWentToMeteorFalls, MSGBOX_DEFAULT
release
end
FallarborTown_CozmosHouse_EventScript_CozmoIsSad:: @ 8153C7C
msgbox FallarborTown_CozmosHouse_Text_FeelSorryForCozmo, MSGBOX_DEFAULT
release
end
FallarborTown_CozmosHouse_EventScript_CozmoIsHappy:: @ 8153C86
msgbox FallarborTown_CozmosHouse_Text_CozmoIsSoHappy, MSGBOX_DEFAULT
release
end