home *** CD-ROM | disk | FTP | other *** search
/ What PC? 1998 December / WPCDEC98.ISO / dxrs / files / JEZmenu.dxr / 00065_objectScript.ls < prev    next >
Encoding:
Text File  |  1998-09-24  |  1.1 KB  |  51 lines
  1. property spriteNum, animCounter, myFirstMembernum, totalFrames, myRollover
  2. global gMasterObj, rollList
  3.  
  4. on new me
  5.   return me
  6. end
  7.  
  8. on init me, mySpriteNum, tFrames
  9.   set myRollover to mySpriteNum + 7
  10.   set spriteNum to mySpriteNum
  11.   set myFirstMembernum to the memberNum of sprite spriteNum
  12.   set animCounter to 0
  13.   set totalFrames to tFrames
  14.   puppetSprite(spriteNum, 1)
  15.   append(the actorList, me)
  16. end
  17.  
  18. on stepFrame me
  19.   checkRollover(me)
  20. end
  21.  
  22. on checkRollover me
  23.   if getID(gMasterObj, spriteNum) < 5 then
  24.     if rollOver(myRollover) then
  25.       setAt(rollList, spriteNum - 1, 1)
  26.       if the mouseDown then
  27.         cursor([2, 2])
  28.       else
  29.         cursor([1, 2])
  30.       end if
  31.       if animCounter < (totalFrames - 1) then
  32.         set animCounter to animCounter + 1
  33.         display(me)
  34.       end if
  35.     else
  36.       setAt(rollList, spriteNum - 1, 0)
  37.       if animCounter > 0 then
  38.         set animCounter to animCounter - 1
  39.         display(me)
  40.       end if
  41.     end if
  42.   else
  43.     set animCounter to 0
  44.     setAt(rollList, spriteNum - 1, 0)
  45.   end if
  46. end
  47.  
  48. on display me
  49.   set the memberNum of sprite spriteNum to myFirstMembernum + animCounter
  50. end
  51.