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

Скриптинг Форум посвещенный созданию скриптов для L2PacketHack

Чат (Новых сообщений с момента вашего последнего визита нет)
Загрузка...
Задавайте ваши вопросы на форуме. Чат предназначен для небольших разговоров.
 
Ответ
 
Опции темы Опции просмотра
Старый 29.07.2008, 16:52   #11
Рыцарь
 
Аватар для QaK
 
Регистрация: 28.09.2007
Сообщений: 1,558
Сказал Спасибо: 71
Имеет 351 спасибок в 244 сообщенях
QaK пока неопределено
По умолчанию

я не говорил, что можно без клиента, я сказал
Цитата:
Сообщение от QaK Посмотреть сообщение
есть процедурка отцепления от клиента.
Добавлено через 38 секунд
Цитата:
Сообщение от Amorality Посмотреть сообщение
Ты сам то посмотри куда ссылка даешь?!
у меня все норм открывается, гайд.
З.Ы. Я всегда смотрю, куда ведуд ссылки, так что ненадо ляля - биби задавит

Последний раз редактировалось QaK, 29.07.2008 в 16:54. Причина: Добавлено сообщение
QaK вне форума   Ответить с цитированием
Старый 29.07.2008, 16:55   #12
Местный
 
Регистрация: 11.10.2007
Сообщений: 144
Сказал Спасибо: 44
Имеет 7 спасибок в 7 сообщенях
Amorality
По умолчанию

Цитата:
Сообщение от QaK Посмотреть сообщение
я не говорил, что можно без клиента, я сказал

Добавлено через 38 секунд
у меня все норм открывается, гайд.
З.Ы. Я всегда смотрю, куда ведуд ссылки, так что ненадо ляля - биби задавит
Информация

Форум переехал на http://coderx.ru
---
У меня такое по ссылке выдает , нет там никакого гайда (ФФ3)

А чем отличается тобой от моего сказанного ? Объясни , я что-то запуталась
Amorality вне форума   Ответить с цитированием
Старый 29.07.2008, 16:56   #13
Рыцарь
 
Аватар для QaK
 
Регистрация: 28.09.2007
Сообщений: 1,558
Сказал Спасибо: 71
Имеет 351 спасибок в 244 сообщенях
QaK пока неопределено
По умолчанию

Что нужно знать для написания скриптов

xkor 14 авг 2007, 11:18
Прежде всего вам понадобится умение программирования на Object Pascal (или Delphi, что примерно тоже самое) и для манипуляций с пакетами естественно понадобится знать что они из себя представляют, о пакетах подробнее можно почитать в соответствующем разделе.

В этой теме я лиш приведу описания внутренних функций и переменных программы.

Описание FastScript: (это скриптовой движек использованный в программе)
http://forum.coderx.ru/uploads/fs.rtf

Доступные переменные:
pck (string) - текущий обрабатываемый пакет (без первых двух байт с размером)
FromClient (boolean) - пакет (pck) пришел от клиента (всёравно что not FromServer)
FromServer (boolean) - пакет (pck) пришел от сервера (всёравно что not FromClient)
buf (string) - буфер, используемый некоторыми функциями
ConnectName (string) - имя чара от или к которому идёт пакет (v. 3.1.3+)
ConnectID (integer) - номер соединения для которого выполняется скрипт

Доступные функции:
ShowTab и HideTab - для отображения/скрытия панели (UserTab), управлять которой можно из скрипта
Для рисования на ней контролов надо указывать UserTab в качестве родителя
SendToClient - отправляет клиенту содержимое переменной buf
SendToServer - отправляет серверу содержимое переменной buf
SendToClientEx(CharName: string) - отправляет клиенту с именем CharName содержимое переменной buf (v. 3.1.3+)
SendToServerEx(CharName: string) - отправляет серверу с именем CharName содержимое переменной buf (v. 3.1.3+)
(к пакету buf автоматически добавляются 2 байта длины)

NoFreeOnClientDisconnect - запрещает закрытие соединения при дисконекте клиента (v. 3.1.9+)
NoFreeOnServerDisconnect - запрещает закрытие соединения при дисконекте сервера (v. 3.1.9+)
YesFreeOnClientDisconnect - разрешает закрытие соединения при дисконекте клиента (v. 3.1.9+)
YesFreeOnServerDisconnect - разрешает закрытие соединения при дисконекте сервера (v. 3.1.9+)
(по умолчанию закрытия разрешены)
DisconnectServer - закрывает соединение с сервером (v. 3.2.0+)
DisconnectClient - закрывает соединение с клиентом (v. 3.2.0+)

ConnectNameByID(id:integer):string - возвращает имя соединения по его ID (v. 3.2.0+)
ConnectIDByName(name:string):integer - возвращает ID соединения по его имени (v. 3.2.0+)
SetName(Name:string) - устанавливает имя соединения (v. 3.2.0+)

