set %skill 3
set %plecakid QANIKZF
set %twojplecakid ZRUTAZF
set %idLamy 0
   initevents
set %kop 0
set %runda 0
set %syspid 0
set %systid 0
set %jrud 0
set %wjt 0
set %zacz 0
start:
set %licz2 0
if %kop = 0
 {
   set #ltargetx #charposx
   set #ltargety #charposy
 }
if %kop = 1
 {
   set #ltargetx #charposx
   set #ltargety #charposy + 1
 }
if %kop = 2
 {
   set #ltargetx #charposx - 1
   set #ltargety #charposy
 }
if %kop = 3
 {
   set #ltargetx #charposx
   set #ltargety #charposy - 1
 }
if %kop = 4
 {
   set #ltargetx #charposx + 1
   set #ltargety #charposy
 }
if %kop = 5
 {
   set #ltargetx #charposx + 1
   set #ltargety #charposy + 1
 }
if %kop = 6
 {
   set #ltargetx #charposx
   set #ltargety #charposy + 2
 }
if %kop = 7
 {
   set #ltargetx #charposx - 1
   set #ltargety #charposy + 1
 }
if %kop = 8
 {
   set #ltargetx #charposx - 2
   set #ltargety #charposy
 }
if %kop = 9
 {
   set #ltargetx #charposx - 1
   set #ltargety #charposy - 1
 }
if %kop = 10
 {
   set #ltargetx #charposx
   set #ltargety #charposy - 2
 }
if %kop = 11
 {
   set #ltargetx #charposx + 1
   set #ltargety #charposy - 1
 }
if %kop = 12
 {
   set #ltargetx #charposx + 2
   set #ltargety #charposy
 }
if %kop = 13
 {
   set #ltargetx #charposx + 2
   set #ltargety #charposy + 1
 }
if %kop = 14
 {
  set #ltargetx #charposx + 2
   set #ltargety #charposy + 2
 }
if %kop = 15
 {
   set #ltargetx #charposx + 1
   set #ltargety #charposy + 2
 }
if %kop = 16
 {
   set #ltargetx #charposx - 1
   set #ltargety #charposy + 2
 }
if %kop = 17
 {
   set #ltargetx #charposx - 2
   set #ltargety #charposy + 2
 }
if %kop = 18
 {
   set #ltargetx #charposx - 2
   set #ltargety #charposy + 1
 }
if %kop = 19
 {
   set #ltargetx #charposx - 2
   set #ltargety #charposy - 1
 }
if %kop = 20
 {
   set #ltargetx #charposx - 2
   set #ltargety #charposy - 2
 }
if %kop = 21
 {
   set #ltargetx #charposx - 1
   set #ltargety #charposy - 2
 }
if %kop = 22
 {
   set #ltargetx #charposx + 1
   set #ltargety #charposy - 2
 }
if %kop = 23
 {
   set #ltargetx #charposx + 2
   set #ltargety #charposy - 2
 }
if %kop = 24
 {
   set #ltargetx #charposx + 2
   set #ltargety #charposy - 1
 }
ignoreitem reset
kilofek:
finditem npf
if #findkind = -1
 {
   set #sysmsgcol 1080
   event sysmessage Nie znaleziono kilofa
   halt
 }
if #findkind = 1
 {
   ignoreitem #findid
   goto kilofek
 }
set %kilofek #findid
if %zacz = 0
 {
   set #sysmsgcol 1264
   event sysmessage Zaczynam kopac - 1
   set %zacz 1
   wait 1
 }
kil:
set %licz 0
set #lobjectid #findid
event macro 17
loop:
set #ltargetkind 3
set %licz %licz + 1
wait 1
wait 1
if #targcurs = 1
   goto dylej
if %licz > 6
   goto kil
goto loop
dylej:
// event macro 22
// event macro 22
event macro 22
wait 5
if Wybrane_miejsce_jest in #sysmsg
   goto start
if Tu_nic_nie_wykopiesz in #sysmsg
 {
   if %kop = 24
    {
      set #sysmsgcol 1080
      wait 1
      event sysmessage Skonczono kopac
      halt
         }
   set %kop %kop + 1
   set %rkop %kop + 1
   set #sysmsgcol 1264
   wait 1
   event sysmessage Zaczynam kopac w nastepnym miejscu - %rkop
   goto start
 }
if lopaty_lub_szufelki in #sysmsg
 {
   if %kop = 24
    {
      set #sysmsgcol 1080
      wait 1
      event sysmessage Skonczono kopac
      halt
    }
   set %kop %kop + 1
   set %rkop %kop + 1
   set #sysmsgcol 1264
   wait 1
   event sysmessage Zaczynam kopac w nastepnym miejscu - %rkop
   goto start
 }
rudka:
finditem %plecakid
set #findmod 25_7
if #findkind = -1
 {
   if %syspid = 1
      goto wtym
   if %jrud = 1
    {
      str lower %plecakid
      set #sysmsgcol 1080
      wait 1
      if #strres = N/A
         event sysmessage Nie znaleziono plecaka %plecakid - Nie przenosze rudy
      if #strres <> N/A
         event sysmessage Nie znaleziono plecaka #strres - Nie przenosze rudy
      set %syspid 1
    }
   goto wtym
 }
set %x #findx
set %y #findy
set %syspid 0
finditem dwj
if #findkind = -1
 {
   if %systid = 1
      goto wtym
   if %jrud = 1
    {
      str lower %twojplecakid
      set #sysmsgcol 1080
      wait 1
      if #strres = N/A
         event sysmessage Nie znaleziono rudy w plecaku - %twojplecakid
      if #strres <> N/A
         event sysmessage Nie znaleziono rudy w plecaku - #strres
      set %systid 1
    }
   goto wtym
 }
if #findbagid <> %twojplecakid
 {
   ignoreitem #findid
   goto rudka
 }
set %systid 0
set %jrud 0
event drag #findid
if #findstack > 1
 {
   wait 2
   msg $
 }
wait 2
click %x %y
if That_item_is_too_heavy in #sysmsg
 {
   set #sysmsgcol 1080
   event sysmessage Plecak jest juz pelny
   halt
 }
goto rudka
wtym:
set %jrud 0
set %licz2 %licz2 + 1
if That_item_is_too_heavy in #sysmsg
 {
   set #sysmsgcol 1080
   event sysmessage Plecak jest juz pelny
   halt
       }
if #sysmsg = W_tym_miejscu_nie_ma_juz_rudy.
 {
   if %kop = 24
    {
      set #sysmsgcol 1080
      event sysmessage Skonczono kopac
      halt
    }
   set %kop %kop + 1
   set %rkop %kop + 1
   set #sysmsgcol 1264
   wait 1
   event sysmessage Zaczynam kopac w nastepnym miejscu - %rkop
   wait 10
   goto next
 }
if Wlozyl in #sysmsg
 {
   set %jrud 1
   wait 10
   goto next
 }
if Znalazl in #sysmsg
 {
   set %jrud 1
   wait 10
   goto next
 }
if Nie_udalo_ci_sie in #sysmsg
{
   wait 10
   goto next
}
if Your_skill_in_Mining in #sysmsg
 {
   scanjournal 1
   if Your_skill_in in #journal
    {
      set %jrud 1
      goto next
    }
 }
if Your_skill_in_Gornictwo in #sysmsg
 {
   scanjournal 1
   if Your_skill_in in #journal
    {
      set %jrud 1
      wait 4s
      goto next
    }
 }
if Wybrane_miejsce_jest_za_daleko in #sysmsg
   goto next
if %licz2 > 110
   goto next
goto wtym
next:
if %runda = 1
 {
   set %runda 0
   goto start
 }
if %skill <> 1
   goto armsal
set %ltn 0
anat:
finditem wn
if #findkind = -1
 {
   finditem bo
   if #findkind = -1
      set %ltn 1
 }
if #finddist > 3
 {
   ignoreitem #findid
   goto anat
 }
if %ltn = 0
   goto anat2
if %wjt = 1
   goto anat2
ltanat:
set %licz 0
event macro 13 1
petl:
set %licz %licz + 1
if #targcurs = 1
 {
   wait 2
   wskter:
   set #sysmsgcol 1152
   event sysmessage Wskaz teraz na czym ma byc robiona Anatomia
   set %licz 0
   goto petl2
 }
       if %licz > 50
   goto ltanat
goto petl
petl2:
set %licz %licz + 1
set %wjt 1
if #targcurs = 0
   goto wskaz
if %licz > 300
   goto wskter
goto petl2
wskaz:
wait 10
set %lt #ltargetid
if Anulowano in #sysmsg
 {
   set #sysmsgcol 1080
   event sysmessage Nie wskazano celu!
   set %wjt 0
 }
goto srund
anat2:
set %licz 0
event macro 13 1
loop2:
set #ltargetkind 1
if %ltn = 0
   set #ltargetid #findid
if %ltn = 1
   set #ltargetid %lt
set %licz %licz + 1
wait 1
wait 1
if #targcurs = 1
   goto adalej
if %licz > 5
   goto anat2
goto loop2
armsal:
if %skill <> 2
   goto hid
wiedza:
set %licz 0
event macro 13 4
loop3:
set #ltargetkind 1
set #ltargetid %kilofek
set %licz %licz + 1
wait 1
wait 1
if #targcurs = 1
   goto adalej
if %licz > 5
   goto wiedza
goto loop3
adalej:
repeat
wait 5
event macro 22
until #targcurs = 0
wait 1
hid:
if %skill <> 3
   goto srund
hid2:
set %licz 0
event macro 13 21
loop4:
scanjournal 1
set %licz %licz + 1
wait 1
wait 1
if #charstatus = H
   goto srund
if nie_udalo_Ci_sie_tu in #journal
   goto srund
if %licz > 10
   goto hid2
goto loop4
srund:
set %runda 1
goto start