Cкрипт

[anton1233]

Как сделать что бы после какого нибудь действия(эмоции, скила)шли пакеты например скилов?

[Phantоm]

PHP код:

procedure Init;
begin

end;

procedure Free;
begin

end;

begin
if FromClient and (pck=HStr('F9 00 6D 06 FF 15 20 00 00 00 00 00'))//пакет любой эмоции 
then

end;

begin
buf:=HStr('F4 00 6D 0B FF 00 01 00 00 00 99 EB 2F 00');//Пакет, например, вещи которую хотим одеть или же скилла.
SendToServer;
pck:='';

end. 


В данном скрипте можно вставить одну шмотку (или скилл).
Чтоб вставить больше пакетов увеличиваем кол-во этих строчек:

PHP код:

buf:=HStr('F4 00 6D 0B FF 00 01 00 00 00 99 EB 2F 00');//Пакет, например, вещи которую хотим одеть или же скилла.
SendToServer;
pck:=''; 


И вставляем туда нужные вам пакеты.
P.S. В скриптах плохо разбираюсь. Если не понравится то лучше подожди более опытного ответа.

[anton1233]

Ошибка
[Ссылки могут видеть только зарегистрированные пользователи. ]

[zombiee]

Цитата: Сообщение от anton1233 Ошибка

begin
if ( (FromClient) and (pck = HStr('F9 00 6D 06 FF 15 20 00 00 00 00 00') ) then begin //пакет любой эмоции
  buf:=HStr('F4 00 6D 0B FF 00 01 00 00 00 99 EB 2F 00'); // Пакет, например, вещи, которую хотим одеть или же скилла
  SendToServer; // Отправялем свой пакет на сервер
  pck:=''; // Очищаем пакет с эмоцией, что бы на сервер не ушло
end;

[anton1233]

Теперь вот
[Ссылки могут видеть только зарегистрированные пользователи. ]

[zombiee]

Цитата: Сообщение от anton1233 Теперь вот [Ссылки могут видеть только зарегистрированные пользователи. ]

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

[hardy11]

ребят где юзаете пакетник? и какую версию?

[anton1233]

Всё нормально работает на кикает вот сто получилось:
procedure Init;
begin

end;

procedure Free;
begin

end;

begin
if FromClient and (pck=HStr('F1 00 6D 0E FF 15 08 00 00 00 00 00'))//пакет любой эмоции
then
begin
buf:=HStr('EB 00 6D 14 FF FD 07 09 00 8B 33 01 00 DC 00 F9 BB 00 00');//Пакет, например, вещи которую хотим одеть или же скилла.
SendToServer;
pck:='F1 00 6D 0E FF 15 08 00 00 00 00 00';

end;
end.