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