;Skrypt bY SabiK
;ciecie_bel_materialu
;Wersja 1.4
;U W A G A !!!
;Przed wlaczeniem skryptu zrob najpierw dana czynnosc recznie
set #sysmsgcol 63
event sysmessage Skrypt [ciecie_bel_materialu] odpalony (bY SabiK)
wait 1
set %lt #ltargetid
ignoreitem #charid
set %skill 0 	;Tu ustaw jaki skill ma byc robiony z cieciem (0 - Nic, 1 - Madrosc, 2 - Hiding, 3 - Anatomia)


start:
madrosc:
if %skill <> 1
   goto hiding
set #ltargetid %lt
event macro 1 ^ .um madrosc
set %licz #scnt2 + 20
czekaj_madrosc:
if #targcurs = 1
   goto dalej_madrosc
if %licz < #scnt2
   goto madrosc
goto czekaj_madrosc
dalej_madrosc:
event macro 22
goto ciecie

hiding:
if %skill <> 2
   goto anatomia
event macro 1 ^ .um ukrywanie
set %licz #scnt2 + 20
czekaj_hiding:
scanjournal 1
if H in #charstatus
   goto ciecie
if Schowal in #journal || Ukryl in #journal || Nie_uda in #journal
   goto ciecie
if %licz < #scnt2
   goto hiding
goto czekaj_hiding

anatomia:
if %skill <> 3
   goto ciecie
set #ltargetid %lt
event macro 1 ^ .um anatomia
set %licz #scnt2 + 20
czekaj_anatomia:
if #targcurs = 1
   goto dalej_anatomia
if %licz < #scnt2
   goto anatomia
goto czekaj_anatomia
dalej_anatomia:
event macro 22
goto ciecie

ciecie:
finditem kag C
if #findkind = -1
{
   set #sysmsgcol 1080
   event sysmessage Nie masz nozyczek! Skrypt wylaczono!
   halt
}
set #lobjectid #findid
event macro 17
set %licz #scnt2 + 25
repeat
if %licz < #scnt2
   goto ciecie
until #targcurs = 1
finditem zzf_mag_oag_lag C
if #findkind = -1
{
   set #sysmsgcol 1080
   event sysmessage Nie masz bel materialu! Skrypt wylaczono!
   halt
}
set #ltargetkind 1
set #ltargetid #findid
event macro 22
set %licz #scnt2 + 65
repeat
scanjournal 1
if %licz < #scnt2
   goto ciecie
until s_tkanine in #journal || Nie_udalo_Ci in #journal || oddalil in #journal
goto start