home *** CD-ROM | disk | FTP | other *** search
/ Car Screensaver - Toyota / TOYOTA.iso / mjparty / no1_demo / dnorp01b.dxr / script_6.ls < prev    next >
Encoding:
Text File  |  1996-10-31  |  901 b   |  40 lines
  1. on endsubh
  2.   global gnum1, gland
  3.   cursor([3, 4])
  4.   set gnum1 to getAt([3, 5, 1, 4, 2], gland)
  5.   puppetSound(3, 150)
  6.   noriflyh()
  7.   repeat with n = 18 to 24
  8.     puppetSprite(n, 0)
  9.   end repeat
  10.   puppetSprite(15, 0)
  11.   unLoadCast()
  12.   preLoadMovie("DNORP1" & string(gnum1))
  13.   startTimer()
  14.   repeat while the timer < 30
  15.   end repeat
  16.   go(the frame + 1)
  17.   abort()
  18. end
  19.  
  20. on noriflyh
  21.   global gnum1
  22.   preLoadCast(150, 160)
  23.   set h to the locH of sprite (gnum1 + 1)
  24.   set v to the locV of sprite (gnum1 + 1)
  25.   set mh to (640 - h) / 10
  26.   set mv to 96 / 10
  27.   repeat with n = 1 to 10
  28.     startTimer()
  29.     set the locH of sprite 30 to 640 - (mh * n)
  30.     set the locV of sprite 30 to v + 96 - (mv * n)
  31.     set the memberNum of sprite 30 to n + 150
  32.     updateStage()
  33.     repeat while the timer < 5
  34.     end repeat
  35.   end repeat
  36.   set the locH of sprite 30 to 740
  37.   set the locV of sprite 30 to 580
  38.   updateStage()
  39. end
  40.