Jump to content

Recommended Posts

Posted

this is text for hlapex's script make .txt copy text below to it , and than rename it to .pas , run halpex and chose this script and enjoy yourself=)

//Invisible Mode

var

pck48:string;

hidden:boolean;

i,x,y:integer;

 

procedure Init;

begin

hidden:=false;

pck48:='';

randomize;

end;

 

procedure SendMsg(msg:string);

begin

buf:=#$4A;

WriteD(0);

WriteD(2);

WriteS('hLaPEx');

WriteS(msg);

SendToClient;

end;

 

begin

if FromServer then exit;

case ord(pck[1]) of

$1B:case ord(pck[2]) of

$05:

begin

SendMsg('invisible_mode: Off');

pck:=#$30;

hidden:=false;

end;

$06:

begin

if pck48='' then exit;

SendMsg('invisible_mode: On');

hidden:=true;

pck:=pck48;

i:=2;

x:=ReadD(i);

y:=ReadD(i);

x:=x+1000+round(random*200)-100;

y:=y+1000+round(random*200)-100;

buf:=pck;

WriteD(x,2);

WriteD(y,6);

pck:=buf;

end;

end;

$48:pck48:=pck;

$30:if hidden then pck:='';

end;

end.

 

© Hint

Posted

hmmmm.... I only have the DEMO version, so I cant activate and start scripts.

Does anyone know where to download full version or how to purchase full version?

Guest
This topic is now closed to further replies.
×
×
  • 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..