Meditation

Обычно прокачивается «параллельно» с Magery и Inscription, но есть вариант с blackrock оружием.

program Meditation;
{$Include 'all.inc'}

var
ctime : TDateTime;
i : Integer;

const
brock = $13FE; //Указать тип BLackRock`a
hands = 1; //1 - одноручное(в правую руку); 2 - двуручное (в левую руку);

Procedure Meditation;
Begin
  ctime := Now;
  repeat
    UseSkill('Meditation');
    Wait(10200);
  until InJournalBetweenTimes('You enter', ctime, Now) <> -1;
  repeat
    Wait(1000);
  until InJournalBetweenTimes('You stop m|lost|some time|at peace', ctime, Now) <> -1;
End;

begin
  while (connected) do
  begin
    Hungry(1, backpack);
    Disarm;
    for i := 0 to 50 do
    begin
      if hands = 1 then
      begin
        if (ObjAtLayer(RHandLayer) = 0) then 
        Equipt(RHandLayer, brock);
        Wait(2000);
        UnEquip(RHandLayer);
        Wait(17000);
      end
      else
      begin
        if (ObjAtLayer(LHandLayer) = 0) then 
        Equipt(LHandLayer, brock);
        Wait(2000);
        UnEquip(LHandLayer);
        Wait(17000);
      end;      
      Meditation;
    end;
  end;
end.
 
faq/stealth/meditation.txt · Последние изменения: 2019/11/18 10:58 — tsatsur
 
Recent changes RSS feed Creative Commons License Donate Powered by PHP Valid XHTML 1.0 Valid CSS Driven by DokuWiki