PC World Komputer 1996 February/PCWK0296.iso/autodesk/autodesk.exe/autodesk.DXR/00001.ls

Text File | 1994-12-17 | 8.0 KB | 330 lines

on RolloverOrb whichChannel, toHere
  global gDispatched
  if not rollOver(whichChannel) or gDispatched then
    exit
  end if
  set myCast to the castNum of sprite whichChannel
  set pushed to 0
  set the castNum of sprite 27 to myCast + 20
  set the visible of sprite 27 to 1
  set the castNum of sprite whichChannel to myCast + 10
  updateStage()
  repeat while rollOver(whichChannel)
    if the mouseDown then
      set the castNum of sprite whichChannel to myCast
      updateStage()
      repeat while the mouseDown
        if not rollOver(whichChannel) then
          exit repeat
        end if
      end repeat
      if rollOver(whichChannel) then
        set pushed to 1
      end if
      exit repeat
    end if
  end repeat
  set the visible of sprite 27 to 0
  set the castNum of sprite whichChannel to myCast
  updateStage()
  if pushed then
    puppetSprite(27, 0)
    puppetSprite(30, 0)
    set gDispatched to 1
    go(toHere)
  end if
end

on RolloverBtn whichChannel, toHere
  global gDispatched
  if not rollOver(whichChannel) or gDispatched then
    exit
  end if
  set myCast to the castNum of sprite whichChannel
  set pushed to 0
  set the castNum of sprite whichChannel to myCast + 10
  updateStage()
  repeat while rollOver(whichChannel)
    if the mouseDown then
      set the castNum of sprite whichChannel to myCast + 20
      updateStage()
      repeat while the mouseDown
        if not rollOver(whichChannel) then
          exit repeat
        end if
      end repeat
      if rollOver(whichChannel) then
        set pushed to 1
      end if
      exit repeat
    end if
  end repeat
  set the castNum of sprite whichChannel to myCast
  updateStage()
  if pushed then
    puppetSprite(30, 0)
    set gDispatched to 1
    go(toHere)
  end if
end

on animate10
  puppetSprite(10, 1)
  repeat with i = 413 to 420
    startTimer()
    set the castNum of sprite 10 to i
    updateStage()
    Waitkey2(1)
  end repeat
  puppetSprite(10, 0)
end

on waitkey ticks
  startTimer()
  repeat while the timer < ticks
    nothing()
  end repeat
end

on Waitkey2 ticks
  repeat while the timer < ticks
    nothing()
  end repeat
end

on ButtonHit whichChannel, toHere, killPuppet
  global gDispatched
  if not rollOver(whichChannel) or gDispatched then
    exit
  end if
  set myCast to the castNum of sprite whichChannel
  set pushed to 0
  repeat while rollOver(whichChannel)
    if the mouseDown then
      set the castNum of sprite whichChannel to myCast + 10
      updateStage()
      repeat while the mouseDown
        if not rollOver(whichChannel) then
          exit repeat
        end if
      end repeat
      if rollOver(whichChannel) then
        set pushed to 1
      end if
      exit repeat
    end if
  end repeat
  if pushed then
    if killPuppet then
      puppetSprite(30, 0)
    end if
    set gDispatched to 1
    go(toHere)
  end if
end

on updateSound
  if the soundEnabled then
    puppetSound("martin")
    set myCast to the castNum of sprite 30
    set the castNum of sprite 30 to myCast - 10
    updateStage()
  else
    set myCast to the castNum of sprite 30
    set the castNum of sprite 30 to myCast + 10
    updateStage()
  end if
end

on UpdateSound2
  if the soundEnabled then
    puppetSound("martin2")
    set myCast to the castNum of sprite 30
    set the castNum of sprite 30 to myCast - 10
    updateStage()
  else
    set myCast to the castNum of sprite 30
    set the castNum of sprite 30 to myCast + 10
    updateStage()
  end if
end

