1&1 Multimedia Trend 1996 11 B/MM_TREND.ISO/prog/isdn/shared.dir/00308.ls

Text File | 1996-09-17 | 8.0 KB | 266 lines

on hauptroll var, var1
  repeat with dummy = 0 to var1 - 1
    if rollOver(24 + dummy) then
      set the castNum of sprite (24 + dummy) to var + 1 + (dummy * 3)
      updateStage()
    end if
    if (rollOver(24 + dummy) = 0) and (the castNum of sprite (24 + dummy) <> (var + (dummy * 2))) then
      set the castNum of sprite (24 + dummy) to var + (dummy * 3)
    end if
  end repeat
  updateStage()
end

on nebenroll1 var, var1
  repeat with dummy = 0 to var1 - 1
    if rollOver(46 + dummy) then
      set the castNum of sprite (46 + dummy) to var + 1 + (dummy * 3)
      updateStage()
    end if
    if (rollOver(46 + dummy) = 0) and (the castNum of sprite (46 + dummy) <> (var + (dummy * 3))) then
      set the castNum of sprite (46 + dummy) to var + (dummy * 3)
    end if
  end repeat
  updateStage()
end

on nebenroll3 var, var1
  repeat with dummy = 0 to var1 - 1
    if rollOver(44 + dummy) then
      set the castNum of sprite (44 + dummy) to var + 1 + (dummy * 3)
      updateStage()
    end if
    if (rollOver(44 + dummy) = 0) and (the castNum of sprite (44 + dummy) <> (var + (dummy * 3))) then
      set the castNum of sprite (44 + dummy) to var + (dummy * 3)
    end if
  end repeat
  updateStage()
end

on nebenroll4 var, var1
  global schalterT4
  repeat with dummy = 0 to var1 - 1
    if rollOver(41 + dummy) then
      if (dummy = 0) and (schalterT4 = 1) then
        set the castNum of sprite (41 + dummy) to 348
      end if
      if (dummy = 1) and (schalterT4 = 0) then
        set the castNum of sprite (41 + dummy) to 351
      end if
      if dummy = 2 then
        set the castNum of sprite (41 + dummy) to var + 1 + (dummy * 3)
      end if
      updateStage()
    end if
    if rollOver(41 + dummy) = 0 then
      if (dummy = 0) and (schalterT4 = 1) then
        set the castNum of sprite (41 + dummy) to 347
      end if
      if (dummy = 1) and (schalterT4 = 0) then
        set the castNum of sprite (41 + dummy) to 350
      end if
      if dummy = 2 then
        set the castNum of sprite (41 + dummy) to var + (dummy * 3)
      end if
    end if
  end repeat
  updateStage()
end

on nebenroll5 var, var1
  global schalterT5, posSlider
  repeat with dummy = 0 to var1 - 1
    if rollOver(40 + dummy) then
      set the castNum of sprite (40 + dummy) to var + 1 + (dummy * 3)
      updateStage()
    end if
    if (rollOver(40 + dummy) = 0) and (the castNum of sprite (40 + dummy) <> (var + (dummy * 3))) then
      set the castNum of sprite (40 + dummy) to var + (dummy * 3)
    end if
    set the locV of sprite 38 to 346
    repeat while the stillDown
      if schalterT5 = 0 then
        if the mouseH < 588 then
          set the locH of sprite 38 to constrainH(37, the mouseH)
          set posSlider to the locH of sprite 38
          set the volume of sound 2 to (posSlider - 497) * (255 / 68)
          set the volume of sound 1 to (posSlider - 497) * (255 / 68)
        end if
        set the locV of sprite 38 to 346
        updateStage()
      end if
    end repeat
    puppetSound(0)
  end repeat
  set the locV of sprite 38 to 346
  updateStage()
end

on balkenT0
  set the locV of sprite 46 to 1077
  set the blend of sprite 36 to 100
  set the castNum of sprite 36 to the number of cast "BalkenT1" + 1
  set the castNum of sprite 36 to the number of cast "BalkenT1"
  set the blend of sprite 46 to 100
  set the blend of sprite 47 to 100
  set the locV of sprite 46 to 477
  set the blend of sprite 46 to 0
  set the castNum of sprite 47 to the number of cast "but2BalkenT1" + 2
  set the castNum of sprite 36 to the number of cast "BalkenT1" + 1
  set the blend of sprite 36 to 0
  set the blend of sprite 47 to 0
end

