--- a/hedgewars/uConsts.pas Fri Sep 19 14:08:18 2008 +0000
+++ b/hedgewars/uConsts.pas Fri Sep 19 14:10:51 2008 +0000
@@ -152,6 +152,8 @@
cHHRadius = 9;
cHHStepTicks = 29;
+ cUsualZ = 500;
+ cSmokeZ = 499;
cHHZ = 1000;
cCurrHHZ = Succ(cHHZ);
cOnHHZ = 2000;
--- a/hedgewars/uGears.pas Fri Sep 19 14:08:18 2008 +0000
+++ b/hedgewars/uGears.pas Fri Sep 19 14:10:51 2008 +0000
@@ -197,6 +197,7 @@
Result^.doStep:= doStepHandlers[Kind];
Result^.CollisionIndex:= -1;
Result^.Timer:= Timer;
+Result^.Z:= cUsualZ;
if CurrentTeam <> nil then
begin
@@ -251,7 +252,8 @@
gtEvilTrace: begin
Result^.X:= Result^.X - _16;
Result^.Y:= Result^.Y - _16;
- Result^.State:= 8
+ Result^.State:= 8;
+ Result^.Z:= cSmokeZ
end;
gtRope: begin
Result^.Radius:= 3;