PDA

Просмотр полной версии : [Скрипт] Создайте скрипт пжл.


MET1234
25.05.2011, 14:27
Суть темы в том что бы кто-то из знающих людей мог создать мне два мельньких скрипта,которые привязывались к эмоциям.И что бы эмоции не отобразажась в чате(желательно).А ГЛАВНОЕ что бы пакет отправлялся на клиент ,а не на сервер.Вот собственно пакеты.
Первый скрипт;
1)63 50 00 97 48 AA 02 00 01 00-включение скрипта;
63 50 00 97 48 AA 02 00 00 00-выключение скрипта.
Второй скрипт;
2)63 50 00 97 48 AA 02 01 00 00-включение скрипта;
63 50 00 97 48 AA 02 00 00 00-выключение скрипта.
И хотелось бы что бы в чате писалось что типа-скрипт активирован\отключён.
P.S.Зарание спс)

Drelann
25.05.2011, 16:19
исходя из этой темы ([Ссылки могут видеть только зарегистрированные и активированные пользователи]) берем пример скрипт:
procedure Init; //Вызывается при включении скрипта
begin

end;

procedure Free; //Вызывается при выключении скрипта
begin

end;

begin
if FromClient and (pck=HStr('C9 57 66 15 01 00 00 00 00 00'))//Эмоция Смех
then
begin
buf:=HStr('CF 57 6C 2F 02 01 00 00 00 00 00 00 00 D8 CF 00 00');//Маскировка I

SendToServer;
pck:='';

end;


end.
просто заменяешь местные эмоции/пакеты на свои. надо несколько пакетов в 1 скрипте? просто дублируешь местный блок изменяя значения на свои:
if FromClient and (pck=HStr('C9 57 66 15 01 00 00 00 00 00'))//Эмоция Смех
then
begin
buf:=HStr('CF 57 6C 2F 02 01 00 00 00 00 00 00 00 D8 CF 00 00');//Маскировка I

SendToServer;
pck:='';

end;
сие:
pck:='';
не позволяет паакету улетать в обшагу
а сие:
SendToServer;
посылает на сервер, SendToClient пошлет в клиент
по идее должно так :brberbrb:
procedure Init;
begin
end;
procedure Free;
begin
end;
begin
if FromClient and (pck=HStr('C9 57 66 15 01 00 00 00 00 00'))//Эмоция Смех (поменяй на свою)
then
begin
buf:=HStr('63 50 00 97 48 AA 02 00 01 00');//твой пакет 2
SendToClient;
pck:='';
end;
if FromClient and (pck=HStr('C9 57 66 15 01 00 00 00 00 00'))//Эмоция Смех (поменяй на свою)
then
begin
buf:=HStr('63 50 00 97 48 AA 02 00 00 00');//твой пакет 2
SendToClient;
pck:='';
end;
end.
при создании сего чуда использовалось только чужое :goplol:

MET1234
25.05.2011, 17:00
СПС за написание скрипта теперь буду знать как составлять простые скрипты привязывая эмоцию.

Добавлено через 20 минут
Ответ на тему считаю получиным.Следовательно тему можно закрыть и удалить.

talala
26.05.2011, 00:15
Третья тема создана не в том разделе. Расслабились?