Перейти к публикации
Rincewind

Inscription

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


program arms;
{$Include 'all.inc'}
var
i: integer;

const
  circle = '4'; // Круг спелла
  myspell = 'Recall'; // Спелл
  meditlvl = 15; // Если мана ниже этого числа, медитируем. (Цена заклинания + 1)
  sbook= $65F63247; // ID Спеллбуки



  procedure castmyspell;
  begin


   CancelMenu;CancelMenu;CancelMenu;CancelMenu;  // Так надо =)
   if TargetPresent then CancelTarget;


   WaitTargetObject(findtype($0E34,backpack));  
   UseSkill('Inscription');
   WaitMenu('a',circle);
   WaitMenu('a',myspell);
   WaitForTarget(1000);
   TargetToObject(sbook);

   wait(5000);
  end;


  procedure medit;
  begin
   while (mana < maxmana) do
   begin
   useskill('meditation');
   wait(2000);
   end;
  end;

  procedure dosomethingawful;
  begin
  useobject(backpack);
  wait(500);
  FindTypeEx($0E34,$ffff,backpack,False);
  AddToSystemJournal('Осталось '+IntToStr(FindFullQuantity)+' скроллов.');
  Hungry(2,backpack);
  end;



Begin
dosomethingawful;
i:=0;
while (true) do
  begin
   i:=i+1;
   if (mana > meditlvl) then begin castmyspell; end;
   if  (mana < meditlvl) then begin medit; end;
   if i>10 then begin dosomethingawful; i:=0 end;
   wait(500);
  end;
end.

 

Пояснений не будет, тут и так всё понятно. Настройки вначале скрипта.

Изменено пользователем Rincewind

Поделиться сообщением


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

×
×
  • Создать...