hedgewars/CCHandlers.inc
changeset 927 2c1675344a6f
parent 926 d231e007452a
child 929 9456e1e77369
equal deleted inserted replaced
926:d231e007452a 927:2c1675344a6f
   346               dec(TargetPoint.X, WorldDx);
   346               dec(TargetPoint.X, WorldDx);
   347               dec(TargetPoint.Y, WorldDy)
   347               dec(TargetPoint.Y, WorldDy)
   348               end;
   348               end;
   349            SendIPCXY('p', TargetPoint.X, TargetPoint.Y);
   349            SendIPCXY('p', TargetPoint.X, TargetPoint.Y);
   350            end;
   350            end;
   351         State:= State and not gstHHChooseTarget; 
   351         State:= State and not gstHHChooseTarget;
   352         if (Ammo^[CurSlot, CurAmmo].Propz and ammoprop_AttackingPut) <> 0 then
   352         if (Ammo^[CurSlot, CurAmmo].Propz and ammoprop_AttackingPut) <> 0 then
   353            Message:= Message or gm_Attack;
   353            Message:= Message or gm_Attack;
   354         end else if CurrentTeam^.ExtDriven then OutError('got /put while not being in choose target mode', false)
   354         end else if CurrentTeam^.ExtDriven then OutError('got /put while not being in choose target mode', false)
   355 
       
   356 end;
   355 end;
   357 
   356 
   358 procedure chPut(var s: shortstring);
   357 procedure chPut(var s: shortstring);
   359 begin
   358 begin
   360 doPut(0, 0, false)
   359 doPut(0, 0, false)