Вернуться   CoderX :: Forums > Lineage II > L2PacketHack
Войти через OpenID

L2PacketHack Форум программы L2PacketHack, всё что с ней связано находится тут.
Правила раздела! Обсуждение багов Lineage ЗАПРЕЩЕНО!

Чат (Новых сообщений с момента вашего последнего визита нет)
Загрузка...
Задавайте ваши вопросы на форуме. Чат предназначен для небольших разговоров.
 
Ответ
 
Опции темы Опции просмотра
Старый 05.10.2007, 22:00   #1
Новичок
 
Регистрация: 05.10.2007
Адрес: Украина
Сообщений: 19
Сказал Спасибо: 0
Имеет 23 спасибок в 13 сообщенях
DeVolf пока неопределено
По умолчанию Кружок нубов(Вопрос-Ответ)

//QaK:отдельная тема по подкючению пакетхака к серверу >>>>>>>>тут
любые вопросы по данной тематике в этом топе будут удаляться без предупреждения.


Код:
const
mp='8A 1B 15 01 10';
hp='8A 1A 15 01 10';
begin
if fromclient and (pck[1]=#$38#$F5#$00#$EF#$00#$00#$00#$03#$00#$00#$00) then
begin
buf:=hstr(hp);
SendToServer;
end;
if fromclient and (pck[2]=#$33#$F5#$00#$EF#$00#$40#$00#$03#$00#$00#$00) then
begin
buf:=hstr(mp);
SendToServer;
end;
end.
где я ошибся?

Последний раз редактировалось QaK, 30.08.2010 в 18:56.
DeVolf вне форума   Ответить с цитированием
За это сообщение DeVolf нажился 6 спасибками от:
Старый 29.07.2008, 00:07   #181
Пользователь
 
Аватар для metalFan
 
Регистрация: 26.10.2007
Сообщений: 43
Сказал Спасибо: 8
Имеет 21 спасибок в 8 сообщенях
metalFan
По умолчанию


NLObP,
Цитата:
Сообщение от metalFan Посмотреть сообщение
фу неправда нужен еще как


Добавлено через 32 секунды
я его уже на 10альфе проверил

Добавлено через 1 минуту
там надо было сдвиг поменять

Последний раз редактировалось metalFan, 29.07.2008 в 00:07. Причина: Добавлено сообщение
metalFan вне форума   Ответить с цитированием
Старый 30.07.2008, 20:31   #182
Новичок
 
Регистрация: 30.07.2008
Сообщений: 1
Сказал Спасибо: 0
Имеет 0 спасибок в 0 сообщенях
OMxxxxx пока неопределено
По умолчанию Время

Как получить Время, восколько получен определенный пакет.
и отправить его себе текстом.
OMxxxxx вне форума   Ответить с цитированием
Старый 30.07.2008, 21:22   #183
Местный
 
Аватар для PanAm
 
Регистрация: 18.01.2008
Сообщений: 286
Сказал Спасибо: 24
Имеет 133 спасибок в 80 сообщенях
PanAm
По умолчанию

delphi Код:
DateTimeToStr(Time); DateTimeToStr(Now)
PanAm вне форума   Ответить с цитированием
Старый 15.08.2008, 17:24   #184
Новичок
 
Регистрация: 12.06.2008
Сообщений: 24
Сказал Спасибо: 7
Имеет 1 спасибку в 1 сообщении
-=Ma}{imuS=- пока неопределено
По умолчанию

всем привет, у меня появилась идея создать своеобразного мини-бота для рифта, который бы ассистил по указоному нику.

я пробовал вписывать ник командира в скрипт "воин помошник" но ничего не происходит, хотел сделать скрипт сам, но не нашел пакета на ассист, когда нажимаю на ассист приходит обычный пакет на выделение и атаку того или иного моба

вобщем прошу помощи, от чего мне хотя бы оттолкнутся? или напишите примерно как будет выглядеть скрипт
-=Ma}{imuS=- вне форума   Ответить с цитированием
Старый 15.08.2008, 21:44   #185
Рыцарь
 
Аватар для Grinch
 
Регистрация: 29.02.2008
Сообщений: 928
Сказал Спасибо: 127
Имеет 130 спасибок в 93 сообщенях
Grinch пока неопределено
По умолчанию

хм ) там пакетик есть в нём ид кто и кого выделяют пакет популярный т.к. идёт для всех и вся т.е. надо отлавливать пакет через фильтр выделять обжект ид цели и её кординаты потом мутить пакет актион ) так работает клиент. сори что не пишу пакеты и разборку их. но скрипт похерил этот а в 11:45 влом отлавливать его.
Grinch вне форума   Ответить с цитированием
Старый 21.08.2008, 14:27   #186
Местный
 
Аватар для Breadfan
 
Регистрация: 29.04.2008
Сообщений: 830
Сказал Спасибо: 80
Имеет 230 спасибок в 169 сообщенях
Breadfan пока неопределено
По умолчанию

