home *** CD-ROM | disk | FTP | other *** search
/ Computer Buyer 1995 November / SHOWCASE.ISO / files / support.dir / 00129_Script_129 < prev    next >
Text File  |  1994-12-18  |  3KB  |  80 lines
  1.  
  2. -- òò -- Lingo coding by David K. Anderson and Terry R. Schussler -- òò --
  3.  
  4.  
  5. --=============================================--
  6. --      SUPPORT.DIR movie script handlers      --
  7. --=============================================--
  8.  
  9. global gPTimerSet, gPresentationTime, gPresentationLight, gYellowSet, gRedSet, gLightColor
  10.  
  11. on startmovie
  12.   global gserviceList, gstartVar, gPressed
  13.   set the preLoadEventAbort = TRUE
  14.   set the preLoadRAM = FALSE
  15.   put ["conference","on-line","access","training","developer","consulting","major","user",┬
  16. "international","education","reseller"] into gserviceList
  17.   set the visible of sprite 17 to true
  18.   puppetSprite 17, TRUE
  19.   set gstartVar = 0
  20.   put 0 into gPressed
  21.   global cAudioLevel
  22.   put 46 into cAudioLevel -- channel for volume indicator
  23.   global tProductSelect, tSectionSelect, tFirsttimeFlag
  24.   global soundlevel
  25.   if voidP(soundlevel) then put 3 into soundlevel
  26.   global lastSprite
  27.   put 0 into lastSprite
  28.   if gPTimerSet then
  29.     puppetSprite gPresentationLight, 1
  30.     set the castnum of sprite gPresentationLight = the number of cast gLightColor
  31.     updateStage
  32.   end if
  33. end
  34.  
  35. -- this routine handles a Support button selection and jumps to the appropriate frame if necessary
  36. on supportSelect
  37.   global tProductPressed, tSectionPressed, tProductSelect, tSectionSelect, tFirsttimeFlag
  38.   global gpressed,gserviceList, gstartVar
  39.   puppetSound "click"
  40.   put the clickOn into whichSprite
  41.   set gpressed = whichSprite
  42.   puppetSprite whichSprite, TRUE
  43.   set the castnum of sprite whichSprite = the number of cast ("Button " & string(whichsprite - 1) && "down")
  44.   repeat with n = 2 to 12
  45.     if n <> whichSprite then puppetSprite n, FALSE
  46.   end repeat
  47.   updateStage
  48.   go to frame getAt(gservicelist,whichSprite-1) 
  49. end supportSelect
  50.  
  51.  
  52. on changeHotspot
  53.   --  Capture the sprite info before anything can change the value
  54.   put the mouseCast into whichCast
  55.   put the clickOn into whichSprite
  56.   puppetsprite whichSprite, 1
  57.   put (the name of cast whichCast) into myName
  58.   put the last word of myName into myNum
  59.   put not value(myNum) into word (the number of words in myName) of myName
  60.   set the castNum of sprite whichSprite = cast myName
  61.   updatestage
  62. end changeHotspot
  63.  
  64. on enterFrame
  65.   if gPTimerSet then
  66.     if  the timer > (gPresentationTime * 3600) AND not gRedSet then
  67.       set gLightColor = "Red timer light lit"
  68.       set the castnum of sprite gPresentationLight = the number of cast gLightColor
  69.       set gRedSet = TRUE
  70.       exit 
  71.     end if
  72.     if the timer > ((gPresentationTime * 3600)  - 7200) AND not gYellowSet then
  73.       set gLightColor = "Yellow timer light lit"
  74.       set the castnum of sprite gPresentationLight = the number of cast gLightColor
  75.       set gYellowSet = TRUE
  76.     end if
  77.   end if
  78. end    
  79.  
  80.