Forgottenlands AM
Posted: 22.04.2012 15:54
dll для обхода АМ на Forgottenlands
как пользоваться
GumpObr(List,'d:\132\');
List- стринглист с гампом, d:\132\ - путь к файлу st.txt
возвращает число с капчи, если не может разобрать что там - 0.
Почему dll, а не скрипт стелса? Стелс распознает капчу за 15 секунд, dll за 1.
тестовые примеры
вызывать из процедуры где идет копка/рубка, примерно так
копка
рубка
как пользоваться
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;