;Skrypt bY SabiK
;leczenie-in_vas_mani-wykrywanie-zakladanie_sztyletu
;Makro przydatne do koxania bojowki
;Jesli mamy ponizej 60hp czaruje In Vas Mani,
;Jezeli mamy ponizej 45hp leczy nas i medytuje
;Zarzuca blesa i prota
;Po nacisnieciu "insert" skrypt sie wylacza
;W wolnych chwilach skrypt robi wykrywanie

;U W A G A !!! USTAW PONIZSZE ZMIENNE PRZED WLACZENIEM SKRYPTU !!!
set %bles 1 		;Tu ustaw czy skrypt ma zarzucac blesa
set %prot 1 		;Tu ustaw czy skrypt ma zarzucac prota
set %str 70 		;Tu ustaw ponizej ilu STR skrypt ma zarzucac blesa
;------------------------------------------------------------------------------------------------------------

set #sysmsgcol 63
event sysmessage Skrypt [leczenie-in_vas_mani-wykrywanie-zakladanie_sztyletu] odpalony (bY SabiK)
wait 1
set %licz 0

start:
if #charghost = YES
{
   set #sysmsgcol 1080
   event sysmessage Wylaczono skrypt [leczenie-in_vas_mani-wykrywanie]
   halt
}
onhotkey insert
{
   finditem tsf C
   if #findkind <> 0
   {
      set #sysmsgcol 1080
      event sysmessage Nie masz sztyletu! Wylaczono skrypt [leczenie-in_vas_mani]
      halt
   }
   set #lobjectid #findid
   event macro 17
   set #sysmsgcol 1080
   event sysmessage Zalozono sztylet i wylaczono skrypt [leczenie-in_vas_mani]
   halt
}
bles:
if %bles = 0
   goto prot
if #str = 0
   goto detect
if #str > %str
   goto detect
if #mana < 9
   goto medyt
set %x #charposx
set %y #charposy
set %z #charposz
wait 10
onhotkey insert
{
   finditem tsf C
   if #findkind <> 0
   {
      set #sysmsgcol 1080
      event sysmessage Nie masz sztyletu! Wylaczono skrypt [leczenie-in_vas_mani]
      halt
   }
   set #lobjectid #findid
   event macro 17
   set #sysmsgcol 1080
   event sysmessage Zalozono sztylet i wylaczono skrypt [leczenie-in_vas_mani]
   halt
}
if #charposx = %x
{
   if #charposy = %y
   {
      if #charposz = %z
         goto bles1
   }
}
goto bles
bles1:
event macro 15 16
set %licz 0
czekaj_bles:
set %licz %licz + 1
if #targcurs = 1
   goto dalej_bles
if %licz > 200
   goto bles
goto czekaj_bles
dalej_bles:
event macro 23
wait 10
prot:
if %prot = 0
{
   if %bles = 0
      goto detect
   goto medyt
}
event macro 15 14
wait 50
goto medyt

detect:
if #hits < 65
   goto lecz
event macro 1 ^ .um wykrywanie
wait 20
if #str < %str
   goto bles
onhotkey insert
{
   set #sysmsgcol 1080
   event sysmessage Wylaczono skrypt [leczenie-in_vas_mani-wykrywanie]
   halt
}
if #hits < 65
   goto lecz
wait 20

lecz:
if #hits < 65
{
   leczenie:
   set %x #charposx
   set %y #charposy
   set %z #charposz
   wait 10
onhotkey insert
{
   finditem tsf C
   if #findkind <> 0
   {
      set #sysmsgcol 1080
      event sysmessage Nie masz sztyletu! Wylaczono skrypt [leczenie-in_vas_mani]
      halt
   }
   set #lobjectid #findid
   event macro 17
   set #sysmsgcol 1080
   event sysmessage Zalozono sztylet i wylaczono skrypt [leczenie-in_vas_mani]
   halt
}
   if #charposx = %x
   {
      if #charposy = %y
      {
         if #charposz = %z
            goto leczenie1
      }
   }
   goto lecz
   leczenie1:
   event macro 15 28
   set %czar 0
   czekaj_leczenie:
   if brakuje in #sysmsg
  {
      set #sysmsgcol 1080
      event sysmessage Brakuje Ci skladnikow lub many! Skrypt wylaczono!
      sound D:\health.wav 		;scieszka do dzwieku
      halt
   }
   set %czar %czar + 1
   if #targcurs = 1
      goto dalej_leczenie
onhotkey insert
{
   finditem tsf C
   if #findkind <> 0
   {
      set #sysmsgcol 1080
      event sysmessage Nie masz sztyletu! Wylaczono skrypt [leczenie-in_vas_mani]
      halt
   }
   set #lobjectid #findid
   event macro 17
   set #sysmsgcol 1080
   event sysmessage Zalozono sztylet i wylaczono skrypt [leczenie-in_vas_mani]
   halt
}
   if #sex = 0
   {
      if Straciles_koncentracje in #sysmsg
         goto lecz
   }
   if #sex = 1
   {
      if Stracilas_koncentracje in #sysmsg
         goto lecz
   }
   if #sysmsg = You_are_already_doing_something_else.
      goto lecz
   if %czar > 160
      goto lecz
   goto czekaj_leczenie
   dalej_leczenie:
   if #hits < 45
      goto dalej2_leczenie
   if #targcurs = 0
      {
         wait 20
         goto start
      }
   event macro 1 ^ .um wykrywanie
   wait 15
   if #hits < 45
      goto dalej2_leczenie
   if #targcurs = 0
      {
         wait 20
         goto start
      }
   wait 15
   if #hits < 45
      goto dalej2_leczenie
   if #targcurs = 0
      {
         wait 20
         goto start
      }
   goto dalej_leczenie
}
goto start

dalej2_leczenie:
event macro 23
wait 10
medyt:
if #hits < 65
   goto lecz
if #mana = #maxmana
   goto start
event macro 13 46
set %licz 0
medyt1:
set %licz %licz + 1
if #mana > #maxmana - 15
   goto start
if Rozpoczynasz_medytacje in #sysmsg
   goto koniec
if #hits < 65
   goto lecz
if %licz > 40
   goto medyt
goto medyt1
koniec:
if #hits < 65
   goto lecz
if #mana = #maxmana
   goto start
if #sysmsg = Konczysz_medytacje.
   goto start
if #sex = 0
{
   if #sysmsg = Straciles_koncentracje.
      goto start
}
if #sex = 0
{
   if #sysmsg = Stracilas_koncentracje.
      goto start
}
if #sysmsg = Nie_mozesz_sie_skoncentrowac.
   goto start
if #sysmsg = Nie_brakuje_Ci_many.
  goto start
if #sysmsg = Juz_cos_robisz.
   goto start
if #sysmsg = You_are_already_doing_something_else.
   goto start
if #sysmsg = You_must_wait_to_perform_another_action.
   goto start
if #sysmsg = Juz_medytujesz...
   goto koniec
onhotkey insert
{
   finditem tsf C
   if #findkind <> 0
   {
      set #sysmsgcol 1080
      event sysmessage Nie masz sztyletu! Wylaczono skrypt [leczenie-in_vas_mani]
      halt
   }
   set #lobjectid #findid
   event macro 17
   set #sysmsgcol 1080
   event sysmessage Zalozono sztylet i wylaczono skrypt [leczenie-in_vas_mani]
   halt
}
goto koniec