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

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

Чат (Новых сообщений с момента вашего последнего визита нет)
Загрузка...
Задавайте ваши вопросы на форуме. Чат предназначен для небольших разговоров.
 
Результаты опроса: Нужна ли такая тема форуму?
Да, мне бы была полезна. 34 66.67%
Пускай будет, но мне и так норм. 10 19.61%
Нет, не нужна. 7 13.73%
Голосовавшие: 51. Вы ещё не голосовали в этом опросе

Ответ
 
Опции темы Опции просмотра
Старый 22.04.2011, 21:50   #81
Местный
 
Аватар для L2.exe
 
Регистрация: 09.12.2010
Сообщений: 106
Сказал Спасибо: 18
Имеет 46 спасибок в 45 сообщенях
L2.exe пока неопределено
По умолчанию

Цитата:
Сообщение от wimax Посмотреть сообщение
dyh9l, клиент кританет проста по крайней мере у меня критует =)
У меня всё отлично работает
__________________
Объявление: Искуственный интелект запущен!
Объявление: Идите к девчонкам!;-D

Последний раз редактировалось L2.exe, 22.04.2011 в 21:56. Причина: Золотые слова:D
L2.exe вне форума   Ответить с цитированием
Старый 14.05.2011, 18:14   #82
Новичок
 
Регистрация: 14.05.2011
Сообщений: 1
Сказал Спасибо: 1
Имеет 0 спасибок в 0 сообщенях
OpenA1r пока неопределено
По умолчанию

Cpasibo)
OpenA1r вне форума   Ответить с цитированием
Старый 15.05.2011, 18:41   #83
Новичок
 
Регистрация: 15.05.2011
Сообщений: 16
Сказал Спасибо: 3
Имеет 4 спасибок в 4 сообщенях
Diverclaim пока неопределено
По умолчанию

Пытаюсь сделать управление скриптом из игры (Aion) и делаю это при помощи эмоций. Проверяю на пакет так:
PHP код:
if FromClient and (ReadC(1)=$C9) and (ReadH(4)=$5015then 
И все отлично срабатывает, НО пакет эмоции все таки проходит на сервер, что мне довольно сильно мешает. Есть ли способ блокировать этот самый пакет эмоции? Заранее спасибо.
Diverclaim вне форума   Ответить с цитированием
Старый 15.05.2011, 18:44   #84
Местный
 
Регистрация: 11.06.2010
Сообщений: 644
Сказал Спасибо: 119
Имеет 85 спасибок в 77 сообщенях
dyh9l пока неопределено
По умолчанию

pck:='';
__________________
dyh9l вне форума   Ответить с цитированием
За это сообщение dyh9l нажился спасибкой от:
Старый 15.05.2011, 21:27   #85
Новичок
 
Регистрация: 15.05.2011
Сообщений: 16
Сказал Спасибо: 3
Имеет 4 спасибок в 4 сообщенях
Diverclaim пока неопределено
По умолчанию

dyh9l Большое спасибо)
Еще вопросик:
В Init я задаю переменную PlayerID (string):
PHP код:
PlayerID := '46 21 3B 00'
Мне она нужна далее в скрипте. Потом когда приходит пакет мне надо сравнить этот PlayerID с 4 байтами в пакете. Я знаю только 1 способ как это можно сделать:
PHP код:
if ReadD(4)=$003B2146 then 
Но данный способ не подходит т.к. при другом PlayerID мне надо будет везде менять сравнения. Есть ли другой способ?
Diverclaim вне форума   Ответить с цитированием
Старый 15.05.2011, 21:54   #86
Местный
 
Регистрация: 11.06.2010
Сообщений: 644
Сказал Спасибо: 119
Имеет 85 спасибок в 77 сообщенях
dyh9l пока неопределено
По умолчанию

а нахера ИД стринговое?)
P.s: очень трудно понять что нужно тебе
__________________
dyh9l вне форума   Ответить с цитированием
Старый 15.05.2011, 23:55   #87
Рыцарь
 
Аватар для NLObP
 
Регистрация: 25.02.2008
Адрес: г.Волгоград
Сообщений: 2,009
Сказал Спасибо: 1,285
Имеет 1,458 спасибок в 793 сообщенях
NLObP пока неопределено
По умолчанию

