home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
CD-ROM Magazin 1995 May
/
TYPEMANIA.ISO
/
demo_s.dir
/
00449_Script_449
< prev
next >
Wrap
Text File
|
1994-02-24
|
3KB
|
135 lines
on verteile
global gDoDarker, gUndNunSchluss, gUserNotActive, gPaletteCount
if gUndNunSchluss then
go to "Exit"
else
if gDoDarker then
DoDarker
else
put random(20) into x
if x=1 then play "down"
if x=2 then play "up"
if x=3 then play "left"
if x=4 then play "right"
if x=5 then play "fuss"
if x=6 then
puppetPalette "colors" & string(gPaletteCount/2),60
play "uhr"
end if
if x=7 then play "Vogel"
if x=8 then
puppetPalette "colors" & string(gPaletteCount/2),60
play "Windheftig"
end if
if x=9 then
play "fuss"
if not soundbusy(1) then
puppetsound "XZwitschern"
end if
end if
if x=10 then play "Flieger"
if x>10 then play "fuss"
end if
end if -- Schlu▀
end verteile
on startMovie
global gStartTicks,gPaletteCount,gDoEnde
global gDoDarker, gUndNunSchluss
cursor 4
put FALSE into gDoDarker
put FALSE into gDoEnde
put FALSE into gUndNunSchluss -- endgⁿltig Ende
set the mousedownscript to "BackToTheRoot"
set gPaletteCount=0
put the Ticks into gStartTicks
end startMovie
on BackToTheRoot
if the optiondown then
sound close 1
sound close 2
play done
end if
end BackToTheRoot
on stopMovie
puppetSound 0
puppetPalette 0
allNoPuppets
cursor 0
cursor 4
end stopMovie
on idle
global gStartTicks,gDoDarker,gDoEnde,gUndNunSchluss,gPaletteCount
if gDoEnde then -- das letzte Mal etwas lΣnger
if the Ticks - gStartTicks > 480 then -- 8 secs
put TRUE into gUndNunSchluss
end if
else
if the Ticks - gStartTicks > 600 then --10 secs
put the Ticks into gStartTicks
put TRUE into gDoDarker
end if
end if
end idle
on DoDarker
global gPaletteCount, gDoDarker, gDoEnde
put FALSE into gDoDarker
put gPaletteCount+1 into gPaletteCount -- next Background
put String(gPaletteCount) into Nstr
puppetSprite 1,1 -- Background
if gPaletteCount<4 then
set the castNum of sprite 1 to the number of cast ( "BG" && Nstr)
puppetPalette "colors" & String(gPaletteCount/2),60
updateStage
end if
if gPaletteCount > 3 then
put TRUE into gDoEnde -- 29 Backgrounds
end if
end DoDarker
on keyDown
global gUndNunSchluss
if the key = " " then
puppetSound "xCmdPunkt"
put TRUE into gUndNunSchluss
cursor 4
end if
end keyDaun
on SetQTUhr
put offset(":",the abbr time) into DP
if DP=0 then put offset(".",the abbr time) into DP -- German
if DP>0 then
put value(char 1 to DP-1 of the abbr time) into H
put value(char DP+1 to DP+2 of the abbr time) into M
if H>11 then set H=H-12
set H=(H*60+M)
else
Set H=random(720)
end if
set the castNum of sprite 25 to 479+H
UpdateStage
end SetQTUhr
on allNoPuppets
repeat with i = 1 to 24
puppetSprite i, FALSE
end repeat
end allNoPuppets