equal
deleted
inserted
replaced
201 for i:= 0 to Pred(Count) do |
201 for i:= 0 to Pred(Count) do |
202 with cinfos[i] do |
202 with cinfos[i] do |
203 if (Gear <> cGear) and |
203 if (Gear <> cGear) and |
204 (sqr(mx - x) + sqr(my - y) <= sqr(Radius + Gear^.Radius + 2)) and |
204 (sqr(mx - x) + sqr(my - y) <= sqr(Radius + Gear^.Radius + 2)) and |
205 ((mx > x) xor (Dir > 0)) then |
205 ((mx > x) xor (Dir > 0)) then |
206 if (cGear^.Kind in [gtHedgehog, gtMine]) then |
206 if (cGear^.Kind in [gtHedgehog, gtMine]) and ((Gear^.State and gstNotKickable) = 0) then |
207 begin |
207 begin |
208 with cGear^ do |
208 with cGear^ do |
209 begin |
209 begin |
210 dX:= Gear^.dX; |
210 dX:= Gear^.dX; |
211 dY:= Gear^.dY * _0_5; |
211 dY:= Gear^.dY * _0_5; |
253 for i:= 0 to Pred(Count) do |
253 for i:= 0 to Pred(Count) do |
254 with cinfos[i] do |
254 with cinfos[i] do |
255 if (Gear <> cGear) and |
255 if (Gear <> cGear) and |
256 (sqr(mx - x) + sqr(my - y) <= sqr(Radius + Gear^.Radius + 2)) and |
256 (sqr(mx - x) + sqr(my - y) <= sqr(Radius + Gear^.Radius + 2)) and |
257 ((my > y) xor (Dir > 0)) then |
257 ((my > y) xor (Dir > 0)) then |
258 if (cGear^.Kind in [gtHedgehog, gtMine]) then |
258 if (cGear^.Kind in [gtHedgehog, gtMine]) and ((Gear^.State and gstNotKickable) = 0) then |
259 begin |
259 begin |
260 with cGear^ do |
260 with cGear^ do |
261 begin |
261 begin |
262 dX:= Gear^.dX * _0_5; |
262 dX:= Gear^.dX * _0_5; |
263 dY:= Gear^.dY; |
263 dY:= Gear^.dY; |