Seeker/Seeker.iso/files_w/5balls.dir/00045.ls

Text File | 1994-12-05 | 734 b | 31 lines

on exitFrame
  global d, moveend, check
  set nt to ticks()
  repeat with i = 1 to 5
    if getAt(d, i) <> 0 then
      moveball(i)
    end if
  end repeat
  if the castNum of sprite 12 = 0 then
    go("over")
  else
    if count(holeout) >= 4 then
      go("clear")
    else
      if moveend = 1 then
        repeat with i = 1 to 4
          clash(i)
        end repeat
        set moveend to 0
        wait(3 - (ticks() - nt))
        go(#loop)
      else
        set check to [[0, 0, 0, 0, 0], [0, 0, 0, 0, 0], [0, 0, 0, 0, 0], [0, 0, 0, 0, 0], [0, 0, 0, 0, 0]]
        set the locH of sprite 13 to the locH of sprite 12
        set the locV of sprite 13 to the locV of sprite 12
        go(3)
      end if
    end if
  end if
end