;Skrypt bY SabiK
;krawiectwo-naprawianie
;Wersja 1.2

set #sysmsgcol 63
event sysmessage Skrypt [krawiectwo-naprawianie] odpalony (bY SabiK)
wait 1
gosub ltustaw
ignoreitem ddg
ignoreitem cui

start:
finditem * C_ , %lt
if #findkind = -1
{
   set #sysmsgcol 88
   event sysmessage Naprawiono wszystkie przedmioty! Skrypt wylaczono.
   if #targcurs = 1
      key esc
   halt
}
if *STOP = 1
{
   repeat
   until *STOP = 0
}
finditem hag C
if #findkind = -1
{
   set #sysmsgcol 1080
   event sysmessage Nie znaleziono narzedzi szewskich! Skrypt wylaczono.
   halt
}
set #lobjectid #findid
event macro 17
set %licz #scnt2 + 25
repeat
if %licz < #scnt2
   goto start
until #targcurs = 1
finditem * C_ , %lt
if #findkind = -1
{
   set #sysmsgcol 88
   event sysmessage Naprawiono wszystkie przedmioty! Skrypt wylaczono.
   if #targcurs = 1
      key esc
   halt
}
set %item #findid
set #ltargetid %item
event macro 22
wait 10
set %licz #scnt2 + 105
repeat
if s_ten_przedmiot_calkowicie in #sysmsg || Przedmiot_nie_jest_zniszczony in #sysmsg || nie_naprawisz in #sysmsg || nie_da_naprawic in #sysmsg
{
   ignoreitem %item
   goto start
}
if nie_masz_materialu_do_naprawy_przedmiotu in #sysmsg
{
   set #sysmsgcol 1080
   event sysmessage Nie masz materialu do naprawy! Skrypt wylaczono.
   if #targcurs = 1
      key esc
   halt
}
until %licz < #scnt2 || Czesciowo_naprawil in #sysmsg ||  Nie_udalo_ci_sie_i in #sysmsg
goto start

sub ltustaw
set #ltargetid BRAK
set #targcurs 1
set #sysmsgcol 63
event sysmessage Wskaz teraz plecak z przedmiotami do naprawy!
set %temp #scnt2 + 40
repeat
onhotkey esc
{
   set #targcurs 0
   set #sysmsgcol 1080
   event sysmessage Anulowano.
   return
}
if %temp < #scnt2
{
   set #targcurs 0
   set #sysmsgcol 1080
   event sysmessage Anulowano.
   return
}
until #ltargetid <> BRAK
set #ltargetkind 1
set %lt #ltargetid
set #sysmsgcol 88
event sysmessage Zapisano.
otworz1:
set #lobjectid %lt
event macro 17
set %licz #scnt2 + 25
repeat
if %licz < #scnt2
   goto otworz1
until #contid = %lt
wait 15
finditem * C_ , %lt
if #findkind = -1
{
   set #sysmsgcol 1080
   event sysmessage Nie znaleziono przedmiotu do naprawy! Skrypt wylaczono.
   if #targcurs = 1
      key esc
   halt
}
return