;Autor: [nGz]
;Zaglada do ostatniego celu.
set %skill 1                      ;Jesli ustawisz na 1 to bedzie robilo hida jak sie uda otworzyc plecak
initevents
set %lt #ltargetid
start:
set %licz 0
event macro 1 0 .um zagladanie
loop:
set %licz %licz + 1
wait 1
wait 1
if #targcurs = 1
   goto dalej
if %licz > 5
   goto start
goto loop
dalej:
set #ltargetid %lt
set #ltargetkind 1
event macro 22
set %licz #scnt2 + 140
loop2:
scanjournal 1
if Anulowano in #journal
   halt
if Stoisz_za_daleko in #journal
   halt
if Nie_udalo_ci_sie in #journal
{
   wait 53
   goto start
}
if Udalo_ci_sie_otworzyc_plecak_ in #sysmsg
{
   udalosie:
   wait 60 25
   if #chardir <> 0
      event macro 5 1
   else
      event macro 5 5
   wait 5
   if %skill = 1
      gosub hid
   wait 250 20
   goto start
}
if Your_skill_in in #sysmsg
   goto udalosie
if %licz < #scnt2
   goto start
goto loop2
sub hid
start2:
set %licz 0
event macro 13 21
loop3:
scanjournal 1
set %licz %licz + 1
wait 1
wait 1
if #charstatus = H
   goto czekaj
if schowal in #journal
   goto czekaj
if nie_udalo_Ci_sie_tu in #journal
   goto czekaj
if Your_skill_in in #sysmsg
   goto czekaj
if %licz > 5
   goto start2
goto loop3
czekaj:
return