1&1 Multimedia Trend 1996 11 D/MM_TREND.ISO/prog/t_online/shared.dir/00503.ls

Text File | 1996-09-18 | 8.5 KB | 317 lines

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

on counter
  global count
  set count to the timer
end

on nopuppet
  repeat with dummy = 1 to 48
    set the puppet of sprite dummy to 0
  end repeat
end

on cur var1, var2, var3
  if var1 <> 0 then
    repeat with dummy = 0 to var1 - 1
      set the cursor of sprite (17 + dummy) to [1914, 1915]
    end repeat
  end if
  if var2 <> 0 then
    repeat with dummy = 0 to var2 - 1
      set the cursor of sprite (48 - dummy) to [1914, 1915]
    end repeat
  end if
  if var3 <> 0 then
    repeat with dummy = 0 to var3 - 1
      set the cursor of sprite (37 + dummy) to [1914, 1915]
    end repeat
  end if
end

on nocur
  repeat with dummy = 1 to 48
    set the cursor of sprite dummy to 0
  end repeat
  r1()
end

on ton
  puppetSound("click")
  updateStage()
  puppetSound(0)
end

on r1
  if the castNum of sprite 7 <> 0 then
    if the castType of cast the castNum of sprite 7 = #digitalVideo then
      set the movieRate of sprite 7 to 1
    end if
  end if
end

on r0
  if the castNum of sprite 7 <> 0 then
    if the castType of cast the castNum of sprite 7 = #digitalVideo then
      set the movieRate of sprite 7 to 0
    end if
  end if
end

on counter1
  global count1
  set count1 to the timer
end

on blink var, var1
  global count, count1, knopf, knopfrunter
  if (count1 + 120) < the timer then
    if (count + 5) < the timer then
      if (the mouseDown = 0) and (var1 <> 0) then
        if knopf = 0 then
          set the castNum of sprite 9 to var1
        end if
        if knopf = 1 then
          set the castNum of sprite 9 to 1904
        end if
      end if
      if (knopf < (var + 1)) and (knopf <> 0) then
        set the castNum of sprite (16 + knopf) to 1925
      end if
      if (knopf <> (var + 1)) and (knopf < 8) and (knopf > 1) then
        set the castNum of sprite (16 + knopf - 1) to 1900
      end if
      if knopf = (var + 1) then
        set the castNum of sprite (16 + knopf - 1) to 1900
      end if
      updateStage()
      counter()
      set knopf to knopf + 1
      if knopf > (var + 1) then
        set knopf to 0
        counter1()
      end if
    end if
  end if
  if (knopfrunter = 1) and (the mouseDown = 0) then
    if the clickOn <> 0 then
      if rollOver(the clickOn) = 0 then
        set knopfrunter to 0
        nopuppet()
        go(the frame)
      end if
    end if
  end if
end

on rightdown
  set the puppet of sprite 8 to 1
  set the puppet of sprite 9 to 1
  set the castNum of sprite 9 to 1908
  set the locH of sprite 8 to the locH of sprite 8 - 1
  updateStage()
  set the castNum of sprite 9 to 1909
  set the locH of sprite 8 to the locH of sprite 8 - 1
  updateStage()
  set the castNum of sprite 9 to 1910
  set the locH of sprite 8 to the locH of sprite 8 - 1
  updateStage()
end

on rightup
  r0()
  set the puppet of sprite 8 to 0
  set the puppet of sprite 9 to 0
  puppetSound("click")
  set the castNum of sprite 9 to 1909
  set the locH of sprite 8 to the locH of sprite 8 + 1
  updateStage()
  puppetSound(0)
  set the castNum of sprite 9 to 1908
  set the locH of sprite 8 to the locH of sprite 8 + 1
  updateStage()
  set the castNum of sprite 9 to 1904
  set the locH of sprite 8 to the locH of sprite 8 + 1
  updateStage()
end

on leftdown
  set the puppet of sprite 9 to 1
  set the castNum of sprite 9 to 1905
  updateStage()
  set the castNum of sprite 9 to 1906
  updateStage()
  set the castNum of sprite 9 to 1907
  updateStage()
end

on leftup
  r0()
  set the puppet of sprite 9 to 0
  set the castNum of sprite 9 to 1906
  puppetSound("click")
  updateStage()
  puppetSound(0)
  set the castNum of sprite 9 to 1905
  updateStage()
  set the castNum of sprite 9 to 1904
  updateStage()
end

on downdown
  set the puppet of sprite 8 to 1
  set the puppet of sprite 9 to 1
  set the castNum of sprite 9 to 1911
  set the locV of sprite 8 to the locV of sprite 8 - 1
  updateStage()
  set the castNum of sprite 9 to 1912
  set the locV of sprite 8 to the locV of sprite 8 - 1
  updateStage()
  set the castNum of sprite 9 to 1913
  set the locV of sprite 8 to the locV of sprite 8 - 1
  updateStage()
