home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
1&1 Multimedia Trend 1996 10 B
/
MM_TREND.ISO
/
prog
/
t-online
/
shared.dir
/
00301_Script_301
< prev
next >
Wrap
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