1 (*

     1 (*

     2  * Hedgewars, a free turn based strategy game

     2  * Hedgewars, a free turn based strategy game

     4  *

     4  *

     5  * This program is free software; you can redistribute it and/or modify

     5  * This program is free software; you can redistribute it and/or modify

     6  * it under the terms of the GNU General Public License as published by

     6  * it under the terms of the GNU General Public License as published by

     7  * the Free Software Foundation; version 2 of the License

     7  * the Free Software Foundation; version 2 of the License

     8  *

     8  *

   159                     amBlowTorch: CurAmmoGear:= AddGear(hwRound(X), hwRound(Y), gtBlowTorch, 0, SignAs(_0_5, dX), _0, 0);

   159                     amBlowTorch: CurAmmoGear:= AddGear(hwRound(X), hwRound(Y), gtBlowTorch, 0, SignAs(_0_5, dX), _0, 0);

   160                        amGirder: CurAmmoGear:= AddGear(0, 0, gtGirder, Ammo^[CurSlot, CurAmmo].Pos, _0, _0, 0);

   160                        amGirder: CurAmmoGear:= AddGear(0, 0, gtGirder, Ammo^[CurSlot, CurAmmo].Pos, _0, _0, 0);

   161                      amTeleport: CurAmmoGear:= AddGear(0, 0, gtTeleport, 0, _0, _0, 0);

   161                      amTeleport: CurAmmoGear:= AddGear(0, 0, gtTeleport, 0, _0, _0, 0);

   162                        amSwitch: CurAmmoGear:= AddGear(hwRound(X), hwRound(Y), gtSwitcher, 0, _0, _0, 0);

   162                        amSwitch: CurAmmoGear:= AddGear(hwRound(X), hwRound(Y), gtSwitcher, 0, _0, _0, 0);

   163                        amMortar: FollowGear:= AddGear(hwRound(X), hwRound(Y), gtMortar,  0, xx*cMaxPower/cPowerDivisor, yy*cMaxPower/cPowerDivisor, 0);

   163                        amMortar: FollowGear:= AddGear(hwRound(X), hwRound(Y), gtMortar,  0, xx*cMaxPower/cPowerDivisor, yy*cMaxPower/cPowerDivisor, 0);

   164                        amKamikaze: CurAmmoGear:= AddGear(hwRound(X), hwRound(Y), gtKamikaze, 0, xx * _0_5, yy * _0_5, 0);

   165                        amKamikaze: CurAmmoGear:= AddGear(hwRound(X), hwRound(Y), gtKamikaze, 0, xx * _0_5, yy * _0_5, 0);

   165                          amCake: begin

   166                          amCake: begin

   166                                  CurAmmoGear:= AddGear(hwRound(X) + hwSign(dX) * 3, hwRound(Y), gtCake, 0, xx, _0, 0);

   167                                  CurAmmoGear:= AddGear(hwRound(X) + hwSign(dX) * 3, hwRound(Y), gtCake, 0, xx, _0, 0);

   167                                  PlaySound(sndLaugh, false, CurrentTeam^.voicepack)

   168                                  PlaySound(sndLaugh, false, CurrentTeam^.voicepack)

   168                                  end;

   169                                  end;

   404 	and ((Gear^.State and (gstMoving or gstHHJumping)) = gstMoving) then da:= 2 else da:= 1;

   405 	and ((Gear^.State and (gstMoving or gstHHJumping)) = gstMoving) then da:= 2 else da:= 1;

   405 

   406 

   406 if (((Gear^.Message and gm_Precise) = 0) or ((GameTicks mod 5) = 1)) then

   407 if (((Gear^.Message and gm_Precise) = 0) or ((GameTicks mod 5) = 1)) then

   407 	if ((Gear^.Message and gm_Up) <> 0) and (Gear^.Angle - da >= CurMinAngle) then dec(Gear^.Angle, da)

   408 	if ((Gear^.Message and gm_Up) <> 0) and (Gear^.Angle - da >= CurMinAngle) then dec(Gear^.Angle, da)

   408 	else

   409 	else

   410 end;

   411 end;

   411 

   412 

   412 procedure doStepHedgehog(Gear: PGear); forward;

   413 procedure doStepHedgehog(Gear: PGear); forward;

   413 ////////////////////////////////////////////////////////////////////////////////

   414 ////////////////////////////////////////////////////////////////////////////////

   414 procedure doStepHedgehogMoving(Gear: PGear);

   415 procedure doStepHedgehogMoving(Gear: PGear);