,info при клике на воду выдает unknown ID.
удочкой такое чувство что кликает на себя, а не на указанные координаты.
Подскажите что может быть не так?
Code: Select all
Program New;
type ArrayType1 = Array of Word;
var
cordX,cordY,cordZ,cordTile,holodilnik:cardinal;
fishArray : ArrayType1;
i:integer;
procedure Sortirovka();
begin
for i:=0 to 3 do
if(findtype(fishArray[i],backpack)<>0)then
repeat
MoveItems(backpack, fishArray[i], $0000, holodilnik,0,0,0, 500);
until findtype(fishArray[i],backpack)=0;
end;
procedure Ribalka();
begin
repeat
useobject(ObjAtLayer(LhandLayer));
waitfortarget(500);
WaitTargetTile(cordTile,cordX,cordY,cordZ);
wait(500);
if(GetGumpSerial(GetGumpsCount-1) = $493D2F)then//тянем рыбу всегда
begin
waitgump('100');
wait(200);
waitgump('300');
end;
if(weight > 200)then //Если вес в паке больше 800 начинает перекладывать в холодильник
Sortirovka();
until dead;
end;
begin
useobject(backpack);
fishArray:=[
$4306,
$44C3,
$4304,
$44E5
];
wait(300);
holodilnik:=findtype($0E52,backpack);
repeat
uosay('Добро пожаловать в Лем Фишинг и Ко.');
wait(400);
uosay('Укажите, пожалуйста, куда вы закинули приманку.');
repeat
ClientRequestTileTarget;
WaitForClientTargetResponse(2000);
until ClientTargetResponsePresent;
cordX :=ClientTargetResponse.X;
cordY :=ClientTargetResponse.Y;
cordZ :=ClientTargetResponse.Z;
cordTile :=ClientTargetResponse.Tile;
uosay('Заходите через пол часика.');
Ribalka();
until dead;
end.