нет бафа-

Раздел посвященный скриптам для бота
Ответить
yome
Сообщения: 18
Зарегистрирован: Чт дек 25, 2014 1:14 pm

Вт янв 01, 2019 10:47 pm

Привет, мб кто покажет или даст скрипт на
Если нет бафа - пикапать нужный предмет
делаю по наработкам других ребафов, уже сил и нервов нет , не получается, спасибо
yome
Сообщения: 18
Зарегистрирован: Чт дек 25, 2014 1:14 pm

Ср янв 02, 2019 9:04 pm

:cry: ну знаете ж иваниус то знает 100% помоги)
на другом форуме с проверкой помог ты парню, но он потер ((
Аватара пользователя
FJIAHKEP
Флудер
Сообщения: 114
Зарегистрирован: Пт ноя 20, 2015 5:43 am
Контактная информация:

Чт янв 03, 2019 6:48 am

yome писал(а):Привет, мб кто покажет или даст скрипт на
Если нет бафа - пикапать нужный предмет
делаю по наработкам других ребафов, уже сил и нервов нет , не получается, спасибо
в чем проблема ? и что значит пикапать нужный предмет? ты бы хоть описал свою проблему ясно.

Вот как делается проверка если нету бафа, тут процедура. можно и без процедуры делать.

Код: Выделить всё

// Если нет баффа с определенным ID или его время на мне меньше минуты то . . .
procedure buff;
begin
  if not User.Buffs.ByID(ID баффа) or (buff.EndTime<60000) then begin
     // Делаем что-то 
  end;
end;
yome
Сообщения: 18
Зарегистрирован: Чт дек 25, 2014 1:14 pm

Чт янв 03, 2019 4:47 pm

Да вроде понятно, если нет бафа поднять предмет с пола (с нужным ид или по названию) что бы выполнял это
Спасибо сейчас сам попробую приделать к твоему
Аватара пользователя
FJIAHKEP
Флудер
Сообщения: 114
Зарегистрирован: Пт ноя 20, 2015 5:43 am
Контактная информация:

Чт янв 03, 2019 6:11 pm

yome писал(а):Да вроде понятно, если нет бафа поднять предмет с пола (с нужным ид или по названию) что бы выполнял это
Спасибо сейчас сам попробую приделать к твоему
Если к моему то не забудь добавить переменную в начало скрипта

Код: Выделить всё

var
   buff: TL2Buff;
Аватара пользователя
FJIAHKEP
Флудер
Сообщения: 114
Зарегистрирован: Пт ноя 20, 2015 5:43 am
Контактная информация:

Чт янв 03, 2019 7:03 pm

yome писал(а):Привет, мб кто покажет или даст скрипт на
Если нет бафа - пикапать нужный предмет
делаю по наработкам других ребафов, уже сил и нервов нет , не получается, спасибо

Кароче написал Special for Ю , так сказать в честь нового года.

Код: Выделить всё

uses
  SysUtils;

var
  buff: TL2Buff;

  buff_id: Integer = 1045; // ИД баффа который проверяем
  buff_time: Integer = 60000; // Время которое проверяем
  item_id: Integer = 4042; // ИД предмета которое лутаем
  
// Если нет баффа с определенным ID или его время на мне меньше минуты то . . .
procedure pick_up_buff;
var
  i: Integer;
  
begin
  if not User.Buffs.ByID(buff_id, buff) or (buff.EndTime < buff_time) then begin
    for i := 0 to DropList.Count-1 do begin
      if DropList(i).id = item_id  then begin
        Engine. MSG('[ Подбираю ]',DropList(i).Name +': '+IntToStr(DropList(i).Count) +' шт',255);
        Engine.Pickup(DropList(i));
      end;
    end;
  end;
end;

begin
   pick_up_buff;
end.
yome
Сообщения: 18
Зарегистрирован: Чт дек 25, 2014 1:14 pm

Пт янв 04, 2019 2:07 am

ты батя, спс большое парень и всего хорошего , от души!
yome
Сообщения: 18
Зарегистрирован: Чт дек 25, 2014 1:14 pm

Пт янв 04, 2019 2:42 am

uses
SysUtils;

var
buff: TL2Buff;

buff_id: Integer = 18672; // ИД баффа который проверяем
buff_time: Integer = 6; // Время которое проверяем
item_id: Integer = 47579; // ИД предмета которое лутаем


var

i: Integer;
begin
while 1<>2 do begin
begin
if not User.Buffs.ByID(buff_id, buff) or (buff.EndTime < buff_time) then begin
for i := 0 to DropList.Count-1 do begin
if DropList(i).id = item_id then begin
Engine. MSG('[ Подбираю ]',DropList(i).Name +': '+IntToStr(DropList(i).Count) +' шт',255);
Engine.Pickup(DropList(i));
end;
end;
end;
end;
delay(250);
end;
end.
Зациклил правильно что б постоянно проверял?
Аватара пользователя
FJIAHKEP
Флудер
Сообщения: 114
Зарегистрирован: Пт ноя 20, 2015 5:43 am
Контактная информация:

Пт янв 04, 2019 4:47 am

yome писал(а): Зациклил правильно что б постоянно проверял?

Не совсем . я бы лучше оставил в процедуре и ее зациклил.

Код: Выделить всё

uses
  SysUtils;

var
  buff: TL2Buff;

  buff_id: Integer = 1045; // ИД баффа который проверяем
  buff_time: Integer = 60000; // Время которое проверяем
  item_id: Integer = 4042; // ИД предмета которое лутаем
  
// Если нет баффа с определенным ID или его время на мне меньше минуты то . . .
procedure pick_up_buff;
var
  i: Integer;
  
begin
  if not User.Buffs.ByID(buff_id, buff) or (buff.EndTime < buff_time) then begin
    for i := 0 to DropList.Count-1 do begin
      if DropList(i).id = item_id  then begin
        Engine. MSG('[ Подбираю ]',DropList(i).Name +': '+IntToStr(DropList(i).Count) +' шт',255);
        Engine.Pickup(DropList(i));
      end;
    end;
  end;
end;

begin
   while true do begin
       pick_up_buff;
       delay(500);
   end;
end.
Ответить