Crystallizing L2Phx script

[HUNpusi2]

Hi!

 

I am looking for a srcipt, what is crystallize thos items what i buy from npc.

 

I tried to make one:

 

var

ObjectID:integer;

 

 

begin

     

if (pck[1]=#$1B) and FromServer then

  begin

    ObjectID:=ReadD(44);

    buf:=#$72;

    WriteD(ObjectID);

    WriteD(1); 

    SendToServer;

    Exit;

  end; 

 

end.

 

But phx always die with error :S

 

I hope anyone can help me. :)