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