SKYbot-dll бот

[DashKAaa]

Сообщение от skymanrus

конечно!
на самом деле эта длл тока вычисляет пакеты и передаёт все свои вычисления в пакет хак а вычисления строит на основе поступившей инфы которую шлёт тот же пакет хак тоесть можно написать такой загрузочный скрипт

program SKYbot;
var lib:Integer;name:string;t:TTimer;function p(n:integer;):string;var a:array[1..18]of char;i,r:Integer;begin a[1]:='1';a[2]:='2';a[3]:='3';a[4]:='4';a[5]:='5';a[6]:='6';a[7]:='7';a[8]:='8';a[9]:='9';a[10]:='0';a[11]:='A';a[12]:='B';a[13]:='C';a[14]:='D';a[15]:='E';a[16]:='F';a[17]:=' ';Result:='';for i:=1 to 500 do begin r:=CallFunction(lib,'getr',2,[n,i]);if(r=-1)then break;Result:=Result+a[r];end;end;
procedure Init;begin
t:=TTimer.Create(nil);t.OnTimer:=@OnT;t.enabled:=true;t.interval:=1000;
    //укажите точный путь к файлу SKYbot.dll
lib:=loadLibrary('C:\l2phx320\1\SKYbot_Source\1\main.dll');
name:='НИК ЧАРА!';
end;procedure OnT;var t:string;begin
    //вызов функции из SKYbot.dll
t:=p(1);if(t<>'')then begin buf:=Hstr(t);SendToServerEx(name);end;
end;procedure Free;begin t.Free;FreeLibrary(lib);end;
//-----------MAIN------------
begin if FromServer and  (ConnectName=name) then case pck[1]of
#$03:CallFunction(lib,'CharInfo',4,[ReadD(18),ReadD(2),ReadD(6),ReadD(10)]);
#$04:CallFunction(lib,'UserInfo',6,[ReadD(18),ReadD(2),ReadD(6),ReadD(10),126,ReadS(22)]);
#$01:CallFunction(lib,'MoveToLocation',4,[ReadD(2),ReadD(6),ReadD(10),ReadD(14)]);
#$16:CallFunction(lib,'NpcInfo',6,[ReadD(2),ReadD(10),ReadC(121),ReadD(14),ReadD(18),ReadD(22)]);
#$12:CallFunction(lib,'killmob',1,[ReadD(2)]);
#$06:CallFunction(lib,'killmob',1,[ReadD(2)]);
#$05:CallFunction(lib,'Attack',5,[ReadD(2),ReadD(6),ReadD(15),ReadD(19),ReadD(23)]);
#$0D:CallFunction(lib,'GetItem',1,[ReadD(6)]);
#$0C:CallFunction(lib,'DropItem',5,[ReadD(10),ReadD(6),ReadD(14),ReadD(18),ReadD(22)]);
#$0E:if(pck[10]=#$09)then CallFunction(lib,'StatusUpdate',3,[ReadD(2),ReadD(14),ReadD(22)]);
#$27:CallFunction(lib,'InventoryUpdate',2,[ReadD(12),ReadD(8)]);
end;end.

Добавлено спустя 2 минуты 25 секунд:
Re:

это недоработки в программе в новой версии я всё это исправлю
есть ещё вариант что это исправит кто то другой :) исходники то есть :D
щас я как раз составляю примерный список того тчо надо изменить и что надо добавить

Будем ждать новую версию с удовольствием затестю ее в деле)
ну а косяки я отписывал какие встречал за 48 часов нон стоп кача в теме да будет БОТ на 19 страничке

Добавлено спустя 38 минут 44 секунды:
прописав ник вссе равно вторые окна долбят тоже мобов....