begin
if FromServer and (ConnectName='01') and (pck = HStr('пакет1)) then
begin
delay(5000);
if FromServer and (ConnectName='01') and (pck = HStr('пакет2')) then else
begin
buf:=HStr('пакет3');
SendToClientEx('02');
end;
end;
end.
Задумка была как бы сделать так, приходит пакет [пакет1] на соединение 01, дальше идет проверка в течении 5 секунд на приход пакета [пакет2], если пакет не приходит, отправляется пакет [пакет3] на соединение 02.
Но у меня как я понял идет просто проверка ЧЕРЕЗ 5 секунд...
это у тебя как я понял во-первых идет одновременная проверка на 2 пакета. А там сначала идет 1, а потом идет проверка на 2. И во-вторых там идет, как я понял, интервал 5 сек, а мне нужно чтобы проверялось в течении 5 сек.
PS Но все равно скрипт здоровский
Var
PckIn: Boolean = False;
TimerPck: TTimer;
procedure Init;
begin
TimerPck:=TTimer.Create(nil);
TimerPck.OnTimer:=@OnTimerPck;
TimerPck.Enabled:=False;
TimerPck.interval:=5000;
end;
procedure OnTimerPck(Sender: TObject);
begin
if not PckIn then
begin
buf:=HStr('19 62 26 2B 40 00 00 00 00');
SendToServerEx('02');
end;
TimerPck.Enabled := False;
PckIn := False;
end;
procedure Free;
begin
TimerPck.Free;
end;
begin
if FromServer and (ConnectName='01') then
case pck of
'29 1C 58 90 49 00 00 00 00 4D BF FE FF 08 57 02 00 A0 F3 FF FF': TimerPck.Enabled := True;
'29 1C 58 90 49 01 00 00 00 4D BF FE FF 08 57 02 00 A0 F3 FF FF': if TimerPck.Enabled then PckIn := True;
end;
end.
Вот как скрипт я делаю. Даже когда он там встает или садится, ничего абсолютно!
Потому что полная фигня тобой в скрипт подставлена.
У тебя что, ники чаров 01 и 02? Никогда не видел сервера где разрешены ники из двух букв, это рас.
"29 1C 58 90 49" - у тебя точно CharID = 22556 и ник чара "01"??
'19 62 26 2B 40 00 00 00 00' - что за херню ты пытаешься отправлять? 19 пакет UseItem:d(ObjectID)d(Unknown), у тебя что есть в инвентаре предмет с ObjectID = 9826? Слишком маленькое значение для ObjectID, наверняка тут написана очередная чушь..
Последний раз редактировалось Vilson, 05.03.2010 в 14:27.
Потому что полная фигня тобой в скрипт подставлена.
У тебя что, ники чаров 01 и 02? Никогда не видел сервера где разрешены ники из двух букв, это рас.
"29 1C 58 90 49" - у тебя точно CharID = 22556 и ник чара "01"??
'19 62 26 2B 40 00 00 00 00' - что за херню ты пытаешься отправлять? 19 пакет UseItem:d(ObjectID)d(Unknown), у тебя что есть в инвентаре предмет с ObjectID = 9826? Слишком маленькое значение для ObjectID, наверняка тут написана очередная чушь..
дело не в пакетах, я переставлял их там. Хоть какие ставь, case pck of просто не работает!!! Эта проверка не робит и все. Дело не в пакетах. Инфа 100%.