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

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

Чат (Новых сообщений с момента вашего последнего визита нет)
Загрузка...
Задавайте ваши вопросы на форуме. Чат предназначен для небольших разговоров.
 
Ответ
 
Опции темы Опции просмотра
Старый 11.10.2010, 01:30   #1
Местный
 
Регистрация: 11.06.2010
Сообщений: 644
Сказал Спасибо: 119
Имеет 85 спасибок в 77 сообщенях
dyh9l пока неопределено
По умолчанию научите работать с чатом

вобщем хочу чтоб тело выполняло команду при появлении в чат нужного слова, но не получается..
отлоыил пакет
PHP код:
4A 49 E7 E0 48 00 00 00 00 54 00 70 00 6F 00 49 00 49 00 75 00 48 00 6B 00 61 00 4B 00 48 00 65 00 36 00 79 00 00 00 73 00 74 00 61 00 72 00 74 00 00 00 
Tип
0x4A (Say2)
Pазмер51+2
Время прихода
00:24:24:859
0002 d ObjectID
1222698825 (0x48E0E749)
0006 d textTypeALL ID:(0x0000)
0010 s charNameTpoIIuHkaKHe6y
0040 s Message
start 
сделал строку
PHP код:
if FromServer and (pck[1] = #$4A) and (ReadS(40)=start) and (ReadS(10)=TpoIIuHkaKHe6y) then 
тока вот синтаксис говорит неправильно, научиииите))
п.с: пока переменных нету, но что-то мне подсказывает что надо добавить что-то в переменные

Последний раз редактировалось dyh9l, 11.10.2010 в 01:36.
dyh9l вне форума   Ответить с цитированием
Старый 11.10.2010, 03:29   #2
Пользователь
 
Аватар для Liiion911
 
Регистрация: 19.05.2009
Сообщений: 56
Сказал Спасибо: 4
Имеет 3 спасибок в 3 сообщенях
Liiion911 пока неопределено
По умолчанию

