Routines
Prev: 53676 Up: Map Next: 53708
53693: Script Routine: (63) Vat action
Slide the vat one character left when the left side is clear.
Input
IX Address of complex state data for an entity
ScriptRoutine_VatDecXIfClearLeft 53693 CALL Test_EntityOnLeft Call Test_EntityOnLeft to test whether a solid entity sits on the left.
53696 JR C,ScriptRoutine_VatDecXIfClearLeft_DecX Is the space on the left clear (carry set)? If so, jump to ScriptRoutine_VatDecXIfClearLeft_DecX to shift left.
53698 CP 50 Is A less than 50? If not, jump to ScriptRoutine_VatDecY.
53700 JR NC,ScriptRoutine_VatDecY
Shift the vat one character left when the left side is clear (or close).
ScriptRoutine_VatDecXIfClearLeft_DecX 53702 DEC (IX+7) Move this entity one character left.
53705 DEC (IX+8)
Prev: 53676 Up: Map Next: 53708