1&1 Multimedia Trend 1996 11 B/MM_TREND.ISO/prog/isdn/i_intro.dir/00101.ls

Text File | 1996-09-17 | 2.2 KB | 104 lines

on exitFrame
  global balkenT1, balkenT2, BalkenT3, balkenT4, balkenT5, balkenges, schalterT4, schnell, flexibel, wiegeht, kostet, fragen
  set balkenges to balkenT1 + balkenT2 + BalkenT3 + balkenT4 + balkenT5
  if schalterT4 = 0 then
    go(the frame)
  end if
  if schalterT4 = 1 then
    if schnell = 0 then
      go("i2")
    else
      if flexibel = 0 then
        go("i3")
      else
        if wiegeht = 0 then
          go("i4")
        else
          if kostet = 0 then
            go("i5")
          else
            if fragen = 0 then
              go("i6")
            else
              if fragen = 1 then
                set flexibel to 0
                set schnell to 0
                set wiegeht to 0
                set kostet to 0
                set fragen to 0
              end if
            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
    go("r5")
    repeat while rollOver(5)
      if the mouseDown = 1 then
        exit
      end if
    end repeat
  end if
  if rollOver(6) and (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 41 to 1076
    set the locH of sprite 38 to posSlider + 600
    set the locH of sprite 39 to 1088
    go("r6")
    repeat while rollOver(6)
      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