LiveCode Forums.

Code: Select all

On mouseUp
.
.
.

Repeat while exit_has_not_been_requested

   -- do a bunch of stuff with graphic objects

end Repeat
.
.
.

end mouseUp

Code: Select all

on keyDown some_funky_key 

  -- make the graphic objects do stuff

end keyDown

Code: Select all

constant kAnimateInterval = 25  -- milliseconds, so about 40 frames per second
constant kAnimationLength = 2000  -- milliseconds, so will finish in 2 seconds
local sStartTime, sStartLoc, sTargetLoc, sAnimateMsgId

on mouseUp
   -- get the next random location
   put the milliseconds into sStartTime
   put the loc of me into sStartLoc
   put abs(item 1 of sStartLoc + random(200) - random(200)), \
   abs(item 2 of sStartLoc + random(200) - random(200)) into sTargetLoc
   if sAnimateMsgId is empty then
      -- kick-start the animation
      send "AnimateMe" to me in kAnimateInterval milliseconds
      put the result into sAnimateMsgId
   end if
end mouseUp

on AnimateMe
   -- first determine how far along the animation we are
   put the milliseconds - sStartTime into tElapsedTime
   put tElapsedTime / kAnimationLength into tRatio
   if tRatio >= 1 then 
      -- end of the animation, so just move to the targetloc
      set the loc of me to sTargetLoc
      put empty into sAnimateMsgId
   else
      -- move along the intended path
      put item 1 of sStartLoc + (item 1 of sTargetLoc - item 1 of sStartLoc) * tRatio, \
      item 2 of sStartLoc + (item 2 of sTargetLoc - item 2 of sStartLoc) * tRatio into tCurrentLoc
      set the loc of me to tCurrentLoc
      -- continue the animation heartbeat
      send "AnimateMe" to me in kAnimateInterval milliseconds
      put the result into sAnimateMsgId
   end if
end AnimateMe