home *** CD-ROM | disk | FTP | other *** search
/ What PC? 1998 December / WPCDEC98.ISO / dxrs / files / RAFTmenu.dxr / 00111_objectScript.ls < prev    next >
Encoding:
Text File  |  1998-09-24  |  778 b   |  38 lines
  1. property spriteNum, animCounter, myIndex, myDelay
  2. global gMasterObj
  3.  
  4. on new me
  5.   return me
  6. end
  7.  
  8. on init me, mySpriteNum
  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.   append(the actorList, me)
  14. end
  15.  
  16. on stepFrame me
  17.   checkRollover(me)
  18. end
  19.  
  20. on checkRollover me
  21.   if rollOver(spriteNum) then
  22.     setCursorExemption(gMasterObj, 1)
  23.     if the mouseDown then
  24.       cursor([2, 2])
  25.     else
  26.       cursor([1, 2])
  27.     end if
  28.     if the timer > (myDelay + 4) then
  29.       set myDelay to the timer
  30.       set animCounter to animCounter + 1
  31.       if animCounter > 19 then
  32.         set animCounter to 0
  33.       end if
  34.       set the memberNum of sprite spriteNum to myIndex + animCounter
  35.     end if
  36.   end if
  37. end
  38.