;Autor: [nGz]
;Gra na bebenku/gitarze przy nie udanej probie schowania sie lub zakradania.
initevents
start:
set %licz 0
event macro 13 21
loop:
set %licz %licz + 1
wait 1
wait 1
if #charstatus = H
   goto czekaj0
scanjournal 1
if schowal in #journal
   goto czekaj0
if nie_udalo_Ci_sie_tu in #journal
   goto czekaj
if Your_skill_in in #sysmsg
   goto czekaj0
if Wrog_Cie_juz in #journal
   goto czekaj
if %licz > 5
   goto start
goto loop
czekaj1:
event macro 13 47
wait 30
czekaj0:
wait 170 10
zakra:
set %licz 0
event macro 13 47
loop2:
set %licz %licz + 1
wait 1
wait 1
if Your_skill_in in #sysmsg
   goto czekaj1
scanjournal 1
if Odkryl in #journal
   goto czekaj
if Teraz_poruszasz in #journal
   goto czekaj1
if Zeby_sie_skradac in #sysmsg
   goto czekaj
if %licz > 5
   goto zakra
goto loop2
czekaj:
set %cosik 0
graj:
finditem mqf
if #findkind = -1
{
   finditem prf
   if #findkind = -1
      halt
}
if #findkind = 1
{
   ignoreitem #findid
   goto graj
}
set #lobjectid #findid
event macro 17
wait 4
if I_am_already_doing_some in #sysmsg
   goto graj2
goto graj
graj2:
wait 20
if %cosik = 1
   goto start
petla:
event macro 13 21
wait 2
scanjournal 1
if You_must_wait in #journal
{
   set %cosik 1
   goto graj
}
wait 9
goto petla