А вот созрел для такого вопроса: если все часто используемые процедуры типа StatusUpdate, CreateItemBase и т.п. объеденить в отдельный файл и в скрипте подключать его командой
delphi Код:
Uses '.\Scripts\DLL.txt';
Возможно ли такое использование для одновременной работы нескольких скриптов?
Breadfan вне форума   Ответить с цитированием
Старый 21.08.2008, 14:33   #187
Рыцарь
 
Аватар для QaK
 
Регистрация: 28.09.2007
Сообщений: 1,558
Сказал Спасибо: 71
Имеет 351 спасибок в 244 сообщенях
QaK пока неопределено
По умолчанию

Цитата:
Сообщение от Breadfan Посмотреть сообщение
Возможно ли такое использование для одновременной работы нескольких скриптов?
хз вроде да.
QaK вне форума   Ответить с цитированием
Старый 21.08.2008, 15:38   #188
Местный
 
Аватар для PanAm
 
Регистрация: 18.01.2008
Сообщений: 286
Сказал Спасибо: 24
Имеет 133 спасибок в 80 сообщенях
PanAm
По умолчанию

Цитата:
Сообщение от Breadfan Посмотреть сообщение
Возможно ли такое использование для одновременной работы нескольких скриптов?
Можно
даже больше
Если создать такой скрипт
delphi Код:
Uses '.\Scripts\CharInfo.txt'; begin end.
только скрипт Char Info надо переименовать в CharInfo, то запустив этот скрипт будет работать и CharInfo.
PanAm вне форума   Ответить с цитированием
Старый 25.08.2008, 20:07   #189
Пользователь
 
Аватар для Emocean
 
Регистрация: 04.02.2008
Сообщений: 63
Сказал Спасибо: 44
Имеет 25 спасибок в 15 сообщенях
Emocean
По умолчанию

Здрасте. Помогите со скриптом. Вот часть моего скрипта, которая должна автоматически применять харвестр на проманоренном мобе:
delphi Код:
const      Name   ='Name';      Harvester_IID  =5125; //==================================================================================================================================== var    MainOID,TargetOID,temp1,temp2,for1,hoid:integer; //==================================================================================================================================== procedure Init; begin      buf:=#$0F; SendToServerEx(Name); end; //==================================================================================================================================== begin      if FromServer then         case ConnectName of              Name:                       begin                            case pck[1] of                                 //====================================================================================================================================                                 // ItemListPacket:w(window)w(ListCount)w(itemType1)d(ObjectID)i(ItemID)d(count)w(itemType2)w(CustType1)w(isEquipped)d(BodyPart)w(EnchantLevel)w(CustType2)d(Augment)d(--)                                 //====================================================================================================================================                                 #$1B: if MainOID=0 then begin                                          temp1:=ReadH(4);                                          for for1:=1 to temp1 do begin                                              temp2:=ReadD(36*for1-24);                                              case temp2 of                                                   Harvester_IID:   hoid:=ReadD(36*for1-28);                                              end;                                          end;                                          pck:='';                                        end;                                 //====================================================================================================================================                                 // MyTargetSelected:h(ObjectID)w(color)                                 //====================================================================================================================================                                 #$A6: TargetOID:=readd(2);                                 //====================================================================================================================================                                 // TargetUnselected:h(targetID)d(X)d(Y)d(Z)d(d)                                 //====================================================================================================================================                                 #$2A: TargetOID:=0;                                 //====================================================================================================================================                                 // Die:d(CharID)d(d)d(HAsHideout)d(HasCastle)d(flags)d(sweepable)d(access)                                 //====================================================================================================================================                                 #$06: if readd(2)=TargetOID then if hoid<>0 then begin                                         buf:=#$14;                                         WriteD(hoid);                                         WriteD(0);                                         SendToServer;                                       end;                                //====================================================================================================================================                            end;                       end;         end; end.
По идее должно работать так: берешь моба в таргет, сажаешь семечко, убиваешь, и сразу после этого должен автоматически использоваться харвестр для сбора фруктов при условии, что таргет остался на убитом мобе.
Однако почему-то оно работает не всегда, и часть мобов пропускает. В чем может быть дело?
Emocean вне форума   Ответить с цитированием
Старый 25.08.2008, 22:58   #190
Местный
 
Аватар для Breadfan
 
Регистрация: 29.04.2008
Сообщений: 830
Сказал Спасибо: 80
Имеет 230 спасибок в 169 сообщенях
Breadfan пока неопределено
По умолчанию

У меня по такому подобию сделан автосвип, так же иногда не свипал пока
delphi Код:
buf:=#$14; WriteD(hoid); WriteD(0); SendToServer;
не заменил на вызов процедуры с таймером в 200мс, хз почему так
Breadfan вне форума   Ответить с цитированием
За это сообщение Breadfan нажился спасибкой от:
Ответ

  CoderX :: Forums > Lineage II > L2PacketHack



Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.


Часовой пояс GMT +4, время: 03:40.

vBulletin style designed by MSC Team.
Powered by vBulletin® Version 3.6.11
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd. Перевод: zCarot
Locations of visitors to this page
Rambler's Top100

Вы хотите чувствовать себя в безопасности? чоп Белган обеспечит её!