PC Direct 1995 September/PCD0995.ISO/files/tools.dir/00362.ls

Text File | 1995-01-25 | 13.0 KB | 378 lines

global cAudioLevel, gQTMovieSprite, tSectionPressed, gProductList, gLEDSprite, cDemoQT, demoQTstate, gVidPlaySprite, gVidPauseSprite, gSoundlevel, gMacDemoSprite, gWindowsDemoSprite, tProductSelect, tSectionSelect, lastSprite, gBlurbSprite, gUSASprite, gInternationalSprite, gOrderInfoSprite, gPlaySprite, gPauseSprite, gStopSprite, gFforwardSprite, gRewindSprite, gSeenTheDemo, gNumOProducts, gCounter, gReturnFromQuit, gLeftFromQTOver, gLeftFromQTDemo, gMovieTimeWhenLeft, gPTimerSet, gPresentationTime, gPresentationLight, gYellowSet, gRedSet, gLightColor

on startMovie
  set the preLoadEventAbort to 1
  set gQTMovieSprite to 6
  set cAudioLevel to 46
  set cDemoQT to 13
  set demoQTstate to #stop
  set lastSprite to 0
  set gBlurbSprite to 5
  set gUSASprite to 6
  set gInternationalSprite to 7
  set gOrderInfoSprite to 8
  set gPlaySprite to 6
  set gPauseSprite to 7
  set gStopSprite to 8
  set gFforwardSprite to 9
  set gRewindSprite to 10
  set gQTMovieSprite to 6
  set gVidPlaySprite to 19
  set gVidPauseSprite to 20
  set gMacDemoSprite to 11
  set gWindowsDemoSprite to 12
  set gSeenTheDemo to 0
  set gLEDSprite to 27
  if gReturnFromQuit then
    puppetSprite(gLEDSprite, 1)
    set the castNum of sprite gLEDSprite to the number of cast (tProductSelect && "LED")
    if gLeftFromQTOver then
      set the movieRate of sprite gQTMovieSprite to 0
      set the movieTime of sprite gQTMovieSprite to gMovieTimeWhenLeft
      set overQTstate to #pause
      puppetSprite(gVidPauseSprite, 1)
      set the castNum of sprite gVidPauseSprite to the number of cast "VidPause lit"
      set gLeftFromQTOver to 0
    end if
    if gLeftFromQTDemo then
      set the castNum of sprite gPauseSprite to the number of cast "DemoPause lit"
      set the movieRate of sprite cDemoQT to 0
      set the movieTime of sprite cDemoQT to gMovieTimeWhenLeft
      set demoQTstate to #pause
      puppetSprite(gPauseSprite, 1)
      set the castNum of sprite gPauseSprite to the number of cast "DemoPause lit"
      set gLeftFromQTDemo to 0
    end if
    puppetSprite(cAudioLevel, 1)
    set the castNum of sprite cAudioLevel to the number of cast ("sound level" && gSoundlevel)
    updateStage()
    set gReturnFromQuit to 0
  end if
  if gPTimerSet then
    puppetSprite(gPresentationLight, 1)
    set the castNum of sprite gPresentationLight to the number of cast gLightColor
    updateStage()
  end if
end

on initTools
  set tSectionPressed to 0
  set tProductSelect to "nullSprite"
  set tSectionSelect to EMPTY
  set gProductList to ["authorware", "director", "macromodel", "action", "soundedit", "clipmedia", "freehand", "fontographer"]
  set gNumOProducts to count(gProductList) + 1
  set gCounter to 1
end

on sectionSelect name
  global tSectionPressed, tProductSelect, tSectionSelect
  clearPuppets()
  set currentSection to tSectionSelect
  set currentSectionSprite to tSectionPressed
  set WhichSprite to the clickOn
  puppetSprite(WhichSprite, 1)
  set whichCast to word 1 of the name of cast the castNum of sprite WhichSprite
  set the castNum of sprite WhichSprite to the number of cast (whichCast && "down")
  puppetSound("click")
  if currentSection = name then
    exit
  else
    set tSectionSelect to name
    set tSectionPressed to WhichSprite
    if currentSectionSprite <> 0 then
      set offcast to word 1 of the name of cast the castNum of sprite currentSectionSprite
      set the castNum of sprite currentSectionSprite to the number of cast offcast
    end if
    updateStage()
  end if
  if name = "data" then
    if not gSeenTheDemo then
      go("Data Intro")
      exit
    else
      go(tProductSelect & tSectionSelect)
      exit
    end if
  else
    go(tProductSelect & tSectionSelect)
  end if
end

