home *** CD-ROM | disk | FTP | other *** search
/ What PC? 1998 December / WPCDEC98.ISO / dxrs / files / startUp.dxr / 00005_menuScript.ls < prev    next >
Encoding:
Text File  |  1998-09-24  |  998 b   |  40 lines
  1. property spriteNum, myIndex, myCounter
  2. global gMasterObj
  3.  
  4. on new me
  5.   return me
  6. end
  7.  
  8. on init me, mySpriteNum, whichMember
  9.   set myIndex to the memberNum of member whichMember
  10.   set spriteNum to mySpriteNum
  11.   puppetSprite(mySpriteNum, 1)
  12.   set myCounter to 0
  13.   append(the actorList, me)
  14. end
  15.  
  16. on stepFrame me
  17.   if rollOver(spriteNum) then
  18.     setCursorExemption(gMasterObj, 1)
  19.     if myCounter < 15 then
  20.       cursor([1, 2])
  21.       set myCounter to myCounter + 1
  22.       set the memberNum of sprite spriteNum to myIndex + myCounter
  23.     else
  24.       if the mouseDown then
  25.         cursor([2, 2])
  26.         set the member of sprite spriteNum to member (getName(gMasterObj, spriteNum) & "d")
  27.       else
  28.         cursor([1, 2])
  29.         set the memberNum of sprite spriteNum to myIndex + 15
  30.       end if
  31.     end if
  32.   else
  33.     setCursorExemption(gMasterObj, 0)
  34.     if myCounter > 0 then
  35.       set myCounter to myCounter - 1
  36.       set the memberNum of sprite spriteNum to myIndex + myCounter
  37.     end if
  38.   end if
  39. end
  40.