home *** CD-ROM | disk | FTP | other *** search
/ Komputer for Alle 2002 #7 / K-CD-7-2002.ISO / Tools / K-CS.dcr / 00245.ls < prev    next >
Encoding:
Text File  |  2002-04-10  |  804 b   |  28 lines
  1. property ImageNum, ImageStart, HPos, VPos, SpriteNumber
  2.  
  3. on new me
  4.   puppetSound("Landelyd")
  5.   set SpriteNumber to 70
  6.   set ImageStart to 1340
  7.   set ImageNum to ImageStart
  8.   set HPos to the mouseH
  9.   set VPos to the mouseV
  10.   set the locH of sprite SpriteNumber to HPos
  11.   set the locV of sprite SpriteNumber to VPos
  12.   set the visible of sprite SpriteNumber to 1
  13.   set the locH of sprite 99 to 780
  14.   set the visible of sprite 99 to 1
  15. end
  16.  
  17. on exitFrame
  18.   set ImageNum to ImageNum + 1
  19.   if ImageNum > (ImageStart + 15) then
  20.     go(#next)
  21.   end if
  22.   set the locH of sprite SpriteNumber to HPos
  23.   set the locV of sprite SpriteNumber to VPos - ((64 - ((ImageNum - (ImageStart + 8)) * (ImageNum - (ImageStart + 8)))) * 3)
  24.   set the memberNum of sprite SpriteNumber to ImageNum
  25.   updateStage()
  26.   go(the frame)
  27. end
  28.