Forum in READ ONLY mode! All questions and discussions on Discord official server, invite link: https://discord.gg/VxsGzJ7

Фишинг

тут можно задать вопрос по скриптингу
Post Reply
lemonter
Neophyte
Neophyte
Posts: 37
Joined: 14.05.2011 7:59

Фишинг

Post by 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.
User avatar
Vizit0r
Developer
Developer
Posts: 3958
Joined: 24.03.2005 17:05
Contact:

Re: Фишинг

Post by Vizit0r »

по скрипту ничего такого не вижу. Может таргет прийти позже, и будет висеть - но на себя не кинется, ибо нигде нет кидания таргета на себя.
Можешь в скайп написать и дать чара, проверю.
"Пишите код так, как будто сопровождать его будет склонный к насилию психопат, который знает, где вы живете". (с) Макконнелл, "Совершенный код".
GeeZeR
Apprentice
Apprentice
Posts: 226
Joined: 28.01.2012 19:48

Re: Фишинг

Post by 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)
Last edited by GeeZeR on 06.09.2017 9:10, edited 1 time in total.
Stealth 8.10.2 | Клиент: 7.0.13.4
lemonter
Neophyte
Neophyte
Posts: 37
Joined: 14.05.2011 7:59

Re: Фишинг

Post by lemonter »

То то я думаю, работало же))
Спасибо большое.
User avatar
Vizit0r
Developer
Developer
Posts: 3958
Joined: 24.03.2005 17:05
Contact:

Re: Фишинг

Post by Vizit0r »

исправлено, в следующем апдейте через дней несколько будет.
Если срочно надо - стучи в скайп, скину.
"Пишите код так, как будто сопровождать его будет склонный к насилию психопат, который знает, где вы живете". (с) Макконнелл, "Совершенный код".
Post Reply