1. set %zeberka 0
2. set %swinie 1
3. set %skory 0
4. set %piora 1
5. set %klejnoty 1
6. set %ziola 1
7. gosub ustaw
8. ;gosub backpack
9. SET %plecakid #BACKPACKID
10. start:
11.  
12. onhotkey q
13. gosub tnij_zwloki
14. goto start
15.  
16. sub tnij_zwloki
17. ignoreitem reset
18. tnij:
19. finditem YFM G_2
20. if #findkind = -1
21. {
22. gosub zbieraj
23. ;set #sysmsgcol 1080
24. ; event sysmessage Nie znaleziono zwlok!
25.  return
26.  }
27.  set %lt_nozyczki #findid
28. ; ignoreitem #findid
29. for %i 1 2
30. {
31.  nozyczki:
32.  finditem kag_OMH C
33.  if #findkind = -1
34.  {
35.  set #sysmsgcol 1080
36.  event sysmessage Nie znaleziono nozyczek!
37.  return
38.  }
39.  set #lobjectid #findid
40.  event macro 17
41.  set %licz #scnt2 + 10
42.  repeat
43.  if %licz < #scnt2
44. goto nozyczki
45. until #targcurs = 1
46. set #ltargetkind 1
47. set #ltargetid %lt_nozyczki
48. event macro 22
49. }
50. wait 1
51. goto tnij
52. return
53.  
54. sub zbieraj
55. event sysmessage  zbieram
56. szukaj:
57. repeat
58. finditem * G_3
59. if #FINDTYPE in %zbierane
60. {
61.  Exevent Drag #findid #FINDSTACK
62.         wait 5
63.         Exevent Dropc %plecakid
64.         wait 5
65. }
66. ignoreitem #findid
67. until #FINDKIND = -1
68. event sysmessage POZBIERANE
69. return
70.  
71. sub backpack
72. event sysmessage Wskarz plecak do ktorego mam wrzucac przedmioty
73.  
74.  SET #TARGCURS 1
75.  SET #LTARGETID null
76.  ltargetloop1:
77.  IF #LTARGETID = null
78.  GOTO ltargetloop1
79.  SET %plecakid #LTARGETID
80. return
81. sub ustaw
82. ;zloto;luski weza;pyl wulk;
83. set %zbierane POF_UZF_TZF_RVH_DUF_KAG_OZF_GUF_NZF_AVF_XLF
84. if %zeberka = 1
85. set %zbierane %zbierane , VRD_
86. if %swinie = 1
87. set %zbierane %zbierane , REJ_
88. if %skory = 1
89. set %zbierane %zbierane , EEG_
90. if %piora = 1
91. set %zbierane %zbierane , VLK_
92. if %klejnoty = 1
93. set %zbierane %zbierane , RVF_VUF_HVF_WWS_EVF_BVF_GVF_MWF_OVF_FVF_
94. if %ziola = 1
95. set %zbierane %zbierane , KUF_JUF_KZF_JZF_MZF_WZF_RZF_SZF_PZF
96. ;event sysmessage %zbierane
97. return
98.