Помогите, нуждаюсь))))

		CoderX :: Forums > Lineage II > L2PacketHack > Скриптинг
Помогите, нуждаюсь))))

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

Чат (Новых сообщений с момента вашего последнего визита нет)
Сообщение...	Загрузка...
Задавайте ваши вопросы на форуме. Чат предназначен для небольших разговоров.

Опции темы

Опции просмотра

Предыдущее

Следующее

16.02.2009, 06:11

AD!

Новичок

Регистрация: 06.02.2009

Сообщений: 13

Сказал Спасибо: 3

Имеет 15 спасибок в 6 сообщенях

delphi Код:

var levels:integer;
....
levels:=0;

.....
if (ConnectName=name) and (FromClient) then
begin

if (pck[1]='#$1B') and (pck[2]='#$06') then  //социальное действие Yes
    begin
    levels:=levels+1;
    buf:=#$6C;   //6C 
    WriteD(258);  //02 01 00 00 
    WriteD(levels);   //
    WriteD(0);     //00 00 00 00
    SendToServerEx(Name);
    end;
end;

как-то так, не проверял на работоспособность)

За это сообщение AD! нажился спасибкой от:

8tomat8

« Предыдущая тема | Следующая тема »

Ваши права в разделе
Вы не можете создавать темы Вы не можете отвечать на сообщения Вы не можете прикреплять файлы Вы не можете редактировать сообщения BB коды Вкл. Смайлы Вкл. [IMG] код Вкл. HTML код Выкл.

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