Jump to content

Invisible Mode


maniac25

Recommended Posts

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

Link to comment
Share on other sites

After searching the forum i found this :? , you should try using ur eyes too :wink:

http://rapidshare.de/files/35975043/ynghlapex.rar.html

 

With this version (that yngwie uses too) you can use scripts aswell.

Link to comment
Share on other sites

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