home *** CD-ROM | disk | FTP | other *** search
/ Shocking The Web CD-ROM / SHOCK_CD.ISO / pc / tutorial / devglry / elementl / source / funhead.dir / 00004.ls < prev    next >
Encoding:
Text File  |  1996-11-11  |  461 b   |  21 lines
  1. on enterFrame
  2.   global gMagnitude
  3.   puppetSprite(3, 1)
  4.   set gMagnitude to 36
  5.   set the puppet of sprite 3 to 1
  6.   if rollOver(1) then
  7.     set the foreColor of sprite 3 to random(255)
  8.     set the locH of sprite 3 to 114 + integer(random(70))
  9.   end if
  10.   repeat with y = 9 to 11
  11.     set the locV of sprite y to the locV of sprite y + random(1)
  12.     updateStage()
  13.     set the locV of sprite y to 40
  14.   end repeat
  15.   updateStage()
  16. end
  17.  
  18. on exitFrame
  19.   go(the frame)
  20. end
  21.