home *** CD-ROM | disk | FTP | other *** search
/ PC Direct 1995 September / PCD0995.ISO / files / support.dir / 00129.ls < prev    next >
Encoding:
Text File  |  1994-12-18  |  2.2 KB  |  66 lines
  1. global gPTimerSet, gPresentationTime, gPresentationLight, gYellowSet, gRedSet, gLightColor
  2.  
  3. on startMovie
  4.   global gserviceList, gstartVar, gpressed, cAudioLevel, tProductSelect, tSectionSelect, tFirsttimeFlag, soundLevel, lastSprite
  5.   set the preLoadEventAbort to 1
  6.   set the preloadRam to 0
  7.   set gserviceList to ["conference", "on-line", "access", "training", "developer", "consulting", "major", "user", "international", "education", "reseller"]
  8.   set the visible of sprite 17 to 1
  9.   puppetSprite(17, 1)
  10.   set gstartVar to 0
  11.   set gpressed to 0
  12.   set cAudioLevel to 46
  13.   if voidp(soundLevel) then
  14.     set soundLevel to 3
  15.   end if
  16.   set lastSprite to 0
  17.   if gPTimerSet then
  18.     puppetSprite(gPresentationLight, 1)
  19.     set the castNum of sprite gPresentationLight to the number of cast gLightColor
  20.     updateStage()
  21.   end if
  22. end
  23.  
  24. on supportSelect
  25.   global tProductPressed, tSectionPressed, tProductSelect, tSectionSelect, tFirsttimeFlag, gpressed, gserviceList, gstartVar
  26.   puppetSound("click")
  27.   set WhichSprite to the clickOn
  28.   set gpressed to WhichSprite
  29.   puppetSprite(WhichSprite, 1)
  30.   set the castNum of sprite WhichSprite to the number of cast ("Button " & string(WhichSprite - 1) && "down")
  31.   repeat with n = 2 to 12
  32.     if n <> WhichSprite then
  33.       puppetSprite(n, 0)
  34.     end if
  35.   end repeat
  36.   updateStage()
  37.   go(getAt(gserviceList, WhichSprite - 1))
  38. end
  39.  
  40. on changeHotspot
  41.   set whichCast to the mouseCast
  42.   set WhichSprite to the clickOn
  43.   puppetSprite(WhichSprite, 1)
  44.   set myName to the name of cast whichCast
  45.   set myNum to the last word in myName
  46.   put not value(myNum) into word the number of words in myName of myName
  47.   set the castNum of sprite WhichSprite to cast myName
  48.   updateStage()
  49. end
  50.  
  51. on enterFrame
  52.   if gPTimerSet then
  53.     if (the timer > (gPresentationTime * 3600)) and not gRedSet then
  54.       set gLightColor to "Red timer light lit"
  55.       set the castNum of sprite gPresentationLight to the number of cast gLightColor
  56.       set gRedSet to 1
  57.       exit
  58.     end if
  59.     if (the timer > ((gPresentationTime * 3600) - 7200)) and not gYellowSet then
  60.       set gLightColor to "Yellow timer light lit"
  61.       set the castNum of sprite gPresentationLight to the number of cast gLightColor
  62.       set gYellowSet to 1
  63.     end if
  64.   end if
  65. end
  66.