home *** CD-ROM | disk | FTP | other *** search
/ Better Homes & Gardens: …oking for Today - Chicken / Image.iso / pc / tips.dxr / 00001.ls next >
Encoding:
Text File  |  1995-11-20  |  1.6 KB  |  49 lines
  1. on startMovie
  2.   global gTipSprite, gHelpSprite
  3.   set gHelpSprite to 44
  4.   helpOff()
  5.   set gTipSprite to 2
  6.   goTips()
  7. end
  8.  
  9. on goTips
  10.   global gCurrentBook
  11.   cleanLegos()
  12.   go(gCurrentBook & " tips")
  13.   makeTipsScroll()
  14.   makeTipsButtons()
  15. end
  16.  
  17. on makeTipsScroll
  18.   global gTipsScroll, gTipSprite
  19.   set track to new("Button", [#spriteChan: 16])
  20.   set ball to new("Button", [#spriteChan: 17, #pressedCast: 32])
  21.   set up to new("Button", [#spriteChan: 18, #pressedCast: 34])
  22.   set down to new("Button", [#spriteChan: 19, #pressedCast: 36])
  23.   set gTipsScroll to new("ScrollBar", [#scrollSprite: gTipSprite, #minButton: up, #maxButton: down, #thumbButton: ball, #trackButton: track])
  24. end
  25.  
  26. on makeTipsButtons
  27.   global gMainButton, gHelpButton, gBackButton, gChooserButton, gPlannerButton, gShoppingButton, gPersonalButton, gUtilityButton, gVideoButton
  28.   set gMainButton to birth(script "CFTButton", 7)
  29.   set gHelpButton to birth(script "CFTButton", 15)
  30.   set gBackButton to birth(script "CFTButton", 8)
  31.   set gChooserButton to birth(script "CFTButton", 9)
  32.   set gPlannerButton to birth(script "CFTButton", 10)
  33.   set gShoppingButton to birth(script "CFTButton", 11)
  34.   set gPersonalButton to birth(script "CFTButton", 12)
  35.   set gUtilityButton to birth(script "CFTButton", 13)
  36.   set gVideoButton to birth(script "CFTButton", 14)
  37.   set gBrowseLeftButton to birth(script "CFTButton", 25)
  38.   set gBrowseRightButton to birth(script "CFTButton", 26)
  39. end
  40.  
  41. on helpOn
  42.   global gLastHelp, gHelpLinks, gHelpActive, gHelpSprite
  43.   put "help is On"
  44.   set gHelpActive to 1
  45.   set gLastHelp to 0
  46.   set gHelpLinks to [7: 19, 8: 23, 9: 12, 10: 13, 11: 14, 12: 5, 13: 16, 14: 17, 15: 1]
  47.   puppetSprite(gHelpSprite, 1)
  48. end
  49.