Routines
Prev: 53708 Up: Map Next: 53734
53717: Script Routine: (66) Vat action
Slide the vat right when the space above is clear, then raise it.
Input
IX Address of complex state data for an entity
ScriptRoutine_VatIncXIfClearAboveThenRise 53717 CALL Test_EntityAbove Call Test_EntityAbove to test whether a solid entity sits above.
53720 JR C,ScriptRoutine_VatIncXIfClearAboveThenRise_IncX Is the space above clear (carry set)? If so, jump to ScriptRoutine_VatIncXIfClearAboveThenRise_IncX to shift right.
53722 CP 50 Is A less than 50? If not, jump to ScriptRoutine_VatIncY.
53724 JR NC,ScriptRoutine_VatIncY
Shift the vat one character right when the space above is clear (or close), then rise.
ScriptRoutine_VatIncXIfClearAboveThenRise_IncX 53726 INC (IX+7) Move this entity one character right.
53729 INC (IX+8)
53732 JR ScriptRoutine_VatIncY Jump to ScriptRoutine_VatIncY to increase y / y-extent.
Prev: 53708 Up: Map Next: 53734