- ;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