den eiani etsi opos to fantazesai...na patas deksi klik panw st croll gia na kani ++ kai na min spane..ayto aplos einai fast enchant....
gia na to kanei safe enchant thelis scriptaki :P
exw na soy dwso ena aplos theli na alazis kapoia packet snifer gia na poiani to safe enchant
kai na patas to /social vicrory poy tha to vris sto l2mesa an patiseis ALT + C...:P
edo einai to script.....
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.