equal
deleted
inserted
replaced
1958 inc(y); |
1958 inc(y); |
1959 until (y >= LAND_HEIGHT) or (CountNonZeroz(x, y, Gear^.Radius - 1) <> 0); |
1959 until (y >= LAND_HEIGHT) or (CountNonZeroz(x, y, Gear^.Radius - 1) <> 0); |
1960 |
1960 |
1961 if (y - sy > Gear^.Radius * 2) |
1961 if (y - sy > Gear^.Radius * 2) |
1962 and (y < LAND_HEIGHT) |
1962 and (y < LAND_HEIGHT) |
1963 and (CheckGearsNear(x, y - Gear^.Radius, [gtHedgehog, gtMine, gtCase], 110, 110) = nil) then |
1963 and (CheckGearsNear(x, y - Gear^.Radius, [gtFlame, gtHedgehog, gtMine, gtCase], 110, 110) = nil) then |
1964 begin |
1964 begin |
1965 ar[cnt].X:= x; |
1965 ar[cnt].X:= x; |
1966 if withFall then ar[cnt].Y:= sy + Gear^.Radius |
1966 if withFall then ar[cnt].Y:= sy + Gear^.Radius |
1967 else ar[cnt].Y:= y - Gear^.Radius; |
1967 else ar[cnt].Y:= y - Gear^.Radius; |
1968 inc(cnt) |
1968 inc(cnt) |