delphi Код:
begin if FromServer and (ConnectName=Name) and (pck[1]=#$4a) then    begin    i:=10;    Channel:=ReadD(6);    names:=ReadS(i);    mess:=ReadS(i);;           // тут делаем что то с твоими переменными.           // тут канал - куда нам пришла команда           // намес - от каво пришла команда           // месс - текст сообщения        end; end.
читает команды приходящие ото всех игроков.

delphi Код:
begin if FromClient and (ConnectName=Name) and (pck[1]=#$49) then    begin    mess:=ReadS(2);;           // тут делаем что то с твоими переменными.           // месс - текст сообщения или команды        end; end.
читает только те команды, которые мы сами же отправляем.



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

ИМХО, лудшее управление не на чат командах а на HTML окнах )
ЗЫ. не зжабуть в константах указать Name
Liiion911 вне форума   Ответить с цитированием
Старый 11.10.2010, 10:02   #3
Местный
 
Регистрация: 11.06.2010
Сообщений: 644
Сказал Спасибо: 119
Имеет 85 спасибок в 77 сообщенях
dyh9l пока неопределено
По умолчанию

как я понимаю I: integer но не понятен тот момент если I=10 И это ник то почему сообщение тоже присваивается 10 веть сообщение это40 Или я чего то не понимаю
dyh9l вне форума   Ответить с цитированием
Старый 11.10.2010, 12:01   #4
Рыцарь
 
Аватар для NLObP
 
Регистрация: 25.02.2008
Адрес: г.Волгоград
Сообщений: 2,009
Сказал Спасибо: 1,285
Имеет 1,458 спасибок в 793 сообщенях
NLObP пока неопределено
По умолчанию

Цитата:
Сообщение от dyh9l Посмотреть сообщение
как я понимаю I: integer но не понятен тот момент если I=10 И это ник то почему сообщение тоже присваивается 10 веть сообщение это40 Или я чего то не понимаю
Глянь тему "что нужно знать для написания скриптов"

в частности там
Цитата:
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 - начальная позиция чтения, которая модифицируется функцией (сдвигается на число считанных байт)
__________________
| Для самых ленивый | Телепаты в отпуске |Мы работаем над этим |
Не умеешь - учись, не хочешь учиться - плати © Суровый Закон Жизни


NLObP вне форума   Ответить с цитированием
Старый 11.10.2010, 12:52   #5
Местный
 
Аватар для supernewbie
 
Регистрация: 23.09.2009
Сообщений: 1,232
Сказал Спасибо: 119
Имеет 172 спасибок в 134 сообщенях
supernewbie пока неопределено
По умолчанию

Цитата:
Сообщение от dyh9l Посмотреть сообщение
PHP код:
if FromServer and (pck[1] = #$4A) and (ReadS(40)=start) and (ReadS(10)=TpoIIuHkaKHe6y) then 
мб
delphi Код:
if FromServer and (pck[1] = #$4A) and (ReadS(10+(length(ReadS(10))*2+2))='start') and (ReadS(10)='TpoIIuHkaKHe6y') then
__________________
Начало.
supernewbie вне форума   Ответить с цитированием
Старый 11.10.2010, 14:51   #6
Местный
 
Регистрация: 11.06.2010
Сообщений: 644
Сказал Спасибо: 119
Имеет 85 спасибок в 77 сообщенях
dyh9l пока неопределено
По умолчанию

Цитата:
Сообщение от supernewbie Посмотреть сообщение
мб
delphi Код:
if FromServer and (pck[1] = #$4A) and (ReadS(10+(length(ReadS(10))*2+2))='start') and (ReadS(10)='TpoIIuHkaKHe6y') then
if FromServer and (pck[1] = #$4A) and (ReadS(10+(length(ReadS(10))*2+2))='start') and (ReadS(10)='TpoIIuHkaKHe6y') then
begin
buf:=Hstr('1B 0C 00 00 00') ;
SendToServerEx('name2') ;
end;

все ровно падла не танцует)
dyh9l вне форума   Ответить с цитированием
Старый 11.10.2010, 15:26   #7
Местный
 
Аватар для J-Fobos
 
Регистрация: 09.06.2008
Сообщений: 867
Сказал Спасибо: 175
Имеет 468 спасибок в 259 сообщенях
J-Fobos пока неопределено
По умолчанию

(ReadS(10+(length(ReadS(10))*2+2))='start')

Код:
var
s1,s2:string;

//--------
s1:=ReadS(2)='start';
s2:=ReadS(length(s1)*2+2);
//--------
__________________

В любом из нас спит гений. И с каждым днем все крепче.

Переходим на протокол нового поколения jabber

Последний раз редактировалось J-Fobos, 12.10.2010 в 01:10.
J-Fobos вне форума   Ответить с цитированием
Старый 11.10.2010, 21:54   #8
Местный
 
Аватар для supernewbie
 
Регистрация: 23.09.2009
Сообщений: 1,232
Сказал Спасибо: 119
Имеет 172 спасибок в 134 сообщенях
supernewbie пока неопределено
По умолчанию

но разве это не длинна строки по символам? для того чтобы узнать сколько пропускать байт надо *2 и +2 из-за окончания строки, и потом читать.
__________________
Начало.
supernewbie вне форума   Ответить с цитированием
За это сообщение supernewbie нажился спасибкой от:
Старый 11.10.2010, 23:10   #9
Местный
 
Регистрация: 11.06.2010
Сообщений: 644
Сказал Спасибо: 119
Имеет 85 спасибок в 77 сообщенях
dyh9l пока неопределено
По умолчанию

моя голова
dyh9l вне форума   Ответить с цитированием
Старый 12.10.2010, 01:15   #10
Местный
 
Аватар для J-Fobos
 
Регистрация: 09.06.2008
Сообщений: 867
Сказал Спасибо: 175
Имеет 468 спасибок в 259 сообщенях
J-Fobos пока неопределено
По умолчанию

supernewbie, да, ты прав, эт я забыл умножить на 2 (с головы вылетело). Поправил пост. Я просто наглядней расписал, чтоб глазу приятней было))
__________________

В любом из нас спит гений. И с каждым днем все крепче.

Переходим на протокол нового поколения jabber
J-Fobos вне форума   Ответить с цитированием
Ответ

  CoderX :: Forums > Lineage II > L2PacketHack



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

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


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

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

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