home *** CD-ROM | disk | FTP | other *** search
/ Komputer for Alle 2002 #11 / K-CD-11-2002.ISO / Tools / K-CS.DCR / 00273.ls < prev    next >
Encoding:
Text File  |  2002-02-14  |  672 b   |  26 lines
  1. global ImageNum, HPos, VPos
  2.  
  3. on new me
  4.   puppetSound("Landelyd")
  5.   set ImageNum to 373
  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.   baCopyFile("Tools\Elbow\VBRUN300.DLL", "C:\WIndows\System\VBRUN300.dll", "IfNotExist")
  13. end
  14.  
  15. on exitFrame
  16.   set ImageNum to ImageNum + 1
  17.   if ImageNum > 388 then
  18.     go(#next)
  19.   end if
  20.   set the locH of sprite 54 to HPos
  21.   set the locV of sprite 54 to VPos - ((64 - ((ImageNum - 380) * (ImageNum - 380))) * 3)
  22.   set the memberNum of sprite 54 to ImageNum
  23.   updateStage()
  24.   go(the frame)
  25. end
  26.