;Skrypt bY SabiK
;nekro-an_lor-self
;Skrypt czaruje an lora, wali w siebie i jesli nie ma many medytuje
set #sysmsgcol 63
event sysmessage Skrypt [nekro-an_lor-self] odpalony (bY SabiK)
wait 1

start:
if #mana < 4
   goto medyt
czar:
if #str < 30
gosub bless
event macro 1 0 an lor ;key f12 ;event macro 15 41
czekaj_czar:
if Czar_sie_nie_udal in #sysmsg
{
   if #mana < 4
      goto medyt
   if #mana => 4
      goto czar
}
if Brakuje_Ci_many in #journal
   goto medyt
if #targcurs = 1
   goto dalej_czar
goto czekaj_czar
dalej_czar:
event macro 22 ; 22 - ltarget, 23 - targetself
wait 10
goto start

medyt:

event macro 13 46
set %med 0
czekaj_medyt:
set %med %med + 1
if Rozpoczynasz_medytacje in #sysmsg
   goto koncz
if Nie_brakuje_Ci_many in #sysmsg
   goto start
if %med > 40
   goto medyt
goto czekaj_medyt

koncz:
if #mana = #maxmana
{
   jedzenie:
   finditem hnd_bnd_twi_fwi_ywi_qqd_bdf_zpe_uwi_rqe_axi_aqd_gud_qud_uqe_nwi_yrd_zpd_cwe C
   set #lobjectid #findid
   event macro 17
   wait 20
   goto start
}
if Konczysz_medytacje in #sysmsg
{
   if #mana = #maxmana
   {
   jedzenie:
   finditem hnd_bnd_twi_fwi_ywi_qqd_bdf_zpe_uwi_rqe_axi_aqd_gud_qud_uqe_nwi_yrd_zpd_cwe C
   set #lobjectid #findid
   event macro 17
   wait 20
   goto start
   }
   wait 20
   goto medyt
}
if Nie_brakuje_Ci_many in #sysmsg
{
   jedzenie:
   finditem hnd_bnd_twi_fwi_ywi_qqd_bdf_zpe_uwi_rqe_axi_aqd_gud_qud_uqe_nwi_yrd_zpd_cwe C
   set #lobjectid #findid
   event macro 17
   wait 20
   goto start
}
if Nie_mozesz_sie_skoncentrowac in #sysmsg
{
   if #mana = #maxmana
   {
   jedzenie:
   finditem hnd_bnd_twi_fwi_ywi_qqd_bdf_zpe_uwi_rqe_axi_aqd_gud_qud_uqe_nwi_yrd_zpd_cwe C
   set #lobjectid #findid
   event macro 17
   wait 20
   goto start
   }
   wait 20
   goto medyt
}
if Straciles_koncentracje in #sysmsg
{
   if #mana = #maxmana
   {
   jedzenie:
   finditem hnd_bnd_twi_fwi_ywi_qqd_bdf_zpe_uwi_rqe_axi_aqd_gud_qud_uqe_nwi_yrd_zpd_cwe C
   set #lobjectid #findid
   event macro 17
   wait 20
   goto start
   }
   wait 20
   goto medyt
}
if Your in #sysmsg
   goto koncz
goto koncz

sub bless
event macro 1 0 furis nefas
wait 3s ;wystarczy? tak                      czekaj

return