Примерно так попробуй:
Оффтоп
delphi Код:
var
Timer:TTimer;
PlayerID:integer;
step : integer;
procedure Init;
begin
step:=0;
Timer:=TTimer.Create(nil);
Timer.OnTimer:=@OnTimer;
Timer.enabled:=false;
Timer.interval:=1500;
PlayerID:= $0019CE0C;
end;
procedure Free;
begin
Timer.free;
end;
procedure OnTimer(Sender: TObject);
begin
//заказ
if (step=0) then buf:=HStr('заказ');
//крафт
if (step>0) and (step<10) then buf:=HStr('крафт');
if (step>9) then buf:=Hstr('сдача');
SendToServer;
step:=step+1;
if step>11 then step:=0;
end;
begin
//ввод команды в чат
if FromClient and (pck=HStr('команда на старт от клиента')) then begin
//замена команды на покупку заказа
pck:='';
Timer.enabled:=true;
end;
//Пакет завершения квеста
if FromClient and (pck=Hstr('команда от клиента на остановку сего действа')) then begin
Timer.enabled:=false;step:=0;
end;
end.
__________________
На фразы в аську типа "слух карочь 1)как точить 2)как раскачаться за 5 мин" - игнор. ИМХО идиотизм
Дай голодному рыбу - он будет один день сыт. Покажи ему, как удить рыбу - он пошлёт тебя и скажет, что у него есть более интересные занятия, чем забрасывать снасти в воду
David Kastrup @ de.comp.text.tex.
"Приобретенные навыки общения с маленькими детьми - сильно упрощают взаимопонимание на форумах..."
А вы знаете, что для качественной сварки - место шва нужно протереть спиртом?
Последний раз редактировалось Breadfan, 06.06.2011 в 10:38.
|