CD-ROM Magazine 28 Bonus/CDRomMagazine-SoftKey-ArtPassion-FrenchVersion-Win31Mac.bin/data/artindx.dir/00026_Script_26

Text File | 1996-06-20 | 579b | 28 lines

on InitiateIndex
  InitiateSprite
end

on InitiateSprite
  global colorSprite,activatedButtonList,spriteChannelList
  Set colorSprite = 190
  Set activatedButtonList = [ ]
  Set spritechannelList = [ ]
end


on goDestination whichSection
  resetSpriteCursors
  HiliteIndexButton
  GoSection( whichSection,0)
end

on HiliteIndexButton
  global colorSprite
  set latestClicked = the clickOn
  puppetSprite latestClicked,TRUE
  set the lineSize of sprite latestClicked to 2
  set the foreColor of sprite latestClicked to colorSprite
  updateStage
end