Тема: SKYbot-dll бот
Показать сообщение отдельно
Старый 19.03.2008, 20:42   #22
Пользователь
 
Аватар для skymanrus
 
Регистрация: 28.12.2007
Сообщений: 54
Сказал Спасибо: 0
Имеет 40 спасибок в 10 сообщенях
skymanrus пока неопределено
По умолчанию

Цитата:
хмм, привязать его к 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
это недоработки в программе в новой версии я всё это исправлю
есть ещё вариант что это исправит кто то другой исходники то есть
щас я как раз составляю примерный список того тчо надо изменить и что надо добавить
__________________
На людей сердишся, когда чувсивуешь, что их поступки важны. Ничего подобного я больше не чувствую...
skymanrus вне форума   Ответить с цитированием
За это сообщение skymanrus нажился спасибкой от: