rendered paste body if KEY_FUNCTION_CHECK("MOVE UP") = 1
IF MOVETYPE = 0
SET_MOVESPEED_DYNAMIC_OBJECT(MAIN_OBJ,Moveamount)
MOVE_LOOP_DYNAMIC_OBJECT(MAIN_OBJ)
MOVETYPE = 1
`MOVE_DYNAMIC_OBJECT(MAIN_OBJ,CALCULATE_FRAME_DELAY(Moveamount),1)
`Moveobject(CALCULATE_FRAME_DELAY(Moveamount))
`MOVEMENT = 1
`GOSUB TS_UPDATE_POS
ENDIF
else
if MOVETYPE = 1
MOVETYPE = 0
STOP_MOVING_DYNAMIC_OBJECT(MAIN_OBJ)
endif
endif
if KEY_FUNCTION_CHECK("MOVE DOWN") = 1
IF MOVETYPE = 0
SET_MOVESPEED_DYNAMIC_OBJECT(MAIN_OBJ,-Moveamount)
MOVE_LOOP_DYNAMIC_OBJECT(MAIN_OBJ)
MOVETYPE = 2
`MOVE_DYNAMIC_OBJECT(MAIN_OBJ,CALCULATE_FRAME_DELAY(-Moveamount),1)
`Moveobject(CALCULATE_FRAME_DELAY(-Moveamount))
`MOVEMENT = 1
`GOSUB TS_UPDATE_POS
ENDIF
else
if MOVETYPE = 2
MOVETYPE = 0
STOP_MOVING_DYNAMIC_OBJECT(MAIN_OBJ)
endif
endif