on balkenT1
  global balkenT1
  set balkenT1 to balkenT1 + 1
  if balkenT1 > 1 then
    set balkenT1 to 0
  end if
  if balkenT1 = 1 then
    puppetSound("raus")
    set the blend of sprite 36 to 100
    set the locH of sprite 36 to 535
    set the locH of sprite 46 to 477
    set the castNum of sprite 36 to the number of cast "BalkenT1" + 1
    updateStage()
    set the castNum of sprite 36 to the number of cast "BalkenT1"
    set the blend of sprite 46 to 100
    updateStage()
    set the blend of sprite 47 to 100
  else
    puppetSound("click")
    set the locH of sprite 46 to 1077
    set the locH of sprite 36 to 1027
    set the blend of sprite 46 to 0
    set the castNum of sprite 36 to the number of cast "BalkenT1" + 1
    updateStage()
    puppetSound("raus")
    set the castNum of sprite 36 to the number of cast "BalkenT1"
    updateStage()
    set the blend of sprite 36 to 0
    set the blend of sprite 47 to 0
    updateStage()
  end if
end

on BalkenT3
  global BalkenT3
  set BalkenT3 to BalkenT3 + 1
  if BalkenT3 > 1 then
    set BalkenT3 to 0
  end if
  if BalkenT3 = 1 then
    puppetSound("raus")
    set the blend of sprite 35 to 100
    set the castNum of sprite 35 to the number of cast "BalkenT3" + 1
    updateStage()
    set the castNum of sprite 35 to the number of cast "BalkenT3"
    set the blend of sprite 44 to 100
    updateStage()
    set the blend of sprite 45 to 100
  else
    puppetSound("click")
    set the blend of sprite 44 to 0
    set the castNum of sprite 45 to the number of cast "but2BalkenT3" + 2
    updateStage()
    puppetSound("raus")
    set the castNum of sprite 35 to the number of cast "BalkenT3" + 1
    updateStage()
    set the blend of sprite 35 to 0
    set the blend of sprite 45 to 0
    updateStage()
  end if
end

on balkenT4
  global balkenT1, startMovie, balkenT5, balkenges, balkenT4, schalterT4
  if balkenT1 = 1 then
    balkenT1()
  end if
  if balkenT5 = 1 then
    balkenT5()
  end if
  set balkenT4 to balkenT4 + 1
  if balkenT4 > 1 then
    set balkenT4 to 0
  end if
  if balkenT4 = 1 then
    puppetSound("raus")
    set the blend of sprite 34 to 100
    set the blend of sprite 41 to 100
    set the blend of sprite 42 to 100
    if schalterT4 = 0 then
      set the castNum of sprite 41 to the number of cast "but1BalkenT4"
      set the castNum of sprite 42 to the number of cast "but2BalkenT4" + 1
    else
      set the castNum of sprite 41 to the number of cast "but1BalkenT4" + 1
      set the castNum of sprite 42 to the number of cast "but2BalkenT4"
    end if
    set the castNum of sprite 34 to the number of cast "BalkenT4" + 1
    updateStage()
    set the castNum of sprite 34 to the number of cast "BalkenT4"
    updateStage()
    set the blend of sprite 43 to 100
  else
    puppetSound("click")
    set the castNum of sprite 43 to the number of cast "but3BalkenT4" + 2
    updateStage()
    puppetSound("raus")
    set the castNum of sprite 34 to the number of cast "BalkenT4" + 1
    updateStage()
    set the blend of sprite 34 to 0
    set the blend of sprite 41 to 0
    set the blend of sprite 42 to 0
    set the blend of sprite 43 to 0
    updateStage()
  end if
end

on balkenT5
  global posSlider, balkenT1, balkenT4, balkenT5, balkenges
  if balkenT4 = 1 then
    balkenT4()
  end if
  if balkenT1 = 1 then
    balkenT1()
  end if
  set balkenT5 to balkenT5 + 1
  if balkenT5 > 1 then
    set balkenT5 to 0
  end if
  if balkenT5 = 1 then
    puppetSound("raus")
    set the locH of sprite 38 to posSlider
    set the blend of sprite 33 to 100
    set the blend of sprite 38 to 100
    set the castNum of sprite 33 to the number of cast "BalkenT5" + 1
    updateStage()
    set the castNum of sprite 33 to the number of cast "BalkenT5"
    set the blend of sprite 39 to 100
    updateStage()
    set the blend of sprite 40 to 100
  else
    puppetSound("click")
    set the castNum of sprite 40 to the number of cast "but3BalkenT5" + 2
    updateStage()
    puppetSound("raus")
    set the blend of sprite 39 to 0
    set the castNum of sprite 33 to the number of cast "BalkenT5" + 1
    updateStage()
    set the blend of sprite 33 to 0
    set the blend of sprite 38 to 0
    set the blend of sprite 40 to 0
    updateStage()
    set the castNum of sprite 40 to the number of cast "but3BalkenT5"
  end if
end

on inhaltdown
  puppetSound("click")
  set the castNum of sprite 26 to the number of cast "tinhalt" + 2
  updateStage()
  set the castNum of sprite 26 to the number of cast "tinhalt"
  updateStage()
end