-- This script moves any object from any actual position to a desired position.

to get moveobj obj, n, fpos
	nsteps = n
	movingobj = uniquename of obj
	ipos = position of movingobj
	dx = (item 1 of fpos - item 1 of ipos) / nsteps
	dy = (item 2 of fpos - item 2 of ipos) / nsteps
	step i from 1 to nsteps
		syslockscreen = true
		increment item 1 of position of movingobj by dx
		increment item 2 of position of movingobj by dy
		syslockscreen = false
	end
	position of movingobj = fpos
	return null
end

-- where:
-- obj = object to be moved
-- n = number of steps for the movement (for velocity and smoothness)
-- fpos = final desired position