1&1 Multimedia Trend 1996 11 B/MM_TREND.ISO/prog/t_online/shared.dir/00301.ls

Text File | 1996-09-18 | 2.4 KB | 143 lines

on Fehler Nr, Info
  global CrLf
  set text to Info
  if Nr = 101 then
    put "Modul: utility nicht vorhanden"
  end if
  if Nr = 102 then
    put "Modul: fileio nicht vorhanden"
  end if
  alert("Fehler: " & Nr & CrLf & text)
end

on debug text
end

on WaitTicks Anz
  set myTicks to the ticks + Anz
  repeat while the ticks < myTicks
  end repeat
end

on PlayMusic x
  global giMusic
  if giMusic > 0 then
    if not soundBusy(1) then
      puppetSound(0)
      puppetSound(x)
    end if
  end if
end

on PlayNoise x
  global giNoise
  if giNoise > 0 then
    puppetSound(x)
  end if
end

on StopThatSound
  global giMovieNr
  if soundBusy(1) then
    sound stop 1
  end if
  if soundBusy(2) then
    sound stop 2
  end if
  if giMovieNr > 0 then
    set giMovieNr to 0
  end if
end

on busywait secs
  global gbQuitWait
  set blink to the ticks
  set Anz to secs * 60
  set myTicks to the ticks + Anz
  repeat while the ticks < myTicks
    CheckMyRollover()
    if the ticks > (blink + 10) then
      Myidle()
      set blink to the ticks
    end if
    if gbQuitWait = 1 then
      exit repeat
    end if
  end repeat
  set gbQuitWait to 0
end

on SoundWait Track
  global gbQuitWait
  if Track = 0 then
    set Track to 2
  end if
  set blink to the ticks
  repeat while soundBusy(Track)
    CheckMyRollover()
    Myidle()
    if gbQuitWait then
      exit repeat
    end if
  end repeat
end

on MovieWait spn
  global giMovieNr
  set giMovieNr to spn
  set x to the castNum of sprite spn
  set ty to the castType of cast x
  set ok to 1
  if x > 0 then
    if ty = #digitalVideo then
      repeat while ok
        if giMovieNr > 0 then
          set ok to the movieRate of sprite spn > 0
        else
          set ok to 0
        end if
        CheckMyRollover()
        nothing()
        nothing()
        Myidle()
      end repeat
    end if
  end if
  set giMovieNr to 0
end

on IncBsi
  global giBsIndex
end

on jump x
  global gsGoFrame, gbGoto, giAuto, glgotoListe
  if giAuto = 0 then
    set gsGoFrame to getAt(glgotoListe, 2)
    set gbGoto to 1
    cursor(4)
  else
    StopThatSound()
    set gsGoFrame to getAt(glgotoListe, 5)
    set gbGoto to 1
    cursor(4)
  end if
  Myidle()
end

on QuitMovie
  global gbISDN
  if the movieName contains "MENU" then
    go("Ende")
    exit
  else
    if gbISDN = 1 then
      set x to "Menu_I"
    else
      set x to "Menu_O"
    end if
    go("Ende", x)
    exit
  end if
end