on productSelect direction
  global tSectionPressed, tProductSelect, tSectionSelect
  clearPuppets()
  set WhichSprite to the clickOn
  puppetSprite(WhichSprite, 1)
  set whichCast to word 1 of the name of cast the castNum of sprite WhichSprite
  set the castNum of sprite WhichSprite to the number of cast (whichCast && "down")
  puppetSound("click")
  updateStage()
  if direction = #forward then
    set gCounter to gCounter + 1
    if gCounter = gNumOProducts then
      set gCounter to 1
    end if
    set tProductSelect to getAt(gProductList, gCounter)
    set the castNum of sprite gLEDSprite to the number of cast (tProductSelect && "LED")
  else
    set gCounter to gCounter - 1
    if gCounter = 0 then
      set gCounter to gNumOProducts - 1
    end if
    set tProductSelect to getAt(gProductList, gCounter)
    set the castNum of sprite gLEDSprite to the number of cast (tProductSelect && "LED")
  end if
  updateStage()
end

on demoSetup
  global tProductSelect, tSectionSelect, gWhichGestalt, demoQTstate
  puppetSprite(gMacDemoSprite, 1)
  puppetSprite(gWindowsDemoSprite, 1)
  if the machineType = 256 then
    set gWhichGestalt to #win
    set the castNum of sprite gMacDemoSprite to the number of cast "Mac"
    set the castNum of sprite gWindowsDemoSprite to the number of cast "Win lit"
  else
    set gWhichGestalt to #mac
    set the castNum of sprite gMacDemoSprite to the number of cast "Win"
    set the castNum of sprite gWindowsDemoSprite to the number of cast "Mac lit"
  end if
end

on demoQTplay
  global demoQTstate, cDemoQT
  set WhichSprite to the clickOn
  puppetSprite(WhichSprite, 1)
  set the castNum of sprite gPlaySprite to the number of cast "DemoPlay lit"
  set the movieRate of sprite cDemoQT to 1
  set demoQTstate to #play
  set the castNum of sprite gStopSprite to the number of cast "DemoStop"
  set the castNum of sprite gPauseSprite to the number of cast "DemoPause"
  updateStage()
end

on demoQTpause
  global demoQTstate, cDemoQT
  set WhichSprite to the clickOn
  puppetSprite(WhichSprite, 1)
  set the castNum of sprite gPauseSprite to the number of cast "DemoPause lit"
  if demoQTstate = #play then
    set the movieRate of sprite cDemoQT to 0
    set demoQTstate to #pause
    set the castNum of sprite gPlaySprite to the number of cast "DemoPlay"
    updateStage()
  else
    if demoQTstate = #pause then
      set the movieRate of sprite cDemoQT to 1
      set demoQTstate to #play
      set the castNum of sprite gPauseSprite to the number of cast "DemoPause"
      set the castNum of sprite gPlaySprite to the number of cast "DemoPlay lit"
      updateStage()
    end if
  end if
end

on demoQTstop
  global demoQTstate, cDemoQT
  set WhichSprite to the clickOn
  puppetSprite(WhichSprite, 1)
  set the movieRate of sprite cDemoQT to 0
  set the movieTime of sprite cDemoQT to 0
  set demoQTstate to #stop
  set the castNum of sprite gStopSprite to the number of cast "DemoStop"
  set the castNum of sprite gPauseSprite to the number of cast "DemoPause"
  set the castNum of sprite gPlaySprite to the number of cast "DemoPlay"
  updateStage()
end

