hedgewars/uIO.pas
changeset 10818 f642a28cab0c
parent 10663 9bbb29d2bd68
child 10850 c76ea22ea249
equal deleted inserted replaced
10816:37410518628e 10818:f642a28cab0c
   460     exit
   460     exit
   461     end;
   461     end;
   462 
   462 
   463 with CurrentHedgehog^.Gear^,
   463 with CurrentHedgehog^.Gear^,
   464     CurrentHedgehog^ do
   464     CurrentHedgehog^ do
   465     if (State and gstHHChooseTarget) <> 0 then
   465     if (State and gstChooseTarget) <> 0 then
   466         begin
   466         begin
   467         isCursorVisible:= false;
   467         isCursorVisible:= false;
   468         if not CurrentTeam^.ExtDriven then
   468         if not CurrentTeam^.ExtDriven then
   469             begin
   469             begin
   470             if fromAI then
   470             if fromAI then
   483             begin
   483             begin
   484             TargetPoint.X:= putX;
   484             TargetPoint.X:= putX;
   485             TargetPoint.Y:= putY
   485             TargetPoint.Y:= putY
   486             end;
   486             end;
   487         AddFileLog('put: ' + inttostr(TargetPoint.X) + ', ' + inttostr(TargetPoint.Y));
   487         AddFileLog('put: ' + inttostr(TargetPoint.X) + ', ' + inttostr(TargetPoint.Y));
   488         State:= State and (not gstHHChooseTarget);
   488         State:= State and (not gstChooseTarget);
   489         if (Ammoz[CurAmmoType].Ammo.Propz and ammoprop_AttackingPut) <> 0 then
   489         if (Ammoz[CurAmmoType].Ammo.Propz and ammoprop_AttackingPut) <> 0 then
   490             Message:= Message or (gmAttack and InputMask);
   490             Message:= Message or (gmAttack and InputMask);
   491         end
   491         end
   492     else
   492     else
   493         if CurrentTeam^.ExtDriven then
   493         if CurrentTeam^.ExtDriven then