hedgewars/uGearsHedgehog.pas
branchwebgl
changeset 8026 4a4f21070479
parent 8003 7d8bce524daf
child 8096 453917e94e55
equal deleted inserted replaced
8023:7de85783b823 8026:4a4f21070479
  1112             GHStepTicks:= 95
  1112             GHStepTicks:= 95
  1113         end;
  1113         end;
  1114     exit
  1114     exit
  1115     end;
  1115     end;
  1116 
  1116 
  1117     if not isInMultiShoot and (Hedgehog^.Gear <> nil) then
  1117     if (not isInMultiShoot) and (Hedgehog^.Gear <> nil) then
  1118         begin
  1118         begin
  1119         if GHStepTicks > 0 then
  1119         if GHStepTicks > 0 then
  1120             dec(GHStepTicks);
  1120             dec(GHStepTicks);
  1121         if (GHStepTicks = 0) then
  1121         if (GHStepTicks = 0) then
  1122             HedgehogStep(HHGear)
  1122             HedgehogStep(HHGear)