hedgewars/GSHandlers.inc
changeset 6278 654eed7c6b97
parent 6251 5cd33711afb9
child 6304 3036c242b19d
equal deleted inserted replaced
6276:1e2f8da1860a 6278:654eed7c6b97
  1422             HHGear^.State := HHGear^.State and not gstNoDamage
  1422             HHGear^.State := HHGear^.State and not gstNoDamage
  1423             end;
  1423             end;
  1424         end;
  1424         end;
  1425 
  1425 
  1426     if b then
  1426     if b then
  1427         DrawTunnel(HHGear^.X - Gear^.dX * cHHRadius, HHGear^.Y - _4 - Gear^.dY * cHHRadius + hwAbs(
  1427     begin
  1428                    Gear^.dY) * 7,
  1428         DrawTunnel(HHGear^.X + Gear^.dX * cHHRadius,
       
  1429         HHGear^.Y + Gear^.dY * cHHRadius - _1 -
       
  1430         ((hwAbs(Gear^.dX) / (hwAbs(Gear^.dX) + hwAbs(Gear^.dY))) * _0_5 * 7),
  1429         Gear^.dX, Gear^.dY,
  1431         Gear^.dX, Gear^.dY,
  1430         cHHRadius * 5, cHHRadius * 2 + 7);
  1432         cHHStepTicks, cHHRadius * 2 + 7);
       
  1433     end;
  1431 
  1434 
  1432     if (TurnTimeLeft = 0) or (Gear^.Timer = 0) or ((HHGear^.Message and gmAttack) <> 0) then
  1435     if (TurnTimeLeft = 0) or (Gear^.Timer = 0) or ((HHGear^.Message and gmAttack) <> 0) then
  1433         begin
  1436         begin
  1434         HHGear^.Message := 0;
  1437         HHGear^.Message := 0;
  1435         HHGear^.State := HHGear^.State and (not gstNotKickable);
  1438         HHGear^.State := HHGear^.State and (not gstNotKickable);