ReadC(var index:integer):byte - читает из переменной pck байт
ReadH(var index:integer):word - читает из переменной pck число (2 байта) (v. 3.1.8+)
ReadD(var index:integer):integer - читает из переменной pck число (4 байта)
ReadF(var index:integer):double - читает из переменной pck число c плавающей запятой(8 байт) (v. 3.1.8+)
ReadS(var index:integer):string - читает из переменной pck строку (в пакете строка unicode нультерминированная, а результирующая строка обычная паскалевская)
Index - начальная позиция чтения, которая модифицируется функцией (сдвигается на число считанных байт)

HStr(h:string):string - преобразует строку в HEX-последовательность
К примеру, HStr('AA 00 BB 00 CC 00') вернёт цепочку байт #$AA#$00#$BB#$00#$CC#$00. Можно передавать строку как с пробелами, так и без них; регистр символов не имеет значения.

WriteC(v:byte; ind:integer=0) - пишет в переменную buf один байт
WriteH(v:word; ind:integer=0) - пишет в переменную buf число (2 байта) (v. 3.1.8+)
WriteD(v:integer; ind:integer=0) - пишет в переменную buf число (4 байта)
WriteF(v:double; ind:integer=0) - пишет в переменную buf число c плавающей запятой(8 байт) (v. 3.1.8+)
WriteS(v:string) - пишет в переменную buf строку (автоматический перевод в unicode)
В первых четырёх процедурах присутствует необязательный параметр ind. Если параметр не указан, то переменная buf дополняется байтом/числом, иначе модифицируется часть буфера.

LoadLibrary(LibName:String):Integer - подгружает к программе библиотеку LibName и возвращает указатель на неё (v. 3.1.8+)
FreeLibrary(LibHandle:Integer):Boolean - выгружает из памяти программы библиотеку (v. 3.1.8+)
CallFunction(LibHandle:integer;FunctionName:String ;Count:Integer;Params:array of variant):variant - вызывает функцию FunctionName из зарание подгруженной библиотеки с указателем LibHandle и параметрами перечисленными в Params (v. 3.1.8+)

Пример:
buf=HStr('AA BB CC DD EE');
Если вызвать функцию WriteD(10,1), то получим buf=[0A 00 00 00 EE].
А если просто WriteD(10), то [AA BB CC DD EE 0A 00 00 00].

Например скрипт:
Код: Выделить всё
begin
if FromClient and (ConnectName='SokolA')
and (pck=HStr('1b 04 00 00 00')) then begin
buf:=HStr('45 00 00 00 00 00 00 00 00 00');
SendToServerEx('SokolB');
pck:='';
end;
end.
При получении от клиента играющего за чара с ником SokolA пакета 1b 04 00 00 00 (социальное действие "Victory") непропустит этот пакет и отправит пакет 45 00 00 00 00 00 00 00 00 00 (команда сесть) от имени клиента играющего за чара с ником SokolB, тоесть играете вы в два окна, в одном SokolA, в другом SokolB, нажимаете в первом Victory, и SokolB садится.

Пример вызова функций из системных библиотек:
Код: Выделить всё
var
lib,Lib1:Integer;
Res:variant;
ar:array of variant;
begin
lib := loadLibrary('User32.dll');
lib1 := loadLibrary('GDI32.dll');
Res := CallFunction(lib,'MessageBoxW',4,[nil,'Text1','text2',0]);
Res := CallFunction(lib,'GetDC',1,[0]);
CallFunction(lib1,'LineTo',3,[Res,100,100]);
CallFunction(lib,'ReleaseDC',2,[0,Res]);
FreeLibrary(lib);
FreeLibrary(lib1);
end.


На вкладке Скрипты:
Процедура OnConnect(WithClient: Boolean) вызывается при установке соединения, флаг WithClient указывает с клиентом ли произошло соединение (v. 3.1.9+)
Процедура OnDisconnect(WithClient: Boolean) вызывается при потере соединения (v. 3.1.9+)
Процедура Init вызывается когда вы устанавливаете рядом со скриптом галочку.
Процедура Free вызывается когда вы убираете рядом со скриптом галочку.
Основное тело скрипта (между begin и end) вызывается каждый раз при получении пакета от сервера или клиента если скрипт отмечен галочкой.

На вкладке Дополнительно:
Основное тело скрипта (между begin и end) вызывается по нажатию кнопки Выполнить, и прекращается либо по нажатию Стоп, либо по окончанию работы скрипта.

Добавлено через 17 секунд
тогда давай так.

Последний раз редактировалось QaK, 29.07.2008 в 16:56. Причина: Добавлено сообщение
QaK вне форума   Ответить с цитированием
За это сообщение QaK нажился спасибкой от:
Старый 29.07.2008, 16:58   #14
Местный
 
Регистрация: 11.10.2007
Сообщений: 144
Сказал Спасибо: 44
Имеет 7 спасибок в 7 сообщенях
Amorality
По умолчанию

Цитата:
Сообщение от QaK Посмотреть сообщение
DisconnectServer - закрывает соединение с сервером (v. 3.2.0+)
DisconnectClient - закрывает соединение с клиентом (v. 3.2.0+)
Все равно не понимаю как эти 2 вещи работают?

