Forgottenlands AM

[yuras]

dll для обхода АМ на Forgottenlands
как пользоваться
GumpObr(List,'d:\132\');
List- стринглист с гампом, d:\132\ - путь к файлу st.txt
возвращает число с капчи, если не может разобрать что там - 0.

Почему dll, а не скрипт стелса? Стелс распознает капчу за 15 секунд, dll за 1.

тестовые примеры

Code: Select all

Program api;
function GumpObr(LG:TStringList;stpath:string):integer;
external 'GumpObr@D:\132\Gump_dll.dll';
var
List:TStringList;
s:string;
x:integer;
begin
List := TStringList.Create; 
List.LoadFromFile('D:\132\Gump.txt');
x:=GumpObr(List,'d:\132\');
List.Free;
AddToSystemJournal(IntToStr(x));  
end.

Code: Select all

Procedure CheckAM;
VAR
gid,i:integer;
x:integer;
List:TstringList;
begin
repeat
  Gid:=-1;
  For i:=0 to GetGumpsCount-1 do
    If GetGumpID(i)=$FB5C5411 then Gid:=i;
  If Gid<>-1 then
  begin
    List := TStringList.Create; 
    GetGumpFullLines(Gid,List);
    x:=GumpObr(List,'d:\132\');
    List.Free;
    AddToSystemJournal('Результат: '+IntToStr(x));  
    If x<>0 then
    begin
      GumpAutoTextEntry(0,IntToStr(x));
      NumGumpButton(gid,$1);
      wait(1000);
    end;
    exit; 
  end;
  If gid=-1 then exit;
until 1<>1
end;

вызывать из процедуры где идет копка/рубка, примерно так
копка

Code: Select all

If (InJournalBetweenTimes('mine that', ctime, Now)<>-1) then CheckAM;

рубка

Code: Select all

If (InJournalBetweenTimes(' use an axe on that', ctime, Now)<>-1) then CheckAM;