Facebook
From Diminutive Lizard, 7 Years ago, written in Plain Text.
Embed
Download Paste or View Raw
Hits: 271
  1. ;Autor: [nGz]; przerobiony przez Robinton
  2. ;- drzewo   do 50
  3. ;- cedr     do 60
  4. ;- dab      do 80
  5. ;- orzech   do 80
  6. ;- wierzba  do 80
  7. ;- cyprys   do 90
  8. ;- o'hii
  9. ;%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).
  10. ;================
  11. set %Sciezka_do_wava C:\WINDOWS\Media\ringin.wav
  12. set %Max_waga 600
  13. set %czasjedz #scnt
  14. set %pole 0
  15. set %idz 0
  16. set %plecakjuk ELZAWIG   ; id placaka juczniaka
  17. set %idjuk NABOLG     ; id juczniaka
  18. set %plecakwjuk BLWIVIG  ; id plecaaka ktory jest w juczniaku i w nim bedzie drewno
  19. set %ilepol 60; wpisac ile max pol jest
  20. ;================
  21. start:
  22. set %licz 0
  23. set %pole %pole + 1
  24. if %pole > %ilepol
  25.    goto start
  26. gosub pole , %pole
  27. wait 5
  28. gosub Podejdz_do_drzewa
  29. wait 5
  30. gosub Scinaj_drzewo
  31. wait 5
  32. gosub jedzenie
  33. goto start
  34.  
  35. sub Podejdz_do_drzewa
  36. Zacznij_isc:
  37. set %jrnl #jindex
  38. event pathfind %x1 %y1 %z1
  39. set %Timer #scnt2 + 10
  40. dalej3:
  41. wait 5
  42. if ( #charposx = %x1 ) && ( #charposy = %y1 )
  43.    return #true
  44. if %Timer < #scnt2
  45.    goto Zacznij_isc
  46. if #jindex > %jrnl
  47.    {
  48.    set %jrnl %jrnl + 1
  49.    scanjournal %jrnl
  50.    if Can't_get_there in #journal
  51.    return #false
  52.    if Pathfinding! in #journal
  53.    goto dalej3
  54.    }
  55. goto dalej3
  56. return
  57.  
  58. sub Scinaj_drzewo
  59. Petla_scinania_drzewa:
  60. set %czas #scnt + 10
  61. if %licz > 20
  62. return
  63. deletejournal
  64. Toporek:
  65. if #weight > %Max_waga
  66. {
  67.   sound %Sciezka_do_wava
  68.   set #sysmsgcol 1080
  69.   event sysmessage Przekroczono maxymalna wage - %Max_waga
  70.   halt
  71. }
  72. finditem fsf C_ , #charid
  73. if #findkind = -1
  74. {
  75.   sound %Sciezka_do_wava
  76.   set #sysmsgcol 1080
  77.   event sysmessage Nie znaleziono Topora.
  78.   pause
  79. }
  80. set #lobjectid #findid
  81. event macro 17
  82. wait 5
  83. until #targcurs = 1
  84. Celownik:
  85. gosub Ustaw_x_y_drzewa
  86. repeat
  87. event macro 22
  88. wait 5
  89. until #targcurs = 0
  90. finditem ZLK C_ , #backpackid
  91. if #FINDCNT > 0
  92. {
  93.         gosub przekladanie
  94. }
  95. set %jrnl #jindex
  96. dalej2:
  97. wait 1
  98. if #targcurs = 1
  99. event macro 22
  100. if Nie_wiesz_jak_uzyc_te_przedmioty_razem. in #SYSMSG
  101. return
  102. if #scnt > %czas
  103. goto Petla_scinania_drzewa
  104. if #jindex > %jrnl
  105. {
  106.             set %jrnl %jrnl + 1
  107.             scanjournal %jrnl
  108.             if Stoisz_za_daleko. in #journal
  109.              {
  110.               event pathfind ( %x - 1 ) ( %y - 1 )
  111.               return
  112.               }
  113.             if Nie_wiesz_jak_uzyc_te_przedmioty_razem in #journal
  114.             return
  115.             if your_skill_in in #journal
  116.             {
  117.             set %licz %licz + 1
  118.             goto Petla_scinania_drzewa
  119.             }
  120.             if Nie_mozesz_tego_uzyc in #journal
  121.             return
  122.             if To_drzewo_wyglada_juz_na_wystarczajaco_obciete in #journal
  123.             return
  124.             if Nie_wiesz_jak_uzyc_te_przedmioty_razem. in #journal
  125.             goto Petla_scinania_drzewa
  126.             if Sciales_troche in #journal
  127.             {
  128.             set %licz %licz + 1
  129.             goto Petla_scinania_drzewa
  130.             }
  131.             if Zniszczyles_klody in #journal
  132.             goto Petla_scinania_drzewa
  133.             if Oddaliles_sie in #journal
  134.             goto Petla_scinania_drzewa
  135.             if nie_udalo_ci_sie in #journal
  136.               {
  137.             set %licz %licz + 1
  138.             goto Petla_scinania_drzewa
  139.             }
  140. }
  141. goto dalej2
  142. return
  143.  
  144. sub Ustaw_x_y_drzewa
  145. set #ltargetx %x
  146. set #ltargety %y
  147. set #ltargetz %z
  148. return
  149.  
  150. sub jedzenie
  151. set %jrnl #jindex
  152. event macro 1 0 .glod
  153. cisnij:
  154. wait 1
  155. if #jindex > %jrnl
  156. {
  157.             set %jrnl %jrnl + 1
  158.             set %dupa %dupa + 1
  159.             scanjournal %jrnl
  160.             if Jestes_najedzony. in #journal
  161.             goto dalej1
  162.             if pozadnie in #journal
  163.             return
  164.             if %dupa > 5
  165.             {
  166.             set %dupa 0
  167.             return
  168.             }
  169. goto cisnij
  170. dalej1:
  171. finditem NWI_IND_GUD_FND_HQD_WLI_QRD_NRD_VRD_YDF_FWF   ; wpisac typ zarcia
  172. set #lobjectid #findid
  173. if #findkind = -1
  174. event sysmessage SKONCZYLO SIE JEDZENIE!
  175. event macro 17 0
  176. wait 1
  177. return
  178.  
  179. sub przekladanie
  180. finditem ZLK C_ , #backpackid
  181. if #findkind <> 0
  182. return
  183. finditem %idjuk
  184. set #lobjectid #findid
  185. if #finddist > 1
  186. {
  187. event macro 1 0 Za mna!
  188. wait 10
  189. gosub przekladanie
  190. }
  191. repeat
  192. event macro 17
  193. wait 5
  194. until #contid = %plecakjuk
  195. finditem ZLK C_ , #backpackid
  196.     if #FINDCNT > 0
  197.     {
  198.         Exevent Drag #findid #findstack
  199.         wait 10
  200.         Exevent Dropc %plecakwjuk
  201.     }
  202. if too_heavy in #sysmsg
  203.   {
  204.   sound %Sciezka_do_wava
  205.   event sysmessage zapcha?es plecak lec odniesc i wroc na to miejsce i kliknij PLAY!
  206.   pause
  207.   }
  208. gosub przekladnie
  209. return
  210.  
  211. sub pole1
  212. set %x  583  ;x miejsca scinania
  213. set %y  1023 ; y miejsca scinania
  214. set %z  0
  215. set %x1 583   ;x  miejsca gdzie stoi przy drzewie
  216. set %y1 1024   ; y miejsca gdzie stoi przy drzewie
  217. set %z1 0
  218. return
  219.  
  220. sub pole2
  221. set %x  584  ;x miejsca scinania
  222. set %y  1029; y miejsca scinania
  223. set %z  0
  224. set %x1 584   ;x  miejsca gdzie stoi przy drzewie
  225. set %y1 1030   ; y miejsca gdzie stoi przy drzewie
  226. set %z1 0
  227. return
  228.  
  229. sub pole3
  230. set %x  578  ;x miejsca scinania
  231. set %y  1027 ; y miejsca scinania
  232. set %z  0
  233. set %x1 578   ;x  miejsca gdzie stoi przy drzewie
  234. set %y1 1028   ; y miejsca gdzie stoi przy drzewie
  235. set %z1 0
  236. return
  237.  
  238. sub pole4
  239. set %x  576  ;x miejsca scinania
  240. set %y  1022 ; y miejsca scinania
  241. set %z  0
  242. set %x1 576   ;x  miejsca gdzie stoi przy drzewie
  243. set %y1 1023   ; y miejsca gdzie stoi przy drzewie
  244. set %z1 0
  245. return
  246.  
  247. sub pole5
  248. set %x  568  ;x miejsca scinania
  249. set %y  1023; y miejsca scinania
  250. set %z  0
  251. set %x1 568   ;x  miejsca gdzie stoi przy drzewie
  252. set %y1 1024   ; y miejsca gdzie stoi przy drzewie
  253. set %z1 0
  254. return
  255.  
  256. sub pole6
  257. set %x  564  ;x miejsca scinania
  258. set %y  1035 ; y miejsca scinania
  259. set %z  0
  260. set %x1 564   ;x  miejsca gdzie stoi przy drzewie
  261. set %y1 1036   ; y miejsca gdzie stoi przy drzewie
  262. set %z1 0
  263. return
  264.  
  265. sub pole7
  266. set %x  558  ;x miejsca scinania
  267. set %y  1023 ; y miejsca scinania
  268. set %z  0
  269. set %x1 558   ;x  miejsca gdzie stoi przy drzewie
  270. set %y1 1024   ; y miejsca gdzie stoi przy drzewie
  271. set %z1 0
  272. return
  273.  
  274. sub pole8
  275. set %x  544  ;x miejsca scinania
  276. set %y  1029 ; y miejsca scinania
  277. set %z  0
  278. set %x1 544   ;x  miejsca gdzie stoi przy drzewie
  279. set %y1 1030   ; y miejsca gdzie stoi przy drzewie
  280. set %z1 0
  281. return
  282.  
  283. sub pole9
  284. set %x  540  ;x miejsca scinania
  285. set %y  1026 ; y miejsca scinania
  286. set %z  0
  287. set %x1 540   ;x  miejsca gdzie stoi przy drzewie
  288. set %y1 1027   ; y miejsca gdzie stoi przy drzewie
  289. set %z1 0
  290. return
  291.  
  292. sub pole10
  293. set %x  532  ;x miejsca scinania
  294. set %y  1034 ; y miejsca scinania
  295. set %z  0
  296. set %x1 532   ;x  miejsca gdzie stoi przy drzewie
  297. set %y1 1035   ; y miejsca gdzie stoi przy drzewie
  298. set %z1 0
  299. return
  300.  
  301. sub pole11
  302. set %x  522  ;x miejsca scinania
  303. set %y  1039 ; y miejsca scinania
  304. set %z  0
  305. set %x1 522   ;x  miejsca gdzie stoi przy drzewie
  306. set %y1 1040   ; y miejsca gdzie stoi przy drzewie
  307. set %z1 0
  308. return
  309.  
  310. sub pole12
  311. set %x  524  ;x miejsca scinania
  312. set %y  1032 ; y miejsca scinania
  313. set %z  0
  314. set %x1 524   ;x  miejsca gdzie stoi przy drzewie
  315. set %y1 1033   ; y miejsca gdzie stoi przy drzewie
  316. set %z1 0
  317. return
  318.  
  319. sub pole14
  320. set %x  512  ;x miejsca scinania
  321. set %y  1044 ; y miejsca scinania
  322. set %z  0
  323. set %x1 512   ;x  miejsca gdzie stoi przy drzewie
  324. set %y1 1045   ; y miejsca gdzie stoi przy drzewie
  325. set %z1 0
  326. return
  327.  
  328. sub pole15
  329. set %x  500  ;x miejsca scinania
  330. set %y  1042 ; y miejsca scinania
  331. set %z  0
  332. set %x1 500   ;x  miejsca gdzie stoi przy drzewie
  333. set %y1 1043   ; y miejsca gdzie stoi przy drzewie
  334. set %z1 0
  335. return
  336.  
  337. sub pole16
  338. set %x  512  ;x miejsca scinania
  339. set %y  1035 ; y miejsca scinania
  340. set %z  0
  341. set %x1 512   ;x  miejsca gdzie stoi przy drzewie
  342. set %y1 1036   ; y miejsca gdzie stoi przy drzewie
  343. set %z1 0
  344. return
  345.  
  346. sub pole17
  347. set %x  512  ;x miejsca scinania
  348. set %y  1025 ; y miejsca scinania
  349. set %z  0
  350. set %x1 512   ;x  miejsca gdzie stoi przy drzewie
  351. set %y1 1026   ; y miejsca gdzie stoi przy drzewie
  352. set %z1 0
  353. return
  354.  
  355. sub pole18
  356. set %x  516  ;x miejsca scinania
  357. set %y  1017 ; y miejsca scinania
  358. set %z  0
  359. set %x1 516   ;x  miejsca gdzie stoi przy drzewie
  360. set %y1 1018   ; y miejsca gdzie stoi przy drzewie
  361. set %z1 0
  362. return
  363.  
  364. sub pole19
  365. set %x  518  ;x miejsca scinania
  366. set %y  1012; y miejsca scinania
  367. set %z  0
  368. set %x1 518   ;x  miejsca gdzie stoi przy drzewie
  369. set %y1 1013   ; y miejsca gdzie stoi przy drzewie
  370. set %z1 0
  371. return
  372.  
  373. sub pole20
  374. set %x  500  ;x miejsca scinania
  375. set %y  1017 ; y miejsca scinania
  376. set %z  0
  377. set %x1 500   ;x  miejsca gdzie stoi przy drzewie
  378. set %y1 1018   ; y miejsca gdzie stoi przy drzewie
  379. set %z1 0
  380. return
  381.  
  382. sub pole21
  383. set %x  492  ;x miejsca scinania
  384. set %y  1016 ; y miejsca scinania
  385. set %z  0
  386. set %x1 492   ;x  miejsca gdzie stoi przy drzewie
  387. set %y1 1017   ; y miejsca gdzie stoi przy drzewie
  388. set %z1 0
  389. return
  390.  
  391. sub pole22
  392. set %x  491  ;x miejsca scinania
  393. set %y  999 ; y miejsca scinania
  394. set %z  0
  395. set %x1 491   ;x  miejsca gdzie stoi przy drzewie
  396. set %y1 1000   ; y miejsca gdzie stoi przy drzewie
  397. set %z1 0
  398. return
  399.  
  400. sub pole23
  401. set %x  502  ;x miejsca scinania
  402. set %y  992 ; y miejsca scinania
  403. set %z  0
  404. set %x1 502   ;x  miejsca gdzie stoi przy drzewie
  405. set %y1 993   ; y miejsca gdzie stoi przy drzewie
  406. set %z1 0
  407. return
  408.  
  409. sub pole24
  410. set %x  494  ;x miejsca scinania
  411. set %y  986 ; y miejsca scinania
  412. set %z  0
  413. set %x1 494   ;x  miejsca gdzie stoi przy drzewie
  414. set %y1 987   ; y miejsca gdzie stoi przy drzewie
  415. set %z1 0
  416. return
  417.  
  418. sub pole25
  419. set %x  494  ;x miejsca scinania
  420. set %y  979 ; y miejsca scinania
  421. set %z  0
  422. set %x1 494   ;x  miejsca gdzie stoi przy drzewie
  423. set %y1 980   ; y miejsca gdzie stoi przy drzewie
  424. set %z1 0
  425. return
  426.  
  427. sub pole26
  428. set %x  479  ;x miejsca scinania
  429. set %y  991 ; y miejsca scinania
  430. set %z  0
  431. set %x1 479   ;x  miejsca gdzie stoi przy drzewie
  432. set %y1 992   ; y miejsca gdzie stoi przy drzewie
  433. set %z1 0
  434. return
  435.  
  436. sub pole27
  437. set %x  481  ;x miejsca scinania
  438. set %y  983 ; y miejsca scinania
  439. set %z  0
  440. set %x1 481   ;x  miejsca gdzie stoi przy drzewie
  441. set %y1 984   ; y miejsca gdzie stoi przy drzewie
  442. set %z1 0
  443. return
  444.  
  445. sub pole28
  446. set %x  503  ;x miejsca scinania
  447. set %y  975 ; y miejsca scinania
  448. set %z  0
  449. set %x1 503   ;x  miejsca gdzie stoi przy drzewie
  450. set %y1 976   ; y miejsca gdzie stoi przy drzewie
  451. set %z1 0
  452. return
  453.  
  454. sub pole29
  455. set %x  488  ;x miejsca scinania
  456. set %y  969 ; y miejsca scinania
  457. set %z  0
  458. set %x1 488   ;x  miejsca gdzie stoi przy drzewie
  459. set %y1 970   ; y miejsca gdzie stoi przy drzewie
  460. set %z1 0
  461. return
  462.  
  463. sub pole30
  464. set %x  496  ;x miejsca scinania
  465. set %y  963 ; y miejsca scinania
  466. set %z  0
  467. set %x1 496   ;x  miejsca gdzie stoi przy drzewie
  468. set %y1 964   ; y miejsca gdzie stoi przy drzewie
  469. set %z1 0
  470. return
  471.  
  472. sub pole31
  473. set %x  496  ;x miejsca scinania
  474. set %y  957 ; y miejsca scinania
  475. set %z  0
  476. set %x1 496   ;x  miejsca gdzie stoi przy drzewie
  477. set %y1 958   ; y miejsca gdzie stoi przy drzewie
  478. set %z1 0
  479. return
  480.  
  481. sub pole32
  482. set %x  492  ;x miejsca scinania
  483. set %y  960 ; y miejsca scinania
  484. set %z  0
  485. set %x1 492   ;x  miejsca gdzie stoi przy drzewie
  486. set %y1 961   ; y miejsca gdzie stoi przy drzewie
  487. set %z1 0
  488. return
  489.  
  490. sub pole33
  491. set %x  496  ;x miejsca scinania
  492. set %y  953 ; y miejsca scinania
  493. set %z  0
  494. set %x1 496   ;x  miejsca gdzie stoi przy drzewie
  495. set %y1 954   ; y miejsca gdzie stoi przy drzewie
  496. set %z1 0
  497. return
  498.  
  499. sub pole34
  500. set %x  496  ;x miejsca scinania
  501. set %y  948 ; y miejsca scinania
  502. set %z  0
  503. set %x1 496   ;x  miejsca gdzie stoi przy drzewie
  504. set %y1 949  ; y miejsca gdzie stoi przy drzewie
  505. set %z1 0
  506. return
  507.  
  508. sub pole35
  509. set %x  499  ;x miejsca scinania
  510. set %y  946 ; y miejsca scinania
  511. set %z  0
  512. set %x1 499  ;x  miejsca gdzie stoi przy drzewie
  513. set %y1 947   ; y miejsca gdzie stoi przy drzewie
  514. set %z1 0
  515. return
  516.  
  517. sub pole36
  518. set %x  489  ;x miejsca scinania
  519. set %y  946 ; y miejsca scinania
  520. set %z  0
  521. set %x1 489   ;x  miejsca gdzie stoi przy drzewie
  522. set %y1 947   ; y miejsca gdzie stoi przy drzewie
  523. set %z1 0
  524. return
  525.  
  526. sub pole37
  527. set %x  485  ;x miejsca scinania
  528. set %y  948 ; y miejsca scinania
  529. set %z  0
  530. set %x1 485   ;x  miejsca gdzie stoi przy drzewie
  531. set %y1 949   ; y miejsca gdzie stoi przy drzewie
  532. set %z1 0
  533. return
  534.  
  535. ;
  536.  
  537. sub pole38
  538. set %x  483  ;x miejsca scinania
  539. set %y  945 ; y miejsca scinania
  540. set %z  0
  541. set %x1 483   ;x  miejsca gdzie stoi przy drzewie
  542. set %y1 946   ; y miejsca gdzie stoi przy drzewie
  543. set %z1 0
  544. return
  545.  
  546. ;
  547. sub pole39
  548. set %x  480  ;x miejsca scinania
  549. set %y  945 ; y miejsca scinania
  550. set %z  0
  551. set %x1 480   ;x  miejsca gdzie stoi przy drzewie
  552. set %y1 946   ; y miejsca gdzie stoi przy drzewie
  553. set %z1 0
  554. return
  555.  
  556. sub pole40
  557. set %x  476  ;x miejsca scinania
  558. set %y  948 ; y miejsca scinania
  559. set %z  0
  560. set %x1 476   ;x  miejsca gdzie stoi przy drzewie
  561. set %y1 949   ; y miejsca gdzie stoi przy drzewie
  562. set %z1 0
  563. return
  564.  
  565. sub pole41
  566. set %x  476  ;x miejsca scinania
  567. set %y  945 ; y miejsca scinania
  568. set %z  0
  569. set %x1 476   ;x  miejsca gdzie stoi przy drzewie
  570. set %y1 946   ; y miejsca gdzie stoi przy drzewie
  571. set %z1 0
  572. return
  573.  
  574. sub pole42
  575. set %x  484  ;x miejsca scinania
  576. set %y  942 ; y miejsca scinania
  577. set %z  0
  578. set %x1 484   ;x  miejsca gdzie stoi przy drzewie
  579. set %y1 943   ; y miejsca gdzie stoi przy drzewie
  580. set %z1 0
  581. return
  582.  
  583. sub pole43
  584. set %x  484  ;x miejsca scinania
  585. set %y  927 ; y miejsca scinania
  586. set %z  0
  587. set %x1 484   ;x  miejsca gdzie stoi przy drzewie
  588. set %y1 928   ; y miejsca gdzie stoi przy drzewie
  589. set %z1 0
  590. return
  591.  
  592. sub pole44
  593. set %x  488  ;x miejsca scinania
  594. set %y  930 ; y miejsca scinania
  595. set %z  0
  596. set %x1 488   ;x  miejsca gdzie stoi przy drzewie
  597. set %y1 931   ; y miejsca gdzie stoi przy drzewie
  598. set %z1 0
  599. return
  600.  
  601.  
  602. sub pole45
  603. set %x  495  ;x miejsca scinania
  604. set %y  938 ; y miejsca scinania
  605. set %z  0
  606. set %x1 495   ;x  miejsca gdzie stoi przy drzewie
  607. set %y1 939   ; y miejsca gdzie stoi przy drzewie
  608. set %z1 0
  609. return
  610.  
  611. sub pole46
  612. set %x  500  ;x miejsca scinania
  613. set %y  939 ; y miejsca scinania
  614. set %z  0
  615. set %x1 500   ;x  miejsca gdzie stoi przy drzewie
  616. set %y1 940   ; y miejsca gdzie stoi przy drzewie
  617. set %z1 0
  618. return
  619.  
  620. sub pole47
  621. set %x  512  ;x miejsca scinania
  622. set %y  942 ; y miejsca scinania
  623. set %z  0
  624. set %x1 512   ;x  miejsca gdzie stoi przy drzewie
  625. set %y1 943   ; y miejsca gdzie stoi przy drzewie
  626. set %z1 0
  627. return
  628.  
  629. sub pole48
  630. set %x  513  ;x miejsca scinania
  631. set %y  930 ; y miejsca scinania
  632. set %z  0
  633. set %x1 513   ;x  miejsca gdzie stoi przy drzewie
  634. set %y1 931   ; y miejsca gdzie stoi przy drzewie
  635. set %z1 0
  636. return
  637.  
  638. sub pole49
  639. set %x  519  ;x miejsca scinania
  640. set %y  932 ; y miejsca scinania
  641. set %z  0
  642. set %x1 519   ;x  miejsca gdzie stoi przy drzewie
  643. set %y1 933   ; y miejsca gdzie stoi przy drzewie
  644. set %z1 0
  645. return
  646.  
  647. sub pole50
  648. set %x  517  ;x miejsca scinania
  649. set %y  945 ; y miejsca scinania
  650. set %z  0
  651. set %x1 517   ;x  miejsca gdzie stoi przy drzewie
  652. set %y1 946   ; y miejsca gdzie stoi przy drzewie
  653. set %z1 0
  654. return
  655.  
  656. sub pole51
  657. set %x  524  ;x miejsca scinania
  658. set %y  948 ; y miejsca scinania
  659. set %z  0
  660. set %x1 524   ;x  miejsca gdzie stoi przy drzewie
  661. set %y1 949   ; y miejsca gdzie stoi przy drzewie
  662. set %z1 0
  663. return
  664.  
  665. sub pole52
  666. set %x  530  ;x miejsca scinania
  667. set %y  932 ; y miejsca scinania
  668. set %z  0
  669. set %x1 530   ;x  miejsca gdzie stoi przy drzewie
  670. set %y1 933   ; y miejsca gdzie stoi przy drzewie
  671. set %z1 0
  672. return
  673.  
  674. sub pole53
  675. set %x  545  ;x miejsca scinania
  676. set %y  934 ; y miejsca scinania
  677. set %z  0
  678. set %x1 545   ;x  miejsca gdzie stoi przy drzewie
  679. set %y1 935   ; y miejsca gdzie stoi przy drzewie
  680. set %z1 0
  681. return
  682.  
  683. sub pole54
  684. set %x  564  ;x miejsca scinania
  685. set %y  940 ; y miejsca scinania
  686. set %z  0
  687. set %x1 564   ;x  miejsca gdzie stoi przy drzewie
  688. set %y1 941   ; y miejsca gdzie stoi przy drzewie
  689. set %z1 0
  690. return
  691.  
  692. sub pole55
  693. set %x  578  ;x miejsca scinania
  694. set %y  937 ; y miejsca scinania
  695. set %z  0
  696. set %x1 578   ;x  miejsca gdzie stoi przy drzewie
  697. set %y1 938   ; y miejsca gdzie stoi przy drzewie
  698. set %z1 0
  699. return
  700.  
  701. sub pole56
  702. set %x  575  ;x miejsca scinania
  703. set %y  948 ; y miejsca scinania
  704. set %z  0
  705. set %x1 575   ;x  miejsca gdzie stoi przy drzewie
  706. set %y1 949   ; y miejsca gdzie stoi przy drzewie
  707. set %z1 0
  708. return
  709.  
  710. sub pole57
  711. set %x  584  ;x miejsca scinania
  712. set %y  948 ; y miejsca scinania
  713. set %z  0
  714. set %x1 584   ;x  miejsca gdzie stoi przy drzewie
  715. set %y1 949   ; y miejsca gdzie stoi przy drzewie
  716. set %z1 0
  717. return
  718.  
  719. sub pole58
  720. set %x  586   ;x miejsca scinania
  721. set %y  948 ; y miejsca scinania
  722. set %z  0
  723. set %x1 586   ;x  miejsca gdzie stoi przy drzewie
  724. set %y1 949   ; y miejsca gdzie stoi przy drzewie
  725. set %z1 0
  726. return
  727.  
  728. sub pole59
  729. set %x  588   ;x miejsca scinania
  730. set %y  953 ; y miejsca scinania
  731. set %z  0
  732. set %x1 588   ;x  miejsca gdzie stoi przy drzewie
  733. set %y1 954   ; y miejsca gdzie stoi przy drzewie
  734. set %z1 0
  735. return
  736.  
  737. sub pole60
  738. set %x  587   ;x miejsca scinania
  739. set %y  964 ; y miejsca scinania
  740. set %z  0
  741. set %x1 587   ;x  miejsca gdzie stoi przy drzewie
  742. set %y1 965   ; y miejsca gdzie stoi przy drzewie
  743. set %z1 0
  744. return