home *** CD-ROM | disk | FTP | other *** search
/ CD Loisirs 24 / CDL24.iso / LAPLACE / IDEM.DXR / Script_1_Maitre.ls < prev    next >
Encoding:
Text File  |  1996-10-10  |  826 b   |  42 lines
  1. on startMovie
  2.   global gLow, gExHot, gExFrame
  3.   unLoad()
  4.   set gLow to 0
  5.   set gExHot to 0
  6.   set gExFrame to 0
  7.   set the colorDepth to 8
  8.   Kill()
  9.   puppetSprite(1, 1)
  10.   go("Slimy Movements")
  11. end
  12.  
  13. on Roue Dir
  14.   global gDepart, gDuree, gIndex
  15.   set gIndex to gIndex + Dir
  16.   if gIndex > (gDuree + gDepart - 1) then
  17.     set gIndex to gDuree + gDepart - 1
  18.   else
  19.     if gIndex < gDepart then
  20.       set gIndex to gDepart
  21.     end if
  22.   end if
  23.   set the memberNum of sprite 2 to gIndex
  24.   set M to the name of member gIndex
  25.   set n to chars(M, 1, 8) & "AIFF"
  26.   puppetSound(n)
  27. end
  28.  
  29. on Kill deb, Fin
  30.   if voidp(deb) then
  31.     set deb to 1
  32.   end if
  33.   if voidp(Fin) then
  34.     set Fin to 30
  35.   end if
  36.   repeat with x = deb to Fin
  37.     set the castNum of sprite x to 0
  38.     puppetSprite(x, 0)
  39.     set the visible of sprite x to 1
  40.   end repeat
  41. end
  42.