hedgewars/uGears.pas
changeset 1270 ee024c14c904
parent 1263 24677a82531d
child 1279 33cae6d1635c
equal deleted inserted replaced
1269:9844a2afb3e5 1270:ee024c14c904
   195 Result^.dX:= dX;
   195 Result^.dX:= dX;
   196 Result^.dY:= dY;
   196 Result^.dY:= dY;
   197 Result^.doStep:= doStepHandlers[Kind];
   197 Result^.doStep:= doStepHandlers[Kind];
   198 Result^.CollisionIndex:= -1;
   198 Result^.CollisionIndex:= -1;
   199 Result^.Timer:= Timer;
   199 Result^.Timer:= Timer;
       
   200 Result^.Z:= cUsualZ;
   200 
   201 
   201 if CurrentTeam <> nil then
   202 if CurrentTeam <> nil then
   202    begin
   203    begin
   203    Result^.Hedgehog:= CurrentHedgehog;
   204    Result^.Hedgehog:= CurrentHedgehog;
   204    Result^.IntersectGear:= CurrentHedgehog^.Gear
   205    Result^.IntersectGear:= CurrentHedgehog^.Gear
   249                 end;
   250                 end;
   250   gtSmokeTrace,
   251   gtSmokeTrace,
   251    gtEvilTrace: begin
   252    gtEvilTrace: begin
   252                 Result^.X:= Result^.X - _16;
   253                 Result^.X:= Result^.X - _16;
   253                 Result^.Y:= Result^.Y - _16;
   254                 Result^.Y:= Result^.Y - _16;
   254                 Result^.State:= 8
   255                 Result^.State:= 8;
       
   256                 Result^.Z:= cSmokeZ
   255                 end;
   257                 end;
   256         gtRope: begin
   258         gtRope: begin
   257                 Result^.Radius:= 3;
   259                 Result^.Radius:= 3;
   258                 Result^.Friction:= _450;
   260                 Result^.Friction:= _450;
   259                 RopePoints.Count:= 0;
   261                 RopePoints.Count:= 0;