home *** CD-ROM | disk | FTP | other *** search
/ GQ - Louise, World Cup, …remy Clarkson, Armageddon / GQCD.iso / files / startup.dxr / 00005_menuScript.ls < prev    next >
Encoding:
Text File  |  1998-05-21  |  1014 b   |  39 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 < 6 then
  20.       set myCounter to myCounter + 1
  21.       set the memberNum of sprite spriteNum to myIndex + myCounter
  22.     else
  23.       if the mouseDown then
  24.         cursor([2, 2])
  25.         set the member of sprite spriteNum to member (getName(gMasterObj, spriteNum) & "3.PCT")
  26.       else
  27.         cursor([1, 2])
  28.         set the member of sprite spriteNum to member (getName(gMasterObj, spriteNum) & "2.PCT")
  29.       end if
  30.     end if
  31.   else
  32.     setCursorExemption(gMasterObj, 0)
  33.     if myCounter > 0 then
  34.       set myCounter to myCounter - 1
  35.       set the memberNum of sprite spriteNum to myIndex + myCounter
  36.     end if
  37.   end if
  38. end
  39.