const
name='Never'; ///Ник
level=65000; /// Уровень заточки
var
x,ID:integer;
begin
if (FromClient) and (ConnectName=name) and (pck[1]=#$b0) then /// Ловим покупку
begin
id:=readd(2); /// Считываем ID
x:=readd(6); /// Считываем смещение, положение, хз=)
pck:=''; /// Шмотку на 0 не покупаем, нах она нужна?
buf:=#$b0; /// Составляем пакет
writed(id);
writed(x+level);
WriteD(1);
SendToServer; ///Отсылаем
end;
end.