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

[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]

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

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


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

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

[warlock90000]

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

[mur17101989]

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

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

[talala]

vlYdqA26ldM

[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 непалит мот я что не так делаю((

[mur17101989]

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

Скинь пакеты

[decesus]

я бы тоже не отказался от пакетов на 2.7