I press Run and nothing happens. :( Maybe someone knows what's wrong? My script looks like:

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('75 BF 00 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('31 01 00 00 00 75 BF 00 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.

Sorry if wrong section. ;)

post it here: http://www.maxcheaters.com/forum/index.php?board=39.0