home *** CD-ROM | disk | FTP | other *** search
/ Car Screensaver - Toyota / TOYOTA.iso / mjparty / no1_demo / dnorp12.dxr / script_6.ls < prev    next >
Encoding:
Text File  |  1996-10-31  |  1.6 KB  |  75 lines
  1. on exitFrame
  2.   global gnum1, gwlist1, gwlist2
  3.   repeat with num = 10 to 29
  4.     if the memberNum of sprite num = getAt(gwlist2, 1) then
  5.       exit repeat
  6.     end if
  7.   end repeat
  8.   atarih(num)
  9. end
  10.  
  11. on atarih num
  12.   global gwlist2
  13.   set h to (the locH of sprite num - 320) / 10
  14.   set v to (523 - the locV of sprite num) / 10
  15.   repeat with n = 1 to 10
  16.     set the locH of sprite 30 to 320 + (h * n)
  17.     set the locV of sprite 30 to 523 - (v * n)
  18.     if (n = 9) and (the machineType = 256) then
  19.       puppetSound(3, 139)
  20.     end if
  21.     updateStage()
  22.     waith(3)
  23.   end repeat
  24.   if the machineType <> 256 then
  25.     puppetSound(3, 139)
  26.   end if
  27.   set the memberNum of sprite 30 to 133
  28.   updateStage()
  29.   waith(40)
  30.   waitsndh()
  31.   set the memberNum of sprite num to 140
  32.   set the memberNum of sprite 30 to 132
  33.   set the locV of sprite 30 to 523
  34.   updateStage()
  35.   nextph()
  36. end
  37.  
  38. on nextph
  39.   global gnum1, gland
  40.   set the cursor of sprite 2 to 0
  41.   set the memberNum of sprite 8 to 140
  42.   set the memberNum of sprite 9 to 140
  43.   set the memberNum of sprite (gnum1 + 2) to (gland * 10) + 274
  44.   setbagh5()
  45.   set the locV of sprite (gnum1 + 2) to 153
  46.   updateStage()
  47.   if gnum1 <> 5 then
  48.     set gnum1 to gnum1 + 1
  49.     setokasih()
  50.     puppetTransition(26, 1, 16, 1)
  51.     updateStage()
  52.     go(the frame - 2)
  53.   else
  54.     endh()
  55.   end if
  56. end
  57.  
  58. on endh
  59.   sound stop 2
  60.   cursor([7, 8])
  61.   puppetSound(3, 122)
  62.   updateStage()
  63.   repeat with n = 3 to 30
  64.     puppetSprite(n, 0)
  65.   end repeat
  66.   unLoadCast()
  67.   preLoadMovie("DNORP01b.DIR")
  68.   repeat while soundBusy(3)
  69.   end repeat
  70.   startTimer()
  71.   repeat while the timer < 30
  72.   end repeat
  73.   go(the frame + 1)
  74. end
  75.