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

[TAMBIK]

Добрый....... Помогите искал ненашел иль плохо искал или непонял какой кусок скрипта отвечает чтоб бафер сам себя бафал когда закончился баф
надо маленький такой скрипт .как сделать неумею а похожего в скриптах
неувидил. подскажите немного. или ОТПРАВТЕ по адресу где такое
возможно

[TAMBIK]

Сообщение от TAMBIK

Добрый....... Помогите искал ненашел иль плохо искал или непонял какой кусок скрипта отвечает чтоб бафер сам себя бафал когда закончился баф
надо маленький такой скрипт .как сделать неумею а похожего в скриптах
неувидил. подскажите немного. или ОТПРАВТЕ по адресу где такое
возможно

Немного не так вопрос
Я вот нашел куски ток незнаю как все должно работать . связать все чтоб работало.Хочу вставить в скрипт для баферов.
Я вкл скрипт посылаю команду баферу или сам бафером вешаю баф надо чтоб бафер через определенное время пусть 15 мин сам себя бафнул то есть я подхожу и посылаю команду баферу на баф воина чтоб не терять время и бафер после того как бафнет себя наберет ману.
может кто поможет правильно оформить скрипт
из скрипта:

//Bot by Skymanrus
//modified by NLObP специально для Владера, моего сына!

offs1, xm, ym : integer;

  heal, kill : string;
  MaxHP, MyZpos, cvaZ, CurHP, ID, xpos, ypos, skill, MyID, PercentHP, MEsit: integer;
  MEup, but, sud, bst, Radius, cvaX, attackIDMinID, attackk, attackID, cvaY, zpos: integer;
  Hpotion, Apotion, MyXpos, MyYpos, rezu, MaxX, MaxID, MinID, MinX: integer;
  sit, povtor, tame, gdo, npc : Boolean;

  bfi, atck, hpi, i, ii: integer;
  timer3: TTimer;


procedure Init; //УПРАВЛЯЮЩИЕ ПЕРЕМЕННЫЕ
var
  i: integer;
  bfi:=60; //60 сек, чтобы бафы не пропустить
  ii:=1;
 
//баффы
  timer3:=TTimer.Create(nil);
  timer3.OnTimer:=@OnTimer3; //
  timer3.enabled:=true; // таймер по умолчанию выключен
  timer3.interval:=60000; // первый баф через 60 сек
//***************************************************************

procedure OnTimer2(Sender: TObject); //
begin
  //контролируем бафы, если время бафов, то пытаемся бафаться каждую секунду
  dec(bfi);
  if bfi<0 then begin
    timer3.interval:=1000; //каждые 1 сек
    bfi:=1200;  //20 мин
  end;
=========================
//***************************************************************
procedure OnTimer3(Sender: TObject); //баффы
begin
  //если никого не бъем, то надо бафаться
  if (Summ(Aggro)=0) and (sit=false) then begin
    case ii of
      1: begin
        timer1.enabled:=false; //откл. атаку
        msg.Lines.Add('Баффаюсь Attack aura!');
        MagicSkillUse(buff2);
        inc(ii);
      end;
      2: begin
        msg.Lines.Add('Баффаюсь Deflect arrow!');
        MagicSkillUse(buff3);
        inc(ii);
      end;
      3: begin
        ii:=1;
        timer3.interval:=1150000; //каждые 20 мин
        bfi:=1150;
        timer1.enabled:=true; //вкл. атаку
      end;
    end;
  end;
end;

нашел
http://coderx.ru/showpost.php?p=7204&postcount=362