home *** CD-ROM | disk | FTP | other *** search
/ Club KidSoft Volume 3 #3 / CKSPCV33.BIN / movies / catalog.dir / 00048_Script_48 < prev    next >
Text File  |  1995-07-19  |  2KB  |  49 lines
  1. -- "Catalog"
  2. on exitFrame
  3.   cursor 0
  4.   
  5.   global gMIAWOpen, KidDemosOnly
  6.   if gMIAWOpen = FALSE then
  7.     
  8.     -- Mouse in any of our buttons?
  9.     global SReturn, SPageLeft, SPageRight, SBuyNow, SFind, SQA, SCatMenu, SAgeMenu
  10.     global gSummaryScreenPageNumber, gSummaryScreenNumPages
  11.     
  12.     SetVisibleIfOver(SReturn, "Swoosh") -- Return
  13.     
  14.     if gSummaryScreenPageNumber > 1 then SetVisibleIfOver(SPageLeft, "Swoosh")
  15.     if gSummaryScreenPageNumber < gSummaryScreenNumPages then SetVisibleIfOver(SPageRight, "Swoosh")
  16.     
  17.     if KidDemosOnly = FALSE then
  18.       MouseEnter(SBuyNow, "Swoosh") -- BuyNow
  19.       
  20.       SetVisibleIfOver(SFind, "Swoosh") -- Find button
  21.       SetVisibleIfOver(SQA, "Swoosh") -- QA button
  22.       
  23.       MenuEnter(SCatMenu, "CatMenu", "Catalog") -- Categories Menu
  24.       MenuEnter(SAgeMenu, "AgesMenu", "Catalog") -- Ages Menu
  25.     end if
  26.     
  27.     -- Has mouse paused on top of any box?
  28.     global SFirstBox, SFirstSpecial, SFirstDemo, SFirstUnlock, SClickMe
  29.     set overAnyBox = FALSE
  30.     repeat with i = 0 to 4
  31.       if the visible of sprite (SFirstBox + i) = TRUE then
  32.         set overBox = CheckClickMe(SFirstBox + i)
  33.         if overBox = TRUE then
  34.           set overAnyBox = TRUE
  35.         end if
  36.       end if
  37.     end repeat
  38.     if overAnyBox = FALSE then
  39.       if the visible of sprite SClickMe = TRUE then
  40.         set the visible of sprite SClickMe = FALSE
  41.       end if
  42.     end if
  43.     
  44.     CheckBalloonChange()
  45.   end if
  46.   
  47.   go to frame the frame
  48. end
  49.