# HG changeset patch # User unc0rr # Date 1211825451 0 # Node ID 9dd48265e0b928a553e158d70f9089014223f677 # Parent c021955435b2f3700b01bec15d1ba9acb7ce9803 Allow aiming while moving diff -r c021955435b2 -r 9dd48265e0b9 hedgewars/HHHandlers.inc --- a/hedgewars/HHHandlers.inc Sun May 25 20:33:31 2008 +0000 +++ b/hedgewars/HHHandlers.inc Mon May 26 18:10:51 2008 +0000 @@ -374,10 +374,9 @@ procedure HedgehogChAngle(Gear: PGear); begin -if ((Gear^.State and gstMoving) = 0) then - if (Gear^.Message and gm_Up )<>0 then if Gear^.Angle > CurMinAngle then dec(Gear^.Angle) - else else - if (Gear^.Message and gm_Down )<>0 then if Gear^.Angle < CurMaxAngle then inc(Gear^.Angle); +if ((Gear^.Message and gm_Up) <> 0) and (Gear^.Angle > CurMinAngle) then dec(Gear^.Angle) +else +if ((Gear^.Message and gm_Down) <> 0) and (Gear^.Angle < CurMaxAngle) then inc(Gear^.Angle); end; procedure doStepHedgehog(Gear: PGear); forward; @@ -519,6 +518,8 @@ exit end; +if not isInMultiShoot then + HedgehogChAngle(Gear); if (Gear^.State and gstMoving) <> 0 then begin @@ -549,7 +550,6 @@ if not isInMultiShoot then begin - HedgehogChAngle(Gear); if StepTicks > 0 then dec(StepTicks); if (StepTicks = 0) then HedgehogStep(Gear) end