home *** CD-ROM | disk | FTP | other *** search
/ CD-ROM Magazine 28 Bonus / CDRomMagazine-SoftKey-ArtPassion-FrenchVersion-Win31Mac.bin / data / artindx.dir / 00026_Script_26 < prev    next >
Text File  |  1996-06-20  |  579b  |  28 lines

  1. on InitiateIndex
  2.   InitiateSprite
  3. end
  4.  
  5. on InitiateSprite
  6.   global colorSprite,activatedButtonList,spriteChannelList
  7.   Set colorSprite = 190
  8.   Set activatedButtonList = [ ] 
  9.   Set spritechannelList = [ ] 
  10. end
  11.  
  12.  
  13. on goDestination whichSection
  14.   resetSpriteCursors
  15.   HiliteIndexButton
  16.   GoSection( whichSection,0)
  17. end
  18.  
  19. on HiliteIndexButton
  20.   global colorSprite
  21.   set latestClicked = the clickOn
  22.   puppetSprite latestClicked,TRUE
  23.   set the lineSize of sprite latestClicked to 2
  24.   set the foreColor of sprite latestClicked to colorSprite
  25.   updateStage
  26. end 
  27.  
  28.