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

Магери

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


program arms;
{$Include 'all.inc'}
var
i: integer;
const
myspell = 'Lightning'; // Чо кастим.
casttime = 500; // Задержка на каст заклинания.
meditlvl = 10; // Если мана ниже этого числа, медитируем. (Цена заклинания + 1)
reagpack= $65BFB3C8; // ID Сумки с регами.

procedure castmyspell;
begin
Waittargetobject(findtype($0F51,backpack));
cast(myspell);
wait(casttime);
end;


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

procedure dosomethingawful;
begin
useobject(backpack);
useobject(reagpack);
wait(500);
AddToSystemJournal('BM:'+IntToStr(bmcount)+' '+'BP:'+IntToStr(bpcount)+' '+'GA:'+IntToStr(GAcount)+' '+'GS:'+IntToStr(GScount)+' '+'MR:'+IntToStr(MRcount)+' '+'NS:'+IntToStr(NScount)+' '+'SA:'+IntToStr(SAcount)+' '+'SS:'+IntToStr(SScount));
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.

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


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

Магери со скроллов

 

 

program arms;
{$Include 'all.inc'}
var
i: integer;
const
  myspell = 'shift';  // Чо кастим.
  casttime = 4000; // Задерка на каст заклинания.
  meditlvl = 50; // Если мана ниже этого числа, медитируем. (Цена заклинания + 1)
  reagpack= $65C13939; // ID Сумки с регами.
 
  procedure castmyspell;
  begin
  Waittargetobject(findtype($0F51,backpack));
  uosay('.scast '+ myspell);
  wait(casttime);
  end;
 
 
  procedure medit;
  begin
   while (mana < maxmana) do
   begin
   useskill('meditation');
   wait(2000);
   end; 
  end;
 
  procedure dosomethingawful;
  begin
  useobject(backpack);
  useobject(reagpack);
  wait(500);
  AddToSystemJournal('BM:'+IntToStr(bmcount)+' '+'BP:'+IntToStr(bpcount)+' '+'GA:'+IntToStr(GAcount)+' '+'GS:'+IntToStr(GScount)+' '+'MR:'+IntToStr(MRcount)+' '+'NS:'+IntToStr(NScount)+' '+'SA:'+IntToStr(SAcount)+' '+'SS:'+IntToStr(SScount));
  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.

 

Что писать в myspell узнаём тут: http://wiki.zhr.ru/doku.php?id=info:commands:scast

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


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

Все касты с таргетом уходят на даггер в паке. Сомо собой он должен там быть.

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


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

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