Prev: EC61 Up: Map Next: ECB0
EC72: Script Routine: (1E) Have Berk interact with a door in front of him
Let Berk interact with the door directly in front of him.
ScriptRoutine_BerkDoorInFront EC72 LD BC,($72AC) Load BC with the current-entity pointer (Pointer_CurrentEntity).
EC76 LD A,(BC) Load A from the byte at BC.
EC77 CP $05 Is A equal to 05? If so, jump to Script_DoorAhead_Hit.
EC79 JR Z,Script_DoorAhead_Hit
EC7B CP $08 Is A equal to 08? If so, jump to Script_DoorAhead_YellowCupRim.
EC7D JR Z,Script_DoorAhead_YellowCupRim
EC7F CP $10 Is A equal to 10? If so, jump to Script_DoorAhead_TaskProp.
EC81 JR Z,Script_DoorAhead_TaskProp
EC83 CP $03 Is A equal to 03? If not, jump to AdvanceScriptInstruction.
EC85 JP NZ,AdvanceScriptInstruction
EC88 LD BC,$9D2D Point BC at basket rim layout GraphicLayout_BasketRim.
This entry point is used by the routine at ScriptRoutine_BerkOpenDoorInFront.
Install basket rim layout GraphicLayout_BasketRim into slot 9051 (type 03 basket ahead).
Script_DoorInteract_Scan EC8B LD ($9051),BC Store BC in 9051.
EC8F JP AdvanceScriptInstruction Jump to AdvanceScriptInstruction to run the next script instruction.
Select yellow cup rim layout GraphicLayout_YellowCupRim for the type-05 entity ahead.
Script_DoorAhead_Hit EC92 LD BC,$9D7E Point BC at yellow cup rim layout GraphicLayout_YellowCupRim.
This entry point is used by the routine at ScriptRoutine_BerkOpenDoorInFront.
Install the chosen yellow cup layout into slot 9043.
Script_DoorInteract_StoreDoorSlot EC95 LD ($9043),BC Store BC in 9043.
EC99 JP AdvanceScriptInstruction Jump to AdvanceScriptInstruction to run the next script instruction.
Select yellow cup rim layout GraphicLayout_YellowCupRim for the type-08 entity ahead.
Script_DoorAhead_YellowCupRim EC9C LD BC,$9D7E Point BC at yellow cup rim layout GraphicLayout_YellowCupRim.
This entry point is used by the routine at ScriptRoutine_BerkOpenDoorInFront.
Install the chosen layout into slot 9035.
Script_DoorInteract_Found EC9F LD ($9035),BC Store BC in 9035.
ECA3 JP AdvanceScriptInstruction Jump to AdvanceScriptInstruction to run the next script instruction.
Select layout A14E for the type-10 seed box ahead.
Script_DoorAhead_TaskProp ECA6 LD BC,$A14E Load BC with A14E.
This entry point is used by the routine at ScriptRoutine_BerkOpenDoorInFront.
Install the chosen seed-box layout into slot 9027.
Script_DoorInteract_StoreAltDoorSlot ECA9 LD ($9027),BC Store BC in 9027.
ECAD JP AdvanceScriptInstruction Jump to AdvanceScriptInstruction to run the next script instruction.
Prev: EC61 Up: Map Next: ECB0