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

AdBlock Extension Detected!

Our website is made possible by displaying online advertisements to our members.

Please disable AdBlock browser extension first, to be able to use our community.

I've Disabled AdBlock