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

Text File | 1994-12-05 | 1.2 KB | 45 lines

on holein a, b
  global d, lh, lv, holeout
  updateStage()
  puppetSound("holein")
  set the constraint of sprite (a + 7) to 0
  set the locH of sprite (a + 7) to 0
  set the locV of sprite (a + 7) to 0
  set the castNum of sprite (a + 7) to 0
  updateStage()
  setAt(d, a, 0)
  if (a <> 5) and (a <> b) then
    repeat with k = 3 to 7
      set c to 0
      set rectk to rect(the locH of sprite k - 8, the locV of sprite k - 8, the locH of sprite k + 8, the locV of sprite k + 8)
      repeat with j = 1 to 5
        if intersect(the rect of sprite (j + 7), rectk) <> rect(0, 0, 0, 0) then
          set c to 1
          exit repeat
        end if
      end repeat
      if c = 0 then
        set the locH of sprite (a + 7) to the locH of sprite k
        set the locV of sprite (a + 7) to the locV of sprite k
        setAt(lh, a, the locH of sprite k)
        setAt(lv, a, the locV of sprite k)
        set the constraint of sprite (a + 7) to 1
        set the castNum of sprite (a + 7) to a + 6
        exit repeat
      end if
    end repeat
  else
    if a = b then
      add(holeout, a + 7)
    end if
  end if
end

on wait p
  set nt to ticks()
  set et to nt + p
  repeat while nt < et
    set nt to ticks()
  end repeat
end