home *** CD-ROM | disk | FTP | other *** search
/ Club KidSoft Volume 3 #1 / ClubKidsoft.iso / movies / catalog.dir / 00071_Script_71 < prev    next >
Text File  |  1995-02-07  |  1KB  |  34 lines
  1. -- "CatMenu/AgesMenu"
  2. on exitFrame
  3.   -- Set sprite globals
  4.   global SMenu, SMenuBar, SMenuItems, SMenuHilite
  5.   
  6.   if marker(0) = label("CatMenu") then
  7.     set SMenu = GetSpriteNamed("Categories Menu")
  8.     set SMenuBar = GetSpriteNamed("Categories Pulldown")
  9.     set SMenuItems = GetSpriteNamed("Category Menu Items")
  10.     
  11.     -- ### CAN'T DETERMINE MENU HILITE SPRITE PROGRAMMATICALLY!
  12.     -- Assume it is one after menu items sprite
  13.     set SMenuHilite = GetSpriteNamed("Category Menu Items") + 1
  14.     set the visible of sprite SMenuHilite = FALSE
  15.     
  16.   else -- must be ages menu
  17.     set SMenu = GetSpriteNamed("Ages Menu")
  18.     set SMenuBar = GetSpriteNamed("Ages Pulldown")
  19.     set SMenuItems = GetSpriteNamed("Age Menu Items")
  20.     
  21.     -- ### CAN'T DETERMINE MENU HILITE SPRITE PROGRAMMATICALLY!
  22.     -- Assume it is one after the menu items sprite
  23.     set SMenuHilite = GetSpriteNamed("Age Menu Items") + 1
  24.     set the visible of sprite SMenuHilite = FALSE
  25.   end if
  26.   
  27.   -- Hide the clickme sprite if it is visible
  28.   global SClickMe
  29.   if the visible of sprite SClickMe = TRUE then
  30.     set the visible of sprite SClickMe = FALSE
  31.   end if
  32.   
  33.   updateStage
  34. end