equal
deleted
inserted
replaced
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); |