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

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

on exitFrame
  global gscr, gmode, gstg, gbor, ghislist
  cursor(200)
  repeat with n = 46 to 48
    set the cursor of sprite n to 0
  end repeat
  repeat with n = 14 to 38
    set the cursor of sprite n to 0
  end repeat
  counth(gscr, 261)
  if gmode = 20 then
    repeat with n = 40 to 43
      set the locV of sprite n to 130
      set the locH of sprite n to 231 + (15 * (n - 40))
    end repeat
    counth(gbor, 261)
  end if
  repeat with n = 40 to 43
    set the castNum of sprite n to 292
    set the locV of sprite n to 183
    set the locH of sprite n to 282 + (12 * (n - 40))
  end repeat
  repeat with n = 1 to count(ghislist)
    counth(getAt(ghislist, n), 281)
    repeat with m = 40 to 43
      set the locV of sprite m to 183 + (20 * n)
    end repeat
  end repeat
  startgame()
  go(marker(-4) + 1)
end

on counth pts, 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 + 39) 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+39) to (ca + b" & string(m) & ")")
  end repeat
  if pts < 0 then
    set the castNum of sprite 40 to ca + 10
  end if
  updateStage()
end