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

set %str 73

set %ji #jindex
set #lpc 1000
set %mana 5
repeat
{
      if #charstatus = A
      {
         repeat
         until #charstatus <> A
      }
      set %hp #maxhits - 30
      if #hits <= %hp && #mana > 10
      {
         if #mana < 10
            gosub medyt
         gosub lecz
         if #result = strata
            continue
      }
      if #str = %str
         gosub bles
      if #mana <= %mana
      {
         gosub medyt
         if #result = lecz || #result = powrot
            continue
      }
      if #enemyid <> N/A
      {
         finditem * G_14
         for #findindex 1 #findcnt
         {
             if #findid = #enemyid
                gosub czaruj
             else
                 continue
         }
      }
}
until #false

sub bles
set #lpc 1000
repeat
{
      event macro 15 16
      set %czas #scnt + 7
        repeat
        {
              if %ji < #jindex
              {
                 set %ji %ji + 1
                 scanjournal %ji
                 if Straciles_ in #journal
                 {
                    wait 4s
                    return
                 }
                 if Zapisywanie in #journal
                    gosub zapis
              }
              if #charstatus = A
                 return
              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 #charstatus = A
                 return
              if #targcurs <> 0 && %czas < #scnt2
                 event macro 23
        }
        until #targcurs = 0
        event macro 15 14
        wait 3s
        return
}
until #false

sub lecz
set #lpc 1000
repeat
{
        if #mana < 11
           gosub medyt
        event macro 15 28
        set %czas #scnt + 7
        repeat
        {
              if %ji < #jindex
              {
                 set %ji %ji + 1
                 scanjournal %ji
                 if Straciles_ in #journal
                 {
                    wait 4s
                    return
                 }
                 if Zapisywanie in #journal
                    gosub zapis
              }
              if #charstatus = A
                 return
              if %czas < #scnt
                            return
        }
        until #targcurs = 1
        event macro 23 0
        event macro 23 0
        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
                 event macro 23 0
              if #charstatus = A
                 return
        }
        until #targcurs = 0
        wait 1s
        return
}
until #false
return

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

sub czaruj
set #lpc 1000
    set %hp #maxhits - 30
    if #hits < %hp
       return
    if #mana < %mana
       return
    event macro 15 4
    set %czas #scnt + 2
    repeat
    {
          if %ji < #jindex
          {
             set %ji %ji + 1
             scanjournal %ji
             if Zapisywanie in #journal
                gosub zapis
             if Straciles in #journal
             {
                wait 4s
                return
             }
          }
          if #charstatus = A
                 return
          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
          if #charstatus = A
                 return
          if #targcurs = 1
          {
             event macro 22 0
             event macro 22 0
          }
    }
    until #targcurs = 0
return

sub medyt
set #lpc 1000
event macro 13 46
set %czas #scnt + 5
set %czas1 #scnt + 5
repeat
{
      if %ji < #jindex
      {
          set %ji %ji + 1
          scanjournal %ji
          if *medytuje* in #journal
             break
          if %czas1 < #scnt
             event macro 13 46
      }
      set %hp #maxhits - 30
      if #hits <= %hp && #mana > 10
       return lecz
      if #charstatus = A
                 return
}
until %czas < #scnt
set %czas #scnt + 15
repeat
{
      set %hp #maxhits - 30
          if #hits <= %hp && #mana > 10
             return lecz
      set %mana1 #mana
      set %czas2 #scnt + 1
      if #charstatus = A
                 return
      while %czas2 < #scnt
      {
            if #charstatus = A
                 return
          set %mana2 #mana - %mana1
          if %mana2 < 6
             event macro 13 46
      }
      if %ji < #jindex
      {
         set %ji %ji + 1
         scanjournal %ji
         if Straciles in #journal || Stracilas in #journal
                return strata
         if Nie_mozesz_sie_skoncentrowac. in #journal
                return strata
         if Konczysz_ in #journal && #mana < #maxmana
            return powrot
      }
      if #charstatus = A
                 return
      if #mana = #maxmana
            return nie
}
until %czas < #scnt
return