File ta kanis ola sosta.alla nomizw ftei to script pou exis 8a sou bro ena egw.. var a:array[1..100] of string;
i,n:integer;
id,withdraw,openwh,useitem,wh,enchant :string;
begin
//Item id need to be captured.For example from UseItem packet
id:=hstr('7F 50 02 10');
useitem:=hstr('14')+id+hstr('00 00 00 00');
wh:=hstr('31 01 00 00 00')+id+hstr('01 00 00 00');
enchant:=hstr('58')+id;
//openwh need to be captured:RequestBypassToServer
openwh:=hstr('32 01 00 00 00 7F 50 02 10 01 00 00 00');
withdraw:=hstr('32 01 00 00 00')+id+hstr('01 00 00 00');
if (fromclient) and (pck=hstr('1B 02 00 00 00 ')) then
begin
buf:=withdraw;
sendtoserver;
buf:=openwh;
sendtoserver;
end;
if (fromclient) and (pck=hstr('1B 03 00 00 00 ')) then
begin
buf:=useitem;
sendtoserver;
buf:=wh;
sendtoserver;
buf:=wh;
sendtoserver;
buf:=enchant;
sendtoserver;
end;
end