Практические примеры скриптинга (ошибки новичков)

[elenka]

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

встречный вопрос: а зачем?!

потому что то , что я добываю ботами в 10 окнах имеет более 6 разновидностей и зачастую разворачивать сутки проработавшее окно очень неприятно и долго (

[lva]

Тут такой вопрос. Допустим есть квест, нужно убивая мобов, получить 2 или более квест итема, как это реализовать?
З.Ы Вопрос не так поставил. Не 2 штуки одного вида, а 2 разных итема.

[Acmilan]

ItemCount(ID[1234],=>,100500)
{
blablabla
}

[Arg]

LABEL(ProverkaKol)

ITEMCOUNT(Шкура Животного[ID=1867],<,6)
{
EXIT()
}

LABEL(ProverkaMP)
CHARSTATUS(CMP,<,1000)
{
DELAY(1000)
JMP(ProverkaMP)
}

USEITEM(Рецепт: Кожа[ID=1814])
DELAY(500)
DLGSEL([Создание])
DELAY(500)

JMP(ProverkaKol)

Знатоки гляньте пожалуйста скрипт, почему то не работает на руофе.
При запуске скрипта почему то не открывает рецепт. l2infob русское

[nPoKa3HuK]

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

LoadConfig(Крафт кожи.INI)////настраиваем валкер на крафт кожи
LABEL(ProverkaKol)
ITEMCOUNT(Шкура Животного[ID=1867],<,6)
{
LoadConfig(ни чего не делать.INI)///Нестаиваем валкер, что бы бот ни чего не делал
EXIT()
}
JMP(ProverkaKol)

Я бы зделал так. На мой взгляд это оптимальное решение.

[Arg]

Рассматривал такой вариант, но хотелось бы сделать без задействования лишних конфигов, на то есть причины.
Так что не так в том скрипте никто не подскажет?

[Джузеппе]

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

Рассматривал такой вариант, но хотелось бы сделать без задействования лишних конфигов, на то есть причины.
Так что не так в том скрипте никто не подскажет?

озадачивался этой проблемой. много рылся по инету и сам тестил, ничего не получается. только через смену настроек реализовал

[alexteam]

Оффтоп

Program kamikadze;
var
  Recipe : TL2RecipeItem;
  Ingridient_Coal, Ingridient_Leather, Ingridient_Cord : Tl2InvItem;

Function CheckIngridients:boolean;
begin
  result := Recipe <> nil;
  result := result and (Ingridient_Coal <> nil) and (Ingridient_Coal.count > 4); 
  result := result and (Ingridient_Leather <> nil) and (Ingridient_Leather.count > 4); 
  result := result and (Ingridient_Cord <> nil) and (Ingridient_Cord.count > 4); 
end;

Begin
  //Находим ингридиенты. их несколько.
  Ingridient_Coal := engine.GetInvItem(1870); 
  Ingridient_Leather := engine.GetInvItem(1882); 
  Ingridient_Cord := engine.GetInvItem(1884);   
  
  engine.stand; //встаем. чтобы использовать скилл. 
  engine.UseSkill(1321); //1321=Dwarven Craft открываем книгу рецептов. 
  engine.sit; //садимся.
  Recipe := Engine.GetRecipe(2148);//Находим рецепт. у него айди 2148 
    
  while true do //Крутимся вечно в цикле.
  begin     
    if not CheckIngridients then //проверка на ингридиенты
      begin       
        print('Не найдены\недостаточно ингдидиентов либо отсуствует рецепт.');
        Exit; //вылетаем с цикла.
      end;    
                         
    if engine.CharData.CurrentMP > 30 then //если мп хватает чтобы скрафтить
      Recipe.Execute; //Крафтим.
       
    engine.sleep(5000); //ждем 5 сек перед повторением цикла.
  end;
end.

[Anafema]

осталось тока родится Сауроном и запустить на руофе пакетхак)
//alexteam: это не пх. а мой бот. в пх кода бы было в 550 раз больше (серьезно).

[Acmilan]

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

result := result and (Ingridient_Coal <> nil) and (Ingridient_Coal.count > 4);

Мне надо выспаться, или это действительно бесконечная рекурсия? О_о

Добавлено через 32 секунды
Ааа функция булева..