equal
deleted
inserted
replaced
1036 dist:= hwRound(Distance(dx, dy)); |
1036 dist:= hwRound(Distance(dx, dy)); |
1037 dmg:= ModifyDamage(min(r - dist, 25), t); |
1037 dmg:= ModifyDamage(min(r - dist, 25), t); |
1038 end; |
1038 end; |
1039 if dmg > 0 then |
1039 if dmg > 0 then |
1040 begin |
1040 begin |
1041 if (Gear^.Kind <> gtHedgehog) or (t^.Hedgehog^.Effects[heInvulnerable] = 0) then |
1041 if (t^.Kind <> gtHedgehog) or (t^.Hedgehog^.Effects[heInvulnerable] = 0) then |
1042 ApplyDamage(t, Gear^.Hedgehog, dmg, dsBullet) |
1042 ApplyDamage(t, Gear^.Hedgehog, dmg, dsBullet) |
1043 else |
1043 else |
1044 Gear^.State:= Gear^.State or gstWinner; |
1044 Gear^.State:= Gear^.State or gstWinner; |
1045 |
1045 |
1046 DeleteCI(t); |
1046 DeleteCI(t); |