Цитата:
Сообщение от alxabay
lQaKl если можешь напиши
|
примерно так
Код:
var SocialID,Status:integer;
Timer1:TTimer;
procedure Init;
begin
Status:=1;
Timer1:=TTimer.Create(nil);
Timer1.OnTimer:=@OnTimer1;
Timer1.enabled:=false;
Timer1.interval:=15000; //интервал таймера в милисекундах (задать свой).
end;
procedure Free;
begin Timer1.Free;
end;
procedure OnTimer1(Sender: TObject);
begin UseItem(Scrl);
RequesEnchantItem(Wpn);
inc(Status);
end;
begin
if fromserver and pck='' then exit; //не обрабатываем пакеты нулевой длины
if fromserver and (status<>0) then pck:=''; //глушим пакеты от сервака, если точим
if FromClient and (pck[1]=#$1B) then
begin
SocialID:=ReadD(2);
case SocialID of
6:begin Status:=1;
Timer1.Enabled:=true;//начали точить
end;
5:begin Status:=0;
Timer1.Enabled:=false;//закончили точить
end;
end;
end;
Вотьэто не готовый скрипт, это просто часть, которую надо добавить к основному. Скрипт для С4. Начало - социалДА, конец - социалНет.