Кружок нубов(Вопрос-Ответ)

[QaK]

Сообщение от 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. Начало - социалДА, конец - социалНет.