set %lastSpell #LSPELL
set %slowa Amalda , #spc ,  Nibin ,  ; tu trzeba wpisac slowa czaru na ktorym koksamy np. Sdhbhal , #spc ,   Roiseal ; jesli jest to jedno slowo wpisujemy tylko pierwszy czlon czyli np. Sdhbhal ; jesli 3 slowa wpisujemy 3 czlony czyli np. Sdhbhal , #spc ,   Roiseal , #spc ,   costam
set %lt        #LTARGETID
set %med 1   ; <- po ilu czarach chcesz medytowac
set %ltk 2    ; 1- przedmioty/ludzie, 2 ziemia gory, 3 drzewa woda
set %mCount 0


ptl:
    set #LSPELL %lastSpell
    set %m #MANA
    ;event macro 16 0
    set %tmp #jindex
    event macro 1 0 %slowa
    repeat
    {
          if #mana < %m
             break
          if #jindex > %tmp
          {
              set %tmp %tmp + 1
              scanjournal %tmp
              if Brakuje_Ci_many in #journal
              {
                 gosub medytacja
                 set %mCount 0
                 goto ptl
              }
              if Brakuje_ci_skladnikow in #journal
              {
                 pause
                 goto ptl;
              }
          }
    }
    until #TARGCURS <> 0
    target 1s
    if #TARGCURS <> 0
    {
       set #LTARGETKIND %ltk
       set #LTARGETID %lt
       event macro 22 0
       wait 10
    }

    set %mCount %mCount + 1

    if %mCount >= %med
    {
       gosub medytacja
       set %mCount 0
    }

    goto ptl



sub medytacja
{
   start_med:
    set %tmp #jindex
    event macro 13 46

    while #true
    {
        if #jindex > %tmp
        {
           set %tmp %tmp + 1
           scanjournal %tmp
           if Konczysz in #journal
              break
           if Nie_mozesz_sie in #journal
           {
              wait 1s
              goto start_med
           }
           if Juz_cos_robisz in #journal
           {
              wait 1s
              goto start_med
           }
           if Nie_brakuje in #journal
              break
           if You_must_wait in #journal
           {
              wait 5
              goto start_med
           }
        }
    }
    gosub glod
    return
}



sub Glod
{
    set %tmp #jindex
    event macro 1 0 .glod

    while #true
    {
          if #jindex > %tmp
          {
             set %tmp %tmp + 1
             scanjournal %tmp
             if Jestes_porzadnie in #journal
                break
             if Jestes_najedzon in #journal
             {
                finditem DUF ; tu trzeba dopisac jedzonko !!
                if #findkind = -1
                {
                   event sysmessage Nie moge znalesc niczego do jedzenia !
                   halt
                }
                set #lobjectid #findid
                event macro 17 0
                wait 25
                break
             }
          }
    }
    return
}