;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 %Sciezka_do_wava C:\WINDOWS\Media\ringin.wav
set %Max_waga 600
set %czasjedz #scnt
set %pole 0
set %idz 0
set %plecakjuk ELZAWIG   ; id placaka juczniaka
set %idjuk NABOLG     ; id juczniaka
set %plecakwjuk BLWIVIG  ; id plecaaka ktory jest w juczniaku i w nim bedzie drewno
set %ilepol 60; wpisac ile max pol jest
;================
start:
set %licz 0
set %pole %pole + 1
if %pole > %ilepol
   goto start
gosub pole , %pole
wait 5
gosub Podejdz_do_drzewa
wait 5
gosub Scinaj_drzewo
wait 5
gosub jedzenie
goto start

sub Podejdz_do_drzewa
Zacznij_isc:
set %jrnl #jindex
event pathfind %x1 %y1 %z1
set %Timer #scnt2 + 10
dalej3:
wait 5
if ( #charposx = %x1 ) && ( #charposy = %y1 )
   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:
set %czas #scnt + 10
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
{
        gosub przekladanie
}
set %jrnl #jindex
dalej2:
wait 1
if #targcurs = 1
event macro 22
if Nie_wiesz_jak_uzyc_te_przedmioty_razem. in #SYSMSG
return
if #scnt > %czas
goto Petla_scinania_drzewa
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 Nie_wiesz_jak_uzyc_te_przedmioty_razem. in #journal
            goto Petla_scinania_drzewa
            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 %z
return

sub jedzenie
set %jrnl #jindex
event macro 1 0 .glod
cisnij:
wait 1
if #jindex > %jrnl
{
            set %jrnl %jrnl + 1
            set %dupa %dupa + 1
            scanjournal %jrnl
            if Jestes_najedzony. in #journal
            goto dalej1
            if pozadnie in #journal
            return
            if %dupa > 5
            {
            set %dupa 0
            return
            }
goto cisnij
dalej1:
finditem NWI_IND_GUD_FND_HQD_WLI_QRD_NRD_VRD_YDF_FWF   ; wpisac typ zarcia
set #lobjectid #findid
if #findkind = -1
event sysmessage SKONCZYLO SIE JEDZENIE!
event macro 17 0
wait 1
return

sub przekladanie
finditem ZLK C_ , #backpackid
if #findkind <> 0
return
finditem %idjuk
set #lobjectid #findid
if #finddist > 1
{
event macro 1 0 Za mna!
wait 10
gosub przekladanie
}
repeat
event macro 17
wait 5
until #contid = %plecakjuk
finditem ZLK C_ , #backpackid
    if #FINDCNT > 0
    {
        Exevent Drag #findid #findstack
        wait 10
        Exevent Dropc %plecakwjuk
    }
if too_heavy in #sysmsg
  {
  sound %Sciezka_do_wava
  event sysmessage zapcha?es plecak lec odniesc i wroc na to miejsce i kliknij PLAY!
  pause
  }
gosub przekladnie
return

sub pole1
set %x  583  ;x miejsca scinania
set %y  1023 ; y miejsca scinania
set %z  0
set %x1 583   ;x  miejsca gdzie stoi przy drzewie
set %y1 1024   ; y miejsca gdzie stoi przy drzewie
set %z1 0
return

sub pole2
set %x  584  ;x miejsca scinania
set %y  1029; y miejsca scinania
set %z  0
set %x1 584   ;x  miejsca gdzie stoi przy drzewie
set %y1 1030   ; y miejsca gdzie stoi przy drzewie
set %z1 0
return

sub pole3
set %x  578  ;x miejsca scinania
set %y  1027 ; y miejsca scinania
set %z  0
set %x1 578   ;x  miejsca gdzie stoi przy drzewie
set %y1 1028   ; y miejsca gdzie stoi przy drzewie
set %z1 0
return

sub pole4
set %x  576  ;x miejsca scinania
set %y  1022 ; y miejsca scinania
set %z  0
set %x1 576   ;x  miejsca gdzie stoi przy drzewie
set %y1 1023   ; y miejsca gdzie stoi przy drzewie
set %z1 0
return

sub pole5
set %x  568  ;x miejsca scinania
set %y  1023; y miejsca scinania
set %z  0
set %x1 568   ;x  miejsca gdzie stoi przy drzewie
set %y1 1024   ; y miejsca gdzie stoi przy drzewie
set %z1 0
return

sub pole6
set %x  564  ;x miejsca scinania
set %y  1035 ; y miejsca scinania
set %z  0
set %x1 564   ;x  miejsca gdzie stoi przy drzewie
set %y1 1036   ; y miejsca gdzie stoi przy drzewie
set %z1 0
return

sub pole7
set %x  558  ;x miejsca scinania
set %y  1023 ; y miejsca scinania
set %z  0
set %x1 558   ;x  miejsca gdzie stoi przy drzewie
set %y1 1024   ; y miejsca gdzie stoi przy drzewie
set %z1 0
return

sub pole8
set %x  544  ;x miejsca scinania
set %y  1029 ; y miejsca scinania
set %z  0
set %x1 544   ;x  miejsca gdzie stoi przy drzewie
set %y1 1030   ; y miejsca gdzie stoi przy drzewie
set %z1 0
return

sub pole9
set %x  540  ;x miejsca scinania
set %y  1026 ; y miejsca scinania
set %z  0
set %x1 540   ;x  miejsca gdzie stoi przy drzewie
set %y1 1027   ; y miejsca gdzie stoi przy drzewie
set %z1 0
return

sub pole10
set %x  532  ;x miejsca scinania
set %y  1034 ; y miejsca scinania
set %z  0
set %x1 532   ;x  miejsca gdzie stoi przy drzewie
set %y1 1035   ; y miejsca gdzie stoi przy drzewie
set %z1 0
return

sub pole11
set %x  522  ;x miejsca scinania
set %y  1039 ; y miejsca scinania
set %z  0
set %x1 522   ;x  miejsca gdzie stoi przy drzewie
set %y1 1040   ; y miejsca gdzie stoi przy drzewie
set %z1 0
return

sub pole12
set %x  524  ;x miejsca scinania
set %y  1032 ; y miejsca scinania
set %z  0
set %x1 524   ;x  miejsca gdzie stoi przy drzewie
set %y1 1033   ; y miejsca gdzie stoi przy drzewie
set %z1 0
return

sub pole14
set %x  512  ;x miejsca scinania
set %y  1044 ; y miejsca scinania
set %z  0
set %x1 512   ;x  miejsca gdzie stoi przy drzewie
set %y1 1045   ; y miejsca gdzie stoi przy drzewie
set %z1 0
return

sub pole15
set %x  500  ;x miejsca scinania
set %y  1042 ; y miejsca scinania
set %z  0
set %x1 500   ;x  miejsca gdzie stoi przy drzewie
set %y1 1043   ; y miejsca gdzie stoi przy drzewie
set %z1 0
return

sub pole16
set %x  512  ;x miejsca scinania
set %y  1035 ; y miejsca scinania
set %z  0
set %x1 512   ;x  miejsca gdzie stoi przy drzewie
set %y1 1036   ; y miejsca gdzie stoi przy drzewie
set %z1 0
return

sub pole17
set %x  512  ;x miejsca scinania
set %y  1025 ; y miejsca scinania
set %z  0
set %x1 512   ;x  miejsca gdzie stoi przy drzewie
set %y1 1026   ; y miejsca gdzie stoi przy drzewie
set %z1 0
return

sub pole18
set %x  516  ;x miejsca scinania
set %y  1017 ; y miejsca scinania
set %z  0
set %x1 516   ;x  miejsca gdzie stoi przy drzewie
set %y1 1018   ; y miejsca gdzie stoi przy drzewie
set %z1 0
return

sub pole19
set %x  518  ;x miejsca scinania
set %y  1012; y miejsca scinania
set %z  0
set %x1 518   ;x  miejsca gdzie stoi przy drzewie
set %y1 1013   ; y miejsca gdzie stoi przy drzewie
set %z1 0
return

sub pole20
set %x  500  ;x miejsca scinania
set %y  1017 ; y miejsca scinania
set %z  0
set %x1 500   ;x  miejsca gdzie stoi przy drzewie
set %y1 1018   ; y miejsca gdzie stoi przy drzewie
set %z1 0
return

sub pole21
set %x  492  ;x miejsca scinania
set %y  1016 ; y miejsca scinania
set %z  0
set %x1 492   ;x  miejsca gdzie stoi przy drzewie
set %y1 1017   ; y miejsca gdzie stoi przy drzewie
set %z1 0
return

sub pole22
set %x  491  ;x miejsca scinania
set %y  999 ; y miejsca scinania
set %z  0
set %x1 491   ;x  miejsca gdzie stoi przy drzewie
set %y1 1000   ; y miejsca gdzie stoi przy drzewie
set %z1 0
return

sub pole23
set %x  502  ;x miejsca scinania
set %y  992 ; y miejsca scinania
set %z  0
set %x1 502   ;x  miejsca gdzie stoi przy drzewie
set %y1 993   ; y miejsca gdzie stoi przy drzewie
set %z1 0
return

sub pole24
set %x  494  ;x miejsca scinania
set %y  986 ; y miejsca scinania
set %z  0
set %x1 494   ;x  miejsca gdzie stoi przy drzewie
set %y1 987   ; y miejsca gdzie stoi przy drzewie
set %z1 0
return

sub pole25
set %x  494  ;x miejsca scinania
set %y  979 ; y miejsca scinania
set %z  0
set %x1 494   ;x  miejsca gdzie stoi przy drzewie
set %y1 980   ; y miejsca gdzie stoi przy drzewie
set %z1 0
return

sub pole26
set %x  479  ;x miejsca scinania
set %y  991 ; y miejsca scinania
set %z  0
set %x1 479   ;x  miejsca gdzie stoi przy drzewie
set %y1 992   ; y miejsca gdzie stoi przy drzewie
set %z1 0
return

sub pole27
set %x  481  ;x miejsca scinania
set %y  983 ; y miejsca scinania
set %z  0
set %x1 481   ;x  miejsca gdzie stoi przy drzewie
set %y1 984   ; y miejsca gdzie stoi przy drzewie
set %z1 0
return

sub pole28
set %x  503  ;x miejsca scinania
set %y  975 ; y miejsca scinania
set %z  0
set %x1 503   ;x  miejsca gdzie stoi przy drzewie
set %y1 976   ; y miejsca gdzie stoi przy drzewie
set %z1 0
return

sub pole29
set %x  488  ;x miejsca scinania
set %y  969 ; y miejsca scinania
set %z  0
set %x1 488   ;x  miejsca gdzie stoi przy drzewie
set %y1 970   ; y miejsca gdzie stoi przy drzewie
set %z1 0
return

sub pole30
set %x  496  ;x miejsca scinania
set %y  963 ; y miejsca scinania
set %z  0
set %x1 496   ;x  miejsca gdzie stoi przy drzewie
set %y1 964   ; y miejsca gdzie stoi przy drzewie
set %z1 0
return

sub pole31
set %x  496  ;x miejsca scinania
set %y  957 ; y miejsca scinania
set %z  0
set %x1 496   ;x  miejsca gdzie stoi przy drzewie
set %y1 958   ; y miejsca gdzie stoi przy drzewie
set %z1 0
return

sub pole32
set %x  492  ;x miejsca scinania
set %y  960 ; y miejsca scinania
set %z  0
set %x1 492   ;x  miejsca gdzie stoi przy drzewie
set %y1 961   ; y miejsca gdzie stoi przy drzewie
set %z1 0
return

sub pole33
set %x  496  ;x miejsca scinania
set %y  953 ; y miejsca scinania
set %z  0
set %x1 496   ;x  miejsca gdzie stoi przy drzewie
set %y1 954   ; y miejsca gdzie stoi przy drzewie
set %z1 0
return

sub pole34
set %x  496  ;x miejsca scinania
set %y  948 ; y miejsca scinania
set %z  0
set %x1 496   ;x  miejsca gdzie stoi przy drzewie
set %y1 949  ; y miejsca gdzie stoi przy drzewie
set %z1 0
return

sub pole35
set %x  499  ;x miejsca scinania
set %y  946 ; y miejsca scinania
set %z  0
set %x1 499  ;x  miejsca gdzie stoi przy drzewie
set %y1 947   ; y miejsca gdzie stoi przy drzewie
set %z1 0
return

sub pole36
set %x  489  ;x miejsca scinania
set %y  946 ; y miejsca scinania
set %z  0
set %x1 489   ;x  miejsca gdzie stoi przy drzewie
set %y1 947   ; y miejsca gdzie stoi przy drzewie
set %z1 0
return

sub pole37
set %x  485  ;x miejsca scinania
set %y  948 ; y miejsca scinania
set %z  0
set %x1 485   ;x  miejsca gdzie stoi przy drzewie
set %y1 949   ; y miejsca gdzie stoi przy drzewie
set %z1 0
return

;

sub pole38
set %x  483  ;x miejsca scinania
set %y  945 ; y miejsca scinania
set %z  0
set %x1 483   ;x  miejsca gdzie stoi przy drzewie
set %y1 946   ; y miejsca gdzie stoi przy drzewie
set %z1 0
return

;
sub pole39
set %x  480  ;x miejsca scinania
set %y  945 ; y miejsca scinania
set %z  0
set %x1 480   ;x  miejsca gdzie stoi przy drzewie
set %y1 946   ; y miejsca gdzie stoi przy drzewie
set %z1 0
return

sub pole40
set %x  476  ;x miejsca scinania
set %y  948 ; y miejsca scinania
set %z  0
set %x1 476   ;x  miejsca gdzie stoi przy drzewie
set %y1 949   ; y miejsca gdzie stoi przy drzewie
set %z1 0
return

sub pole41
set %x  476  ;x miejsca scinania
set %y  945 ; y miejsca scinania
set %z  0
set %x1 476   ;x  miejsca gdzie stoi przy drzewie
set %y1 946   ; y miejsca gdzie stoi przy drzewie
set %z1 0
return

sub pole42
set %x  484  ;x miejsca scinania
set %y  942 ; y miejsca scinania
set %z  0
set %x1 484   ;x  miejsca gdzie stoi przy drzewie
set %y1 943   ; y miejsca gdzie stoi przy drzewie
set %z1 0
return

sub pole43
set %x  484  ;x miejsca scinania
set %y  927 ; y miejsca scinania
set %z  0
set %x1 484   ;x  miejsca gdzie stoi przy drzewie
set %y1 928   ; y miejsca gdzie stoi przy drzewie
set %z1 0
return

sub pole44
set %x  488  ;x miejsca scinania
set %y  930 ; y miejsca scinania
set %z  0
set %x1 488   ;x  miejsca gdzie stoi przy drzewie
set %y1 931   ; y miejsca gdzie stoi przy drzewie
set %z1 0
return


sub pole45
set %x  495  ;x miejsca scinania
set %y  938 ; y miejsca scinania
set %z  0
set %x1 495   ;x  miejsca gdzie stoi przy drzewie
set %y1 939   ; y miejsca gdzie stoi przy drzewie
set %z1 0
return

sub pole46
set %x  500  ;x miejsca scinania
set %y  939 ; y miejsca scinania
set %z  0
set %x1 500   ;x  miejsca gdzie stoi przy drzewie
set %y1 940   ; y miejsca gdzie stoi przy drzewie
set %z1 0
return

sub pole47
set %x  512  ;x miejsca scinania
set %y  942 ; y miejsca scinania
set %z  0
set %x1 512   ;x  miejsca gdzie stoi przy drzewie
set %y1 943   ; y miejsca gdzie stoi przy drzewie
set %z1 0
return

sub pole48
set %x  513  ;x miejsca scinania
set %y  930 ; y miejsca scinania
set %z  0
set %x1 513   ;x  miejsca gdzie stoi przy drzewie
set %y1 931   ; y miejsca gdzie stoi przy drzewie
set %z1 0
return

sub pole49
set %x  519  ;x miejsca scinania
set %y  932 ; y miejsca scinania
set %z  0
set %x1 519   ;x  miejsca gdzie stoi przy drzewie
set %y1 933   ; y miejsca gdzie stoi przy drzewie
set %z1 0
return

sub pole50
set %x  517  ;x miejsca scinania
set %y  945 ; y miejsca scinania
set %z  0
set %x1 517   ;x  miejsca gdzie stoi przy drzewie
set %y1 946   ; y miejsca gdzie stoi przy drzewie
set %z1 0
return

sub pole51
set %x  524  ;x miejsca scinania
set %y  948 ; y miejsca scinania
set %z  0
set %x1 524   ;x  miejsca gdzie stoi przy drzewie
set %y1 949   ; y miejsca gdzie stoi przy drzewie
set %z1 0
return

sub pole52
set %x  530  ;x miejsca scinania
set %y  932 ; y miejsca scinania
set %z  0
set %x1 530   ;x  miejsca gdzie stoi przy drzewie
set %y1 933   ; y miejsca gdzie stoi przy drzewie
set %z1 0
return

sub pole53
set %x  545  ;x miejsca scinania
set %y  934 ; y miejsca scinania
set %z  0
set %x1 545   ;x  miejsca gdzie stoi przy drzewie
set %y1 935   ; y miejsca gdzie stoi przy drzewie
set %z1 0
return

sub pole54
set %x  564  ;x miejsca scinania
set %y  940 ; y miejsca scinania
set %z  0
set %x1 564   ;x  miejsca gdzie stoi przy drzewie
set %y1 941   ; y miejsca gdzie stoi przy drzewie
set %z1 0
return

sub pole55
set %x  578  ;x miejsca scinania
set %y  937 ; y miejsca scinania
set %z  0
set %x1 578   ;x  miejsca gdzie stoi przy drzewie
set %y1 938   ; y miejsca gdzie stoi przy drzewie
set %z1 0
return

sub pole56
set %x  575  ;x miejsca scinania
set %y  948 ; y miejsca scinania
set %z  0
set %x1 575   ;x  miejsca gdzie stoi przy drzewie
set %y1 949   ; y miejsca gdzie stoi przy drzewie
set %z1 0
return

sub pole57
set %x  584  ;x miejsca scinania
set %y  948 ; y miejsca scinania
set %z  0
set %x1 584   ;x  miejsca gdzie stoi przy drzewie
set %y1 949   ; y miejsca gdzie stoi przy drzewie
set %z1 0
return

sub pole58
set %x  586   ;x miejsca scinania
set %y  948 ; y miejsca scinania
set %z  0
set %x1 586   ;x  miejsca gdzie stoi przy drzewie
set %y1 949   ; y miejsca gdzie stoi przy drzewie
set %z1 0
return

sub pole59
set %x  588   ;x miejsca scinania
set %y  953 ; y miejsca scinania
set %z  0
set %x1 588   ;x  miejsca gdzie stoi przy drzewie
set %y1 954   ; y miejsca gdzie stoi przy drzewie
set %z1 0
return

sub pole60
set %x  587   ;x miejsca scinania
set %y  964 ; y miejsca scinania
set %z  0
set %x1 587   ;x  miejsca gdzie stoi przy drzewie
set %y1 965   ; y miejsca gdzie stoi przy drzewie
set %z1 0
return