1&1 Multimedia Trend 1996 11 B/MM_TREND.ISO/prog/t_online/t_4ser.dir/00078.ls

Text File | 1996-09-16 | 1.7 KB | 88 lines

on exitFrame
  global balkenT1, balkenT2, BalkenT3, balkenT4, balkenT5, balkenges, schalterT4, btx, plus, inter, email
  set balkenges to balkenT1 + balkenT2 + BalkenT3 + balkenT4 + balkenT5
  if schalterT4 = 0 then
    go(the frame)
  end if
  if schalterT4 = 1 then
    if btx = 0 then
      go("btx")
    else
      if plus = 0 then
        go("plus")
      else
        if inter = 0 then
          go("inter")
        else
          if email = 0 then
            go("email")
          else
            if email = 1 then
              set btx to 0
              set plus to 0
              set inter to 0
              set email to 0
              set ser to 1
              go(1, "T_INTRO.dir")
            end if
          end if
        end if
      end if
    end if
  end if
end

on idle
  global 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 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