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

Inscription EB

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

program arms;
{$Include 'all.inc'}
var
i: integer;
const
  meditlvl = 20; // Если мана ниже этого числа, медитируем. (Цена заклинания + 1)
  sbook= $67DE24D8; // ID Ерч-буки
  buttonnum = '101'; // ID кнопки в ерч буке.
 
  procedure castmyspell;
  begin
 
 
   CancelMenu;CancelMenu;CancelMenu;CancelMenu;
   if TargetPresent then CancelTarget;

   WaitTargetObject(findtype($0E34,backpack)); 
   UseSkill('Inscription');
   WaitGump(buttonnum);
   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.

ID кнопки в ерч буке можно узнать при помощи ,infogump

 

а вообще там они все 101, 102...110

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


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

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