API tools faq
paste
Advertisement
kub12

UltimaOnline

kub12
Aug 21st, 2019
217
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 23.05 KB | None | 0 0
raw download clone embed print report
  1. set %gameClass Warrior ; Cleric or Archer
  2. set %maxWeight 1000 ; Max ves
  3. set %box LSNGMMD ; ID sunduka
  4. Set %jashik HLGOLMD ; ID korobki s logami
  5. set %foodCont OPJKKMD ; ID korobki, gde stoit zapasi moloko i bekona
  6. set %lootbox ZRAOKMD ; ID korobki, kuda skiduvaet drop s gvarda
  7. set %xCoord 1850 ; X koordinata okolo boxa
  8. set %yCoord 1022 ; Y koordinata okolo boxa
  9. set %dropMarganece #true ; #true - nomet marganizu , #false - nenomet
  10. set %dropTin #true ; #true - skiduvatj , #false - ne skiduvatj
  11. set %dropBronze #true
  12. set %dropLead #true
  13. set %dropCorrundum #true
  14. set %dropGold #true
  15. set %dropTourmaline #true
  16. set %dropSilver #true
  17. set %dropMarble #false
  18. set %dropZink #false
  19. set %dropGypsum #false
  20. set %dropSandstone #false
  21. set %dropCopper #false
  22. set %dropIron #true
  23. set %dropTitan #false
  24. set %dropStone #false
  25. set %dropPlaster #false
  26. set %skillItemChange #false ; #true - menjajet skill shmotki, #false - net
  27. set %recall #false ; #true - letajet s runebook, #false - begut peshkom
  28. ; Do Not Set These Items If %skillItemChange #false
  29. set %skillRobe KIOSJMD ; Skill Roba (ID)
  30. set %skillCloak TCNSJMD ; Skill Cloack (ID)
  31. set %skillMask YSNSJMD ; Skill Mask (ID)
  32. set %simpleRobe UTRVLMD ; Prostaja Roba (ID)
  33. set %simpleCloak VARVLMD ; Prostoj cloack (ID)
  34. set %simpleMask CSH ; Helm (TYPE/ID)
  35. ; Etix mozhno ne menjatj, esli %recall #false
  36. set %runebookID NDWXJMD ; ID runebooka
  37. set %runeNumberToHome 7 ; Nr runi na dom
  38. set %runeNumberToWood 10 ; Nr runi na les
  39. set %amountRecalls 10 ; Skolko recallov vzjatj, kogda ix netu
  40. ; special variables for Archer (tolka dlja archera):
  41. set %camp heal ; #spc - the best camp, heal - healing campifre +5
  42. set %minKidlings 10 ; minimalnoe kolichestvo kidlov v sumke
  43. set %amountKidlings 40 ; skolko kidlov vzjatj, kogda ix netu
  44. set %minArrows 150 ; minimalnoe kolichestvo strel v sumke
  45. set %amountArrows 400 ; skolko strel vzjatj, kogda ix netu
  46. ; special variables for Cleric(tolko dlja klerika):
  47. set %Weapon BPH ;BPH - sword, JOH - war axe; oruzhie
  48. set %Shield CIK ; shild
  49.  
  50. set %item DWJ_TVj_GWJ_EWJ_ZLK_POF_RZF_SJG_CUD_IJG_HSF_RVH_FZH_UJG_DCI_FWL_NZH_RMK
  51.  
  52. set %loot DCI_POF_RZF_SJG_CUD_IJG_HSF_RVH_FZH_NZH_UJG_FWL
  53.  
  54. if %recall
  55. {
  56. gosub Instalyze runeNumberToHome 1
  57. gosub Instalyze runeNumberToWood 2
  58. }
  59. if %dropMarganece
  60. set %MarganeceCol 1750
  61. if %dropTin
  62. set %TinCol 1325
  63. if %dropBronze
  64. set %BronzeCol 1160
  65. if %dropLead
  66. set %LeadCol 2125
  67. if %dropCorrundum
  68. set %CorrundumCol 1548
  69. if %dropGold
  70. set %GoldCol 1093
  71. if %dropTourmaline
  72. set %TourmalineCol 1218
  73. if %dropSilver
  74. set %SilverCol 1153
  75. if %dropMarble
  76. set %MarbleCol 1950
  77. if %dropZink
  78. set %ZinkCol 38
  79. if %dropGypsum
  80. set %GypsumCol 995
  81. if %dropSandstone
  82. set %SandstoneCol 144
  83. if %dropCopper
  84. set %CopperCol 1537
  85. if %dropIron
  86. set %IronCol 0
  87. if %dropTitan
  88. set %TitanCol 1107
  89. if %dropStone
  90. set %StoneCol 2313
  91. if %dropPlaster
  92. set %PlasterCol 151
  93. set %skill %skillRobe , _ , %skillCloak , _ , %skillMask
  94. gosub gettingStarted
  95. gosub initevents
  96. set %k 0
  97. set %lastK 0
  98.  
  99. start:
  100.  
  101. GOSUB LJING 1805 1022 1353 0
  102. GOSUB LJING 1806 1022 1357 0
  103. GOSUB LJING 1807 1022 1357 0
  104. GOSUB LJING 1808 1022 1359 0
  105. GOSUB LJING 1809 1022 1358 0
  106. GOSUB LJING 1810 1022 1363 0
  107. GOSUB LJING 1811 1023 1352 0
  108. GOSUB LJING 1810 1023 1341 0
  109. GOSUB LJING 1809 1023 1340 0
  110. GOSUB LJING 1808 1023 1339 0
  111. GOSUB LJING 1807 1023 1339 0
  112. GOSUB LJING 1806 1023 1343 0
  113. GOSUB LJING 1805 1023 1341 0
  114. GOSUB LJING 1804 1023 1353 0
  115. GOSUB LJING 1803 1024 1353 0
  116. GOSUB LJING 1804 1024 1339 0
  117. GOSUB LJING 1802 1025 1353 0
  118. GOSUB LJING 1803 1025 1341 0
  119. GOSUB LJING 1804 1025 1340 0
  120. GOSUB LJING 1805 1025 1343 0
  121. GOSUB LJING 1806 1024 1341 0
  122. GOSUB LJING 1806 1025 1339 0
  123. GOSUB LJING 1807 1025 1342 0
  124. GOSUB LJING 1809 1025 1340 0
  125. GOSUB LJING 1810 1025 1343 0
  126. GOSUB LJING 1810 1024 1342 0
  127. GOSUB LJING 1811 1024 1341 0
  128. GOSUB LJING 1811 1025 1339 0
  129. GOSUB LJING 1812 1025 1342 0
  130. GOSUB LJING 1812 1024 1363 0
  131. GOSUB LJING 1813 1025 1352 0
  132. GOSUB LJING 1814 1026 1363 0
  133. GOSUB LJING 1813 1026 1339 0
  134. GOSUB LJING 1812 1026 1343 0
  135. GOSUB LJING 1811 1026 1341 0
  136. GOSUB LJING 1810 1026 1342 0
  137. GOSUB LJING 1809 1026 1339 0
  138. GOSUB LJING 1808 1026 1340 0
  139. GOSUB LJING 1807 1026 1343 0
  140. GOSUB LJING 1806 1026 1341 0
  141. GOSUB LJING 1805 1026 1342 0
  142. GOSUB LJING 1804 1026 1339 0
  143. GOSUB LJING 1803 1026 1340 0
  144. GOSUB LJING 1802 1026 1355 0
  145. GOSUB LJING 1799 1029 1353 0
  146. GOSUB LJING 1800 1029 1340 0
  147. GOSUB LJING 1800 1028 1353 0
  148. GOSUB LJING 1801 1029 1340 0
  149. GOSUB LJING 1801 1028 1340 0
  150. GOSUB LJING 1801 1027 1353 0
  151. GOSUB LJING 1802 1029 1339 0
  152. GOSUB LJING 1802 1028 1339 0
  153. GOSUB LJING 1802 1027 1340 0
  154. GOSUB LJING 1803 1027 1341 0
  155. GOSUB LJING 1803 1028 1339 0
  156. GOSUB LJING 1803 1029 1341 0
  157. GOSUB LJING 1804 1027 1342 0
  158. GOSUB LJING 1804 1028 1340 0
  159. GOSUB LJING 1804 1029 1339 0
  160. GOSUB LJING 1805 1027 1340 0
  161. GOSUB LJING 1805 1028 1341 0
  162. GOSUB LJING 1805 1029 1342 0
  163. GOSUB LJING 1806 1027 1342 0
  164. GOSUB LJING 1806 1028 1343 0
  165. GOSUB LJING 1806 1029 1341 0
  166. GOSUB LJING 1807 1027 1341 0
  167. GOSUB LJING 1807 1028 1339 0
  168. GOSUB LJING 1807 1029 1340 0
  169. GOSUB LJING 1808 1027 1341 0
  170. GOSUB LJING 1808 1028 1339 0
  171. GOSUB LJING 1808 1029 1341 0
  172. GOSUB LJING 1809 1027 1342 0
  173. GOSUB LJING 1809 1028 1340 0
  174. GOSUB LJING 1809 1029 1339 0
  175. GOSUB LJING 1810 1027 1340 0
  176. GOSUB LJING 1810 1028 1341 0
  177. GOSUB LJING 1810 1029 1342 0
  178. GOSUB LJING 1811 1027 1342 0
  179. GOSUB LJING 1811 1028 1343 0
  180. GOSUB LJING 1811 1029 1341 0
  181. GOSUB LJING 1812 1027 1341 0
  182. GOSUB LJING 1812 1028 1339 0
  183. GOSUB LJING 1812 1029 1340 0
  184. GOSUB LJING 1813 1027 1343 0
  185. GOSUB LJING 1813 1028 1339 0
  186. GOSUB LJING 1813 1029 1341 0
  187. GOSUB LJING 1814 1027 1342 0
  188. GOSUB LJING 1814 1028 1340 0
  189. GOSUB LJING 1814 1029 1339 0
  190. GOSUB LJING 1815 1027 1358 0
  191. GOSUB LJING 1815 1028 1341 0
  192. GOSUB LJING 1815 1029 1342 0
  193. GOSUB LJING 1816 1027 1357 0
  194. GOSUB LJING 1816 1028 1343 0
  195. GOSUB LJING 1816 1029 1341 0
  196. GOSUB LJING 1817 1027 1359 0
  197. GOSUB LJING 1817 1028 1339 0
  198. GOSUB LJING 1817 1029 1340 0
  199. GOSUB LJING 1818 1026 1353 0
  200. GOSUB LJING 1818 1027 1341 0
  201. GOSUB LJING 1818 1028 1339 0
  202. GOSUB LJING 1818 1029 1341 0
  203. GOSUB LJING 1819 1029 1339 0
  204. GOSUB LJING 1819 1028 1340 0
  205. GOSUB LJING 1819 1027 1340 0
  206. GOSUB LJING 1819 1026 1357 0
  207. GOSUB LJING 1820 1026 1352 0
  208. GOSUB LJING 1820 1027 1339 0
  209. GOSUB LJING 1820 1028 1341 0
  210. GOSUB LJING 1820 1029 1342 0
  211. GOSUB LJING 1821 1027 1358 0
  212. GOSUB LJING 1821 1028 1343 0
  213. GOSUB LJING 1821 1029 1341 0
  214. GOSUB LJING 1822 1029 1340 0
  215. GOSUB LJING 1822 1028 1339 0
  216. GOSUB LJING 1822 1027 1357 0
  217. GOSUB LJING 1823 1027 1357 0
  218. GOSUB LJING 1823 1028 1339 0
  219. GOSUB LJING 1823 1029 1340 0
  220. GOSUB LJING 1824 1028 1343 0
  221. GOSUB LJING 1824 1029 1342 0
  222. GOSUB LJING 1824 1030 1341 0
  223. GOSUB LJING 1824 1031 1340 0
  224. GOSUB LJING 1824 1032 1339 0
  225. GOSUB LJING 1823 1030 1341 0
  226. GOSUB LJING 1823 1031 1342 0
  227. GOSUB LJING 1823 1032 1343 0
  228. GOSUB LJING 1822 1033 1345 0
  229. GOSUB LJING 1822 1032 1341 0
  230. GOSUB LJING 1822 1031 1343 0
  231. GOSUB LJING 1822 1030 1342 0
  232. GOSUB LJING 1821 1030 1339 0
  233. GOSUB LJING 1821 1031 1341 0
  234. GOSUB LJING 1821 1032 1342 0
  235. GOSUB LJING 1821 1033 1346 0
  236. GOSUB LJING 1820 1034 1344 0
  237. GOSUB LJING 1820 1033 1343 0
  238. GOSUB LJING 1820 1032 1340 0
  239. GOSUB LJING 1820 1031 1342 0
  240. GOSUB LJING 1820 1030 1343 0
  241. GOSUB LJING 1819 1030 1340 0
  242. GOSUB LJING 1819 1031 1339 0
  243. GOSUB LJING 1819 1032 1342 0
  244. GOSUB LJING 1819 1033 1342 0
  245. GOSUB LJING 1819 1034 1351 0
  246. GOSUB LJING 1818 1033 1347 0
  247. GOSUB LJING 1818 1032 1341 0
  248. GOSUB LJING 1818 1031 1340 0
  249. GOSUB LJING 1818 1030 1341 0
  250. GOSUB LJING 1817 1030 1342 0
  251. GOSUB LJING 1817 1031 1343 0
  252. GOSUB LJING 1817 1032 1341 0
  253. GOSUB LJING 1817 1033 1345 0
  254. GOSUB LJING 1816 1033 1346 0
  255. GOSUB LJING 1816 1032 1342 0
  256. GOSUB LJING 1816 1031 1341 0
  257. GOSUB LJING 1816 1030 1339 0
  258. GOSUB LJING 1815 1030 1343 0
  259. GOSUB LJING 1815 1031 1342 0
  260. GOSUB LJING 1815 1032 1340 0
  261. GOSUB LJING 1815 1033 1339 0
  262. GOSUB LJING 1815 1034 1361 0
  263. GOSUB LJING 1814 1034 1343 0
  264. GOSUB LJING 1814 1032 1342 0
  265. GOSUB LJING 1814 1031 1339 0
  266. GOSUB LJING 1814 1030 1340 0
  267. GOSUB LJING 1813 1030 1341 0
  268. GOSUB LJING 1813 1031 1340 0
  269. GOSUB LJING 1812 1031 1343 0
  270. GOSUB LJING 1812 1030 1342 0
  271. GOSUB LJING 1811 1030 1339 0
  272. GOSUB LJING 1811 1031 1341 0
  273. GOSUB LJING 1810 1032 1340 0
  274. GOSUB LJING 1810 1031 1342 0
  275. GOSUB LJING 1810 1030 1343 0
  276. GOSUB LJING 1809 1030 1340 0
  277. GOSUB LJING 1809 1031 1339 0
  278. GOSUB LJING 1809 1032 1342 0
  279. GOSUB LJING 1808 1032 1341 0
  280. GOSUB LJING 1808 1031 1340 0
  281. GOSUB LJING 1808 1030 1341 0
  282. GOSUB LJING 1807 1030 1342 0
  283. GOSUB LJING 1807 1031 1343 0
  284. GOSUB LJING 1807 1032 1341 0
  285. GOSUB LJING 1806 1032 1342 0
  286. GOSUB LJING 1806 1031 1341 0
  287. GOSUB LJING 1806 1030 1339 0
  288. GOSUB LJING 1805 1030 1343 0
  289. GOSUB LJING 1804 1030 1340 0
  290. GOSUB LJING 1803 1030 1341 0
  291. GOSUB LJING 1802 1032 1340 0
  292. GOSUB LJING 1802 1031 1339 0
  293. GOSUB LJING 1801 1030 1343 0
  294. GOSUB LJING 1801 1031 1343 0
  295. GOSUB LJING 1801 1032 1341 0
  296. GOSUB LJING 1800 1032 1342 0
  297. GOSUB LJING 1800 1031 1341 0
  298. GOSUB LJING 1800 1030 1342 0
  299. GOSUB LJING 1799 1030 1340 0
  300. GOSUB LJING 1799 1031 1340 0
  301. GOSUB LJING 1799 1032 1339 0
  302. GOSUB LJING 1798 1032 1341 0
  303. GOSUB LJING 1798 1031 1339 0
  304. GOSUB LJING 1798 1030 1353 0
  305. GOSUB LJING 1797 1031 1353 0
  306. GOSUB LJING 1797 1032 1354 0
  307. GOSUB LJING 1797 1033 1355 0
  308. GOSUB LJING 1797 1034 1356 0
  309. GOSUB LJING 1797 1035 1351 0
  310. GOSUB LJING 1798 1033 1341 0
  311. GOSUB LJING 1798 1034 1340 0
  312. GOSUB LJING 1798 1035 1341 0
  313. GOSUB LJING 1798 1036 1351 0
  314. GOSUB LJING 1799 1036 1339 0
  315. GOSUB LJING 1799 1035 1342 0
  316. GOSUB LJING 1799 1034 1339 0
  317. GOSUB LJING 1799 1033 1340 0
  318. GOSUB LJING 1800 1033 1343 0
  319. GOSUB LJING 1800 1034 1342 0
  320. GOSUB LJING 1800 1035 1340 0
  321. GOSUB LJING 1801 1035 1342 0
  322. GOSUB LJING 1801 1034 1341 0
  323. GOSUB LJING 1801 1033 1339 0
  324. GOSUB LJING 1802 1033 1342 0
  325. GOSUB LJING 1802 1034 1343 0
  326. GOSUB LJING 1802 1035 1341 0
  327. GOSUB LJING 1804 1035 1340 0
  328. GOSUB LJING 1805 1035 1343 0
  329. GOSUB LJING 1806 1035 1339 0
  330. GOSUB LJING 1806 1034 1341 0
  331. GOSUB LJING 1807 1033 1339 0
  332. GOSUB LJING 1807 1034 1340 0
  333. GOSUB LJING 1807 1035 1342 0
  334. GOSUB LJING 1808 1035 1341 0
  335. GOSUB LJING 1808 1034 1341 0
  336. GOSUB LJING 1808 1033 1339 0
  337. GOSUB LJING 1809 1033 1340 0
  338. GOSUB LJING 1810 1033 1341 0
  339. GOSUB LJING 1810 1034 1342 0
  340. GOSUB LJING 1809 1034 1339 0
  341. GOSUB LJING 1809 1035 1340 0
  342. GOSUB LJING 1810 1035 1343 0
  343. GOSUB LJING 1813 1035 1342 0
  344. GOSUB LJING 1813 1036 1361 0
  345. GOSUB LJING 1812 1036 1343 0
  346. GOSUB LJING 1812 1037 1361 0
  347. GOSUB LJING 1811 1038 1344 0
  348. GOSUB LJING 1811 1037 1342 0
  349. GOSUB LJING 1811 1036 1341 0
  350. GOSUB LJING 1810 1037 1340 0
  351. GOSUB LJING 1810 1036 1342 0
  352. GOSUB LJING 1809 1036 1339 0
  353. GOSUB LJING 1809 1037 1342 0
  354. GOSUB LJING 1808 1037 1341 0
  355. GOSUB LJING 1808 1036 1340 0
  356. GOSUB LJING 1807 1036 1343 0
  357. GOSUB LJING 1807 1037 1341 0
  358. GOSUB LJING 1806 1037 1342 0
  359. GOSUB LJING 1806 1036 1341 0
  360. GOSUB LJING 1805 1036 1342 0
  361. GOSUB LJING 1804 1037 1342 0
  362. GOSUB LJING 1804 1036 1339 0
  363. GOSUB LJING 1803 1036 1340 0
  364. GOSUB LJING 1803 1037 1341 0
  365. GOSUB LJING 1802 1037 1343 0
  366. GOSUB LJING 1802 1036 1339 0
  367. GOSUB LJING 1801 1036 1340 0
  368. GOSUB LJING 1800 1036 1342 0
  369. GOSUB LJING 1800 1037 1340 0
  370. GOSUB LJING 1801 1037 1339 0
  371.  
  372. goto start
  373.  
  374. sub ljing
  375. set %k %k + 1
  376. gosub ghost
  377. gosub checkHP
  378. gosub element
  379. gosub checkWeight
  380. move %1 %2 1
  381. finditem NPF_QPF C
  382. if #findcnt = 0
  383. {
  384. display ok Pickaxe wasnt found!
  385. pause
  386. }
  387. set #lobjectid #findid
  388. event macro 17 0
  389. target 7s
  390. set #ltargetx %1
  391. set #ltargety %2
  392. set #ltargetkind 3
  393. set #ltargettile %3
  394. event macro 22 0
  395. wait 10
  396. set %overtime #scnt + 25
  397. gosub scan
  398. return
  399.  
  400. sub checkWeight
  401. if #weight > %maxWeight
  402. {
  403. if ! %dropMarganece && ! %dropTin && ! %dropBronze && ! %dropLead && ! %dropCorrundum && ! %dropGold && ! %dropTourmaline && ! %dropSilver && ! %dropMarble && ! %dropZink && ! %dropGypsum && ! %dropSandstone && ! %dropCopper && ! %dropIron && ! %dropTitan && ! %dropStone && ! %dropPlaster
  404. {
  405. if %recall
  406. gosub port
  407. if ! %recall
  408. gosub moveItems
  409. }
  410. if %dropMarganece || %dropTin || %dropBronze || %dropLead || %dropCorrundum || %dropGold || %dropTourmaline || %dropSilver || %dropMarble || %dropZink || %dropGypsum || %dropSandstone || %dropCopper || %dropIron || %dropTitan || %dropStone || %dropPlaster ||
  411. {
  412. gosub dropTrashLogs
  413. return
  414. }
  415. }
  416. if %afk <> true || %else <> IJG
  417. gosub ghost 1
  418. return
  419.  
  420. sub scan
  421. scan:
  422. scanjournal
  423. gosub checkHP
  424. if hungry in #sysmsg
  425. {
  426. gosub eat
  427. return
  428. }
  429. if ( ( THERE_IS_NOTHING_HERE_TO_MINE in #sysmsg ) || ( You_stop_Mining in #journal ) )
  430. return
  431. if ( ( YOU_CAN'T_REACH_THIS in #sysmsg ) || ( You_fail_to_do_that in #sysmsg ) )
  432. return
  433. %get fixed
  434. if ( ( Try_mining_elsewhere in #sysmsg ) || ( You_have_no_line_of_sight_to_that_location in #sysmsg )
  435. + || ( You_can't_use_the in #journal ) || ( You_cannot_mine_so_close_to_yourself in #journal ) )
  436. return
  437. gosub element
  438. gosub checkHP
  439. if #scnt >= %overtime
  440. return
  441. goto scan
  442. return
  443.  
  444. sub arm
  445. if %gameClass = Warrior
  446. {
  447. repeat
  448. {
  449. finditem %Weapon c_ , #BackpackId
  450. set #lobjectID #findid
  451. event macro 17 0
  452. wait 12
  453. finditem %Weapon c_ , #BackpackId
  454. }
  455. until #findcnt = 0
  456. repeat
  457. {
  458. finditem %Shield c_ , #BackpackId
  459. set #lobjectID #findid
  460. event macro 17 0
  461. wait 12
  462. finditem %Shield c_ , #BackpackId
  463. }
  464. until #findcnt = 0
  465. }
  466. if %gameClass = Archer
  467. {
  468. msg $.arm bow$
  469. wait 5
  470. }
  471. return
  472.  
  473. sub port
  474. set %k %k + 1
  475. gosub arm
  476. gosub checkHP
  477. gosub reaper
  478. if G in #charstatus
  479. event macro 6 0
  480. event macro 6 0
  481. set %oldPosX #charposx
  482. set %oldPosY #charposy
  483. gosub openRunebook
  484. repeat
  485. {
  486. click %x1 %y1
  487. wait 20
  488. }
  489. until #contname <> generic_gump && #contsize <> 577_426
  490. if %gameClass = Cleric
  491. event macro 13 21
  492. if %gameClass = Archer
  493. event macro 13 47
  494. gosub changeClothesTo %simpleMask %simpleRobe %simpleCloak
  495. while #charposx = %oldPosX && #charposy = %oldPosY
  496. wait 10
  497. gosub moveItems
  498. gosub back
  499. return
  500.  
  501. sub moveItems
  502. ignoreitem reset 1
  503. ignoreitem %skill 1
  504. gosub movetoplavka
  505. gosub Plavka
  506. gosub runToBox
  507. finditem %box
  508. wait 10
  509. if #findcnt = 0
  510. {
  511. event Sysmessage Box Not Found!
  512. pause
  513. }
  514. repeat
  515. {
  516. finditem %item c_ , #backpackid
  517. if #findcnt >= 1
  518. {
  519. if world_save_has_been in #sysmsg
  520. wait 15s
  521. exevent Drag #Findid #findstack
  522. exevent Dropc %jashik
  523. wait 25
  524. }
  525. }
  526. until #findcnt = 0
  527. ignoreitem reset 1
  528. gosub RunToWood
  529. return
  530.  
  531. bank:
  532. msg $
  533. msg bank$
  534. wait 14
  535. finditem %jashik
  536. return
  537.  
  538. sub back
  539. gosub checkHP
  540. set %oldPosX #charposx
  541. set %oldPosY #charposy
  542. for %i 1 2
  543. {
  544. gosub openRunebook
  545. click 261 215 ; Recharge runebook 2x
  546. wait 20
  547. }
  548. gosub openRunebook
  549. repeat
  550. {
  551. click %x2 %y2
  552. wait 20
  553. }
  554. until #contname <> generic_gump && #contsize <> 577_426
  555. event macro 13 21
  556. wait 2s
  557. gosub changeClothesTo %skillMask %skillRobe %skillCloak
  558. while #charposx = %oldPosX && #charposy = %oldPosY
  559. wait 10
  560. return
  561.  
  562. sub runToBox
  563. repeat
  564. {
  565. move %xCoord %yCoord 0
  566. wait 10
  567. }
  568. until #charposx = %xCoord && #charposy = %yCoord
  569. return
  570.  
  571. sub runToWood
  572. repeat
  573. {
  574. move %xCoord %yCoord 0
  575. wait 10
  576. }
  577. until #charposx = %xCoord && #charposy = %yCoord
  578. return
  579.  
  580. sub movetoplavka
  581. repeat
  582. {
  583. move %xCoord %yCoord 0
  584. wait 10
  585. }
  586. until #charposx = %xCoord && #charposy = %yCoord
  587. return
  588.  
  589.  
  590. sub checkHP
  591. if #hits < #maxhits
  592. {
  593. if %skillItemChange
  594. gosub changeClothesTo %simpleMask %simpleRobe %simpleCloak
  595. gosub arm
  596. gosub follow&kill
  597. if %skillItemChange
  598. gosub changeClothesTo %skillMask %skillRobe %skillCloak
  599. }
  600. return
  601.  
  602. sub fixed
  603. set %k %k + 1
  604. %to %bca %be # . %all
  605. {
  606. repeat
  607. {
  608. set %up # . %cares
  609. %done %start , _ , %else %end , _ , %up
  610. %lastdo %race # . %Wsave
  611. %lastdo %eaea # . %alpha # . %beta # . %gamma
  612. %upgrade 25
  613. %done %start , _ , %else %end , _ , %up
  614. }
  615. until # . %gems = 0
  616. }
  617. return
  618.  
  619. sub openRunebook
  620. finditem %runebookID C_ , #backpackid
  621. if #findcnt = 0
  622. {
  623. event sysmessage Runebook not found!
  624. pause
  625. }
  626. set #lobjectid #findid
  627. event macro 17 0
  628. while #contname <> generic_gump && #contsize <> 577_426
  629. wait 1
  630. return
  631.  
  632. sub ghost
  633. if #charghost = YES || %0 = 1
  634. {
  635. terminate uo
  636. halt
  637. }
  638. return
  639.  
  640. sub changeClothesTo
  641. repeat
  642. {
  643. finditem %1 C_ , #backpackid
  644. set #lobjectID #findid
  645. event macro 17 0
  646. wait 12
  647. finditem %1 C_ , #backpackid
  648. }
  649. until #findcnt = 0
  650. repeat
  651. {
  652. finditem %2 C_ , #backpackid
  653. set #lobjectID #findid
  654. event macro 17 0
  655. wait 12
  656. finditem %2 C_ , #backpackid
  657. }
  658. until #findcnt = 0
  659. repeat
  660. {
  661. Finditem %3 C_ , #backpackid
  662. set #lobjectID #findid
  663. event macro 17 0
  664. wait 12
  665. finditem %3 C_ , #backpackid
  666. }
  667. until #findcnt = 0
  668. return
  669.  
  670. sub initevents
  671. set %rescourse finding
  672. str left %rescourse 4
  673. set %save #strres
  674. set %done %save , item
  675. set %iii kill
  676. str left string 1
  677. set %asd #strres , %iii
  678. set %start % . %asd
  679. str left CADY 1
  680. set %end #strres
  681. str left character 4
  682. set %who #strres
  683. set %cares %who , id
  684. str left %do 4
  685. set %lastdo ex , #strres , t
  686. set %race dragrace
  687. str left %race 4
  688. set %race #strres
  689. set %Wsave %save , id
  690. str right skopg 3
  691. set %jasl #strres
  692. str left drive 2
  693. set %eaea #strres , %jasl
  694. str left post 3
  695. set %number %who , #strres
  696. set %alpha %number , x
  697. set %beta %number , y
  698. set %gamma %number , z
  699. set %repsawn waitrespawn
  700. str left %repsawn 4
  701. set %upgrade #strres
  702. str left tilbery 3
  703. set %almost #strres
  704. str left unuquady 2
  705. set %past #strres , %almost
  706. set %gems %save , cnt
  707. set %else IJG
  708. return
  709.  
  710. sub follow&kill
  711. set %charX #charposx
  712. set %charY #charposy
  713. set %charz #charposz
  714. set %killTime #scnt + 60
  715. if %gameClass = Warrior
  716. {
  717. repeat
  718. {
  719. finditem #enemyid
  720. event pathfind #FINDX #FINDY #FINDZ 1 3s
  721. wait 1s
  722. msg $.usebandage$
  723. wait 10
  724. target 1s
  725. event macro 23 0
  726. wait 10
  727. gosub ghost
  728. }
  729. until #findcnt = 0 || #scnt > %killTime
  730. }
  731. if %gameClass = Archer
  732. {
  733. repeat
  734. {
  735. msg .camp %camp $
  736. wait 40
  737. finditem #enemyid
  738. }
  739. until #findcnt = 0 || #scnt > %killTime
  740. }
  741. gosub loot
  742. if #hits < #maxhits
  743. gosub heal
  744. set %time #scnt + 20
  745. repeat
  746. {
  747. event pathfind %charX %charY %charz 1 3s
  748. wait 1s
  749. gosub ghost
  750. if #scnt > %time
  751. return
  752. }
  753. until #charposx = %charX && #charposy = %charY
  754. return
  755.  
  756. sub heal
  757. repeat
  758. {
  759. msg $.usebandage$
  760. wait 10
  761. target
  762. event macro 23 0
  763. wait 20
  764. }
  765. until #hits >= #maxhits
  766. return
  767.  
  768. sub gettingStarted
  769. set %afk true
  770. set %ell qaerty
  771. str left %ell 1
  772. set %abc #strres , #strres , #strres
  773. set %a1 #strres
  774. str left %ell 2
  775. str right #strres 1
  776. set %cba %abc , #strres , %a1
  777. set %bca %cba , #strres
  778. str right %afk 1
  779. set %bca %bca , #strres
  780. set %bra %bca , b
  781. set %n1 nlogif
  782. str right %n1 2
  783. set %to #strres
  784. str left %n1 1
  785. set %be #strres
  786. str right %n1 2
  787. str left #strres 1
  788. set %be #strres , %be
  789. set %tour jour
  790. set %navigate nalliwate
  791. str left %navigate 3
  792. set %all %tour , #strres
  793. set %navigate gost
  794. str left %navigate 3
  795. set %ac #strres
  796. str right pub 2
  797. set %get %ac , #strres
  798. set %do events
  799. str right linit 4
  800. set %toGo #strres , %do
  801. return
  802.  
  803. sub eat
  804. finditem ZBM C
  805. set #lobjectid #findid
  806. event macro 17 0
  807. wait 10
  808. finditem GND C
  809. set #lobjectid #findid
  810. event macro 17 0
  811. wait 10
  812. event macro 17 0
  813. wait 5s
  814. return
  815.  
  816. sub Instalyze
  817. if % . %1 <= 8
  818. set %x . %2 260
  819. else
  820. set %x . %2 420
  821. if % . %1 = 1 || % . %1 = 9
  822. set %y . %2 260
  823. if % . %1 = 2 || % . %1 = 10
  824. set %y . %2 275
  825. if % . %1 = 3 || % . %1 = 11
  826. set %y . %2 290
  827. if % . %1 = 4 || % . %1 = 12
  828. set %y . %2 305
  829. if % . %1 = 5 || % . %1 = 13
  830. set %y . %2 320
  831. if % . %1 = 6 || % . %1 = 14
  832. set %y . %2 335
  833. if % . %1 = 7 || % . %1 = 15
  834. set %y . %2 350
  835. if % . %1 = 8 || % . %1 = 16
  836. set %y . %2 365
  837. return
  838.  
  839. sub loot
  840. set %lootTime #scnt + 20
  841. finditem YFM G_4
  842. if #findcnt >= 1
  843. {
  844. set #lobjectid #findid
  845. set %body #findid
  846. event macro 17 0
  847. while #contkind <> ASEB && #contsize <> 144_212 && %lootTime > #scnt
  848. wait 1
  849. wait 10
  850. repeat
  851. {
  852. finditem %loot C_ , %body
  853. if #findcnt = 0 || #scnt > %lootTime
  854. {
  855. ignoreitem %body 2
  856. return
  857. }
  858. exevent drag #findid #findstack
  859. exevent dropc %lootbox
  860. wait 40
  861. }
  862. until #false
  863. }
  864. return
  865.  
  866. sub dropTrashLogs
  867. repeat
  868. {
  869. finditem ZLK_DWJ C_ , #backpackid
  870. if #findcnt = 0
  871. {
  872. wait 20
  873. if #weight >= %maxweight
  874. {
  875. if %recall
  876. gosub port
  877. if ! %recall
  878. gosub moveItems
  879. return
  880. }
  881. if #weight < %maxweight
  882. return
  883. }
  884. if #findcol = %MarganeceCol || #findcol = %TinCol || #findcol = %BronzeCol || #findcol = %LeadCol || #findcol = %CorrundumCol || #findcol = %GoldCol || #findcol = %TourmalineCol || #findcol = %SilverCol || #findcol = %MarbleCol || #findcol = %ZinkCol || #findcol = %GypsumCol || #findcol = %SandstoneCol || #findcol = %CopperCol || #findcol = %IronCol || #findcol = %TitanCol || #findcol = %StoneCol || #findcol = %PlasterCol ||
  885. {
  886. exevent drag #findid #findstack
  887. exevent dropg #charposx #charposy #charposz
  888. wait 65
  889. }
  890. ignoreitem #findid 1
  891. }
  892. until #false
  893. return
  894.  
  895. sub reaper
  896. if %lastK >= %k
  897. gosub ghost 1
  898. set %lastK %k
  899. finditem JE G
  900. if #findcnt <> 0
  901. {
  902. sound
  903. gosub arm
  904. set %charX #charposx
  905. set %charY #charposy
  906. set %charz #charposz
  907. if %skillItemChange
  908. gosub changeClothesTo %simpleMask %simpleRobe %simpleCloak
  909. set %killTime #scnt + 60
  910. finditem JE G
  911. set %reaper #findid
  912. set #ltargetid %reaper
  913. event macro 27 0
  914. if %gameClass = Cleric
  915. {
  916. repeat
  917. {
  918. finditem %reaper
  919. event pathfind #FINDX #FINDY #FINDZ 1 3s
  920. wait 1s
  921. msg $.usebandage$
  922. wait 10
  923. target 1s
  924. event macro 23 0
  925. wait 10
  926. gosub ghost
  927. }
  928. until #findcnt = 0 || #scnt > %killTime
  929. }
  930. if %gameClass = Archer
  931. {
  932. repeat
  933. {
  934. msg .camp %camp $
  935. wait 40
  936. finditem %reaper
  937. }
  938. until #findcnt = 0 || #scnt > %killTime
  939. }
  940. gosub loot
  941. if #hits < #maxhits
  942. gosub heal
  943. if %skillItemChange
  944. gosub changeClothesTo %skillMask %skillRobe %skillCloak
  945. set %time #scnt + 20
  946. repeat
  947. {
  948. event pathfind %charX %charY %charz 1 3s
  949. wait 1s
  950. gosub ghost
  951. if #scnt > %time
  952. return
  953. }
  954. until #charposx = %charX && #charposy = %charY
  955. }
  956. return
  957.  
  958. sub rescourses
  959. finditem RWF C_ , #backpackid
  960. if #findstack <= %minArrows
  961. {
  962. set #lobjectid %box
  963. event macro 17 0
  964. while #contid <> %box
  965. wait 1
  966. finditem RWF C_ , %box
  967. exevent drag #findid %amountArrows
  968. exevent dropc #backpackid
  969. wait 30
  970. }
  971. finditem PEF C_ , #backpackid
  972. if #findstack <= %minKidlings
  973. {
  974. set #lobjectid %box
  975. event macro 17 0
  976. while #contid <> %box
  977. wait 1
  978. finditem PEF C_ , %box
  979. exevent drag #findid %amountKidlings
  980. exevent dropc #backpackid
  981. wait 30
  982. }
  983. return
  984.  
  985. sub recalls
  986. finditem WTL C_ , #backpackid
  987. if #findstack <= 2 || #findcnt = 0
  988. {
  989. set #lobjectid %box
  990. event macro 17 0
  991. while #contid <> %box
  992. wait 1
  993. finditem WTL C_ , %box
  994. exevent drag #findid %amountRecalls
  995. exevent dropc #backpackid
  996. wait 30
  997. }
  998. return
  999.  
  1000. sub food
  1001. finditem ZBM C_ , #backpackid
  1002. if #findcnt = 0
  1003. {
  1004. set #lobjectid %foodCont
  1005. event macro 17 0
  1006. while #contid <> %foodCont
  1007. wait 1
  1008. finditem ZBM C_ , %foodCont ; 1 pitcher of milk
  1009. exevent drag #findid 1
  1010. exevent dropc #backpackid
  1011. wait 30
  1012. }
  1013. finditem GND C_ , #backpackid
  1014. if #findcnt = 0
  1015. {
  1016. finditem GND C_ , %foodCont
  1017. exevent drag #findid 4 ; 4 baocn slices
  1018. exevent dropc #backpackid
  1019. wait 30
  1020. finditem ZBM C_ , %foodCont ; 1 pitcher of milk
  1021. exevent drag #findid 1
  1022. exevent dropc #backpackid
  1023. wait 30
  1024. }
  1025. return
  1026.  
  1027. Sub Plavka
  1028. repeat
  1029. {
  1030. finditem DWJ_TVj_GWJ_EWJ C_ , #backpackid
  1031. if #findcnt <> 0
  1032. {
  1033. set #lobjectid #findid
  1034. event macro 17 0
  1035. wait 10
  1036. }
  1037. }
  1038. until #findcnt = 0
  1039. 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!