end

on downup
  r0()
  set the puppet of sprite 8 to 0
  set the puppet of sprite 9 to 0
  puppetSound("click")
  set the castNum of sprite 9 to 1912
  set the locV of sprite 8 to the locV of sprite 8 + 1
  updateStage()
  puppetSound(0)
  set the castNum of sprite 9 to 1911
  set the locV of sprite 8 to the locV of sprite 8 + 1
  updateStage()
  set the castNum of sprite 9 to 1904
  set the locV of sprite 8 to the locV of sprite 8 + 1
  updateStage()
end

on knopfdown var, var1, var2
  global knopfrunter
  set knopfrunter to 1
  if var < 16 then
    set var to the clickOn
  end if
  if var1 < 23 then
    set var1 to var + 7
  end if
  if var2 < 9 then
    set var2 to var - 7
  end if
  set the locH of sprite var to the locH of sprite var + 1
  set the locV of sprite var to the locV of sprite var + 1
  set the locH of sprite var1 to the locH of sprite var1 + 1
  set the locV of sprite var1 to the locV of sprite var1 + 1
  updateStage()
  set the locH of sprite var to the locH of sprite var + 1
  set the locV of sprite var to the locV of sprite var + 1
  set the locH of sprite var1 to the locH of sprite var1 + 1
  set the locV of sprite var1 to the locV of sprite var1 + 1
  updateStage()
end

on knopfup var, var1, var2
  global knopfrunter
  if var < 16 then
    set var to the clickOn
  end if
  if var1 < 23 then
    set var1 to var + 7
  end if
  if var2 < 9 then
    set var2 to var - 7
  end if
  if soundBusy(1) then
    sound fadeOut 1, 20
  end if
  nopuppet()
  puppetSound("click")
  set the locH of sprite var to the locH of sprite var - 1
  set the locV of sprite var to the locV of sprite var - 1
  set the locH of sprite var1 to the locH of sprite var1 - 1
  set the locV of sprite var1 to the locV of sprite var1 - 1
  updateStage()
  set the locH of sprite var to the locH of sprite var - 1
  set the locV of sprite var to the locV of sprite var - 1
  set the locH of sprite var1 to the locH of sprite var1 - 1
  set the locV of sprite var1 to the locV of sprite var1 - 1
  updateStage()
  puppetSound(0)
  set knopfrunter to 0
end

on Change
  startTimer()
  repeat with dummy = 1 to 600
    if (the fileName of cast dummy contains "english") or (the fileName of cast dummy contains "deutsch") then
      set Bildname to the fileName of cast dummy
      set anzahl to the number of chars in Bildname
      set dummy1 to 0
      repeat while char anzahl - dummy1 of Bildname <> ":"
        set dummy1 to dummy1 + 1
      end repeat
      set dummy1 to dummy1 + 1
      repeat while char anzahl - dummy1 of Bildname <> ":"
        set dummy1 to dummy1 + 1
      end repeat
      if the fileName of cast dummy contains "deutsch" then
        put "English" into char anzahl - dummy1 - 7 to anzahl - dummy1 - 1 of Bildname
      end if
      if the fileName of cast dummy contains "English" then
        put "Deutsch" into char anzahl - dummy1 - 7 to anzahl - dummy1 - 1 of Bildname
      end if
      set the fileName of cast dummy to Bildname
    end if
  end repeat
  put the timer
end

on change1
  startTimer()
  repeat with dummy = 1 to 420
    if (the fileName of cast dummy contains "english") or (the fileName of cast dummy contains "deutsch") then
      set Bildname to the fileName of cast dummy
      set anzahl to the number of chars in Bildname
      set dummy1 to 0
      repeat while char anzahl - dummy1 of Bildname <> ":"
        set dummy1 to dummy1 + 1
      end repeat
      if the fileName of cast dummy contains "deutsch" then
        put "English" into char anzahl - dummy1 - 7 to anzahl - dummy1 - 1 of Bildname
      end if
      if the fileName of cast dummy contains "English" then
        put "Deutsch" into char anzahl - dummy1 - 7 to anzahl - dummy1 - 1 of Bildname
      end if
      set the fileName of cast dummy to Bildname
    end if
  end repeat
  put the timer
end

on welcheSeite
  set Infotext to "Film: "
  put the movieName after Infotext
  put RETURN after Infotext
  put "Seitennummer: " after Infotext
  put the frame after Infotext
  put RETURN after Infotext
  if the frameLabel <> EMPTY then
    put "Marker: " after Infotext
    put the frameLabel after Infotext
  end if
  alert(Infotext)
end