;by odzi
    ;ver. 1.0
    ;Bierny kox inta na nowych zasadach czynnego koxu;) pozdrawiam.

    set %str 60

    set %ji #jindex
    set #lpc 1000

    repeat
    {
          gosub sprawdz
          if #result = biegnie
             continue
          set %hp #maxhits - 50
          if #hits <= %hp && #mana > 10
          {
             gosub lecz
             if #result = strata
                continue
          }
          gosub sprawdz
          if #result = biegnie
             continue
          if #str = %str
             gosub bles
          gosub sprawdz
          if #result = biegnie
             continue
          set %mana 20
          if #mana <= %mana
          {
             gosub medyt
             if #result = lecz
                continue
             gosub sprawdz
             if #result = biegnie || #result = strata
                        continue
             ;if #result <> nie
                ;gosub przerwij
          }
          gosub sprawdz
          if #result = biegnie
             continue
          if #enemyid <> N/A && #result <> biegnie
          {
             gosub czaruj
    }
    until #false

    sub bles
    repeat
    {
          gosub sprawdz
          if #result = biegnie
             return
          event macro 15 16
          set %czas #scnt + 7
            repeat
            {
                  if %ji < #jindex
                  {
                     set %ji %ji + 1
                     scanjournal %ji
                     if Straciles_ in #journal
                     {
                        gosub sprawdz
                        if #result = biegnie
                           continue
                        event macro 15 28
                     }
                     if Zapisywanie in #journal
                        gosub zapis
                  }
                  if %czas < #scnt
                                return
            }
            until #targcurs = 1
            event macro 23
            set %czas #scnt2 + 3
            repeat
            {
                  if %ji < #jindex
                  {
                     set %ji %ji + 1
                     scanjournal %ji
                     if Straciles_ in #journal
                        return strata
                     if Zapisywanie in #journal
                        gosub zapis
                  }
                  if #targcurs <> 0 && %czas < #scnt2
                     event macro 23
            }
            until #targcurs = 0
            event macro 15 14
            return
    }
    until #false

    sub lecz
    repeat
    {
            gosub sprawdz
            if #result = biegnie
               continue
            event macro 15 28
            set %czas #scnt + 7
            repeat
            {
                  if %ji < #jindex
                  {
                     set %ji %ji + 1
                     scanjournal %ji
                     if Straciles_ in #journal
                     {
                        gosub sprawdz
                        if #result = biegnie
                           continue
                        event macro 15 28
                     }
                     if Zapisywanie in #journal
                        gosub zapis
                  }
                  if %czas < #scnt
                                return
            }
            until #targcurs = 1
            event macro 23
            set %czas #scnt2 + 3
            repeat
            {
                  if %ji < #jindex
                  {
                     set %ji %ji + 1
                     scanjournal %ji
                     if Straciles_ in #journal
                        return strata
                     if Zapisywanie in #journal
                        gosub zapis
                  }
                  if #targcurs <> 0 && %czas < #scnt2
                     event macro 23
            }
            until #targcurs = 0
            return
    }
    until #false
    return

    sub zapis
    repeat
    {
    if %ji < #jindex
    {
       set %ji %ji + 1
       scanjournal %ji
       if Koniec_zapisywania. in #journal
          return
    }
    }
    until #false
    return

    sub sprawdz
    set %x #charposx
    set %y #charposy
    set %z #charposz
    set %ch #chardir
    if #charposx = %x
    {
       if #charposy = %y
       {
          if #charposz = %z
          {
             if #chardir = %ch
             set %biegnie 0
             return
          }
       }
    }
    return biegnie

    sub czaruj
        set %hp #maxhits - 50
        if #hits <= %hp
           return
        if #mana <= %mana
           return
        event macro 15 17
        set %czas #scnt + 7
        repeat
        {
              if %ji < #jindex
              {
                 set %ji %ji + 1
                 scanjournal %ji
                 if Zapisywanie in #journal
                    gosub zapis
              }
              if %czas < #scnt
                 return
        }
        until #targcurs = 1
        set #ltargetid #enemyid
        event macro 22 0
        event macro 22 0
        set %czas #scnt + 3
        repeat
        {
              if %ji < #jindex
              {
                 set %ji %ji + 1
                 scanjournal %ji
                 if Zapisywanie in #journal
                    gosub zapis
              }
              if %czas < #scnt
                 return
        }
        until #targcurs = 0
    return

    sub medyt
    set %hp #maxhits - 30
        if #hits <= %hp
           return lecz
    event macro 13 46
    set %czas #scnt + 5
    repeat
    {
          set %hp #maxhits - 30
              if #hits <= %hp
                 return lecz
          if %ji < #jindex
          {
             set %ji %ji + 1
             scanjournal %ji
             if #mana = #maxmana
                return
             if Straciles in #journal || Stracilas in #journal
             {
                gosub sprawdz
                if #result <> biegnie
                   event macro 13 46
                else
                    return strata
             }
             if Nie_mozesz in #journal
             {
                gosub sprawdz
                if #result <> biegnie
                   event macro 13 46
                else
                    return strata
             }
             if You_must_wait in #journal
             {
                event macro 13 46
                wait 3s
             }
          }
          if #mana = #maxmana
                return nie
    }
    until #false
    return

    sub przerwij
    finditem * C_ , #backpackid
    for #findindex 1 #findcnt
    {
        if #findtype = TUF
        {
           set #lobjectid #findid
           event macro 17
           repeat
           {
              if %ji < #jindex
              {
                 set %ji %ji + 1
                 scanjournal %ji
                 if Zapisywanie in #journal
                    gosub zapis
              }
              if #targcurs <> 1 && %czas < #scnt
                 event macro 15 52
           }
           until #targcurs = 1
           key esc
           set %czas #scnt + 5
           repeat
           {
              if %ji < #jindex
              {
                 set %ji %ji + 1
                 scanjournal %ji
                 if Zapisywanie in #journal
                    gosub zapis
              }
              if #targcurs <> 0 && %czas < #scnt
                 event macro 22
           }
           until #targcurs = 0
           return
        }
        if #findindex >= #findcnt
           return
    }
    return