;Autor: [nGz]
;Gra na bebenku lub gitarze.
;Nie przejmuj sie tymi message'ami co bedziesz mial nad glowa - to tak musi byc, zeby szybciej robilo to co ma robic
initevents
set %ukryc 0
set %zegar 0
start:
if %zegar < #scnt
{
   kolko:
   finditem hnd        ;steki
   if #findkind = -1
      goto idzdalej
   set #lobjectid #findid
   event macro 17
   wait 9
   scanjournal 1
   if Nie_mozesz_juz_zjesc_nic_wiecej... in #journal || Tym_sie_nie_najesz... in #journal
    {
      set %zegar #scnt + 330
      goto idzdalej
    }
   goto kolko
}
idzdalej:
set %licz 0
event macro 13 21
loop:
scanjournal 1
set %licz %licz + 1
wait 1
wait 1
if #charstatus = H
   goto czekaj0
if schowal in #journal
   goto czekaj0
if nie_udalo_Ci_sie_tu_ in #journal
   goto czekaj
if Your_skill_in_Ukrywanie in #sysmsg
   goto czekaj0
if Wrog_Cie_juz in #journal
   goto czekaj
if %licz > 3
   goto start
goto loop
czekaj0:
wait 5
if Your_skill_in_Ukrywanie in #sysmsg
{
   set %ukryc %ukryc + 1
   set %kop %ukryc
   event sysmessage Ukryles sie %ukryc razy
   wait 3
   set %ukryc 0
   goto czekaj
}
set %ukryc %ukryc + 1
czekaj:
set %cosik 0
graj:
finditem mqf
if #findkind = -1
{
   finditem prf
   if #findkind = -1
      goto graj
}
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