;by odzi
    ;ver. 1.1
    ;Kox magii/inta
    ;Skrypt w automacie czaruje anexy, i co 30 min zaczyna rzucac vas flamy, po zabiciu wszystkich mobow w kolo dzwoni i zatrzymuje skrypt
    ;Gdy %automat jest 0, czaruje vas flamy w atakujacy nas cel.
    ;Skrypt leczy nas kiedy dostaniemy obrażenia większe od 30 hp.

    set %int 54                  ;<- Ile mamy inta, aby skrypt wiedzial kiedy rzucac blesa
    set %automat 0                ;<- Czy skrypt ma czarowac w automacie anexy, czy automatycznie vas flamy [0 - vas flamy , 1 - anexy]
    set %mana 15                  ;<- Od ilu ma medytowac
    set %sciezka F:ringin.wav    ;<- Sciezka do dzwieku

    ;==============================================================================================================================================================

    set %ji #jindex
    set #lpc 1000
    set %czar 0
    set *medyt 0
    set *bles 0
    set *czar 0
    set %piorun 0
    set %klatwa 0
    set %timer #scnt + 1800
    set %time 0

    ;==============================================================================================================================================================

    repeat
    {
          if %automat = 1
          {
             if %time < #scnt
             {
                set #sysmsgcol 75
                set %odlicz %timer - #scnt
                set %odlicz %odlicz / 60
                event sysmessage Pozostalo: %odlicz min
                set %time #scnt + 60
             }
             if #enemyid = N/A
             {
                sound %sciezka
                halt
             }
          }
    set *medyt 0
    set *bles 0
    set *czar 0
          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 #int = %str
          {
             set *bles 1
             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
                    ;if %czar = 2
                    ;{
                       ;gosub medyt
                       ;set %czar 0
                    ;}
                 }
             }
          }
    }
    until #false

    sub bles
    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 #scnt + 1
            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 < #scnt
                     event macro 23
            }
            until #targcurs = 0
            event macro 15 14
            wait 3s
            set *bles 0
            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 %ji #jindex
        set *czar 1
        set %hp #maxhits - 30
        if #hits < %hp
           return
        if #mana < %mana
           return
        if %automat = 1
        {
           if %timer > #scnt
           {
              event macro 15 37
              repeat
              {
                    event macro 26 0
                    if #ltargetid = #charid || #ltargetid = PZWNG
                       continue
              }
              until #ltargetid <> #charid
           }
           if %timer < #scnt
           {
              set #ltargetid #enemyid
              event macro 15 17 ;37
           }
        }
        if %automat = 0
        {
           set #ltargetid #enemyid
           event macro 15 17
        }
        set %czas #scnt + 5
        repeat
        {
              if %klatwa > 4 && %piorun > 0
              {
                 set %klatwa 0
                 set %piorun 0
              }
              if #hits <= %hp && #mana > 10
          {
              key esc
             if #mana < 10
                gosub medyt
             return
             if #result = strata
                continue
          }
              if %czas < #scnt
                 return
              if %ji < #jindex
              {
                 set %ji %ji + 1
                 scanjournal %ji
                 if Zapisywanie in #journal
                    gosub zapis
                 if Czar_sie_nie_ in #journal
                    return
                 if Stracil in #journal
                 {
                    set *czar 0
                    wait 4s
                    return
                 }
              }
              if #charstatus = A
              {
                 set *czar 0
                     return
              }
        }
        until #targcurs = 1
        event macro 22 0
        set %czas #scnt + 1
        repeat
        {
              if #hits <= %hp && #mana > 10
          {
              key esc
             if #mana < 10
                gosub medyt
             return
             if #result = strata
                continue
          }
              if #charstatus = A
                     return
              if %czas < #scnt
                 event macro 22
        }
        until #targcurs = 0
        wait 3
        set %czar %czar + 1
        set *czar 0
        if %klatwa > 4 && %piorun > 0
        {
           set %klatwa 0
           set %piorun 0
        }
    return

    sub medyt
    set *medyt 1
    event macro 13 46
    set %czas #scnt + 10
    set %czas1 #scnt + 5
    repeat
    {
          if %ji < #jindex
          {
              set %ji %ji + 1
              scanjournal %ji
              if *medytuje* in #journal || Rozpoczynasz_ in #journal
                 break
              if You_must_ in #journal
                 event macro 13 46
              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 + 30
    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
             {
                set *medyt 0
                    return strata
             }
             if Nie_mozesz_sie_skoncentrowac. in #journal
             {
                set *medyt 0
                    return strata
             }
             if Konczysz_ in #journal && #mana < #maxmana
             {
                set *medyt 0
                return powrot
             }
          }
          if #charstatus = A
                     return
          if #mana = #maxmana
          {
             set *medyt 0
                return nie
          }
    }
    until %czas < #scnt
    return