Routines
Prev: 53717 Up: Map Next: 53749
53734: Script Routine: (65) Vat action
Slide the vat left when the left side is clear, then raise it.
Input
IX Address of complex state data for an entity
ScriptRoutine_VatDecXIfClearLeftThenRise 53734 CALL Test_EntityOnLeft Call Test_EntityOnLeft to test whether a solid entity sits on the left.
53737 JR C,ScriptRoutine_VatDecXIfClearLeftThenRise_DecX Is the space on the left clear (carry set)? If so, jump to ScriptRoutine_VatDecXIfClearLeftThenRise_DecX to shift left.
53739 CP 50 Is A less than 50? If not, jump to ScriptRoutine_VatIncY.
53741 JR NC,ScriptRoutine_VatIncY
Shift the vat one character left when the left side is clear (or close), then rise.
ScriptRoutine_VatDecXIfClearLeftThenRise_DecX 53743 DEC (IX+7) Move this entity one character left.
53746 DEC (IX+8)
Prev: 53717 Up: Map Next: 53749