equal
deleted
inserted
replaced
1399 HHGear: PGear; |
1399 HHGear: PGear; |
1400 begin |
1400 begin |
1401 BTPrevAngle := High(LongInt); |
1401 BTPrevAngle := High(LongInt); |
1402 BTSteps := 0; |
1402 BTSteps := 0; |
1403 HHGear := Gear^.Hedgehog^.Gear; |
1403 HHGear := Gear^.Hedgehog^.Gear; |
|
1404 HedgehogChAngle(HHGear); |
|
1405 Gear^.dX := SignAs(AngleSin(HHGear^.Angle) * _0_5, Gear^.dX); |
|
1406 Gear^.dY := AngleCos(HHGear^.Angle) * ( - _0_5); |
|
1407 DrawTunnel(HHGear^.X, |
|
1408 HHGear^.Y + Gear^.dY * cHHRadius - _1 - |
|
1409 ((hwAbs(Gear^.dX) / (hwAbs(Gear^.dX) + hwAbs(Gear^.dY))) * _0_5 * 7), |
|
1410 Gear^.dX, Gear^.dY, |
|
1411 cHHStepTicks, cHHRadius * 2 + 7); |
1404 HHGear^.Message := 0; |
1412 HHGear^.Message := 0; |
1405 HHGear^.State := HHGear^.State or gstNotKickable; |
1413 HHGear^.State := HHGear^.State or gstNotKickable; |
1406 Gear^.doStep := @doStepBlowTorchWork |
1414 Gear^.doStep := @doStepBlowTorchWork |
1407 end; |
1415 end; |
1408 |
1416 |