Jump to content

Recommended Posts

Posted

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

Posted

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.

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now


×
×
  • Create New...

Important Information

This community uses essential cookies to function properly. Non-essential cookies and third-party services are used only with your consent. Read our Privacy Policy and We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue..