;Autor: [nGz]; przerobiony przez Robinton
;- drzewo   do 50
;- cedr     do 60
;- dab      do 80
;- orzech   do 80
;- wierzba  do 80
;- cyprys   do 90
;- o'hii
;%Rodzaje_drzew - defaultowo drzewo_cedr_dab_orzech_wierzba_o'hii - okresla jakich drzew ma szukac, jesli chcesz tylko zwykle drzewa to zmien na drzewo, a jesli np. cyprysowe i ohii to zmien na cyprys_o'hii (te nazwy musza byc dokladnie takie same jak na liscie)(nie mozna uzywac spacji, zamiast tego stosowac "_" )(kolejnosc jest obojetna, nic nieznaczaca).
;================
set %Rodzaje_drzew drzewo_cedr
;set %Rodzaje_drzew cyprys_drzewo_YEW_drzewo_cedr_dab_orzech_wierzba_drzewo_o'hii
set %Sciezka_do_wava C:\WINDOWS\Media\ding.wav
set %Max_waga 800
set %Max_odleglosc 15
set %czasjedz #scnt
;================
set #lpc 200
tile Init noOverrides
if drzewo in %Rodzaje_drzew
  set %Rodzaje_drzew tree_ , %Rodzaje_drzew
set %x_poczatek #charposx - %Max_odleglosc
set %y_poczatek #charposy - %Max_odleglosc
set %x_koniec #charposx + %Max_odleglosc
set %y_koniec #charposy + %Max_odleglosc
for %x %x_poczatek %x_koniec
{
  for %y %y_poczatek %y_koniec
  {
    tile Cnt %x %y
    for %i 1 #tilecnt
    {
      tile Get %x %y %i
      if #tilename in %Rodzaje_drzew && Impassable in #tileflags
      {
        set #lpc 10
        set %licz 0
        gosub Podejdz_do_drzewa
        if #result
          gosub Scinaj_drzewo
          wait 5
          gosub jedzenie
          wait 5
        else
        {
          set #sysmsgcol 1080
          event sysmessage Nie udalo mi sie dostac do drzewa.
          set #sysmsgcol 1152
          event sysmessage Szukam dalej...
        }
        set #lpc 200
      }
    }
  }
}
sound %Sciezka_do_wava
set #sysmsgcol 1152
event sysmessage Przeszukiwanie skonczone.
halt

sub Podejdz_do_drzewa
set #sysmsgcol 1152
event sysmessage Znalazlem drzewo o nazwie #tilename , #dot
wait 10
Zacznij_isc:
set %jrnl #jindex
event pathfind %x %y #tilez
set %Timer #scnt2 + 10
dalej3:
wait 5
if ( #charposx < ( %x + 2 ) && #charposx > ( %x - 2 )  &&  #charposy < ( %y + 2 ) && #charposy > ( %y - 2 ) )
   return #true
if %Timer < #scnt2
   goto Zacznij_isc
if #jindex > %jrnl
   {
   set %jrnl %jrnl + 1
   scanjournal %jrnl
   if Can't_get_there in #journal
   return #false
   if Pathfinding! in #journal
   goto dalej3
   }
goto dalej3
return

sub Scinaj_drzewo
Petla_scinania_drzewa:
if %licz > 20
return
deletejournal
Toporek:
if #weight > %Max_waga
{
  sound %Sciezka_do_wava
  set #sysmsgcol 1080
  event sysmessage Przekroczono maxymalna wage - %Max_waga
  halt
}
finditem fsf C_ , #charid
if #findkind = -1
{
  sound %Sciezka_do_wava
  set #sysmsgcol 1080
  event sysmessage Nie znaleziono Topora.
  pause
}
set #lobjectid #findid
event macro 17
wait 5
until #targcurs = 1
Celownik:
gosub Ustaw_x_y_drzewa
repeat
event macro 22
wait 5
until #targcurs = 0
finditem ZLK C_ , #backpackid
if #FINDCNT > 0
{
        Exevent Drag #findid #findstack
        wait 1s
        Exevent Dropg #charposx #charposy #charposz
}
set %jrnl #jindex
dalej2:
wait 5
if #targcurs = 1
event macro 22
if #jindex > %jrnl
{
            set %jrnl %jrnl + 1
            scanjournal %jrnl
            if Stoisz_za_daleko. in #journal
             {
              event pathfind ( %x - 1 ) ( %y - 1 )
              return
              }
            if Nie_wiesz_jak_uzyc_te_przedmioty_razem. in #journal
            return
            if your_skill_in in #journal
            {
            set %licz %licz + 1
            goto Petla_scinania_drzewa
            }
            if Nie_mozesz_tego_uzyc in #journal
            return
            if To_drzewo_wyglada_juz_na_wystarczajaco_obciete in #journal
            return
            if Sciales_troche in #journal
            {
            set %licz %licz + 1
            goto Petla_scinania_drzewa
            }
            if Zniszczyles_klody in #journal
            goto Petla_scinania_drzewa
            if Oddaliles_sie in #journal
            goto Petla_scinania_drzewa
            if nie_udalo_ci_sie in #journal
              {
            set %licz %licz + 1
            goto Petla_scinania_drzewa
            }
}
goto dalej2
return

sub Ustaw_x_y_drzewa
set #ltargetx %x
set #ltargety %y
set #ltargetz #tilez
set #ltargetkind 3
set #ltargettile #tiletype
return

sub jedzenie
set %jrnl #jindex
event macro 1 0 .glod
cisnij:
wait 5
if #scnt > %czasjedz
   {
   event macro 22
   wait 10
   set %czasjedz #scnt + 930
   }
if #jindex > %jrnl
{
            set %jrnl %jrnl + 1
            set %dupa %dupa + 1
            scanjournal %jrnl
            if Jestes_najedzony. in #journal
            goto dalej1
            if porzadnie in #journal
            return
            if %dupa > 5
            return
goto cisnij
dalej1:
finditem IND_GUD_FND_HQD_DQD_WLI_NWI_NNQ_ZBG_SLI_VRD_NGG_IND_GUD_FND_HQD_WLI_QRD_NRD_VRD_NW
set #lobjectid #findid
if #findkind = -1
event sysmessage SKONCZYLO SIE JEDZENIE!
event macro 17 0
wait 1s
return