Код:
procedure UseItem(ObjectID: integer);
begin
buf:=#$19;
WriteD(ObjectID);
WriteD(0);
SendToServer
end;
//......................................
procedure RequestPutEnchantItem(ObjectID: integer);
begin
buf:=#$D0;
WriteH(76);
WriteD(ObjectID);
SendToServer;
end;
//......................................
procedure RequestEnchantItem(ObjectID: integer);
begin
buf:=#$5F;
WriteD(ObjectID);
WriteD(0);
SendToServer
end;
от скрипта NLObP замени функции на которые выше
Добавлено через 9 минут
http://coderx.ru/showpost.php?p=22135&postcount=95
а точней вот вроде робочии уже