Routines
Prev: 61314 Up: Map Next: 61360
61324: Script Routine: (2) Move entity left one character
Shift the current entity one character left.
Input
IX Address of complex state data for an entity
ScriptRoutine_MoveLeft 61324 DEC (IX+7) Move this entity one character left.
61327 DEC (IX+8)
61330 BIT 4,(IX+3) Is bit 4 of flags byte 3 (IX+3) set? If not, jump to Script_MoveLeft_TestBit3.
61334 JR Z,Script_MoveLeft_TestBit3
61336 LD IY,(29356) Load IY with the current-entity pointer (Pointer_CurrentEntity).
61340 DEC (IY+7) Move the referenced entity one character left.
61343 DEC (IY+8)
61346 JP AdvanceScriptInstruction Jump to AdvanceScriptInstruction to run the next script instruction.
If the entity is locked to a linked partner (bit 3), scan collisions with code 130.
Script_MoveLeft_TestBit3 61349 BIT 3,(IX+3) Is bit 3 of flags byte 3 (IX+3) set? If not, jump to AdvanceScriptInstruction.
61353 JP Z,AdvanceScriptInstruction
61356 LD A,130 Load A with 130.
61358 JR Script_MoveHorizontal_ScanCollisions Jump to Script_MoveHorizontal_ScanCollisions to continue this routine.
View the equivalent code in;
Prev: 61314 Up: Map Next: 61360