| changeset 839 | 1493f697d1bb |
| parent 838 | 1faae19f2116 |
| child 855 | 8842c71d16bf |
| 838:1faae19f2116 | 839:1493f697d1bb |
|---|---|
239 end; |
239 end; |
240 TestCollisionYKick:= flag; |
240 TestCollisionYKick:= flag; |
241 |
241 |
242 if flag then |
242 if flag then |
243 begin |
243 begin |
244 if hwAbs(Gear^.dX) < cHHKick then exit(true); |
244 if hwAbs(Gear^.dY) < cHHKick then exit(true); |
245 mx:= hwRound(Gear^.X); |
245 mx:= hwRound(Gear^.X); |
246 my:= hwRound(Gear^.Y); |
246 my:= hwRound(Gear^.Y); |
247 |
247 |
248 for i:= 0 to Pred(Count) do |
248 for i:= 0 to Pred(Count) do |
249 with cinfos[i] do |
249 with cinfos[i] do |