home *** CD-ROM | disk | FTP | other *** search
/ Car Screensaver - Toyota / TOYOTA.iso / mjparty / vivi_ex.exe / vivi_ex.DXR / 00015.ls < prev    next >
Encoding:
Text File  |  1996-05-13  |  1.0 KB  |  47 lines
  1. on exitFrame
  2.   global gstg, gbor, gmode
  3.   if gmode <> 20 then
  4.     exit
  5.   end if
  6.   puppetSound(3, 78)
  7.   repeat with n = 22 to 25
  8.     set the locV of sprite n to 130
  9.   end repeat
  10.   set c to gstg mod 10
  11.   if c = 0 then
  12.     set c to 10
  13.   end if
  14.   set bor2 to getAt([20, 30, 40, 50, 40, 50, 60, 70, 50, 60], c) + gbor
  15.   if bor2 > 9999 then
  16.     set bor2 to 9999
  17.   end if
  18.   repeat with c = gbor to bor2
  19.     set b4 to c / 1000
  20.     set num to c - (b4 * 1000)
  21.     set b3 to num / 100
  22.     set num to num - (b3 * 100)
  23.     set b2 to num / 10
  24.     set b1 to num - (b2 * 10)
  25.     repeat with n = 4 down to 1
  26.       do("put b" & string(n) & " into num")
  27.       if num <> 0 then
  28.         exit repeat
  29.       end if
  30.     end repeat
  31.     repeat with m = 1 to n
  32.       do("set the castNum of sprite (m+21) to (261 + b" & string(m) & ")")
  33.     end repeat
  34.     startTimer()
  35.     repeat while the timer < 2
  36.       nothing()
  37.     end repeat
  38.     updateStage()
  39.   end repeat
  40.   sound stop 3
  41.   set gbor to bor2
  42.   startTimer()
  43.   repeat while the timer < 30
  44.     nothing()
  45.   end repeat
  46. end
  47.