Diverclaim, сделай примерно так

delphi Код:
var     PlayerId : integer; ... procedure Init Begin     PlayerId:=$003B2146; end; ... if PlayerId=ReadD(4) then ...
__________________
| Для самых ленивый | Телепаты в отпуске |Мы работаем над этим |
Не умеешь - учись, не хочешь учиться - плати © Суровый Закон Жизни


NLObP вне форума   Ответить с цитированием
Старый 16.05.2011, 13:11   #88
Новичок
 
Регистрация: 15.05.2011
Сообщений: 16
Сказал Спасибо: 3
Имеет 4 спасибок в 4 сообщенях
Diverclaim пока неопределено
По умолчанию

Ну id в стринге чтобы удобно было из пакета копировать)
Ладн тогда другой вопрос:
Мне надо задать переменную типа Single (4байта) и записать ее в buf (также как делается в "Преобразованиях"). Нигде не могу найти конвертации single -> string (hex). Подскажите кто знает)
Diverclaim вне форума   Ответить с цитированием
Старый 05.12.2011, 18:57   #89
Местный
 
Аватар для L2.exe
 
Регистрация: 09.12.2010
Сообщений: 106
Сказал Спасибо: 18
Имеет 46 спасибок в 45 сообщенях
L2.exe пока неопределено
Лампочка Гений?Тебе сюда!))

Так,вообщем я захотел подогнать под себя Локомотив от Alexus ,а именно нужны таймеры на скиллы и...что бы он говорил по Русски когда его игрок атаковывает,втыкал весь день в монитор,но конструктор мой работать не хочет
В делфи не шарю,так что попрошу вас помочь мне А то скоро мозг лопнет,от переизбытка новой информации


За раннее благодарю



Оффтоп
Вложения
Тип файла: zip lokomotiv (2).zip (14.0 Кб, 10 просмотров)
__________________
Объявление: Искуственный интелект запущен!
Объявление: Идите к девчонкам!;-D
L2.exe вне форума   Ответить с цитированием
Старый 11.12.2011, 23:46   #90
Местный
 
Аватар для L2.exe
 
Регистрация: 09.12.2010
Сообщений: 106
Сказал Спасибо: 18
Имеет 46 спасибок в 45 сообщенях
L2.exe пока неопределено
Лампочка

Цитата:
Сообщение от L2.exe Посмотреть сообщение
Так,вообщем я захотел подогнать под себя Локомотив от Alexus ,а именно нужны таймеры на скиллы и...что бы он говорил по Русски когда его игрок атаковывает,втыкал весь день в монитор,но конструктор мой работать не хочет
В делфи не шарю,так что попрошу вас помочь мне А то скоро мозг лопнет,от переизбытка новой информации


За раннее благодарю



Оффтоп
Оффтоп

Добавлено через 3 часа 35 минут
Прошу прощения за крайне грубое не знание паскаля,но всё равно,помогите,не проходите мимо...
Как я понял,это основная часть скрипта
PHP код:
begin
 
if (pck=hstr('62 ED 02 00 00 01 00 00 00 04 00 00 00 9D 01 00 00 08 00 00 00 ')) then 
    begin
     buf
:=HsTR('39 9D 01 00 00 00 00 00 00 00 ');
     
sendtoserverex(NickName);
    
end;
 if (
pck=hstr('62 5C 00 00 00 01 00 00 00 04 00 00 00 63 00 00 00 02 00 00 00 ')) then 
    begin
     buf
:=HsTR('39 63 00 00 00 00 00 00 00 00 ');
     
sendtoserverex(NickName);
    
end;  
end
Что сюда то писать?!
PHP код:
procedure Init//Вызывается при включении скрипта
begin
???????????
end;

procedure Free//Вызывается при выключении скрипта
begin
????????????
end
Если я не прав,подскажите,что ,куда,зачем... можно в кратце
__________________
Объявление: Искуственный интелект запущен!
Объявление: Идите к девчонкам!;-D

Последний раз редактировалось L2.exe, 11.12.2011 в 23:46. Причина: Добавлено сообщение
L2.exe вне форума   Ответить с цитированием
Ответ

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



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

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


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

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

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