DELPHI Код:
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 секунду
Форма удалена ибо не лезет)