hedgewars/uGears.pas
changeset 1270 ee024c14c904
parent 1263 24677a82531d
child 1279 33cae6d1635c
--- 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;