1&1 Multimedia Trend 1996 11 D/MM_TREND.ISO/prog/isdn/shared.dir/00507.ls

Text File | 1996-09-17 | 2.3 KB | 102 lines

on exitFrame
  global balkenT1, balkenT2, BalkenT3, balkenT4, balkenT5, balkenges, schalterT4, transf, post, sekretar, konfi
  set balkenges to balkenT1 + balkenT2 + BalkenT3 + balkenT4 + balkenT5
  if schalterT4 = 0 then
    go(the frame)
  end if
  if schalterT4 = 1 then
    if transf = 0 then
      go("w2")
    else
      if post = 0 then
        go("w3")
      else
        if sekretar = 0 then
          go("w4")
        else
          if konfi = 0 then
            go("w5")
          else
            if konfi = 1 then
              set transf to 0
              set post to 0
              set sekretar to 0
              set konfi to 0
              go(1, "I_schnel.dir")
            end if
          end if
        end if
      end if
    end if
  end if
end

on idle
  global posSlider, balkenT1, balkenT2, BalkenT3, balkenT4, balkenT5, balkenges
  if rollOver(1) then
    go("roll")
  end if
  if rollOver(2) then
    go("r2")
    repeat while rollOver(2)
      if the mouseDown = 1 then
        exit
      end if
    end repeat
  end if
  if rollOver(3) then
    go("r3")
    repeat while rollOver(3)
      if the mouseDown = 1 then
        exit
      end if
    end repeat
  end if
  if rollOver(4) then
    go("r4")
    repeat while rollOver(4)
      if the mouseDown = 1 then
        exit
      end if
    end repeat
  end if
  if rollOver(5) then
    if balkenT5 = 0 then
      set the locH of sprite 33 to 533 + 600
      set the locH of sprite 34 to 533 + 600
      set the locH of sprite 38 to posSlider + 600
      set the locH of sprite 39 to 1088
      set the locH of sprite 41 to 1076
      set the locH of sprite 42 to 1138
    else
      set the locH of sprite 33 to 533
      set the locH of sprite 34 to 533
      set the locH of sprite 38 to posSlider
      set the locH of sprite 39 to 488
      set the locH of sprite 41 to 1076 - 600
      set the locH of sprite 42 to 1138 - 600
    end if
    go("r5")
    repeat while rollOver(5)
      if the mouseDown = 1 then
        exit
      end if
    end repeat
  end if
  if balkenges = 0 then
    hauptroll(316, 9)
  end if
  if balkenT1 = 1 then
    nebenroll1(370, 2)
  end if
  if BalkenT3 = 1 then
    nebenroll3(355, 2)
  end if
  if balkenT4 = 1 then
    nebenroll4(346, 3)
  end if
  if balkenT5 = 1 then
    nebenroll5(365, 1)
  end if
end