Фишинг

[lemonter]

Раньше работал,примерно год назад, теперь же перестал.
,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.

[Vizit0r]

по скрипту ничего такого не вижу. Может таргет прийти позже, и будет висеть - но на себя не кинется, ибо нигде нет кидания таргета на себя.
Можешь в скайп написать и дать чара, проверю.

[GeeZeR]

в общем ошибка в команде ClientTargetResponse

Code: Select all

program test;
var
cordX, cordY, cordZ, cordTile : word;
Begin
	ClientRequestTileTarget;

	repeat
        if ClientTargetResponsePresent then begin
			cordX :=ClientTargetResponse.X;
			cordY :=ClientTargetResponse.Y;
			cordZ :=ClientTargetResponse.Z;
			cordTile :=ClientTargetResponse.Tile;
        end;
		wait(500);
	until cordTile > 0;

	AddToSystemJournal(IntToStr(cordX));
	AddToSystemJournal(IntToStr(cordY));
	AddToSystemJournal(IntToStr(cordZ));
	AddToSystemJournal(IntToStr(cordTile));
End.

в версиях 7.11, 8.2 результат:
1888
1457
65535
64279

в 6.7 тайл определяется нормально:
1888
1457
65531
6059

lemonter, юзай пока ReadStaticsXY для определения типа тайла (http://stealth.od.ua/forum/viewtopic.ph ... 725#p23725)

[lemonter]

То то я думаю, работало же))
Спасибо большое.

[Vizit0r]

исправлено, в следующем апдейте через дней несколько будет.
Если срочно надо - стучи в скайп, скину.