home *** CD-ROM | disk | FTP | other *** search
/ ATComputers Catalog / AutoCont+ATcomp.bin / Data / Mechanik3.dxr / Interne_1_StartHandler.ls < prev    next >
Encoding:
Text File  |  2003-07-23  |  871 b   |  42 lines
  1. on prepareMovie
  2.   global _SoundSchalter
  3.   the soundDevice = "QT3Mix"
  4.   PrepareFilm()
  5.   if _SoundSchalter then
  6.     set the member of sprite 4 to member("LautAn_A", "MechSteuer")
  7.     set the member of sprite 5 to member("SpeakerAn_A", "MechSteuer")
  8.   else
  9.     set the member of sprite 4 to member("LautAus_A", "MechSteuer")
  10.     set the member of sprite 5 to member("SpeakerAus_A", "MechSteuer")
  11.   end if
  12. end
  13.  
  14. on startMovie
  15.   StartFilm()
  16. end
  17.  
  18. on stopMovie
  19.   StopFilm()
  20. end
  21.  
  22. on Beschleunigung anz, start, ende
  23.   x = ende + 1
  24.   M = 1
  25.   wert = 0.10000000000000001
  26.   repeat while x > ende
  27.     wert = wert + 0.01
  28.     x = start
  29.     repeat with i = 1 to anz
  30.       t = M + integer(i / wert)
  31.       x = x + t
  32.     end repeat
  33.   end repeat
  34.   put wert
  35.   x = start
  36.   repeat with i = 1 to anz
  37.     t = 18 - integer(i / wert)
  38.     x = x + t
  39.     put i & " = " & t & "  / " & x
  40.   end repeat
  41. end
  42.