Пользователь
Регистрация: 28.12.2007
Сообщений: 54
Сказал Спасибо: 0
Имеет 40 спасибок в 10 сообщенях
|
Цитата:
хмм, привязать его к 1 персонажу возможно?
|
конечно!
на самом деле эта длл тока вычисляет пакеты и передаёт все свои вычисления в пакет хак а вычисления строит на основе поступившей инфы которую шлёт тот же пакет хак тоесть можно написать такой загрузочный скрипт
delphi Код:
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:
Цитата:
Сообщение от DashKAaa
ну и что бы получше крошил всех мобов в радиусе своем, а то залетных не убивает, а стоит терпит как терминатор удары от них :x
|
это недоработки в программе в новой версии я всё это исправлю
есть ещё вариант что это исправит кто то другой исходники то есть
щас я как раз составляю примерный список того тчо надо изменить и что надо добавить
__________________
На людей сердишся, когда чувсивуешь, что их поступки важны. Ничего подобного я больше не чувствую...
|