equal
deleted
inserted
replaced
1413 (CurrentHedgehog^.Gear <> nil) and (CurrentHedgehog^.Gear^.CollisionIndex = -1) and |
1413 (CurrentHedgehog^.Gear <> nil) and (CurrentHedgehog^.Gear^.CollisionIndex = -1) and |
1414 (sqr(hwRound(Ammo^.X) - hwRound(CurrentHedgehog^.Gear^.X)) + sqr(hwRound(Ammo^.Y) - hwRound(CurrentHedgehog^.Gear^.Y)) <= sqr(cHHRadius + Ammo^.Radius)) then |
1414 (sqr(hwRound(Ammo^.X) - hwRound(CurrentHedgehog^.Gear^.X)) + sqr(hwRound(Ammo^.Y) - hwRound(CurrentHedgehog^.Gear^.Y)) <= sqr(cHHRadius + Ammo^.Radius)) then |
1415 begin |
1415 begin |
1416 t^.ar[t^.Count]:= CurrentHedgehog^.Gear; |
1416 t^.ar[t^.Count]:= CurrentHedgehog^.Gear; |
1417 inc(t^.Count) |
1417 inc(t^.Count) |
1418 end; |
1418 end else |
|
1419 with CurrentHedgehog^.Gear^ do |
|
1420 State:= State or gstMoving; |
|
1421 |
1419 i:= t^.Count; |
1422 i:= t^.Count; |
1420 |
1423 |
1421 if (Ammo^.Kind = gtFlame) and (i > 0) then Ammo^.Health:= 0; |
1424 if (Ammo^.Kind = gtFlame) and (i > 0) then Ammo^.Health:= 0; |
1422 while i > 0 do |
1425 while i > 0 do |
1423 begin |
1426 begin |