on demoQTfforward
  global demoQTstate, cDemoQT
  set WhichSprite to the clickOn
  puppetSprite(WhichSprite, 1)
  set the movieRate of sprite cDemoQT to 2
  set the castNum of sprite gFforwardSprite to the number of cast "DemoForward lit"
  repeat while the stillDown
    updateStage()
  end repeat
  if the movieTime of sprite cDemoQT = the stopTime of sprite cDemoQT then
    set the movieTime of sprite cDemoQT to 0
  end if
  if (demoQTstate = #pause) or (demoQTstate = #stop) then
    set the movieRate of sprite cDemoQT to 0
  else
    set the movieRate of sprite cDemoQT to 1
  end if
end

on demoQTreverse
  global demoQTstate, cDemoQT
  set WhichSprite to the clickOn
  puppetSprite(WhichSprite, 1)
  set the castNum of sprite gRewindSprite to the number of cast "DemoRewind lit"
  set the movieRate of sprite cDemoQT to -2
  repeat while the stillDown
    updateStage()
  end repeat
  if (demoQTstate = #pause) or (demoQTstate = #stop) then
    set the movieRate of sprite cDemoQT to 0
  else
    set the movieRate of sprite cDemoQT to 1
  end if
end

on dataButtonClick
  set WhichSprite to the clickOn
  set variable to the castNum of sprite WhichSprite
  set the castNum of sprite WhichSprite to variable + 1
  puppetSound("click")
  updateStage()
  repeat while the stillDown
  end repeat
  set the castNum of sprite WhichSprite to variable
  updateStage()
end

on switchTool
  set WhichSprite to the clickOn
  puppetSprite(WhichSprite, 1)
  if the castNum of sprite WhichSprite <> the number of cast "CLIPMEDIA TOOL" then
    set the castNum of sprite WhichSprite to the castNum of sprite WhichSprite + 1
  else
    set the castNum of sprite WhichSprite to the number of cast "action tool"
  end if
end

on overQTplay action
  global overQTstate, gQTMovieSprite
  set WhichSprite to the clickOn
  puppetSprite(WhichSprite, 1)
  if action = #play then
    set the castNum of sprite gVidPauseSprite to the number of cast "VidPause"
    set the castNum of sprite the clickOn to the number of cast "VidPlay lit"
    set the movieRate of sprite gQTMovieSprite to 1
    set overQTstate to action
    exit
  end if
  if action = #pause then
    if overQTstate = #play then
      set the movieRate of sprite gQTMovieSprite to 0
      set the castNum of sprite the clickOn to the number of cast "VidPause lit"
      set the castNum of sprite gVidPlaySprite to the number of cast "VidPlay"
      set overQTstate to action
    else
      if overQTstate = #pause then
        set the movieRate of sprite gQTMovieSprite to 1
        set the castNum of sprite the clickOn to the number of cast "VidPause"
        set the castNum of sprite gVidPlaySprite to the number of cast "VidPlay lit"
        set overQTstate to #play
      end if
    end if
    exit
  end if
end

on overSetUp
  global overQTstate, gQTMovieSprite
  puppetSprite(gVidPauseSprite, 1)
  set overQTstate to #pause
end

on dataButtonSelect WhichSprite, productchoice
  puppetSound("click")
  puppetSprite(WhichSprite, 1)
  set oncast to word 1 of the name of cast the castNum of sprite WhichSprite
  set the castNum of sprite WhichSprite to the number of cast (the name of cast oncast && "down")
  updateStage()
  repeat with n = 18 to 23
    set offcast to word 1 of the name of cast the castNum of sprite n
    if n <> WhichSprite then
      set the castNum of sprite n to the number of cast offcast
    end if
  end repeat
  set whichBullet to WhichSprite - 17
  go(string(productchoice) & "Bullet" & whichBullet)
end

on winMacSwitch WhichGestalt
  global gWhichGestalt, tProductSelect, tSectionSelect
  repeat with n = 8 to 10
    set offcast to word 1 of the name of cast the castNum of sprite n
    set the castNum of sprite n to the number of cast offcast
  end repeat
  if WhichGestalt = #mac then
    go(tProductSelect & "DemoHold")
  else
    go(tProductSelect & "DemoWINHold")
  end if
end

on memoryman1
  preLoadCast(the number of cast "left arrow blinker", the number of cast "order down")
end

on memoryMan2
  if not (the preLoad of cast the number of cast "Big Panel") then
    preLoadCast(the number of cast "Big Panel")
  end if
  if not (the preLoad of cast the number of cast "Euphorhythm 3.AIFF") then
    preLoadCast(the number of cast "Euphorhythm 3.AIFF")
  end if
  if not (the preLoad of cast the number of cast "genblur") then
    preLoadCast(the number of cast "genblur")
  end if
  if not (the preLoad of cast the number of cast "over panel") then
    preLoadCast(the number of cast "over panel")
  end if
  preLoadCast(the number of cast "VidPlay lit", the number of cast "TV frame")
  if not (the preLoad of cast the number of cast "data panel") then
    preLoadCast(the number of cast "data panel")
  end if
  preLoadCast(the number of cast "DataButton1 down", the number of cast "Outline box")
  if not (the preLoad of cast the number of cast "Demo Panel") then
    preLoadCast(the number of cast "Demo Panel")
  end if
  preLoadCast(the number of cast "DemoPlay Lit", the number of cast "Win Lit")
  if not (the preLoad of cast the number of cast "order panel") then
    preLoadCast(the number of cast "order panel")
  end if
end

on memoryMan3 whichPanel
  if not (the preLoad of cast the number of cast "Big Panel") then
    preLoadCast(the number of cast "Big Panel")
  end if
  if not (the preLoad of cast the number of cast "genblur") then
    preLoadCast(the number of cast "genblur")
  end if
  if not (the preLoad of cast the number of cast (whichPanel && "panel")) then
    preLoadCast(the number of cast (whichPanel && "panel"))
  end if
  preLoadCast(the number of cast "VidPlay lit", the number of cast "TV frame")
  if whichPanel = "data" then
    preLoadCast(the number of cast "DataButton1 down", the number of cast "Outline box")
  end if
  if whichPanel = "demo" then
    preLoadCast(the number of cast "DemoPlay Lit", the number of cast "Win Lit")
  end if
end

on enterFrame
  if gPTimerSet then
    if (the timer > (gPresentationTime * 3600)) and not gRedSet then
      set gLightColor to "Red timer light lit"
      set the castNum of sprite gPresentationLight to the number of cast gLightColor
      set gRedSet to 1
      exit
    end if
    if (the timer > ((gPresentationTime * 3600) - 7200)) and not gYellowSet then
      set gLightColor to "Yellow timer light lit"
      set the castNum of sprite gPresentationLight to the number of cast gLightColor
      set gYellowSet to 1
    end if
  end if
  if the freeBytes < 300000 then
    unLoad()
  end if
end