489             else

   489             else

   490                 begin

   490                 begin

   491                 TargetPoint.X:= CursorPoint.X - WorldDx;

   491                 TargetPoint.X:= CursorPoint.X - WorldDx;

   492                 TargetPoint.Y:= cScreenHeight - CursorPoint.Y - WorldDy;

   492                 TargetPoint.Y:= cScreenHeight - CursorPoint.Y - WorldDy;

   493                 end;

   493                 end;

   494             SendIPCXY('p', TargetPoint.X, TargetPoint.Y);

   495             SendIPCXY('p', TargetPoint.X, TargetPoint.Y);

   495             end

   496             end

   496         else

   497         else

   497             begin

   498             begin

   498             TargetPoint.X:= putX;

   500             TargetPoint.X:= putX;

   499             TargetPoint.Y:= putY

   501             TargetPoint.Y:= putY

   500             end;

   502             end;

   501         AddFileLog('put: ' + inttostr(TargetPoint.X) + ', ' + inttostr(TargetPoint.Y));

   503         AddFileLog('put: ' + inttostr(TargetPoint.X) + ', ' + inttostr(TargetPoint.Y));

   502         State:= State and (not gstChooseTarget);

   504         State:= State and (not gstChooseTarget);