on RolloverMenu whichChannel
  global gDispatched, gHistoryRun
  if not rollOver(whichChannel) or gDispatched then
    exit
  end if
  set myCast to the castNum of sprite whichChannel
  if whichChannel <= 5 then
    set otherCast to the castNum of sprite (whichChannel + 4)
  else
    set otherCast to the castNum of sprite (whichChannel - 4)
  end if
  set pushed to 0
  set the castNum of sprite whichChannel to myCast + 10
  if whichChannel <= 5 then
    set the castNum of sprite (whichChannel + 4) to otherCast + 10
  else
    set the castNum of sprite (whichChannel - 4) to otherCast + 10
  end if
  updateStage()
  repeat while rollOver(whichChannel)
    if the mouseDown then
      set the castNum of sprite whichChannel to myCast + 20
      if whichChannel <= 5 then
        set the castNum of sprite (whichChannel + 4) to otherCast + 20
      else
        set the castNum of sprite (whichChannel - 4) to otherCast + 20
      end if
      updateStage()
      repeat while the mouseDown
        if not rollOver(whichChannel) then
          exit repeat
        end if
      end repeat
      if rollOver(whichChannel) then
        set pushed to 1
      end if
      exit repeat
    end if
  end repeat
  set the castNum of sprite whichChannel to myCast
  if whichChannel <= 5 then
    set the castNum of sprite (whichChannel + 4) to otherCast
  else
    set the castNum of sprite (whichChannel - 4) to otherCast
  end if
  updateStage()
  if pushed then
    puppetSprite(30, 0)
    set gDispatched to 1
    if (whichChannel = 2) or (whichChannel = 6) then
      go("Products")
    else
      if (whichChannel = 3) or (whichChannel = 7) then
        set gHistoryRun to 1
        if the soundEnabled then
          puppetSound("martin2")
        end if
        go("HistBegin")
      else
        if (whichChannel = 4) or (whichChannel = 8) then
          DispatchPIF("MainMenu", "sedemo.pif")
        else
          DispatchPIF("MainMenu", EMPTY)
        end if
      end if
    end if
  end if
end

on DispatchPIF returnWhere, aPIF
  global gGoBack, gThePIF
  set gGoBack to returnWhere
  set gThePIF to aPIF
  puppetSprite(30, 0)
  go("Wait")
end

on RolloverBtn2 whichChannel, toHere
  global gDispatched
  if not rollOver(whichChannel) or gDispatched then
    exit
  end if
  set myCast to the castNum of sprite whichChannel
  set pushed to 0
  set the castNum of sprite whichChannel to myCast + 10
  updateStage()
  repeat while rollOver(whichChannel)
    if the mouseDown then
      set the castNum of sprite whichChannel to myCast + 20
      updateStage()
      repeat while the mouseDown
        if not rollOver(whichChannel) then
          exit repeat
        end if
      end repeat
      if rollOver(whichChannel) then
        set pushed to 1
      end if
      exit repeat
    end if
  end repeat
  set the castNum of sprite whichChannel to myCast
  updateStage()
  if pushed then
    set gDispatched to 1
    go(toHere)
  end if
end

on startMovie
  global gDemoRun, gHistoryRun
  set gDemoRun to 0
  set gHistoryRun to 0
  if the colorDepth <> 8 then
    alert("This program requires the video monitor to be set at 256 color display.")
    updateStage()
    halt()
  end if
  set dt to the memorysize / 1024
  if dt < 3500 then
    alert("This program requires at least 3.5 M of available RAM. Currently reported available memory :" && dt && "K.")
    updateStage()
    halt()
  end if
  set the volume of sound 1 to 200
  set the volume of sound 2 to 245
  set the preLoadEventAbort to 1
end

on RolloverHelp
  global gDispatched
  if not rollOver(32) or gDispatched then
    exit
  end if
  set myCast to the castNum of sprite 32
  set pushed to 0
  set the castNum of sprite 27 to myCast + 20
  set the visible of sprite 27 to 1
  set the castNum of sprite 32 to myCast + 10
  updateStage()
  repeat while rollOver(32)
    nothing()
  end repeat
  set the visible of sprite 27 to 0
  set the castNum of sprite 32 to myCast
  updateStage()
end

on PrintIt theFile
  global gDispatched
  if not rollOver(16) or gDispatched then
    exit
  end if
  set myCast to the castNum of sprite 16
  set pushed to 0
  repeat while rollOver(16)
    if the mouseDown then
      set the castNum of sprite 16 to myCast + 10
      updateStage()
      repeat while the mouseDown
        if not rollOver(16) then
          exit repeat
        end if
      end repeat
      if rollOver(16) then
        set pushed to 1
      end if
      exit repeat
    end if
  end repeat
  if pushed then
    set the castNum of sprite 16 to myCast
    open("print\" & theFile, "prntfile.exe")
    if the soundEnabled then
      puppetSound("martin")
    end if
  end if
end