hedgewars/CCHandlers.inc
changeset 2963 0f0789204802
parent 2962 38237a443f74
child 2990 b62e567f17b9
equal deleted inserted replaced
2962:38237a443f74 2963:0f0789204802
   517 end;
   517 end;
   518 
   518 
   519 procedure doPut(putX, putY: LongInt; fromAI: boolean);
   519 procedure doPut(putX, putY: LongInt; fromAI: boolean);
   520 begin
   520 begin
   521 if CheckNoTeamOrHH then exit;
   521 if CheckNoTeamOrHH then exit;
   522 if bShowAmmoMenu then
   522 if not CurrentTeam^.ExtDriven and bShowAmmoMenu then
   523     begin
   523     begin
   524     bSelected:= true;
   524     bSelected:= true;
   525     exit
   525     exit
   526     end;
   526     end;
   527 
   527