home *** CD-ROM | disk | FTP | other *** search
/ Oz - The Magical Adventure / Adventure.iso / pc / dkdata / flowers.dxr / 00012_moveFlowers.ls < prev    next >
Encoding:
Text File  |  2000-06-01  |  588 b   |  23 lines
  1. on moveFlowers
  2.   global gFrameCounter
  3.   gFrameCounter = gFrameCounter + 1
  4.   if (gFrameCounter mod 2) = 0 then
  5.     finished = 0
  6.     repeat with i = 30 to 52
  7.       if member(the member of sprite i).name contains "F_" then
  8.         set the locV of sprite i to the locV of sprite i - (6 + random(8))
  9.       end if
  10.       if (the locV of sprite i < -50) and (i > 45) then
  11.         finished = 1
  12.       end if
  13.     end repeat
  14.     set the timeoutLapsed to 0
  15.     if finished then
  16.       repeat with i = 30 to 52
  17.         puppetSprite(i, 0)
  18.       end repeat
  19.       go(the frame + 1)
  20.     end if
  21.   end if
  22. end
  23.