Routines
Prev: D1D5 Up: Map Next: D1F5
D1E6: Script Routine: (41) 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 D1E6 CALL Test_EntityOnLeft Call Test_EntityOnLeft to test whether a solid entity sits on the left.
D1E9 JR C,ScriptRoutine_VatDecXIfClearLeftThenRise_DecX Is the space on the left clear (carry set)? If so, jump to ScriptRoutine_VatDecXIfClearLeftThenRise_DecX to shift left.
D1EB CP $32 Is A less than 32? If not, jump to ScriptRoutine_VatIncY.
D1ED JR NC,ScriptRoutine_VatIncY
Shift the vat one character left when the left side is clear (or close), then rise.
ScriptRoutine_VatDecXIfClearLeftThenRise_DecX D1EF DEC (IX+$07) Move this entity one character left.
D1F2 DEC (IX+$08)
Prev: D1D5 Up: Map Next: D1F5