[dyh9l]

const
namemain = 'BogonpoBog4ik';
name1 = 'BaltazaR';
name2 = 'rweewr';
name3 = 'erwerwer';
name4 = 'rwewrerwe';
var
  Main : TForm;   
  Label1,Label2 : TLabel; //текст
  Button,Button2,Button3,Button4,Button5,Button6,Button7,Button8,Button9,Button10,Button11 : TButton; 
  OIDtwink1,OIDtwink2,OIDtwink3,OIDtwink4:integer; 
  OIDmanager1,OIDmanager2,OIDmanager3,OIDmanager4,TestOID:integer;        
  Edit2 : TEdit;
  Reg : TTimer;  
  s,Name : string;    
  
procedure Centr1;
begin
    buf:=#$01;
    WriteD(-14344+Rand(10,70));
    WriteD(123703+Rand(10,70));
    WriteD(-3112);   
    SendToServerEx(name1); 
end; 

procedure Centr2;
begin
    buf:=#$01;
    WriteD(-14344+Rand(10,70));
    WriteD(123703+Rand(10,70));
    WriteD(-3112);   
    SendToServerEx(name2); 
end; 

procedure Centr3;
begin
    buf:=#$01;
    WriteD(-14344+Rand(10,70));
    WriteD(123703+Rand(10,70));
    WriteD(-3112);   
    SendToServerEx(name3); 
end; 

procedure Centr4;
begin
    buf:=#$01;
    WriteD(-14344+Rand(10,70));
    WriteD(123703+Rand(10,70));
    WriteD(-3112);   
    SendToServerEx(name4);
end;

procedure Centrall;
begin
    buf:=#$01;
    WriteD(-14344+Rand(10,70));
    WriteD(123703+Rand(10,70));
    WriteD(-3112);   
    SendToServerEx(name1);    
    SendToServerEx(name2);
    SendToServerEx(name3);
    SendToServerEx(name4);
end;

procedure Stolb1;
begin
    buf:=#$01;
    WriteD(-15053+Rand(10,70));
    WriteD(122130+Rand(10,70));
    WriteD(-3064);
    SendToServerEx(name1); 
end;
procedure Stolb2;
begin
    buf:=#$01;
    WriteD(-15053+Rand(10,70));
    WriteD(122130+Rand(10,70));
    WriteD(-3064);
    SendToServerEx(name2); 
end;
procedure Stolb3;
begin
    buf:=#$01;
    WriteD(-15053+Rand(10,70));
    WriteD(122130+Rand(10,70));
    WriteD(-3064);
    SendToServerEx(name3); 
end;
procedure Stolb4;
begin
    buf:=#$01;
    WriteD(-15053+Rand(10,70));
    WriteD(122130+Rand(10,70));
    WriteD(-3064);
    SendToServerEx(name4); 
end;
procedure Stolball;
begin
    buf:=#$01;
    WriteD(-15053+Rand(10,70));
    WriteD(122130+Rand(10,70));
    WriteD(-3064);
    SendToServerEx(name1); 
    SendToServerEx(name2);
    SendToServerEx(name3);
    SendToServerEx(name4);
end;

 
 
procedure ButtonClick2(Sender : TButton);
begin
buf:=Hstr('09');
SendToServerex(name1);
SendToServerex(name2);
SendToServerex(name3);
SendToServerex(name4);
end;

procedure Free; 
begin
Main.Free;
end;
/////////////////////////////////////////////
//////////////Функция рандома////////////////
/////////////////////////////////////////////
function Rand(min,max:integer): integer;
   var
    i: extended;
begin
   i:=Random;            
   result:=min+int((max-min)*i);
end;
/////////////////////////////////////////////
/////////////////////SAY/////////////////////
/////////////////////////////////////////////
procedure Say(msg:string);
begin 
  buf:=#$4A;  
  WriteD(0); 
  WriteD(3);
  WriteS('Helper');
  WriteS(msg);
  SendToClientEx(name1);
end;
/////////////////////////////////////////////
                 
begin
if FromServer and (ConnectName=namemain) and (pck[1]=#$04) then   
Name:=ReadS(22);
if FromServer and (ConnectName=name1) and (pck[1]=#$04) then   //
OIDtwink1:=ReadD(2);                                           //
if FromServer and (ConnectName=name2) and (pck[1]=#$04) then   //------------l
OIDtwink2:=ReadD(2);                                           //ОИД твинков-l
if FromServer and (ConnectName=name3) and (pck[1]=#$04) then   //------------l
OIDtwink3:=ReadD(2);                                           //
if FromServer and (ConnectName=name4) and (pck[1]=#$04) then   //
OIDtwink4:=ReadD(2); 
if FromServer and (ConnectName=name1) and (pck[1]=#$16) and (ReadD(6)=1008688) then  //
OIDmanager1:=ReadD(2);                                                               //
if FromServer and (ConnectName=name2) and (pck[1]=#$16) and (ReadD(6)=1008688) then  //---------------------l
OIDmanager2:=ReadD(2);                                                               //ОИД Менеджеров олимпаl
if FromServer and (ConnectName=name3) and (pck[1]=#$16) and (ReadD(6)=1008688) then  //---------------------l
OIDmanager3:=ReadD(2);                                                               //
if FromServer and (ConnectName=name4) and (pck[1]=#$16) and (ReadD(6)=1008688) then  //
OIDmanager4:=ReadD(2);    
if FromServer and (ConnectName=namemain) and (pck[1]=#$0F) then
begin
    say('s4itali');
    s := ReadS(6);
    s := copy(s,27,2);
    Edit2.Text := 'y '+name+' '+s+' очков';
end;
    if pck='' then exit;
     if FromClient and (pck[1]=#$09)  then begin
         pck:='';
            NoCloseServerAfterClientDisconnect;
            NoCloseClientAfterServerDisconnect;
            buf:=#$7E;
            SendToClient;
     end;                            
end.

Добавлено через 31 секунду
Форма удалена ибо не лезет)