Резист пот ДРВ.

[Unholy]

Code: Select all

1 Чар.
Пока не здохнеш.
бегин
Пока у чара мана >= 11
бегин
Кастовать стрелку на второго чара
енд 
Сказать Medit
вармоде 0

Пока маны < инты
бегин
Юз скилл медитация
вейт 2000
Энд
енд

Code: Select all

2 чар.
Пока не здохнет
пока в журнале нету Medit
ждать 1000

Пока Хп < силы
Бинтоваться

Помыть бинты

Покушать

енд

В общем если я разберусь что тут у вас и к чему... то напишу!

[Acronym]

Про проверки не забудь, на наличие регов, бинтов, второго чара...

[Unholy]

Про проверки не забудь, на наличие регов, бинтов, второго чара...

В кизду проверки)))
Скушали свинюку! Взяли по 3к БП и НС, одели брас маны и запустили!

Code: Select all

program caster;
const SekCh = ;

procedure Check_World_Save;
 begin
  if InJournal('saving')<>-1 then
   begin
    ClearJournal;
    k:=0;
    repeat
      wait(10000)
      k:=k+1;
      AddToSystemJournal('World is saving more than '+IntToStr(k*10)+' seconds.');
    until (InJournal('data')<>-1) or (k>30)
   end
 end;

   procedure Medita;
   begin
      while mana < MaxMana do
      begin
      useskill('meditation');
      Check_World_Save;
      wait (2000);
      end;
   addtosystemjournal('медитация закончена');
   end;


begin
while not Dead do 
	Begin
		While mana >= 14 do
		begin
		Check_World_Save;
		cast('Magic Arrow');
		WaitTargetObject(SekCh);
		Wait(1700);
		End;
addtosystemjournal('Мана закончилась.');
uosay('medit');
		While Mana < MaxMana do
		Medita;
	End;
end.

Вот это - кастер...