home *** CD-ROM | disk | FTP | other *** search
/ Car Screensaver - Toyota / TOYOTA.iso / mjparty / vivi_ex.exe / vivi_ex.DXR / 00024.ls < prev    next >
Encoding:
Text File  |  1996-05-13  |  1.2 KB  |  59 lines
  1. on exitFrame
  2.   global gstg, ghislist
  3.   if gstg > 5 then
  4.     slideh()
  5.   end if
  6.   set c to count(ghislist) + 1
  7.   repeat with s = 39 to 42
  8.     puppetSprite(n, 1)
  9.     set the locV of sprite s to 163 + (20 * c)
  10.   end repeat
  11.   updateStage()
  12. end
  13.  
  14. on slideh
  15.   global ghislist
  16.   deleteAt(ghislist, 1)
  17.   repeat with n = 1 to 4
  18.     repeat with s = 39 to 42
  19.       set the locV of sprite s to 163 + (20 * n)
  20.     end repeat
  21.     set num to getAt(ghislist, n)
  22.     if num < -999 then
  23.       set num to -999
  24.     else
  25.       if num > 9999 then
  26.         set num to 9999
  27.       end if
  28.     end if
  29.     counth(abs(num))
  30.     if num < 0 then
  31.       set the castNum of sprite 39 to 291
  32.     end if
  33.     updateStage()
  34.   end repeat
  35. end
  36.  
  37. on counth num
  38.   set b1 to num / 1000
  39.   set num to num - (b1 * 1000)
  40.   set b2 to num / 100
  41.   set num to num - (b2 * 100)
  42.   set b3 to num / 10
  43.   set b4 to num - (b3 * 10)
  44.   repeat with n = 1 to 4
  45.     do("put b" & string(n) & " into num")
  46.     if num <> 0 then
  47.       exit repeat
  48.       next repeat
  49.     end if
  50.     set the castNum of sprite (n + 38) to 292
  51.   end repeat
  52.   if n = 5 then
  53.     set n to 4
  54.   end if
  55.   repeat with m = n to 4
  56.     do("set the castNum of sprite (m+38) to (281 + b" & string(m) & ")")
  57.   end repeat
  58. end
  59.