;Skrypt bY SabiK
;likantropia-woj_wampiryzm-woj.txt
;Wersja 1.0

;U W A G A !!! USTAW PONIZSZE ZMIENNE PRZED WLACZENIEM SKRYPTU !!!
set %runa GFUEZEF 		;Tu ustaw id runy(kliknij 2x na runo i wpisz z EasyUO #lobjectid)
set %woz 0     ; 1 - tak, 0 - nie
set %stam 30		;Tu ustaw ponizej jakiej ilosci staminy skrypt ma pic miksa odswiezenia

;------------------------------------------------------------------------------------------------------------

set #sysmsgcol 63
event sysmessage Skrypt [likantropia-woj_wampiryzm-woj] odpalony (bY SabiK)
wait 1

start:
if *STOP = 1
{
   repeat
   until *STOP = 0
}
if #stamina < %stam
   gosub czerwona
finditem %runa C
if #findkind = -1
{
   set #sysmsgcol 1080
   event sysmessage Nie masz runa! Skrypt wylaczono!
   wait 5s
   goto start
}
if #findkind = 1
{
   ignoreitem #findid
   goto start
}
if #findkind = 0
{
   set #lobjectid #findid
   event macro 17
   wait 10s

}
wait 20
if #stamina < %stam
   gosub czerwona
wait 20
scanjournal
if musisz_byc_w in #journal
{
   finditem ATXEYBF C
 set #lobjectid #findid
   event macro 17
}
scanjournal
if podczas_klatwy in #journal
   wait 50s

if %woz = 1
gosub woz

goto start

sub czerwona
finditem zuf C
if #findkind = 0
{
   set #lobjectid #findid
   event macro 17
   if #sex = 0
   {
      set #sysmsgcol 88
      set %ile #findstack - 1
      event sysmessage Wypiles miksa odswiezenia, zostalo %ile
   }
   if #sex = 1
   {
      set #sysmsgcol 88
      set %ile #findstack - 1
      event sysmessage Wypilas miksa odswiezenia, zostalo %ile
   }
}
if #findkind <> 0
{
   set #sysmsgcol 1080

   event sysmessage Nie masz miksa odswiezenia!
   return
}
return


sub woz
event macro 13 2
target
event macro 22
wait 16s
goto start
return