home *** CD-ROM | disk | FTP | other *** search
/ What PC? 1999 January / WPCJAN99.ISO / DXRS / Files / VNUmenu.dxr / 00188_objectScript.ls < prev    next >
Encoding:
Text File  |  1998-10-22  |  958 b   |  43 lines
  1. property spriteNum, animCounter, myIndex, myDelay, myPreviewObj
  2. global gMasterObj
  3.  
  4. on new me
  5.   return me
  6. end
  7.  
  8. on init me, mySpriteNum, myPreviewNum
  9.   set spriteNum to mySpriteNum
  10.   set myIndex to the memberNum of sprite spriteNum
  11.   set myDelay to the timer
  12.   set animCounter to 0
  13.   set myPreviewObj to new(script "previewScript")
  14.   init(myPreviewObj, myPreviewNum)
  15.   append(the actorList, me)
  16. end
  17.  
  18. on stepFrame me
  19.   checkRollover(me)
  20. end
  21.  
  22. on checkRollover me
  23.   if rollOver(spriteNum) then
  24.     activate(myPreviewObj, 1)
  25.     setCursorExemption(gMasterObj, 1)
  26.     if the mouseDown then
  27.       cursor([2, 2])
  28.     else
  29.       cursor([1, 2])
  30.     end if
  31.     if the timer > (myDelay + 4) then
  32.       set myDelay to the timer
  33.       set animCounter to animCounter + 1
  34.       if animCounter > 19 then
  35.         set animCounter to 0
  36.       end if
  37.       set the memberNum of sprite spriteNum to myIndex + animCounter
  38.     end if
  39.   else
  40.     activate(myPreviewObj, 0)
  41.   end if
  42. end
  43.