home *** CD-ROM | disk | FTP | other *** search
/ Mac Ga Ichiban! 1996 October / macgaichiban199610.bin / MOVIES / RINKAI.Dxr / 00178.ls < prev    next >
Encoding:
Text File  |  1996-08-14  |  848 b   |  37 lines
  1. on exitFrame
  2.   global gal
  3.   set the movieRate of sprite 4 to 0
  4.   if gal > 3 then
  5.     set galno to gal - 3
  6.   else
  7.     set galno to gal
  8.   end if
  9.   set score to random(100)
  10.   if score >= 75 then
  11.     set level to 1
  12.   else
  13.     if score >= 50 then
  14.       set level to 2
  15.     else
  16.       set level to 3
  17.     end if
  18.   end if
  19.   set vno to random(3)
  20.   puppetSprite(3, 1)
  21.   set the width of sprite 3 to 0
  22.   set the visible of sprite 3 to 1
  23.   repeat with i = 0 to score
  24.     set the width of sprite 3 to integer(i * 32 / 10)
  25.     repeat with j = 1 to 1000
  26.       nothing()
  27.     end repeat
  28.     updateStage()
  29.   end repeat
  30.   set the fileName of cast "dummy" to "@::QTS:" & galno & "_" & level & "_" & vno
  31.   set the movieRate of sprite 4 to 0
  32.   set the visible of sprite 4 to 1
  33.   updateStage()
  34.   set the movieTime of sprite 4 to 0
  35.   set the movieRate of sprite 4 to 1
  36. end
  37.