home *** CD-ROM | disk | FTP | other *** search
/ Univers Interactif 3 / INTERACTIF.BIN / pc / inter / inter.dir / 00004_Script_4 < prev    next >
Text File  |  1995-04-21  |  491b  |  22 lines
  1. on keyDown
  2.   global Lechemin
  3.   if "123456789" contains the key then
  4.     set the soundlevel = value(the key)
  5.     exit
  6.   end if
  7.   if the commandDown  and "QW." contains the key then
  8.     set the exitlock = 0
  9.     when keydown then nothing
  10.     if the movie = "credit.DIR" then
  11.       go  frame 1
  12.     else go  movie Lechemin  & "credit.DIR"
  13.     dontpassevent
  14.   end if
  15. end
  16.  
  17. on attente vitesse
  18.   set Temps = the timer
  19.   repeat While the timer < Temps + Vitesse
  20.   end repeat
  21. end
  22.