hedgewars/uIO.pas
changeset 7426 55b49cc1f33a
parent 7103 1c1afb5a1565
child 7442 9bb6abdb5675
equal deleted inserted replaced
7423:ec8f690f3e0f 7426:55b49cc1f33a
   400             begin
   400             begin
   401             TargetPoint.X:= putX;
   401             TargetPoint.X:= putX;
   402             TargetPoint.Y:= putY
   402             TargetPoint.Y:= putY
   403             end;
   403             end;
   404         AddFileLog('put: ' + inttostr(TargetPoint.X) + ', ' + inttostr(TargetPoint.Y));
   404         AddFileLog('put: ' + inttostr(TargetPoint.X) + ', ' + inttostr(TargetPoint.Y));
   405         State:= State and not gstHHChooseTarget;
   405         State:= State and (not gstHHChooseTarget);
   406         if (Ammoz[CurAmmoType].Ammo.Propz and ammoprop_AttackingPut) <> 0 then
   406         if (Ammoz[CurAmmoType].Ammo.Propz and ammoprop_AttackingPut) <> 0 then
   407             Message:= Message or (gmAttack and InputMask);
   407             Message:= Message or (gmAttack and InputMask);
   408         end
   408         end
   409     else
   409     else
   410         if CurrentTeam^.ExtDriven then
   410         if CurrentTeam^.ExtDriven then