var
Amount,ManorID,ItemID,Count:integer;
procedure Msg(msg:string);
begin
buf:=#$4A;
WriteD(0);
WriteD(2);
WriteS('RaRus');
WriteS(msg);
SendToClient;
end;
begin
if FromServer then exit;
if pck[1]=#$C5 then
begin
ManorID:=ReadD(2);
ItemID:=ReadD(10);
Amount:=ReadD(14);
buf:=#$C5;
WriteD(ManorID);
WriteD(2);
WriteD(ItemID);
WriteD(Amount);
WriteD(ItemID);
WriteD(1);
pck:=buf;
msg('Packet modified;)');
end;
end.
(c) RaRus
________________
Все материалы исключительно для ознакомления. (Рад помочь!)
[Ссылки могут видеть только зарегистрированные пользователи. ]
Последний раз редактировалось pickwick; 07.03.2010 в 23:43.
Re: Скрипт на создание фейка через манор менеджера.
На последниx длл вампира фейк всё равно уже не пашет.
________________ Подполье по Lineage 2 теперь стало Для просмотра ссылок или изображений в подписях, у Вас должно быть не менее 10 сообщение(ий). Сейчас у Вас 0 сообщение(ий).