var
i,Amount,ListID,ItemID:integer;

procedure msg(msg:string);
begin
buf:=#$4A;
WriteD(0);
WriteD(5);
WriteS('hLaPEx');
WriteS(msg);
SendToClient;
end;

begin
if FromServer then exit;
if pck[1]=#$1F then
begin
i:=2;
ListID:=ReadD(i);
if ReadD(i)<>1 then
begin
msg('Используйте только один слот');
pck:='';
exit;
end;
ItemID:=ReadD(i);
Amount:=ReadD(i);
if Amount<=1 then
begin
msg('Пакет отправлен без изменений');
exit;
end;
buf:=#$1F;
WriteD(ListID);
WriteD(3);
WriteD(ItemID);
WriteD(Amount-1);
WriteD(ItemID);
WriteD(1);
pck:=buf+#$54#$08#$00#$F0#$01#$00#$00#$00;
msg('Пакет модифицирован');
end;
end.

Запустите L2phx
Загрузите adena.txt script.
Идите к продавцу красок и купите 1 краску.
Потом купите столько красок сколько вы сможете (в зависимости от кол-ва вашей адены). К примеру у вас есть 2кк
адены, вы покупаете на 1,9кк адены. У вас появляется сообщение NO HTML.
Повторите шаг номер 3 снова. Вы увидите только 1 краску в инвентаре.
Удалите краску, которая у вас в инвентаре.
Теперь у вас много красок.
Выкиньте несколько на землю, удалите оставшиеся.
Поднимите их и продайте!!!