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