Sitemap

Is usually trained along with Magery и Inscription, but there is an option to train Meditation using blackrock weapon.

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

var
ctime : TDateTime;
i : Integer;

const
brock = $13FE; //Specify BLackRock`s weapon
hands = 1; //1 - one-handed (in the right hand); 2 - two-handed (in the left hand);

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.