Перейти к содержанию

Скрипт для варки реагентов


Рекомендуемые сообщения

{
Варианты байпасов температуры для подстановки:
Для 1-Salamander = Quest _373_SupplierOfReagents tmp_1
Для 2-Ifrit = Quest _373_SupplierOfReagents tmp_2
Для 3-Phoenix = Quest _373_SupplierOfReagents tmp_3
Например для Salamander:
Temperature:String = 'Quest _373_SupplierOfReagents tmp_1';

Варианты байпасов для вставки ингридиентов:
Moonstone Shard x1 = Quest _373_SupplierOfReagents x_1_I_6013
Moonstone Shard x10 = Quest _373_SupplierOfReagents x_2_I_6013
Rotten Bone Piece x1 = Quest _373_SupplierOfReagents x_1_I_6014
Rotten Bone Piece x10 = Quest _373_SupplierOfReagents x_2_I_6014
Demon's Blood x1 = Quest _373_SupplierOfReagents x_1_I_6015
Demon's Blood x10 = Quest _373_SupplierOfReagents x_2_I_6015
Infernium Ore x1 = Quest _373_SupplierOfReagents x_1_I_6016
Infernium Ore x10 = Quest _373_SupplierOfReagents x_2_I_6016
Blood Root x1 = Quest _373_SupplierOfReagents x_1_I_6017
Blood Root x10 = Quest _373_SupplierOfReagents x_2_I_6017
Volcanic Ash x1 = Quest _373_SupplierOfReagents x_1_I_6018
Volcanic Ash x10 = Quest _373_SupplierOfReagents x_2_I_6018
Quicksilver x1 = Quest _373_SupplierOfReagents x_1_I_6019
Quicksilver x10 = Quest _373_SupplierOfReagents x_2_I_6019
Sulfur x1 = Quest _373_SupplierOfReagents x_1_I_6020
Sulfur x10 = Quest _373_SupplierOfReagents x_2_I_6020
Moon Dust x1 = Quest _373_SupplierOfReagents x_1_I_6023
Moon Dust x10 = Quest _373_SupplierOfReagents x_2_I_6023

Варианты байпасов для вставки катализатора:
Moonstone Shard x1 = Quest _373_SupplierOfReagents x_1_C_6013
Moonstone Shard x10 = Quest _373_SupplierOfReagents x_2_C_6013
Rotten Bone Piece x1 = Quest _373_SupplierOfReagents x_1_C_6014
Rotten Bone Piece x10 = Quest _373_SupplierOfReagents x_2_C_6014
Demon's Blood x1 = Quest _373_SupplierOfReagents x_1_C_6015
Demon's Blood x10 = Quest _373_SupplierOfReagents x_2_C_6015
Infernium Ore x1 = Quest _373_SupplierOfReagents x_1_C_6016
Infernium Ore x10 = Quest _373_SupplierOfReagents x_2_C_6016
Blood Root x1 = Quest _373_SupplierOfReagents x_1_C_6017
Blood Root x10 = Quest _373_SupplierOfReagents x_2_C_6017
Volcanic Ash x1 = Quest _373_SupplierOfReagents x_1_C_6018
Volcanic Ash x10 = Quest _373_SupplierOfReagents x_2_C_6018
Quicksilver x1 = Quest _373_SupplierOfReagents x_1_C_6019
Quicksilver x10 = Quest _373_SupplierOfReagents x_2_C_6019
Sulfur x1 = Quest _373_SupplierOfReagents x_1_C_6020
Sulfur x10 = Quest _373_SupplierOfReagents x_2_C_6020
Moon Dust x1 = Quest _373_SupplierOfReagents x_1_C_6023
Moon Dust x10 = Quest _373_SupplierOfReagents x_2_C_6023

const Amount:integer = 1;        //Количество циклов варения
      Ingredient:String = '01';   //ByPass ингредиента
      Catalyst:String = '02';     //ByPass катализатора
      Temperature:String = '00';  //Температура

Чтобы сварить Moon Dust по рецепту нужно заменить константы на следующее

 const Amount:integer = 1;        //Количество циклов варения
      Ingredient:String = 'Quest _373_SupplierOfReagents x_2_I_6013';   //ByPass ингредиента
      Catalyst:String = 'Quest _373_SupplierOfReagents x_1_C_6018';     //ByPass катализатора
      Temperature:String = 'Quest _373_SupplierOfReagents tmp_1';  //Температура
}      

// ----------------------------------------------------------------- //
// ------------ Заменять вот тут, выше тупо пример. ---------------- //
// ----------------------------------------------------------------- //
const Amount:integer = 10;        //Количество циклов варения
      Ingredient:String = 'Quest _373_SupplierOfReagents x_2_I_6013';   //ByPass ингредиента
      Catalyst:String = 'Quest _373_SupplierOfReagents x_1_C_6018';     //ByPass катализатора
      Temperature:String = 'Quest _373_SupplierOfReagents tmp_1';  //Температура


var   Current:integer;

procedure Step(Dlg1,Dlg2:integer; Dlg3:string);
begin
    Engine.DlgOpen;
    Delay(500);
    Engine.DlgSel(Dlg1);
    Delay(500);
    Engine.DlgSel(Dlg2);
    Delay(500);
    Engine.ByPassToServer(Dlg3);
    Delay(500);
end;

      
begin
    Engine.SetTarget(31149);
    Delay(500);
    for Current:=1 to Amount do begin
      Step(2,2,Ingredient);
      Step(2,3,Catalyst);
      Step(2,4,Temperature);
      Step(2,5,'');
    end;
Print('Все готово сэр');    
end.

Ссылка на сообщение
Поделиться на другие сайты
  • 1 год спустя...

Для публикации сообщений создайте учётную запись или авторизуйтесь

Вы должны быть пользователем, чтобы оставить комментарий

Создать учетную запись

Зарегистрируйте новую учётную запись в нашем сообществе. Это очень просто!

Регистрация нового пользователя

Войти

Уже есть аккаунт? Войти в систему.

Войти
×
×
  • Создать...