home *** CD-ROM | disk | FTP | other *** search
/ Car Screensaver - Toyota / TOYOTA.iso / mjparty / no1_demo / dnorp11.dxr / script_3.ls < prev    next >
Encoding:
Text File  |  1996-10-31  |  689 b   |  40 lines
  1. on exitFrame
  2.   global gtime1, gwlist1, gnum1
  3.   puppetSound(3, 18)
  4.   updateStage()
  5.   startTimer()
  6.   set gnum1 to 1
  7.   set gtime1 to 15
  8.   waitsndh()
  9.   waith(30)
  10.   repeat with n = 1 to 5
  11.     if (n mod 2) = 1 then
  12.       set the memberNum of sprite 2 to 13
  13.     else
  14.       set the memberNum of sprite 2 to 17
  15.     end if
  16.     updateStage()
  17.     waith(10)
  18.   end repeat
  19.   puppetSound(3, 19)
  20.   waitsndh()
  21.   set gnum1 to 0
  22.   set gtime1 to 1
  23.   set gwlist1 to [1, 3, 3, 3, 0]
  24.   repeat with n = 3 to 6
  25.     puppetSprite(n, 1)
  26.   end repeat
  27.   startTimer()
  28. end
  29.  
  30. on waith num
  31.   set num to the timer + num
  32.   repeat while the timer < num
  33.   end repeat
  34. end
  35.  
  36. on waitsndh
  37.   repeat while soundBusy(3)
  38.   end repeat
  39. end
  40.