Jump to content

Recommended Posts

Posted

Improved script for invisibility. Now do you see mobov, as they are you, no.

He works not at all. I have been working  :D

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 and (pck[1]=#$28)and(hidden=true) then pck:=#$48;
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.

 

Senks for mooved Maxtor good very good ;)

Posted

This Script is old i think so, and its not working...i don't think that you will find a server ,where its working !

 

this script works on a non- updated c3 server and older. lolen

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.
Note: Your post will require moderator approval before it will be visible.

Guest
Reply to this topic...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.




×
×
  • Create New...