Jump to content

hLapEx and phx


Recommended Posts

i want to know some useful scripts for hlapex and phx.... if you have any to share i would be glad to know...

and also, i'm looking for some help with gameguard emulator... i can't use it well... if you can help me, please do so!!

thx for the attention!! and sry about the bad english

Link to comment
Share on other sites

There's only one that I've found out so far (i think it was in this forum but perhaps another one), it's a how to make adena script and it didn't work for me....

 

yep, in this forum - google - found it:

 

var
i,Amount,ListID,ItemID:integer;

procedure msg(msg:string);
begin
buf:=#$4A;
WriteD(0);
WriteD(5);
WriteS('hLaPEx');
WriteS(msg);
SendToClient;
end;

begin
if FromServer then exit;
if pck[1]=#$1F then
   begin
    i:=2;
    ListID:=ReadD(i);
    if ReadD(i)<>1 then
       begin
        msg('Èñïîëüçóéòå òîëüêî îäèí ñëîò');
        pck:='';
        exit;
       end;
    ItemID:=ReadD(i);
    Amount:=ReadD(i);
    if Amount<=1 then
       begin
        msg('Ïàêåò îòïðàâëåí áåç èçìåíåíèé');
        exit;
       end;
    buf:=#$1F;
    WriteD(ListID);
    WriteD(3);
    WriteD(ItemID);
    WriteD(Amount-1);
    WriteD(ItemID);
    WriteD(1);
    pck:=buf+#$54#$08#$00#$F0#$01#$00#$00#$00;
    msg('Ïàêåò ìîäèôèöèðîâàí');
   end;
end.

^

Original by Backside540.

^

 

Try it if you want it, if you get it working please reply back.

Link to comment
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

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...