PC Direct 1995 September/PCD0995.ISO/files/demos/jobswin/jobseek.dir/00350.ls

Text File | 1994-12-18 | 7.0 KB | 290 lines

on startMovie
  global theColorDepth, theCounter, printer
  cursor(4)
  when timeOut then go to frame "Main"
  set the timeoutLength to 300 * 60
  if theCounter = 8 then
    nothing()
  else
    set theColorDepth to the colorDepth
    set the colorDepth to 8
  end if
  set theCounter to 8
end

on stopMovie
  global printer
  if objectp(printer) then
    printer(mdispose)
  end if
end

on initCursor
  set the cursor of sprite 8 to 1502
  set the cursor of sprite 18 to 1502
  set the cursor of sprite 19 to 1502
  set the cursor of sprite 20 to 1502
  set the cursor of sprite 21 to 1502
  set the cursor of sprite 22 to 1502
  set the cursor of sprite 23 to 1502
  set the cursor of sprite 24 to 1502
end

on titFlash
  if rollOver(9) then
    set variable to the castNum of sprite 9
    set variable to variable + 1
    repeat while rollOver(9)
      set the castNum of sprite 9 to variable
      if the mouseDown then
        puppetSound("bleep")
        repeat while the stillDown
          updateStage()
          puppetSound(0)
        end repeat
        go("Personal")
      end if
      updateStage()
    end repeat
    set variable to variable - 1
    set the castNum of sprite 9 to variable
    updateStage()
  else
    nothing()
  end if
  if rollOver(10) then
    set variable to the castNum of sprite 10
    set variable to variable + 1
    repeat while rollOver(10)
      set the castNum of sprite 10 to variable
      if the mouseDown then
        puppetSound("bleep")
        repeat while the stillDown
          updateStage()
          puppetSound(0)
        end repeat
        go("Education")
      end if
      updateStage()
    end repeat
    set variable to variable - 1
    set the castNum of sprite 10 to variable
    updateStage()
  else
    nothing()
  end if
  if rollOver(11) then
    set variable to the castNum of sprite 11
    set variable to variable + 1
    repeat while rollOver(11)
      set the castNum of sprite 11 to variable
      if the mouseDown then
        puppetSound("bleep")
        repeat while the stillDown
          updateStage()
          puppetSound(0)
        end repeat
        go("Objective")
      end if
      updateStage()
    end repeat
    set variable to variable - 1
    set the castNum of sprite 11 to variable
    updateStage()
  else
    nothing()
  end if
  if rollOver(12) then
    set variable to the castNum of sprite 12
    set variable to variable + 1
    repeat while rollOver(12)
      set the castNum of sprite 12 to variable
      if the mouseDown then
        puppetSound("bleep")
        repeat while the stillDown
          updateStage()
          puppetSound(0)
        end repeat
        go("Emphasis")
      end if
      updateStage()
    end repeat
    set variable to variable - 1
    set the castNum of sprite 12 to variable
    updateStage()
  else
    nothing()
  end if
  if rollOver(13) then
    set variable to the castNum of sprite 13
    set variable to variable + 1
    repeat while rollOver(13)
      set the castNum of sprite 13 to variable
      if the mouseDown then
        puppetSound("bleep")
        repeat while the stillDown
          updateStage()
          puppetSound(0)
        end repeat
        go("Comp. Skills")
      end if
      updateStage()
    end repeat
    set variable to variable - 1
    set the castNum of sprite 13 to variable
    updateStage()
  else
    nothing()
  end if
  if rollOver(14) then
    set variable to the castNum of sprite 14
    set variable to variable + 1
    repeat while rollOver(14)
      set the castNum of sprite 14 to variable
      if the mouseDown then
        puppetSound("bleep")
        repeat while the stillDown
          updateStage()
          puppetSound(0)
        end repeat
        go("Special")
      end if
      updateStage()
    end repeat
    set variable to variable - 1
    set the castNum of sprite 14 to variable
    updateStage()
  else
    nothing()
  end if
  if rollOver(15) then
    set variable to the castNum of sprite 15
    set variable to variable + 1
    repeat while rollOver(15)
      set the castNum of sprite 15 to variable
      if the mouseDown then
        puppetSound("bleep")
        repeat while the stillDown
          updateStage()
          puppetSound(0)
        end repeat
        go("Employment")
      end if
      updateStage()
    end repeat
    set variable to variable - 1
    set the castNum of sprite 15 to variable
    updateStage()
  else
    nothing()
  end if
  if rollOver(16) then
    set variable to the castNum of sprite 16
    set variable to variable + 1
    repeat while rollOver(16)
      set the castNum of sprite 16 to variable
      if the mouseDown then
        puppetSound("bleep")
        repeat while the stillDown
          updateStage()
          puppetSound(0)
        end repeat
        go("Endorsement")
      end if
      updateStage()
    end repeat
    set variable to variable - 1
    set the castNum of sprite 16 to variable
    updateStage()
  else
    nothing()
  end if
end

on switchIt
  if rollOver(9) then
    set variable to the castNum of sprite 9
    set variable to variable + 1
    repeat while rollOver(9)
      set the castNum of sprite 9 to variable
      if the mouseDown then
        puppetSound("bleep")
        repeat while the stillDown
          updateStage()
          puppetSound(0)
        end repeat
        go("Traditional")
      end if
      updateStage()
    end repeat
    set variable to variable - 1
    set the castNum of sprite 9 to variable
    updateStage()
  else
    nothing()
  end if
  if rollOver(10) then
    set variable to the castNum of sprite 10
    set variable to variable + 1
    repeat while rollOver(10)
      set the castNum of sprite 10 to variable
      if the mouseDown then
        puppetSound("Bleep")
        repeat while the stillDown
          updateStage()
          puppetSound(0)
        end repeat
        go("3D Modeling")
      end if
      updateStage()
    end repeat
    set variable to variable - 1
    set the castNum of sprite 10 to variable
    updateStage()
  else
    nothing()
  end if
  if rollOver(11) then
    set variable to the castNum of sprite 11
    set variable to variable + 1
    repeat while rollOver(11)
      set the castNum of sprite 11 to variable
      if the mouseDown then
        puppetSound("Bleep")
        repeat while the stillDown
          updateStage()
          puppetSound(0)
        end repeat
        go("Comp. Illust.")
      end if
      updateStage()
    end repeat
    set variable to variable - 1
    set the castNum of sprite 11 to variable
    updateStage()
  else
    nothing()
  end if
  if rollOver(12) then
    set variable to the castNum of sprite 12
    set variable to variable + 1
    repeat while rollOver(12)
      set the castNum of sprite 12 to variable
      if the mouseDown then
        puppetSound("Bleep")
        repeat while the stillDown
          updateStage()
          puppetSound(0)
        end repeat
        go("Multimedia")
      end if
      updateStage()
    end repeat
    set variable to variable - 1
    set the castNum of sprite 12 to variable
    updateStage()
  else
    nothing()
  end if
end