// сдаем один раз чтоб запомнить пакет// вкл таймер для отправки пакета соцдействие ДА - YES// откл таймер для отправки пакета соцдействие НЕТ -NO// управление под ФИНАЛ хроникиconst
name='xxxx';// <<== пишем здесь имя своего ЧАРАvar
manorItem: string;
Timer01: TTimer;
procedure Init;
begin
Timer01:=TTimer.Create(nil);
Timer01.OnTimer:=@OnTimer01;
Timer01.enabled:=false;
Timer01.interval:=1000;// интервал между пакетами сейчас стоит 1 секундаend;
procedure Free;
begin
Timer01.free;
end;
procedure OnTimer01(Sender: TObject);
begin
buf:=manorItem;
SendToServerEx(name);
end;
beginif FromClient and(pck[1]=#$D0)and(pck[2]=#$02)then manorItem:=pck;
if FromClient thenbegincase ReadD(2)of24:begin
Timer01.enabled:=true;
pck:='';
exit;
end;
25:begin
Timer01.enabled:=false;
pck:='';
exit;
end;
end;
end;
end.
__________________
Тут не форум гадалок, если ты делаешь все правильно и по пунктам - то все должно работать
Последний раз редактировалось TAMBIK, 06.09.2009 в 18:03.
TAMBIK, нужно просто 1 раз эмитировать обмен плодов на ресурсы или нужно дождаться когда заработает манор и только тогда обменять , чтоб запомнил пакеты скрипт ?
Последний раз редактировалось Tomta, 15.09.2009 в 03:24.