Оффтоп
/при получения пакета таймеры1,3,4 врубаются
/после того как таймер 1 офф сам он выключается, и врубает таймер2
/таймер 2 начинает спамить пока таймер 3 его не вырубит
/как тока таймер 4 включается сразу офаетса
отправление на сервер пакет на проверку локацыии если приходит пакет
что находится тамто то делает что нибудь.
Помогите доделать objid итема а то чот не хрена не получается и ищо
как можна зделоть чтоб пакет отпровлялся не на 1 ник а на которые я напишу
const
name='fghfgh';
name1='gdfgdfg'
name2='asdasd'
name3=name+name2+name3
SendToServerEx(name3);
так будет похать?
SHOWTOGROUPS="Местный"]
Const
ScrollID=7134;
var
Timer01: TTimer;
Timer02: TTimer;
Timer03: TTimer;
Timer04: TTimer;
procedure Init; //первый таймер активирует второй
begin
Timer01:=TTimer.Create(nil); //выделяем памать и т.п.
Timer01.OnTimer:=@OnTimer01; //привязываем процедуру к событию
Timer01.enabled:=false; //начальное положение включен(true)/выключен(false)
Timer01.interval:=27000; //27000 интервал(в милисекундах) как часто таймер срабатывает
Timer02:=TTimer.Create(nil); //выделяем памать и т.п.
Timer02.OnTimer:=@OnTimer02; //привязываем процедуру к событию
Timer02.enabled:=false; //начальное положение включен(true)/выключен(false)
Timer02.interval:=10; //10интервал(в милисекундах) как часто таймер срабатывает
Timer03:=TTimer.Create(nil); //выделяем памать и т.п.
Timer03.OnTimer:=@OnTimer03; //привязываем процедуру к событию
Timer03.enabled:=false; //начальное положение включен(true)/выключен(false)
Timer03.interval:=32000; //32000интервал(в милисекундах) как часто таймер срабатывает
Timer04:=TTimer.Create(nil); //выделяем памать и т.п.
Timer04.OnTimer:=@OnTimer04; //привязываем процедуру к событию
Timer04.enabled:=false; //начальное положение включен(true)/выключен(false)
Timer04.interval:=90000; //31000интервал(в милисекундах) как часто таймер срабатывает
end;
procedure Free;
begin
Timer01.free;
Timer02.free;
Timer03.free;
Timer04.free;
end;
procedure CreateItemBase;
var j,ItmID,ObjID,Scroll:integer;
begin
ObjID:=ReadD(j);
ItmID:=ReadD(j);
case ItmID of
ScrollID:
begin
Scroll:=ObjID;
end;
end;
end;
procedure UpdateItemBase;
var j,ObjID,ItmID,Scroll:integer;
begin
ObjID:=ReadD(j);
ItmID:=ReadD(j);
case ItmID of
ScrollID: begin
Scroll:=ObjID;
end;
end;
end;
procedure OnTimer01(Sender: TObject);
begin
Timer01.enabled:=False;
Timer02.enabled:=True;
end;
procedure OnTimer02(Sender: TObject);
begin
pck:='';
buf:=HStr('C6 BF 07 00 00 01 00 00 00 03 00 00 00');
SendToServer;
end;
procedure OnTimer03(Sender: TObject);
begin
Timer03.enabled:=False;
Timer02.enabled:=False;
end;
var
Scroll:integer;
procedure OnTimer04(Sender: TObject);
begin
Timer04.enabled:=False;
begin
pck:='';
buf:=HStr('B3 00 00 00 00');
SendToServer;
end;
IF FromServer and (pck=HStr('62 9C 03 00 00') then
pck:='';
buf:=hstr('19');
WriteD(Scroll);
SendToServer;
end;
begin
IF FromServer and (pck[1]=#$4A) and (ReadS(12)='CTF: Старт через 5 мин. для уровней 76-85.') then
begin
Timer01.enabled:=True;
Timer03.enabled:=True;
Timer04.enabled:=True;
end;
end.
[/SHOWTOGROUPS]