--- a/hedgewars/uGearsList.pas Thu Nov 28 00:41:35 2013 +0400
+++ b/hedgewars/uGearsList.pas Thu Nov 28 21:13:49 2013 -0500
@@ -236,16 +236,20 @@
gear^.Hedgehog^.Effects[heResurrectable] := 1;
end;
gtShell: begin
+ gear^.Elasticity:= _0_8;
+ gear^.Friction:= _0_8;
gear^.Radius:= 4;
gear^.Density:= _1;
+ gear^.AdvBounce:= 1;
end;
gtSnowball: begin
gear^.ImpactSound:= sndMudballImpact;
gear^.nImpactSounds:= 1;
gear^.Radius:= 4;
- gear^.Elasticity:= _1;
- gear^.Friction:= _1;
gear^.Density:= _0_5;
+ gear^.AdvBounce:= 1;
+ gear^.Elasticity:= _0_8;
+ gear^.Friction:= _0_8;
end;
gtFlake: begin
@@ -327,9 +331,13 @@
gear^.Elasticity:= _0_55;
gear^.Friction:= _0_995;
gear^.Density:= _1_6;
+ gear^.AdvBounce:= 1;
if gear^.Timer = 0 then gear^.Timer:= 500;
end;
gtKnife: begin
+ gear^.AdvBounce:= 1;
+ gear^.Elasticity:= _0_8;
+ gear^.Friction:= _0_8;
gear^.Density:= _4;
gear^.Radius:= 7
end;
@@ -341,6 +349,7 @@
if gear^.Timer = 0 then gear^.Timer:= 500
end;
gtExplosives: begin
+ gear^.AdvBounce:= 1;
gear^.ImpactSound:= sndGrenadeImpact;
gear^.nImpactSounds:= 1;
gear^.Radius:= 16;
@@ -366,6 +375,9 @@
if gear^.Timer = 0 then gear^.Timer:= 5000;
end;
gtCluster: begin
+ gear^.AdvBounce:= 1;
+ gear^.Elasticity:= _0_8;
+ gear^.Friction:= _0_8;
gear^.Radius:= 2;
gear^.Density:= _1_5;
gear^.RenderTimer:= true
@@ -409,6 +421,7 @@
gear^.Z:= cCurrHHZ+1;
end;
gtMortar: begin
+ gear^.AdvBounce:= 1;
gear^.Radius:= 4;
gear^.Elasticity:= _0_2;
gear^.Friction:= _0_08;
@@ -443,6 +456,9 @@
if gear^.Timer = 0 then gear^.Timer:= 5000
end;
gtDrill: begin
+ gear^.AdvBounce:= 1;
+ gear^.Elasticity:= _0_8;
+ gear^.Friction:= _0_8;
if gear^.Timer = 0 then
gear^.Timer:= 5000;
// Tag for drill strike. if 1 then first impact occured already
@@ -484,6 +500,7 @@
gear^.FlightTime := 2;
end;
gtEgg: begin
+ gear^.AdvBounce:= 1;
gear^.Radius:= 4;
gear^.Elasticity:= _0_6;
gear^.Friction:= _0_96;
@@ -534,6 +551,9 @@
gear^.Tag := 47;
end;
gtNapalmBomb: begin
+ gear^.AdvBounce:= 1;
+ gear^.Elasticity:= _0_8;
+ gear^.Friction:= _0_8;
if gear^.Timer = 0 then gear^.Timer:= 1000;
gear^.Radius:= 5;
gear^.Density:= _1_5;