hedgewars/CCHandlers.inc
changeset 2645 89aa2aa89066
parent 2642 097e3baa1305
child 2671 7e0f88013fe8
equal deleted inserted replaced
2644:52b7c4776af9 2645:89aa2aa89066
   516 				begin
   516 				begin
   517 				TargetPoint.X:= CursorPoint.X - WorldDx;
   517 				TargetPoint.X:= CursorPoint.X - WorldDx;
   518 				TargetPoint.Y:= cScreenHeight - CursorPoint.Y - WorldDy;
   518 				TargetPoint.Y:= cScreenHeight - CursorPoint.Y - WorldDy;
   519 				end;
   519 				end;
   520 			SendIPCXY('p', TargetPoint.X, TargetPoint.Y);
   520 			SendIPCXY('p', TargetPoint.X, TargetPoint.Y);
       
   521 			end
       
   522 		else
       
   523 			begin
       
   524 			TargetPoint.X:= putX;
       
   525 			TargetPoint.Y:= putY
   521 			end;
   526 			end;
   522 		{$IFDEF DEBUGFILE}AddFilelog('put: ' + inttostr(TargetPoint.X) + ', ' + inttostr(TargetPoint.Y));{$ENDIF}
   527 		{$IFDEF DEBUGFILE}AddFilelog('put: ' + inttostr(TargetPoint.X) + ', ' + inttostr(TargetPoint.Y));{$ENDIF}
   523 		State:= State and not gstHHChooseTarget;
   528 		State:= State and not gstHHChooseTarget;
   524 		if (Ammo^[CurSlot, CurAmmo].Propz and ammoprop_AttackingPut) <> 0 then
   529 		if (Ammo^[CurSlot, CurAmmo].Propz and ammoprop_AttackingPut) <> 0 then
   525 			Message:= Message or gm_Attack;
   530 			Message:= Message or gm_Attack;