[Скрипт] Скрипт на эмоции

[warlock90000]

На некоторых серваках эмоции 2.5 продаются в ГМ шопе, но зачем платить реал? Вот скриптик для Л2ПХ

var
TargetID:integer;

procedure Init; 
begin
end;

procedure Resurect;
begin
   pck:='';
   buf:=HStr('6B 57 08 01');
   SendToServer;
end;

procedure Bezotvet;
begin
   pck:='';
   buf:=HStr('C9 57 66 15 80 00 00 00 00 00 ');
   SendToServer;
end;

procedure Tyk;
begin
   pck:='';
   buf:=HStr('C9 57 66 15 81 00 00 00 00 00 ');
   SendToServer;
end;

procedure Tou;
begin
   pck:='';
   buf:=HStr('C9 57 66 15 7E 00 00 00 00 00 ');
   SendToServer;
end;

procedure Crab;
begin
   pck:='';
   buf:=HStr('C9 57 66 15 7F 00 00 00 00 00 ');
   SendToServer;
end;

procedure Bad;
begin
   pck:='';
   buf:=HStr('C9 57 66 15 7D 00 00 00 00 00 ');
   SendToServer;
end;

procedure Stopdance;
begin
   pck:='';
   buf:=HStr('C9 57 66 15 00 00 00 00 00 00 ');
   SendToServer;
end;

begin

if FromClient and (ReadC(1)=$B5) then TargetID:=ReadD(4);
 if FromClient and (ReadC(1)=$B9) then  
 begin
       if (ReadS(5)='.res') then Resurect;

       if (ReadS(5)='.bezotvet') then Bezotvet; //танец мисс А "безответная любовь"
       if (ReadS(5)='.tyk') then Tyk; //танец мисс А "Тук - тук
       if (ReadS(5)='.2u') then Tou;  //танец мисс А "из - за тебя" 
       if (ReadS(5)='.crab') then Crab; //танец мисс А "крабовые клешни"
       if (ReadS(5)='.bad') then Bad;  //танец мисс А "плохая девочка"
       if (ReadS(5)='.stopdance') then Stopdance; //Остановить танец

 end;
end.

Вот список команд:
.bezotvet - танец мисс А "безответная любовь"
.tyk - танец мисс А "Тук - тук
.2u - танец мисс А "из - за тебя"
.crab - танец мисс А "крабовые клешни"
.bad - танец мисс А "плохая девочка"
.stopdance - Остановить танец
просто набираете их в строке чата. Чтоб прервать танец нужно набрать команду .stopdance

Все эти команды можно оформить внутриигровыми макросами, чтоб не набирать каждый раз

[Mongol]

Если прописывать в чате, я смогу её отключить? Просто раньше было такое, что если отправлять пакет, то ты можешь избавиться от него только релогом

[warlock90000]

.stopdance - Остановить танец , ну и после можно подпрыгнуть

[mur17101989]

Автору бы тыкнула спасибку но не можу еще(((( Давно хотела эти эмоции)) тока плохая девочка не пашет((

[warlock90000]

странно.. проверял на 2х серверах за обе расы

Добавлено через 18 часов 43 минуты

Цитата: Сообщение от mur17101989 Автору бы тыкнула спасибку но не можу еще(((( Давно хотела эти эмоции)) тока плохая девочка не пашет((

поправил скрипт-просто заново скопировать нужно в пшх и все заработает

[mur17101989]

Цитата: Сообщение от warlock90000 странно.. проверял на 2х серверах за обе расы Добавлено через 18 часов 43 минуты поправил скрипт-просто заново скопировать нужно в пшх и все заработает

Спасиб) ток я вот не пойму никак эт такой танец "тут-тук" на самом деле иль он лаганутый?)))

[warlock90000]

яж ненаю как он у тебя выглядит ))

[mur17101989]

Цитата: Сообщение от warlock90000 яж ненаю как он у тебя выглядит ))

просто подрыгаетс как в канвульсиях ножки скрестит и все))

[talala]

Танец Тук Тук

[Destroyer74]

Через что использовать скрипт? например в разделе Darkorbit - пишем скрипты на языке FS для WP

[warlock90000]

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

[Corey1986]

procedure Resurect;
begin
pck:='';
buf:=HStr('6B 57 08 01');
SendToServer;
end;

что это за строчка за что она отвечает

[mur17101989]

А на 2.7 можеш сделать?) а то мне как то без эмоций уже не по себе =)

[Corey1986]

там пакеты немного другие, знать бы что это за строка тогда бы получилось написать скрипт , а пока эмоции работают только при отправке пакета ..сами пакеты я нашел.

[Goldenrog]

У мя на aion-free непалит мот я что не так делаю((