;Skrypt bY SabiK
;bc-topor.txt
;Wersja 1.1
;Skrypt robi ostatni przedmiot za pomoca toporka
;oraz ukrywa lub ocenia antomia wskazany cel

;U W A G A !!! USTAW PONIZSZE ZMIENNE PRZED WLACZENIEM SKRYPTU !!!
set %skill 2    ;[1-anatomia, 2-hiding]
;------------------------------------------------------------------------------------------------------------

set #sysmsgcol 63
event sysmessage Skrypt [bc-topor] odpalony (bY SabiK)
wait 1

if %skill = 1
{
   ltanatomia:
   set #targcurs 1
   set #sysmsgcol 63
   event sysmessage Wskaz cel do anatomii
   set %tmp #scnt2 + 38
   repeat
   if %tmp < #scnt2
      goto ltanatomia
   until #targcurs = 0
   set %lt #ltargetid
   set #sysmsgcol 88
   event sysmessage Zapisano cel anatomii
}

pojemnik1:
set #targcurs 1
set #sysmsgcol 63
event sysmessage Wskaz drewno
set %licz #scnt2 + 100
repeat
if %licz < #scnt2
   goto pojemnik1
until #targcurs = 0
set %drewno #ltargetid
set #sysmsgcol 88
event sysmessage Zapisano drewno

start:
if *STOP = 1
{
   repeat
   until *STOP = 0
   goto start
}
topor:
finditem fsf C
if #findkind = -1
   halt
set #lobjectid #findid
event macro 17
set %tmp #scnt2 + 30
repeat
if *STOP = 1
{
   repeat
   until *STOP = 0
   goto start
}
if #jindex > %jrnl
   set %jrnl %jrnl + 1
scanjournal %jrnl
if %tmp < #scnt2
   goto topor
until #targcurs = 1
drewno:
set #ltargetid %drewno
set #ltargetkind 1
event macro 22
set %tmp #scnt2 + 20
repeat
if *STOP = 1
{
   repeat
   until *STOP = 0
   goto start
}
if %tmp < #scnt2
{
   if #targcurs = 1
   goto drewno
   else
   goto topor
}
until #contsize = 560_460
klik:
click 140 390
set %jrnl #jindex
set %tmp #scnt2 + 90
repeat
if *STOP = 1
{
   repeat
   until *STOP = 0
   goto start
}
if #contsize = 560_460
   goto klik
if #jindex > %jrnl
   set %jrnl %jrnl + 1
scanjournal %jrnl
if Masz_za_malo_materialu in #journal
{
   set #sysmsgcol 1080
   event sysmessage Masz za malo materialu! Skrypt wylaczono.
   halt
}
if %tmp < #scnt2
   goto start
until zrobil in #journal || nie_udalo_ci_sie_i in #journal
if %skill = 1
   gosub anatomia
if %skill = 2
   gosub hiding
goto start

;----- SUBS -----

sub anatomia
anatomia:
event macro 1 0 .um anatomia
set %tmp #scnt2 + 30
repeat
if *STOP = 1
{
   repeat
   until *STOP = 0
   goto start
}
if #jindex > %jrnl
   set %jrnl %jrnl + 1
scanjournal %jrnl
if %tmp < #scnt2
   goto anatomia
until #targcurs = 1
anattarg:
set #ltargetid %lt
set #ltargetkind 1
event macro 22
set %jrnl #jindex
set %tmp #scnt2 + 30
repeat
if *STOP = 1
{
   repeat
   until *STOP = 0
   goto start
}
if #jindex > %jrnl
   set %jrnl %jrnl + 1
scanjournal %jrnl
if %tmp < #scnt2
{
   if #targcurs = 1
   goto anattarg
   else
   goto anatomia
}
until Cel_wyglada in #journal || nie_jestes_pewn in #journal
return

sub hiding
hid:
event macro 1 0 .um ukrywanie
set %jrnl #jindex
set %tmp #scnt2 + 30
repeat
if #jindex > %jrnl
   set %jrnl %jrnl + 1
scanjournal %jrnl
if %tmp < #scnt2
   goto hid
until ukryl in #journal || Nie_udalo_ci_sie_ukryc in #journal || Nie_uda_Ci_sie_schowac_wierzchowca in #journal
return