API tools faq
paste
Advertisement
ZrnecX

Nastin EasyUO Makra

ZrnecX
May 15th, 2015
253
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 10.39 KB | None | 0 0
raw download clone embed print report
  1.  
  2. ;cooper KMK
  3. ;Iron, bronze; Lead ENK
  4. ;gold, brass QMK
  5. ;wood ZLK
  6. ;glass XMK
  7. ;silver KNK
  8.  
  9.  
  10. set %Truhla GIOPXSD ; truhla s drevem
  11. set %Ingoty ENK
  12. set %Nastroj TBG ;TBG = Tongs
  13. set %TypDreva ZLK
  14.  
  15.  
  16. ; Offsety výšky kategorii (pouze Yčka, X je stejné)
  17. ; tohle cislo doplnis jako workcat u itemu
  18. ; |
  19. set %CatOffset1 330 ;ring
  20. set %CatOffset2 307 ;plate
  21. set %CatOffset3 284 ;helmshields
  22. set %CatOffset4 261 ;blades
  23. set %CatOffset5 238 ;swords
  24. set %CatOffset6 215 ;axes
  25. set %CatOffset7 192 ;axes2
  26. set %CatOffset8 169 ;polearms
  27. set %CatOffset9 146 ;bashing
  28. set %CatOffset10 123 ;tools
  29. set %CatOffset11 100 ;common
  30.  
  31. Menu Window Size 1200 500
  32. Menu Window Color Black
  33. Menu Window Title Pocet itemů
  34. Menu Show 0 500
  35. Menu Font BGColor Black
  36. Menu Font Color White
  37. Menu Font Style b
  38. Menu Font Size 10
  39.  
  40. ;RING+CHAIN
  41. menu Font Color red
  42. Menu Text Text100 10 10 RING CHAIN
  43. menu Font Color white
  44.  
  45. Menu Text Text1 10 35 Ringmail Gloves:
  46. Menu Edit Edit1 150 30 35 0
  47.  
  48. ;hodnoty X a Y itemu (NE KATEGORIE!)
  49. set %workX1 375
  50. set %workY1 300
  51.  
  52. ;Kategorie podle toho jak je definovano vyse
  53. set %workCat1 1
  54.  
  55. Menu Text Text2 10 60 Ringmail Sleeves:
  56. Menu Edit Edit2 150 55 35 0
  57. set %workX2 235
  58. set %workY2 300
  59. set %workCat2 1
  60.  
  61. Menu Text Text3 10 85 Ringmail Leggings:
  62. Menu Edit Edit3 150 80 35 0
  63. set %workX3 95
  64. set %workY3 300
  65. set %workCat3 1
  66.  
  67. ;; Takhle to pripises ke vsemu, vzdycky zvysis cislo o 1 a doplnis hodnoty
  68.  
  69. Menu Text Text4 10 110 Ringmail Tunic:
  70. Menu Edit Edit4 150 105 35 0
  71. Menu Text Text5 10 135 Chainmail Coif:
  72. Menu Edit Edit5 150 130 35 0
  73. Menu Text Text6 10 160 Chainmail Leggings:
  74. Menu Edit Edit6 150 155 35 0
  75. Menu Text Text7 10 185 Chainmail Tunic:
  76. Menu Edit Edit7 150 180 35 0
  77.  
  78. ;PLATEMAIL
  79. menu Font Color red
  80. Menu Text Text101 10 210 PLATEMAIL
  81. menu Font Color white
  82.  
  83. Menu Text Text8 10 235 Platemail Gorget:
  84. Menu Edit Edit8 150 230 35 0
  85. Menu Text Text9 10 260 Platemail Gloves:
  86. Menu Edit Edit9 150 255 35 0
  87. Menu Text Text10 10 285 Platemail arms:
  88. Menu Edit Edit10 150 280 35 0
  89. Menu Text Text11 10 310 Platemail Leggings:
  90. Menu Edit Edit11 150 305 35 0
  91. Menu Text Text12 10 335 Platemail Breastplate:
  92. Menu Edit Edit12 150 330 35 0
  93. Menu Text Text13 10 360 Female Plate Armor:
  94. Menu Edit Edit13 150 355 35 0
  95.  
  96. ;HELMS+SHIELDS
  97. menu Font Color red
  98. Menu Text Text102 200 10 HELMS SHIELDS
  99. menu Font Color white
  100.  
  101.  
  102. Menu Text Text14 200 35 Helmet:
  103. Menu Edit Edit14 340 30 35 0
  104. Menu Text Text15 200 60 Bascinet:
  105. Menu Edit Edit15 340 55 35 0
  106. Menu Text Text16 200 85 Nose Helm:
  107. Menu Edit Edit16 340 80 35 0
  108. Menu Text Text17 200 110 Closed Helm:
  109. Menu Edit Edit17 340 105 35 0
  110. Menu Text Text18 200 135 Platemail Helm:
  111. Menu Edit Edit18 340 130 35 0
  112. Menu Text Text19 200 160 Heater Shield:
  113. Menu Edit Edit19 340 155 35 0
  114. Menu Text Text20 200 185 Buckler:
  115. Menu Edit Edit20 340 180 35 0
  116. Menu Text Text21 200 210 Metal Shield:
  117. Menu Edit Edit21 340 205 35 0
  118. Menu Text Text22 200 235 Metal Kite Shield:
  119. Menu Edit Edit22 340 230 35 0
  120.  
  121. ;BLADES
  122. menu Font Color red
  123. Menu Text Text103 390 10 BLADES
  124. menu Font Color white
  125.  
  126.  
  127. Menu Text Text23 390 35 Dagger:
  128. Menu Edit Edit23 530 30 35 0
  129. Menu Text Text24 390 60 Broad Knife:
  130. Menu Edit Edit24 530 55 35 0
  131. Menu Text Text25 390 85 Stiletto:
  132. Menu Edit Edit25 530 80 35 0
  133. Menu Text Text26 390 110 Cutlass:
  134. Menu Edit Edit26 530 105 35 0
  135. Menu Text Text27 390 135 Sharp Blade:
  136. Menu Edit Edit27 530 130 35 0
  137. Menu Text Text28 390 160 Katana:
  138. Menu Edit Edit28 530 155 35 0
  139. Menu Text Text29 390 185 Rapier:
  140. Menu Edit Edit29 530 180 35 0
  141. Menu Text Text30 390 210 Falchion:
  142. Menu Edit Edit30 530 205 35 0
  143. Menu Text Text31 390 235 Kryss:
  144. Menu Edit Edit31 530 230 35 0
  145. Menu Text Text32 390 260 Twist Blade:
  146. Menu Edit Edit32 530 255 35 0
  147. Menu Text Text33 390 285 Scimitar:
  148. Menu Edit Edit33 530 280 35 0
  149.  
  150. ;SWORDS
  151. menu Font Color red
  152. Menu Text Text104 580 10 SWORDS
  153. menu Font Color white
  154.  
  155.  
  156. Menu Text Text34 580 35 Short Sword:
  157. Menu Edit Edit34 740 30 35 0
  158. Menu Text Text35 580 60 Broadsword:
  159. Menu Edit Edit35 740 55 35 0
  160. Menu Text Text36 580 85 Sword:
  161. Menu Edit Edit36 740 80 35 0
  162. Menu Text Text37 580 110 Gladius:
  163. Menu Edit Edit37 740 105 35 0
  164. Menu Text Text38 580 135 Longsword:
  165. Menu Edit Edit38 740 130 35 0
  166. Menu Text Text39 580 160 Flamberge:
  167. Menu Edit Edit39 740 155 35 0
  168. Menu Text Text40 580 185 Viking Sword:
  169. Menu Edit Edit40 740 180 35 0
  170. Menu Text Text41 580 210 Bastard Sword:
  171. Menu Edit Edit41 740 205 35 0
  172. Menu Text Text42 580 235 Claymore:
  173. Menu Edit Edit42 740 230 35 0
  174. Menu Text Text43 580 260 Knight Sword:
  175. Menu Edit Edit43 740 255 35 0
  176.  
  177. ;AXES I
  178. menu Font Color red
  179. Menu Text Text105 790 10 AXES I
  180. menu Font Color white
  181.  
  182.  
  183. Menu Text Text44 790 35 Hatchet:
  184. Menu Edit Edit44 950 30 35 0
  185. Menu Text Text45 790 60 Small Axe:
  186. Menu Edit Edit45 950 55 35 0
  187. Menu Text Text46 790 85 Axe:
  188. Menu Edit Edit46 950 80 35 0
  189. Menu Text Text47 790 110 Beast Axe:
  190. Menu Edit Edit47 950 105 35 0
  191. Menu Text Text48 790 135 Broad Axe:
  192. Menu Edit Edit48 950 130 35 0
  193. Menu Text Text49 790 160 Large Axe:
  194. Menu Edit Edit49 950 155 35 0
  195. Menu Text Text50 790 185 Fine Axe:
  196. Menu Edit Edit50 950 180 35 0
  197. Menu Text Text51 790 210 Combat Axe:
  198. Menu Edit Edit51 950 205 35 0
  199. Menu Text Text52 790 235 Double Axe:
  200. Menu Edit Edit52 950 230 35 0
  201. Menu Text Text53 790 260 Beaked Axe:
  202. Menu Edit Edit53 950 255 35 0
  203.  
  204. ;AXES II
  205. menu Font Color red
  206. Menu Text Text106 790 285 AXES II
  207. menu Font Color white
  208.  
  209.  
  210. Menu Text Text54 790 310 Battle Axe:
  211. Menu Edit Edit54 950 305 35 0
  212. Menu Text Text55 790 335 War Axe:
  213. Menu Edit Edit55 950 330 35 0
  214. Menu Text Text56 790 360 Executioner`s Axe:
  215. Menu Edit Edit56 950 355 35 0
  216. Menu Text Text57 790 385 Great Axe:
  217. Menu Edit Edit57 950 380 35 0
  218. Menu Text Text58 790 410 Giant Axe:
  219. Menu Edit Edit58 950 405 35 0
  220. Menu Text Text59 790 435 Large Battle Axe:
  221. Menu Edit Edit59 950 430 35 0
  222. Menu Text Text60 790 460 Viking Axe:
  223. Menu Edit Edit60 950 455 35 0
  224.  
  225. ;POLEARMS
  226. menu Font Color red
  227. Menu Text Text107 580 285 POLEARMS
  228. menu Font Color white
  229.  
  230.  
  231. Menu Text Text61 580 310 Short Spear:
  232. Menu Edit Edit61 740 305 35 0
  233. Menu Text Text62 580 335 Spear:
  234. Menu Edit Edit62 740 330 35 0
  235. Menu Text Text63 580 360 War Fork:
  236. Menu Edit Edit63 740 355 35 0
  237. Menu Text Text64 580 385 Bardiche:
  238. Menu Edit Edit64 740 380 35 0
  239. Menu Text Text65 580 410 Halberd:
  240. Menu Edit Edit65 740 405 35 0
  241. Menu Text Text66 580 435 Trident:
  242. Menu Edit Edit66 740 430 35 0
  243. Menu Text Text67 580 460 Pitchfork:
  244. Menu Edit Edit67 740 455 35 0
  245.  
  246. ;BASHING
  247. menu Font Color red
  248. Menu Text Text108 1000 10 BASHING
  249. menu Font Color white
  250.  
  251.  
  252. Menu Text Text68 1000 35 Hammer Pick:
  253. Menu Edit Edit68 1160 30 35 0
  254. Menu Text Text69 1000 60 Mace:
  255. Menu Edit Edit69 1160 55 35 0
  256. Menu Text Text70 1000 85 Maul:
  257. Menu Edit Edit70 1160 80 35 0
  258. Menu Text Text71 1000 110 Morning Star:
  259. Menu Edit Edit71 1160 105 35 0
  260. Menu Text Text72 1000 135 Sledge Hammer:
  261. Menu Edit Edit72 1160 130 35 0
  262. Menu Text Text73 1000 160 Crusher:
  263. Menu Edit Edit73 1160 155 35 0
  264. Menu Text Text74 1000 185 War Mace:
  265. Menu Edit Edit74 1160 180 35 0
  266. Menu Text Text75 1000 210 War Hammer:
  267. Menu Edit Edit75 1160 205 35 0
  268. Menu Text Text76 1000 235 Battle Mace:
  269. Menu Edit Edit76 1160 230 35 0
  270.  
  271. ;TOOLS
  272. menu Font Color red
  273. Menu Text Text109 1000 260 TOOLS
  274. menu Font Color white
  275.  
  276.  
  277. Menu Text Text77 1000 285 Skinning Knife:
  278. Menu Edit Edit77 1160 280 35 0
  279. Menu Text Text78 1000 310 Butcher`s Knife:
  280. Menu Edit Edit78 1160 305 35 0
  281. Menu Text Text79 1000 335 Cleaver:
  282. Menu Edit Edit79 1160 330 35 0
  283. Menu Text Text80 1000 360 Pickaxe:
  284. Menu Edit Edit80 1160 355 35 0
  285. Menu Text Text81 1000 385 Smithhammer:
  286. Menu Edit Edit81 1160 380 35 0
  287.  
  288. ;COMMON
  289. menu Font Color red
  290. Menu Text Text110 390 310 COMMON
  291. menu Font Color white
  292.  
  293.  
  294. Menu Text Text82 390 335 Barrel Hoops:
  295. Menu Edit Edit82 530 330 35 0
  296. Menu Text Text83 390 360 Bola:
  297. Menu Edit Edit83 530 355 35 0
  298. Menu Text Text84 390 385 Anvil:
  299. Menu Edit Edit84 530 380 35 0
  300.  
  301.  
  302.  
  303. Menu Button Button1 10 400 150 20 Olééééé
  304.  
  305. Repeat
  306. wait 20
  307. If #MenuButton = Button1
  308. Break
  309. Until #False
  310. Menu Hide
  311.  
  312.  
  313. set %cpocGetEdit 84
  314. set %ValueGetEdit 1
  315.  
  316. ; Tohle bude hlavní Loop odted!
  317. ; v nem si zjistim prvni item, ziskam data, udelam a pokracuju na druhy item...
  318. LoopGetData:
  319.  
  320. ; Kolik jich chci udelat?
  321. ; ----------------------------------------------------------
  322. Menu Get Edit . %ValueGetEdit
  323. set %pocet #Menures
  324.  
  325. if %pocet = 0 || %pocet = N/A
  326. { ;Nemusím nic dělat tak proste jen zvysim iterator a jdu na dalsi item (po zkusim jestli uz sem neprosel vsechno)
  327. if %ValueGetEdit >= %cpocGetEdit
  328. goto GetDataEnd
  329.  
  330. set %ValueGetEdit %ValueGetEdit + 1
  331. goto LoopGetData
  332. }
  333. ; ----------------------------------------------------------
  334.  
  335.  
  336. ; Je to vic nez jedna takze to budeme delat!
  337. ; ----------------------------------------------------------
  338. GoSub checksave
  339.  
  340. ;Ingy Tongy Drevo
  341. FindItem %Nastroj C_ , #BACKPACKID
  342. set %tongID #FindID
  343. FindItem %Ingoty G_1
  344. set %ingotID #findID
  345. FindItem %TypDreva C_ , %Truhla
  346. set %woodID #findID
  347.  
  348. ; Tongy -> ingy -> gump -> práce
  349. set #lObjectID %tongID
  350. set #lTargetID %ingotID
  351. set #lTargetKind 1
  352. event macro 17 0 ;last object
  353. WAITFORTARGET1:
  354. if #targcurs = 0
  355. goto WAITFORTARGET1
  356. event macro 22 0 ;last target
  357.  
  358. ; zjistime si jakou ma item kategorii
  359. set %inCategory %workCat . %ValueGetEdit ;; definovano nad menu
  360. set %categoryY %CatOffset . %inCategory ;a tohle je offset pro kategorii
  361.  
  362. ; Klik na Kategorii
  363. gosub clickgump 565 %categoryY
  364.  
  365. ; mozna nejaka cekaci pauza? myslim ze ani netreba
  366. set %wx %workX . %ValueGetEdit
  367. set %wy %workY . %ValueGetEdit
  368.  
  369. ; Klik na item
  370. gosub clickgump 565 %wx %wy
  371.  
  372. ;A ted to dela!
  373.  
  374.  
  375.  
  376. set %ValueGetEdit %ValueGetEdit + 1
  377. goto LoopGetData
  378. GetDataEnd:
  379. halt
  380.  
  381. sub clickgump
  382. loopGUMP:
  383. set %gump GJZ
  384. if #contkind = %gump
  385. {
  386. str Pos #CONTSIZE _
  387. set %Offset #strRes - 1
  388. str Left #CONTSIZE %Offset
  389. set %OffetX #strRes
  390. set %Offset %Offset + 2
  391. str Mid #CONTSIZE %Offset 100
  392. set %OffetY #strRes
  393. Set %X %OffetX - %1
  394. set %Y %OffetY - %2
  395. click %X %Y dmc
  396. }
  397. else
  398. goto loopGUMP
  399. return
  400.  
  401. sub checksave
  402. For %i 1 to 25
  403. {
  404. ScanJournal %i
  405. If World_save_is_approaching in #journal
  406. {
  407. Event SysMessage čekám na sejvíř
  408. wait 20s
  409. }
  410. }
  411. return
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement
Public Pastes
Advertisement
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy.  OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!