1&1 Multimedia Trend 1996 10 B/MM_TREND.ISO/prog/t-online/shared.dir/00301_Script_301

Text File | 1996-08-16 | 4KB | 234 lines

--Utilites

-- *************************************************

on Fehler Nr, Info
  global CRLF,
  put Info into Text
  if Nr = 101 then put "Modul: utility nicht vorhanden"
  if Nr = 102 then put "Modul: fileio nicht vorhanden"

  alert "Fehler: " & Nr & CRLF & Text
end Fehler


-- *************************************************

on debug text
  --put text
end debug

-- *************************************************
on WaitTicks Anz
  set myTicks = the ticks + Anz
  repeat while (the ticks < myTicks)
    -- nada
  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
    --waitticks 60
  end if

end

-- *************************************************

on StopThatSound
  global giMovieNr

  -- ausblenden Kanal , warten, dann weiter
  --debug "StopThatSound in"

  if soundBusy (1) then
    --sound FadeOut 1, 10
    --WaitTicks 10
    sound stop 1
    --sound FadeIn 1, 10
    --WaitTicks 10
  end if

  if soundBusy (2) then
    --sound FadeOut 2, 10
    --WaitTicks 10
    sound stop 2
    --sound FadeIn 2, 10
    --WaitTicks 10
  end if


  -- evtl laufendes movie anhalten
  -- movie Nr. wird in waitMovie gesetzt
  if giMovieNr > 0 then
    -- set the movierate of sprite giMovieNr = 0
    set giMovieNr =0
  end if

  --debug "StopThatSound out"


end



-- *************************************************

on BusyWait secs
  global gbQuitWait
  -- erlaubt interaction wΣhrend des wartens
  set blink= the ticks
  set anz = secs * 60
  set myTicks = the ticks + Anz
  repeat while (the ticks < myTicks)
    CheckMyRollover
    if the ticks > blink + 10 then
      myidle
      set blink= the ticks
    end if
    if gbQuitWait = true then
      --debug "exit busy"
      exit repeat
    end if

  end repeat
  set gbQuitWait = false
end


-- *************************************************

on SoundWait Track
  -- erlaubt interaction wΣhrend des wartens
  global gbQuitWait

  if Track = 0 then
    set track = 2
  end if
  set blink= the ticks

  repeat while soundBusy (Track)
    CheckMyRollover
    myidle
    if gbQuitWait then
      exit repeat
    end if

  end repeat
end

-- *************************************************


on MovieWait Spn
  global giMovieNr

  -- erlaubt interaction wΣhrend des wartens

  set giMovieNr = Spn
  put the castnum of sprite spn into x
  put the CastType of cast x into ty
  set ok = true

  if x>0 then
    -- gibt fehler, falls kein movie
    if ty = #digitalVideo then
      repeat while ok
        if giMovieNr >0 then
          -- falls NaviButtons gedrⁿckt, ist MovieNr =0
          set ok = (the movierate of sprite Spn > 0)
        else
          set ok = false
        end if

        CheckMyRollover
        nothing  -- gib idle eine chance
        nothing
        myidle
      end repeat
    end if
  end if
  -- jetzt lΣuft hier  kein movie mehr
  set giMovieNr = 0

end


-- *************************************************

on IncBsi
  global giBsIndex
  -- set giBsIndex = giBsIndex + 1
end



-- *************************************************

on jump x
  --jump am ende er animation
  -- x param fⁿr spΣtere funktionen
  global gsGoFrame, gbGoto, giAuto, glGotoListe

  if giAuto = 0 then
    -- zurⁿck zum menu
    put GetAt (glGotoListe, 2) into  gsGoFrame
    set gbGoto = true
    cursor 4
  else
    -- weiter in folge
    StopThatSound
    put GetAt (glGotoListe, 5) into  gsGoFrame
    set gbGoto = true
    cursor 4
  end if
  -- execute in ...

  MyIdle


end

-- ****************************************************

on QuitMovie
  global gbISDN

  --debug "quit movie"
  if the moviename contains "MENU" then
    go to frame "Ende"
    exit
  else
    if gbISDN  = true then
      set x = "Menu_I"
    else
      set x = "Menu_O"
    end if

    go to frame "Ende" of movie x
    exit
  end if

end