Jump to content

Recommended Posts

Posted

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.

 

 

  • 1 month later...

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.
Note: Your post will require moderator approval before it will be visible.

Guest
Reply to this topic...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

×
×
  • Create New...