тут друг попросил сделать так что выкладываю:
Код:
const
RB_List = [10245];
RB_Count = 1;
TellTo = 'nik';
var
i: integer;
begin
if FromServer and (pck[1]=#$16) then
for i:=0 to RB_Count-1 do
if (RB_List[i]+1000000=ReadD(6)) then begin
buf:=#$38;
WriteS('RB detected!');
WriteD(2);
WriteS(TellTo);
SendToServer;
end;
end.