home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Univers Interactif 3
/
INTERACTIF.BIN
/
pc
/
kiosque
/
kiosque.dir
/
00004_Script_4
< prev
next >
Wrap
Text File
|
1995-04-21
|
570b
|
30 lines
on keyDown
global Lechemin
if "123456789" contains the key then
set the soundlevel = value(the key)
exit
end if
if the commandDown and "QW." contains the key then
set the exitlock = 0
when keydown then nothing
if the movie = "credit.DIR" then
go frame 1
else go movie Lechemin & "credit.DIR"
dontpassevent
end if
end
on attente vitesse
set Temps = the timer
repeat While the timer < Temps + Vitesse
end repeat
end
on exitFrame
if the mouseDown then
play done
end if
end