Car Screensaver - Toyota/TOYOTA.iso/mjparty/vivi_ex.exe/vivi_ex.DXR/00026.ls

Text File | 1996-05-13 | 1.5 KB | 71 lines

on exitFrame
  global gscr, gnum1, ghislist, ghdlist
  append(ghislist, gnum1)
  if the locV of sprite 44 <> 383 then
    repeat with n = 44 to 46
      set the locV of sprite n to 383
    end repeat
  end if
  repeat with n = 39 to 42
    set the locV of sprite n to 105
  end repeat
  if gnum1 < 0 then
    set var to -1
  else
    set var to 1
  end if
  set num to abs(gnum1) - 1
  repeat with n = num down to 0
    set gscr to gscr + (var * 1)
    counth(gscr, 38, 261)
    counth(var * n, 42, 281)
    updateStage()
  end repeat
  sound stop 1
  set ghdlist to [50, 20, 15, 12, 10, 7, 5, 2, 1, 5]
  repeat with n = 9 to 11
    puppetSprite(n, 0)
  end repeat
  repeat with n = 2 to 4
    puppetSprite(n, 0)
  end repeat
  startTimer()
  repeat while the timer < 30
    nothing()
  end repeat
end

on counth pts, sp, ca
  if pts > 9999 then
    set pts to 9999
  else
    if pts < -999 then
      set pts to -999
    end if
  end if
  set num to abs(pts)
  set b1 to num / 1000
  set num to num - (b1 * 1000)
  set b2 to num / 100
  set num to num - (b2 * 100)
  set b3 to num / 10
  set b4 to num - (b3 * 10)
  repeat with n = 1 to 4
    do("put b" & string(n) & " into num")
    if num <> 0 then
      exit repeat
      next repeat
    end if
    set the castNum of sprite (n + sp) to ca + 11
  end repeat
  if n = 5 then
    set n to 4
  end if
  repeat with m = n to 4
    do("set the castNum of sprite (m+sp) to (ca + b" & string(m) & ")")
  end repeat
  if pts < 0 then
    set the castNum of sprite (sp + 1) to ca + 10
  end if
end