Нужен хел по гампу

[drabadan]

драбадан - неправильно.
надо жать не на верхние кнопки, а на нижние.
Т.е. надо искать в списке кнопок еще одну кнопку, у которой Released_ID будет таким же, как у gi.GumpButtons[0] и жать именно ее, потом то же самое с gi.GumpButtons[1]

Code: Select all

procedure AntimacroGump;
var
   i, k : Integer;
   gi : TGumpInfo;
begin
	if GetGumpsСount > 0 then   
		begin
			GetGumpInfo(GetGumpsCount-1, gi);
			for i := 0 to 1 do
				begin
					for k := 2 to High(gi.GumpButtons) do
						if gi.GumpButtons[i].released_id = gi.GumpButtons[k].released_id then
							NumGumpButton(GetGumpsCount-1, gi.GumpButtons[k].return_value);
                            CheckLag(60000);               
                            Wait(RandomRange(1, 3)*1000);
                end;
        end;      
end;

можно так попробовать.

UPD. Прикрутил между кликами рандомную задержку от 1 до 3 секунду, для уменьшения шанса спалиться на равных промежутках между кликами!

[Sorme.it]

спасибо , утащил на тест

[drabadan]

спасибо , утащил на тест

[Sorme.it]

теперь ругается на

Code: Select all

 if GetGumpsСount > 0 then   

[drabadan]

теперь ругается на

Code: Select all

 if GetGumpsСount > 0 then   

уточни, что пишет.

[nekto]

Опережу самого заказчика
В инже ему решили это проблему (антимакрос систему)
вот так:

Code: Select all

sub main()
   dim button[10]
   button[1] = 10
   button[2] = 3
   button[3] = 4
   button[4] = 9
   button[5] = 7
   button[6] = 5
   button[7] = 8
   button[8] = 6
   
   var b0 = Val(Mid(uo.lastgump("button",0),21,1))
   var b1 = Val(Mid(uo.lastgump("button",1),21,1))
   uo.waitgump(button[b1])
   uo.sendgumpselect(button[b0])
end sub

а как насчет стелса

[Vizit0r]

для меня этот набор букаф выглядит как китайская азбука - абсолютно непонятно.

[drabadan]

для меня этот набор букаф выглядит как китайская азбука - абсолютно непонятно.

поддержу Уважаемого!

Проблема то с антимакросом решена, осталось докомпилить...

[Sorme.it]

Unknown identifier 'GetGumps' - сейчас ругается на это.
может быть из за того что у меня стелс не обновленный ? ( 4.3.5 )

[drabadan]

Unknown identifier 'GetGumps' - сейчас ругается на это.
может быть из за того что у меня стелс не обновленный ? ( 4.3.5 )

копируй сюда полную строку на которую ругается.

[Sorme.it]

Code: Select all

 if GetGumpsСount > 0 then  

[drabadan]

Code: Select all

 if GetGumpsСount > 0 then  

ололо там кириллическая С стояла... =)

код

Code: Select all

procedure AntimacroGump;
var
   i, k : Integer;
   gi : TGumpInfo;
begin
   if GetGumpsCount > 0 then   
      begin
         GetGumpInfo(GetGumpsCount-1, gi);
         for i := 0 to 1 do
            begin
               for k := 2 to High(gi.GumpButtons) do
                  if gi.GumpButtons[i].released_id = gi.GumpButtons[k].released_id then
                     NumGumpButton(GetGumpsCount-1, gi.GumpButtons[k].return_value);
                            CheckLag(60000);               
                            Wait(RandomRange(1, 3)*1000);
                end;
        end;      
end;

[nekto]

Все завелось =) Спасибо

[Sorme.it]

Опередил , чертяка =)