1&1 Multimedia Trend 1996 11 B/MM_TREND.ISO/prog/t_online/t_sintro.dir/00129.ls

Text File | 1996-09-19 | 1.4 KB | 77 lines

on exitFrame
  global schalterT4
  if schalterT4 = 0 then
    go(the frame)
  end if
  if schalterT4 = 1 then
    go(1, "T_4ser.dir")
    beep()
  end if
end

on idle
  global schalterT4, 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 schalterT4 = 1 then
        go(1, "T_4ser.dir")
      end if
      if the mouseDown = 1 then
        exit
      end if
    end repeat
  end if
  if rollOver(3) then
    go("r3")
    repeat while rollOver(3)
      if schalterT4 = 1 then
        go(1, "T_4ser.dir")
      end if
      if the mouseDown = 1 then
        exit
      end if
    end repeat
  end if
  if rollOver(4) then
    go("r4")
    repeat while rollOver(4)
      if schalterT4 = 1 then
        go(1, "T_4ser.dir")
      end if
      if the mouseDown = 1 then
        exit
      end if
    end repeat
  end if
  if rollOver(5) then
    go("r5")
    repeat while rollOver(5)
      if schalterT4 = 1 then
        go(1, "T_4ser.dir")
      end if
      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