Добавлено через 34 секунды
Точнее чем они мне могут помочь ?

Последний раз редактировалось Amorality, 29.07.2008 в 16:58. Причина: Добавлено сообщение
Amorality вне форума   Ответить с цитированием
Старый 29.07.2008, 17:07   #15
Admin!
 
Аватар для xkor
 
Регистрация: 04.08.2007
Сообщений: 2,360
Сказал Спасибо: 113
Имеет 1,566 спасибок в 651 сообщенях
xkor на пути к лучшему
По умолчанию

Amorality, ничем, ибо чтоб их заюзать надо сначало чтобы клиент создал соединение...
короче чтоб самому таку прогу сделать тебе придётся изрядно попотеть и поучиться), хотя в гугле впринципе найдёш всё для этого нужное)
__________________
Я здесь практически не появляюсь!, Skype - ikskor
xkor вне форума   Ответить с цитированием
Старый 29.07.2008, 17:13   #16
Местный
 
Регистрация: 11.10.2007
Сообщений: 144
Сказал Спасибо: 44
Имеет 7 спасибок в 7 сообщенях
Amorality
По умолчанию

Цитата:
Сообщение от xkor Посмотреть сообщение
Amorality, ничем, ибо чтоб их заюзать надо сначало чтобы клиент создал соединение...
короче чтоб самому таку прогу сделать тебе придётся изрядно попотеть и поучиться), хотя в гугле впринципе найдёш всё для этого нужное)
Ну а когда он создаст соединение , я войду в игру , то можно будет уже работать без клиента? Если так , то нафиг мне своя прога , вполне устроит и это Еще же можно будет скрипты юзать
Amorality вне форума   Ответить с цитированием
Старый 29.07.2008, 17:13   #17
Рыцарь
 
Аватар для QaK
 
Регистрация: 28.09.2007
Сообщений: 1,558
Сказал Спасибо: 71
Имеет 351 спасибок в 244 сообщенях
QaK пока неопределено
По умолчанию

Цитата:
Сообщение от Amorality Посмотреть сообщение
Все равно не понимаю как эти 2 вещи работают?
Ну смотри:
в процедуре Инит пишешь:
delphi Код:
procedure init; begin NoFreeOnClientDisconnect:=true; end;
воть, это мы сказали ПНХ , чтоб он при отключении клиента не разрывал соединение;
А теперь, по какому-нить событию отрубаем клиент, например там пришел пакет на выбор чара, например, и вызываем DisconnectClient;
ну или просто срубить клиент, воть, пнх продолжит принимать пакеты от сервака, и , если написан скрипт - то обрабатывать некоторые пакеты.Воть.
QaK вне форума   Ответить с цитированием
За это сообщение QaK нажился спасибкой от:
Старый 29.07.2008, 17:27   #18
Местный
 
Регистрация: 11.10.2007
Сообщений: 144
Сказал Спасибо: 44
Имеет 7 спасибок в 7 сообщенях
Amorality
По умолчанию

QaK,
Более менее понятно , сейчас потестирую

Добавлено через 8 минут
if FromClient and (ConnectName='Amorality')
and (pck=HStr('1b 04 00 00 00')) then begin
DisconnectClient:=true;
end;

-----
Так чтоли условие делать? Мне нужно , чтобы когда мой чар сделал соц действие Victory клиент разорвал соединение.. Но я почти уверена , что у меня тут не правильно..

А на счет твоего скрипта разве после begin - end закрывается не точкой? Просто у тебя закрыто ";" или не имеет значение?

Последний раз редактировалось Amorality, 29.07.2008 в 17:27. Причина: Добавлено сообщение
Amorality вне форума   Ответить с цитированием
Старый 29.07.2008, 17:46   #19
Admin!
 
Аватар для xkor
 
Регистрация: 04.08.2007
Сообщений: 2,360
Сказал Спасибо: 113
Имеет 1,566 спасибок в 651 сообщенях
xkor на пути к лучшему
По умолчанию

Amorality, неправильно у тя только то что DisconnectClient это процедура, так что ":=true" после неё лишние...

Цитата:
Сообщение от Amorality Посмотреть сообщение
А на счет твоего скрипта разве после begin - end закрывается не точкой? Просто у тебя закрыто ";" или не имеет значение?
точкой заканчивается только основной блок программы а блоки процедур и другие точкой с запятой...
__________________
Я здесь практически не появляюсь!, Skype - ikskor
xkor вне форума   Ответить с цитированием
За это сообщение xkor нажился спасибкой от:
Старый 29.07.2008, 17:52   #20
Местный
 
Аватар для PanAm
 
Регистрация: 18.01.2008
Сообщений: 286
Сказал Спасибо: 24
Имеет 133 спасибок в 80 сообщенях
PanAm
По умолчанию

и не забудте реагировать на NetPing/
PanAm вне форума   Ответить с цитированием
За это сообщение PanAm нажился спасибкой от:
Ответ

  CoderX :: Forums > Lineage II > L2PacketHack > Скриптинг



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

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


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

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

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