home *** CD-ROM | disk | FTP | other *** search
/ Car Screensaver - Toyota / TOYOTA.iso / mjparty / no1_demo / dnorp15.dxr / script_4.ls < prev    next >
Encoding:
Text File  |  1996-10-31  |  2.0 KB  |  95 lines
  1. on exitFrame
  2.   global gtime1, gnum1
  3.   puppetSound(3, 116)
  4.   updateStage()
  5.   set gnum1 to 1
  6.   set gtime1 to 30
  7.   set gwlist1 to [6, 13, 12, 10, 8, 9, 8]
  8.   startTimer()
  9.   preLoadCast(132, 134)
  10.   preLoadCast(196, 203)
  11.   waitsndh()
  12.   waith(40)
  13.   set num to getAt(gwlist1, 1) + 12
  14.   repeat with n = 1 to 7
  15.     set the memberNum of sprite num to the memberNum of sprite num + 10
  16.     set the locV of sprite (n + 3) to the locV of sprite (n + 3) + 228
  17.     set h to the locH of sprite num
  18.     set the locH of sprite 37 to h
  19.     set the locV of sprite 37 to 430
  20.     puppetSound(3, num + 178)
  21.     updateStage()
  22.     waitsndh()
  23.     waith(30)
  24.     set the memberNum of sprite num to the memberNum of sprite num - 10
  25.     set the locH of sprite 37 to h - 10
  26.     set the locV of sprite 37 to 403
  27.     updateStage()
  28.     waith(10)
  29.     if n <> 7 then
  30.       set num to getAt(gwlist1, n + 1) + 12
  31.       set hh to the locH of sprite num
  32.       set mh to (hh - (h - 10)) / 10
  33.       repeat with c = 1 to 10
  34.         set the locH of sprite 37 to h - 10 + (mh * c)
  35.         updateStage()
  36.         waith(1)
  37.       end repeat
  38.     end if
  39.   end repeat
  40.   puppetSound(3, 117)
  41.   updateStage()
  42.   set col to 0
  43.   set n to 13
  44.   repeat while soundBusy(3)
  45.     if col = 5 then
  46.       set col to 1
  47.     else
  48.       set col to col + 1
  49.     end if
  50.     set the memberNum of sprite n to (the memberNum of sprite n mod 10) + 130 + (col * 10)
  51.     updateStage()
  52.     if n = 26 then
  53.       set n to 13
  54.     else
  55.       set n to n + 1
  56.     end if
  57.     waith(5)
  58.   end repeat
  59.   puppetSound(3, 118)
  60.   updateStage()
  61.   unLoadCast()
  62.   preLoadMovie("DNORP01b.DIR")
  63.   waitsndh()
  64. end
  65.  
  66. on waith num
  67.   global gtime1
  68.   set num to the timer + num
  69.   repeat while the timer < num
  70.     if the timer > gtime1 then
  71.       cursorh()
  72.     end if
  73.   end repeat
  74. end
  75.  
  76. on waitsndh
  77.   global gtime1
  78.   repeat while soundBusy(3)
  79.     if the timer > gtime1 then
  80.       cursorh()
  81.     end if
  82.   end repeat
  83. end
  84.  
  85. on cursorh
  86.   global gnum1, gtime1
  87.   set gnum1 to gnum1 * -1
  88.   if gnum1 = 1 then
  89.     cursor([7, 8])
  90.   else
  91.     cursor([9, 10])
  92.   end if
  93.   set gtime1 to the timer + 30
  94. end
  95.