;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 62                   ;<- Ile mamy inta, aby skrypt wiedzial kiedy rzucac blesa
set %automat 1                ;<- Czy skrypt ma czarowac w automacie anexy, czy automatycznie vas flamy [0 - vas flamy , 1 - anexy]
set %mana 25                  ;<- 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