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 в 22:43.