Jump to content

Lineage 2

Не пропустите!

ВАЖНЫЕ ОБСУЖДЕНИЯ НА ФОРУМЕ:
ZULUHOTEL СНОВА ONLINE! РЕГИСТРАЦИЯ ОТКРЫТА!

Все последние новости, информация о событиях на Zuluhotel, чат с админами и игроками в нашем телеграм канале: @ZuluhotelRussia
А еще у нас есть канал в Discord!
 
К сожалению, форумный формат общения себя изживает и активности на форуме с каждым днем всё меньше.
Самый быстрый способ получить ответ на вопрос - воспользоваться нашим Telegram каналом или Discord'oм.

Присоединяйся! Общайся!

Хеллоу! Общежитие слушает.

Приветствуем тебя, гость !

Шард вновь заработает в первой половине октября 2019!

 

Следи за новостями!

ЗЫ: регистрация на форуме восстановлена.


Blacksmith + Resmelt


  • You cannot reply to this topic
1 reply to this topic

#1
defenderdragon

defenderdragon

    Вождь Зулу

  • Пользователи
  • PipPipPipPipPipPipPip
  • 568 posts
  • Location:Москва
уже 2е попросили этот скрипт сам я на нем не качаюсь так как делаю это руками а с форума у них почему то не работает 
устранил те ошибки что были 2 часа полет нормальный, важное замечание инготов должно быть столько чтобы максимальное количество изготавливаемых предметов не превысило 130, а вообще можно отрубить аутолуп закинуть 60к ингов и уйти курить дней на 5
 
 
версия стелса 4.3.2
 
Program BlackSmithy;
 
var
TimeStart : TDateTime;
k :integer;
Item : Cardinal;
 
const
Ingots = $1BF2; //тип инготов
ItemType = $1415; //тип предмета который изготавливаем
ItemCost = 25; //стоимость изготовления в инготах
ForgeObj = $77D66A00; // тут указываем серийник плавильни
HammerType = $13E3; //малоточек который будем юзать
TongsType = $0FBB;  //тонг который должен валяться в бекпаке
 
{$Include 'all.inc'}
 
 
 
 
procedure Resmelt;
begin
findtype(ItemType,backpack);
while FindCount() > 0 do
begin
Clearjournal();
   checksave;
   CheckTargetError(2,2);
     if targetpresent then canceltarget;
     k:=0;
     TimeStart:=Now;
     Item:=FindType(ItemType,Backpack);
     WaitTargetObject(Item)
      repeat
       UseObject(FindType(TongsType,Backpack));
       k := k + 1;
        wait(2000);
       until (InJournalBetweenTimes('What do you wish to smelt into ingots?|has to be', TimeStart, Now)<>-1) or (k > 7);
         WaitTargetObject(ForgeObj);
              repeat
               wait(100);
               k := k + 1;
              until (InJournalBetweenTimes('You turned|ailed|That cannot be melted down!', TimeStart, Now)<>-1) or (k > 300);
              findtype(ItemType,backpack);
    clearjournal;
end;
findtype(ItemType,backpack);
end;
 
 
 
 
 
 
 
Begin
SetARStatus(true);
while true do
   begin
   ClearJournal;
     CancelMenu;
       k:=0;
       TimeStart:=Now;
       UseObject(FindType(HammerType,Backpack));
       findtype(Ingots,backpack);
          WaitTargetObject(finditem);
          wait(500)
          WaitMenu('What would you like to make?', 'Armors');
          checksave();
           WaitMenu('What kind of armor?', 'Platemail');
           checksave();
            wait(500)
            WaitMenu('What would you like to make?', 'Breastplate');
              repeat
              wait(100);
              k := k + 1;
              until (InJournalBetweenTimes('stop', TimeStart, Now)<>-1) or (k > 300);
         if InJournal('Success')<>-1 then
     Resmelt;
     ClearJournal;
   end;
End.


#2
sporbi

sporbi

    Искатель Сокровищ

  • Пользователи
  • PipPipPip
  • 78 posts

а такой же скрипт плюс одевание ГМ молотка для переплавки есть у кого?







0 user(s) are reading this topic

members, guests, anonymous users