API tools faq
paste
Advertisement
Guest User

Untitled

a guest
Oct 19th, 2018
81
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 39.23 KB | None | 0 0
raw download clone embed print report
  1. var colorm = 44
  2. var spellbook = '0x0EFA'
  3. var Robe = '0x1F03'
  4. var skullcap = '0x1543'
  5. var TEMPO = '90000'
  6. var bank = '0x400CE65F' # ID DA PLACA DO BANCO DA CASA
  7. var backpack = '0x400F2560'
  8. var Delay = 0
  9. var corpo = UO.GetSerial('lastcontainer')
  10.  
  11. // types
  12.  
  13. sub AbrirPorta()
  14. var i, n
  15.  
  16. uo.set('finddistance','4')
  17.  
  18. Dim A[2]
  19. A[1] = 0x06D5;
  20. A[2] = 0x06A5;
  21.  
  22. i = 70
  23. FOR n=1 TO 2
  24. uo.findtype(A[n],"-1","ground")
  25.  
  26. if uo.findcount() > 0 then
  27. uo.useobject('finditem')
  28. wait (i)
  29. end if
  30. NEXT
  31. end sub
  32.  
  33. sub FecharPorta()
  34. var i, n
  35. uo.set('finddistance','10')
  36.  
  37. Dim A[2]
  38. A[1] = 0x06D6;
  39. A[2] = 0x06A6;
  40.  
  41. i = 70
  42. FOR n=1 TO 2
  43. uo.findtype(A[n],"-1","ground")
  44. if uo.findcount() > 0 then
  45. uo.useobject('finditem')
  46. wait (i)
  47. end if
  48. NEXT
  49. end sub
  50.  
  51. sub entrar()
  52. UO.Press(33)
  53. wait(25)
  54. UO.Press(33)
  55. wait(25)
  56. UO.Press(33)
  57. wait(25)
  58. AbrirPorta()
  59. wait(1000)
  60. UO.Press(33)
  61. wait(25)
  62. UO.Press(33)
  63. wait(25)
  64. UO.Press(33)
  65. wait(1000)
  66. FecharPorta()
  67. end sub
  68.  
  69. sub guardar()
  70. UO.FindType('0x0EED','0x0000','my'); GOLD
  71. uo.moveitem('finditem', '0', '0x4002EBC5')
  72. wait(2000)
  73. UO.FindType('0x0EED','0x0000','my'); GOLD
  74. uo.moveitem('finditem', '0', '0x4002EBC5')
  75. wait(2000)
  76. UO.FindType('0x1869','0x0000','my'); orb
  77. uo.moveitem('finditem', '0', '0x4002EBC5')
  78. wait(2000)
  79. UO.FindType('0x0E20','0x0000','my'); BANDS SUJA
  80. uo.moveitem('finditem', '0', '0x4002EBC4')
  81. wait(4000)
  82.  
  83. if uo.count('0x0E21','0x0000') <= 100 then
  84. wait(1000)
  85. uo.useobject('0x4002EBC4')
  86. wait(1000)
  87. UO.FindType('0x0E21','0x0000','0x4002EBC4'); BANDS
  88. uo.moveitem('finditem', '100', 'my')
  89. wait(200)
  90. end if
  91. end sub
  92.  
  93. sub Loot6()
  94. var corpo=UO.GetSerial('lastcontainer');
  95.  
  96. While TRUE
  97. repeat
  98. sleep(120)
  99. until corpo <> UO.GetSerial('lastcontainer')
  100.  
  101. sleep(200)
  102. UO.DeleteJournal()
  103. sleep(100)
  104. LimpaCorpo2()
  105. sleep(100)
  106. wend
  107. end sub
  108.  
  109. sub rcasa()
  110. uo.warmode(0)
  111. UO.DeleteJournal()
  112. uo.recall('0x401F815F','4') # RECALL PARA CASA
  113. wait(8000)
  114.  
  115. if uo.injournal('A magia|falhou|A magia falhou') then
  116. UO.DeleteJournal()
  117. uo.warmode(0)
  118. uo.recall('0x401F815F','4') # RECALL PARA CASA
  119. wait(8000)
  120. end if
  121.  
  122. if uo.injournal('A magia|falhou|A magia falhou') then
  123. UO.DeleteJournal()
  124. uo.warmode(0)
  125. uo.recall('0x401F815F','4') # RECALL PARA CASA
  126. wait(8000)
  127. end if
  128.  
  129. endsub
  130.  
  131. sub rpoison()
  132. uo.warmode(0)
  133. UO.DeleteJournal()
  134. uo.recall('0x401DB6BF','4') # RECALL PARA CASA
  135.  
  136. wait(8000)
  137.  
  138. if uo.injournal('A magia|falhou|A magia falhou') then
  139. UO.DeleteJournal()
  140. uo.warmode(0)
  141. uo.recall('0x401DB6BF','4') # RECALL PARA CASA
  142. wait(8000)
  143. end if
  144.  
  145. if uo.injournal('A magia|falhou|A magia falhou') then
  146. UO.DeleteJournal()
  147. uo.warmode(0)
  148. uo.recall('0x401DB6BF','4') # RECALL PARA CASA
  149. wait(8000)
  150. end if
  151. endsub
  152.  
  153. sub Catar()
  154. wait(30)
  155.  
  156. repeat
  157. UO.FindType('0x1869','0x0000','lastcontainer'); orb
  158.  
  159. if uo.findcount() then
  160. wait(950)
  161. UO.FindType('0x1869','0x0000','lastcontainer'); orb
  162. uo.moveitem('finditem', '0', 'my')
  163. wait(1500)
  164. end if
  165.  
  166. Wait(120)
  167. Delay = Delay + 1000
  168. until uo.findcount() == 0 OR Delay > 10000
  169.  
  170. Delay = 0
  171.  
  172. repeat
  173. UO.FindType('0x0EED','0x0000','lastcontainer'); orb
  174.  
  175. if uo.findcount() then
  176. wait(950)
  177. UO.FindType('0x0EED','0x0000','lastcontainer'); orb
  178. uo.moveitem('finditem', '0', 'my')
  179. wait(1500)
  180. end if
  181.  
  182. Wait(120)
  183.  
  184. Delay = Delay + 1000
  185. until uo.findcount() == 0 OR Delay > 10000
  186.  
  187. Delay = 0
  188. Wait(20)
  189.  
  190. if uo.count('0x0F62','0x0000') == 0 and uo.count('0x0F5C','0x0000') == 0 then
  191. wait(3000)
  192. UO.FindType('0x0F62','0x0000','lastcontainer'); spear
  193. uo.moveitem('finditem', '0', 'my')
  194. wait(200)
  195. UO.FindType('0x0F5C','0x0000','lastcontainer'); mace
  196. uo.moveitem('finditem', '0', 'my')
  197. wait(200)
  198. end if
  199.  
  200. uo.warmode(0)
  201.  
  202. uo.deletejournal()
  203. end sub
  204.  
  205. sub armar()
  206. uo.usetype('0x0F62'); spear
  207. uo.usetype('0x0F5C'); mace
  208. uo.usetype('0x1BC3'); mace
  209. end sub
  210.  
  211. sub start()
  212. While TRUE
  213. if uo.count(spellbook) == 0 then
  214. wait(500)
  215. Reconectar()
  216. wait(500)
  217. end if
  218.  
  219. checksave()
  220. uo.warmode(0)
  221. rpoison()
  222. armar()
  223. UO.Exec('exec Autopote')
  224. wait(100)
  225. UO.Exec('exec AutoBands')
  226. wait(100)
  227. UO.Exec('exec beba')
  228.  
  229. wait(100000)
  230. if uo.count(spellbook) == 0 then
  231. wait(500)
  232. Reconectar()
  233. wait(500)
  234. end if
  235.  
  236. wait(100000)
  237. if uo.count(spellbook) == 0 then
  238. wait(500)
  239. Reconectar()
  240. wait(500)
  241. end if
  242.  
  243. wait(100000)
  244. if uo.count(spellbook) == 0 then
  245. wait(500)
  246. Reconectar()
  247. wait(500)
  248. end if
  249.  
  250. wait(100000)
  251. if uo.count(spellbook) == 0 then
  252. wait(500)
  253. Reconectar()
  254. wait(500)
  255. end if
  256.  
  257. wait(100000)
  258. if uo.count(spellbook) == 0 then
  259. wait(500)
  260. Reconectar()
  261. wait(500)
  262. end if
  263.  
  264. wait(100000)
  265. if uo.count(spellbook) == 0 then
  266. wait(500)
  267. Reconectar()
  268. wait(500)
  269. end if
  270.  
  271. wait(100000)
  272. if uo.count(spellbook) == 0 then
  273. wait(500)
  274. Reconectar()
  275. wait(500)
  276. end if
  277.  
  278. UO.Exec('terminate beba')
  279. wait(100)
  280. UO.Exec('terminate Autopote')
  281. wait(100)
  282. UO.Exec('terminate AutoBands')
  283. wait(1000)
  284. checksave()
  285. uo.warmode(0)
  286. rcasa()
  287. guardar()
  288. entrar()
  289. wait(100000)
  290.  
  291. if uo.count(spellbook) == 0 then
  292. wait(500)
  293. Reconectar()
  294. wait(500)
  295. end if
  296.  
  297. wait(100000)
  298. if uo.count(spellbook) == 0 then
  299. wait(500)
  300. Reconectar()
  301. wait(500)
  302. end if
  303.  
  304. wait(100000)
  305. if uo.count(spellbook) == 0 then
  306. wait(500)
  307. Reconectar()
  308. wait(500)
  309. end if
  310.  
  311. wait(100000)
  312. if uo.count(spellbook) == 0 then
  313. wait(500)
  314. Reconectar()
  315. wait(500)
  316. end if
  317.  
  318. wait(100000)
  319. if uo.count(spellbook) == 0 then
  320. wait(500)
  321. Reconectar()
  322. wait(500)
  323. end if
  324.  
  325. wait(100000)
  326. if uo.count(spellbook) == 0 then
  327. wait(500)
  328. Reconectar()
  329. wait(500)
  330. end if
  331.  
  332. wait(100000)
  333. if uo.count(spellbook) == 0 then
  334. wait(500)
  335. Reconectar()
  336. wait(500)
  337. end if
  338. wend
  339. end sub
  340.  
  341. sub pegar2()
  342. checksave()
  343. wait(20)
  344. UO.FindType('0x0EED','0x0000','lastcontainer'); GOLD
  345.  
  346. if uo.findcount() then
  347. wait(950)
  348. UO.FindType('0x0EED','0x0000','lastcontainer'); GOLD
  349. uo.moveitem('finditem', '0', 'my')
  350. wait(1500)
  351. end if
  352.  
  353. wait(20)
  354. uo.warmode(0)
  355. UO.FindType('0x1869','0x0000','lastcontainer'); orb
  356.  
  357. if uo.findcount() then
  358. wait(950)
  359. UO.FindType('0x1869','0x0000','lastcontainer'); orb
  360. uo.moveitem('finditem', '0', 'my')
  361. wait(1500)
  362. end if
  363.  
  364. uo.warmode(0)
  365. wait(200)
  366.  
  367. if uo.count('0x0F62','0x0000') == 0 and uo.count('0x0F5C','0x0000') == 0 then
  368. wait(3000)
  369. UO.FindType('0x0F62','0x0000','lastcontainer'); spear
  370. uo.moveitem('finditem', '0', 'my')
  371. wait(200)
  372. UO.FindType('0x0F5C','0x0000','lastcontainer'); mace
  373. uo.moveitem('finditem', '0', 'my')
  374. wait(200)
  375. end if
  376.  
  377. uo.warmode(0)
  378. end sub
  379.  
  380. sub MATARBIXO()
  381. var i, MONSTRO, Target
  382. Var Delay = 0
  383.  
  384. checksave()
  385. uo.deletejournal()
  386. uo.warmode(0)
  387.  
  388. Dim a[3]
  389. a[1] = '0x0023'
  390. a[2] = '0x0021'
  391. a[3] = '0x0024'
  392.  
  393. wait(6)
  394. UO.Set('finddistance','4')
  395. wait(6)
  396.  
  397. For i=1 to 3
  398. uo.findtype(a[i], -1, 'ground')
  399.  
  400. if uo.findcount() then
  401. Wait(100)
  402. uo.warmode(0)
  403. MONSTRO = uo.getserial('finditem')
  404. Uo.AddObject('Target',MONSTRO)
  405. Wait(150)
  406. uo.attack('Target')
  407. armar()
  408.  
  409. if UO.GetDistance('Target') < 5 then
  410. uo.exec('exec ir')
  411. end if
  412.  
  413. Wait(20)
  414.  
  415. Repeat
  416. Wait(1000)
  417. Delay = Delay + 1000
  418. Until uo.injournal('corpo|Tou see:|items') OR Delay > 15000
  419.  
  420. Delay = 0
  421. uo.deletejournal()
  422. uo.exec('terminate ir')
  423. Catar()
  424. end if
  425. next
  426.  
  427. wait(20)
  428.  
  429. If UO.Life < UO.Str Then
  430. wait(6)
  431. UO.Set('finddistance','4')
  432. wait(6)
  433.  
  434. For i=1 to 3
  435. uo.findtype(a[i], -1, 'ground')
  436. if uo.findcount() then
  437. Wait(100)
  438. uo.warmode(0)
  439. MONSTRO = uo.getserial('finditem')
  440. Uo.AddObject('Target',MONSTRO)
  441. Wait(150)
  442. uo.attack('Target')
  443. armar()
  444.  
  445. if UO.GetDistance('Target') < 15 then
  446. uo.exec('exec ir')
  447. end if
  448.  
  449. Wait(20)
  450.  
  451. Repeat
  452. Wait(1000)
  453. Delay = Delay + 1000
  454. Until uo.injournal('corpo|Tou see:|items') OR Delay > 15000
  455.  
  456. Delay = 0
  457. uo.deletejournal()
  458. uo.exec('terminate ir')
  459. Catar()
  460. end if
  461. next
  462. end if
  463.  
  464. wait(20)
  465.  
  466. If UO.Life < UO.Str Then
  467. wait(6)
  468. UO.Set('finddistance','4')
  469. wait(6)
  470. For i=1 to 3
  471. uo.findtype(a[i], -1, 'ground')
  472.  
  473. if uo.findcount() then
  474. Wait (100)
  475. uo.warmode(0)
  476. MONSTRO = uo.getserial('finditem')
  477. Uo.AddObject('Target',MONSTRO)
  478. Wait (150)
  479. uo.attack('Target')
  480. armar()
  481.  
  482. if UO.GetDistance('Target') < 15 then
  483. uo.exec('exec ir')
  484. end if
  485.  
  486. Wait(20)
  487. Repeat
  488. Wait(1000)
  489. Delay = Delay + 1000
  490. Until uo.injournal('corpo|Tou see:|items') OR Delay > 15000
  491.  
  492. Delay = 0
  493. uo.deletejournal()
  494. uo.exec('terminate ir')
  495. Catar()
  496. end if
  497. next
  498. end if
  499.  
  500. wait(20)
  501.  
  502. If UO.Life < UO.Str Then
  503. wait(6)
  504. UO.Set('finddistance','4')
  505. wait(6)
  506.  
  507. For i=1 to 3
  508. uo.findtype(a[i], -1, 'ground')
  509.  
  510. if uo.findcount() then
  511. Wait(100)
  512. uo.warmode(0)
  513. MONSTRO = uo.getserial('finditem')
  514. Uo.AddObject('Target',MONSTRO)
  515. Wait(150)
  516. uo.attack('Target')
  517. armar()
  518.  
  519. if UO.GetDistance('Target') < 15 then
  520. uo.exec('exec ir')
  521. end if
  522.  
  523. Wait(20)
  524.  
  525. Repeat
  526. Wait(1000)
  527. Delay = Delay + 1000
  528. Until uo.injournal('corpo|Tou see:|items') OR Delay > 15000
  529.  
  530. Delay = 0
  531. uo.deletejournal()
  532. uo.exec('terminate ir')
  533. Catar()
  534. end if
  535. next
  536. end if
  537.  
  538. wait(20)
  539.  
  540. If UO.Life < UO.Str Then
  541. wait(6)
  542. UO.Set('finddistance','4')
  543. wait(6)
  544.  
  545. For i=1 to 3
  546. uo.findtype(a[i], -1, 'ground')
  547. if uo.findcount() then
  548. Wait(100)
  549. uo.warmode(0)
  550. MONSTRO = uo.getserial('finditem')
  551. Uo.AddObject('Target',MONSTRO)
  552. Wait(150)
  553. uo.attack('Target')
  554. armar()
  555.  
  556. if UO.GetDistance('Target') < 15 then
  557. uo.exec('exec ir')
  558. end if
  559.  
  560. Wait(20)
  561.  
  562. Repeat
  563. Wait(1000)
  564. Delay = Delay + 1000
  565. Until uo.injournal('corpo|Tou see:|items') OR Delay > 15000
  566.  
  567. Delay = 0
  568. uo.deletejournal()
  569. uo.exec('terminate ir')
  570. Catar()
  571. end if
  572. next
  573. end if
  574.  
  575. wait(20)
  576.  
  577. end sub
  578.  
  579. sub beba()
  580. Trageto(5500,567,'')
  581. wait(40)
  582. MATARBIXO()
  583. Trageto(5498,565,'')
  584. wait(40)
  585. MATARBIXO()
  586. Trageto(5499,567,'')
  587. wait(40)
  588. MATARBIXO()
  589. Trageto(5494,568,'')
  590. wait(40)
  591. MATARBIXO()
  592. Trageto(5488,568,'')
  593. wait(40)
  594. MATARBIXO()
  595. Trageto(5489,572,'')
  596. wait(40)
  597. MATARBIXO()
  598. Trageto(5487,574,'')
  599. wait(40)
  600. MATARBIXO()
  601. Trageto(5489,576,'')
  602. wait(40)
  603. MATARBIXO()
  604. Trageto(5486,576,'')
  605. wait(40)
  606. MATARBIXO()
  607. Trageto(5484,577,'')
  608. wait(4000)
  609. MATARBIXO()
  610. Trageto(5483,580,'')
  611. wait(40)
  612. Trageto(5487,584,'')
  613. wait(40)
  614. Trageto(5487,588,'')
  615. wait(40)
  616. Trageto(5485,592,'')
  617. wait(40)
  618. MATARBIXO()
  619. Trageto(5489,594,'')
  620. wait(40)
  621. MATARBIXO()
  622. Trageto(5485,594,'')
  623. wait(40)
  624. MATARBIXO()
  625. Trageto(5483,592,'')
  626. wait(40)
  627. MATARBIXO()
  628. Trageto(5481,590,'')
  629. wait(40)
  630. MATARBIXO()
  631. Trageto(5479,592,'')
  632. wait(40)
  633. MATARBIXO()
  634. Trageto(5477,594,'')
  635. wait(40)
  636. MATARBIXO()
  637. Trageto(5475,592,'')
  638. wait(40)
  639. MATARBIXO()
  640. Trageto(5473,594,'')
  641. wait(40)
  642. MATARBIXO()
  643. Trageto(5471,594,'')
  644. wait(40)
  645. MATARBIXO()
  646. Trageto(5469,596,'')
  647. wait(40)
  648. MATARBIXO()
  649. Trageto(5467,598,'')
  650. wait(40)
  651. MATARBIXO()
  652. Trageto(5465,600,'')
  653. wait(40)
  654. MATARBIXO()
  655. Trageto(5467,602,'')
  656. wait(40)
  657. MATARBIXO()
  658. Trageto(5465,604,'')
  659. wait(40)
  660. MATARBIXO()
  661. Trageto(5465,606,'')
  662. wait(40)
  663. MATARBIXO()
  664. Trageto(5465,608,'')
  665. wait(40)
  666. MATARBIXO()
  667. Trageto(5465,610,'')
  668. wait(40)
  669. MATARBIXO()
  670. Trageto(5461,612,'')
  671. wait(40)
  672. MATARBIXO()
  673. Trageto(5458,614,'')
  674. wait(40)
  675. MATARBIXO()
  676. Trageto(5456,615,'')
  677. wait(40)
  678. MATARBIXO()
  679. Trageto(5454,615,'')
  680. wait(40)
  681. MATARBIXO()
  682. Trageto(5452,615,'')
  683. wait(40)
  684. MATARBIXO()
  685. Trageto(5450,615,'')
  686. wait(40)
  687. MATARBIXO()
  688. Trageto(5447,615,'')
  689. wait(40)
  690. MATARBIXO()
  691. Trageto(5445,614,'')
  692. wait(40)
  693. MATARBIXO()
  694. Trageto(5443,617,'')
  695. wait(40)
  696. MATARBIXO()
  697. Trageto(5445,619,'')
  698. wait(40)
  699. MATARBIXO()
  700. Trageto(5445,621,'')
  701. wait(40)
  702. MATARBIXO()
  703. Trageto(5446,621,'')
  704. wait(40)
  705. MATARBIXO()
  706. Trageto(5447,622,'')
  707. wait(40)
  708. MATARBIXO()
  709. Trageto(5445,624,'')
  710. wait(40)
  711. MATARBIXO()
  712. Trageto(5443,626,'')
  713. wait(40)
  714. MATARBIXO()
  715. Trageto(5441,628,'')
  716. wait(40)
  717. MATARBIXO()
  718. Trageto(5439,626,'')
  719. wait(40)
  720. MATARBIXO()
  721. Trageto(5437,626,'')
  722. wait(40)
  723. MATARBIXO()
  724. Trageto(5435,624,'')
  725. wait(40)
  726. MATARBIXO()
  727. Trageto(5433,626,'')
  728. wait(40)
  729. MATARBIXO()
  730. Trageto(5431,624,'')
  731. wait(40)
  732. MATARBIXO()
  733. Trageto(5429,624,'')
  734. wait(40)
  735. MATARBIXO()
  736. Trageto(5426,621,'')
  737. wait(40)
  738. MATARBIXO()
  739. Trageto(5424,621,'')
  740. wait(40)
  741. MATARBIXO()
  742. Trageto(5422,621,'')
  743. wait(40)
  744. MATARBIXO()
  745. Trageto(5420,622,'')
  746. wait(40)
  747. MATARBIXO()
  748. Trageto(5418,622,'')
  749. wait(40)
  750. MATARBIXO()
  751. Trageto(5416,622,'')
  752. wait(40)
  753. MATARBIXO()
  754. Trageto(5414,624,'')
  755. wait(40)
  756. MATARBIXO()
  757. Trageto(5412,624,'')
  758. wait(40)
  759. MATARBIXO()
  760. Trageto(5408,626,'')
  761. wait(40)
  762. MATARBIXO()
  763. Trageto(5405,628,'')
  764. wait(40)
  765. MATARBIXO()
  766. Trageto(5402,628,'')
  767. wait(40)
  768. MATARBIXO()
  769. Trageto(5400,628,'')
  770. wait(40)
  771. MATARBIXO()
  772. Trageto(5398,628,'')
  773. wait(40)
  774. MATARBIXO()
  775. Trageto(5396,628,'')
  776. wait(40)
  777. MATARBIXO()
  778. Trageto(5404,628,'')
  779. wait(40)
  780. MATARBIXO()
  781. Trageto(5407,628,'')
  782. wait(40)
  783. MATARBIXO()
  784. Trageto(5410,625,'')
  785. wait(40)
  786. MATARBIXO()
  787. Trageto(5410,621,'')
  788. wait(40)
  789. MATARBIXO()
  790. Trageto(5410,619,'')
  791. wait(40)
  792. MATARBIXO()
  793. Trageto(5410,617,'')
  794. wait(40)
  795. MATARBIXO()
  796. Trageto(5410,615,'')
  797. wait(40)
  798. MATARBIXO()
  799. Trageto(5407,611,'')
  800. wait(40)
  801. MATARBIXO()
  802. Trageto(5412,606,'')
  803. wait(40)
  804. MATARBIXO()
  805. Trageto(5412,604,'')
  806. wait(40)
  807. MATARBIXO()
  808. Trageto(5412,602,'')
  809. wait(40)
  810. MATARBIXO()
  811. Trageto(5412,600,'')
  812. wait(40)
  813. MATARBIXO()
  814. Trageto(5412,598,'')
  815. wait(40)
  816. MATARBIXO()
  817. Trageto(5412,596,'')
  818. wait(40)
  819. MATARBIXO()
  820. Trageto(5412,594,'')
  821. wait(40)
  822. MATARBIXO()
  823. Trageto(5412,592,'')
  824. wait(40)
  825. MATARBIXO()
  826. Trageto(5412,590,'')
  827. wait(40)
  828. MATARBIXO()
  829. Trageto(5410,588,'')
  830. wait(40)
  831. MATARBIXO()
  832. Trageto(5408,586,'')
  833. wait(40)
  834. MATARBIXO()
  835. Trageto(5405,586,'')
  836. wait(40)
  837. MATARBIXO()
  838. Trageto(5403,585,'')
  839. wait(40)
  840. MATARBIXO()
  841. Trageto(5401,585,'')
  842. wait(40)
  843. MATARBIXO()
  844. Trageto(5399,585,'')
  845. wait(40)
  846. MATARBIXO()
  847. Trageto(5402,582,'')
  848. wait(40)
  849. MATARBIXO()
  850. Trageto(5403,579,'')
  851. wait(40)
  852. MATARBIXO()
  853. Trageto(5404,577,'')
  854. wait(40)
  855. MATARBIXO()
  856. Trageto(5404,575,'')
  857. wait(40)
  858. MATARBIXO()
  859. Trageto(5404,573,'')
  860. wait(40)
  861. MATARBIXO()
  862. Trageto(5404,570,'')
  863. wait(40)
  864. MATARBIXO()
  865. Trageto(5406,570,'')
  866. wait(40)
  867. MATARBIXO()
  868. Trageto(5408,571,'')
  869. wait(40)
  870. MATARBIXO()
  871. Trageto(5410,570,'')
  872. wait(40)
  873. MATARBIXO()
  874. Trageto(5410,568,'')
  875. wait(40)
  876. MATARBIXO()
  877. Trageto(5411,566,'')
  878. wait(40)
  879. MATARBIXO()
  880. Trageto(5411,564,'')
  881. wait(40)
  882. MATARBIXO()
  883. Trageto(5411,562,'')
  884. wait(40)
  885. MATARBIXO()
  886. Trageto(5411,560,'')
  887. wait(40)
  888. MATARBIXO()
  889. Trageto(5411,558,'')
  890. wait(40)
  891. MATARBIXO()
  892. Trageto(5411,556,'')
  893. wait(40)
  894. MATARBIXO()
  895. Trageto(5411,554,'')
  896. wait(40)
  897. MATARBIXO()
  898. Trageto(5411,552,'')
  899. wait(40)
  900. MATARBIXO()
  901. Trageto(5411,550,'')
  902. wait(40)
  903. MATARBIXO()
  904. Trageto(5411,548,'')
  905. wait(40)
  906. MATARBIXO()
  907. Trageto(5411,546,'')
  908. wait(40)
  909. MATARBIXO()
  910. Trageto(5411,544,'')
  911. wait(40)
  912. MATARBIXO()
  913. Trageto(5413,542,'')
  914. wait(40)
  915. MATARBIXO()
  916. Trageto(5413,540,'')
  917. wait(40)
  918. MATARBIXO()
  919. Trageto(5411,538,'')
  920. wait(40)
  921. MATARBIXO()
  922. Trageto(5411,536,'')
  923. wait(40)
  924. MATARBIXO()
  925. Trageto(5409,533,'')
  926. wait(40)
  927. MATARBIXO()
  928. Trageto(5408,531,'')
  929. wait(40)
  930. MATARBIXO()
  931. Trageto(5410,531,'')
  932. wait(40)
  933. MATARBIXO()
  934. Trageto(5412,531,'')
  935. wait(40)
  936. MATARBIXO()
  937. Trageto(5414,531,'')
  938. wait(40)
  939. MATARBIXO()
  940. Trageto(5416,531,'')
  941. wait(40)
  942. MATARBIXO()
  943. Trageto(5418,531,'')
  944. wait(40)
  945. MATARBIXO()
  946. Trageto(5420,531,'')
  947. wait(40)
  948. MATARBIXO()
  949. Trageto(5422,531,'')
  950. wait(40)
  951. MATARBIXO()
  952. Trageto(5424,531,'')
  953. wait(40)
  954. MATARBIXO()
  955. Trageto(5426,531,'')
  956. wait(40)
  957. MATARBIXO()
  958. Trageto(5428,531,'')
  959. wait(40)
  960. MATARBIXO()
  961. Trageto(5430,531,'')
  962. wait(40)
  963. MATARBIXO()
  964. Trageto(5432,531,'')
  965. wait(40)
  966. MATARBIXO()
  967. Trageto(5434,531,'')
  968. wait(200)
  969. MATARBIXO()
  970. Trageto(5436,533,'')
  971. wait(40)
  972. MATARBIXO()
  973. Trageto(5436,535,'')
  974. wait(40)
  975. MATARBIXO()
  976. Trageto(5436,537,'')
  977. wait(40)
  978. MATARBIXO()
  979. Trageto(5436,539,'')
  980. wait(40)
  981. MATARBIXO()
  982. Trageto(5436,541,'')
  983. wait(40)
  984. MATARBIXO()
  985. Trageto(5436,543,'')
  986. wait(40)
  987. MATARBIXO()
  988. Trageto(5438,545,'')
  989. wait(40)
  990. MATARBIXO()
  991. Trageto(5440,547,'')
  992. wait(40)
  993. MATARBIXO()
  994. Trageto(5444,548,'')
  995. wait(40)
  996. MATARBIXO()
  997. Trageto(5446,548,'')
  998. wait(40)
  999. MATARBIXO()
  1000. Trageto(5449,551,'')
  1001. wait(40)
  1002. MATARBIXO()
  1003. Trageto(5452,554,'')
  1004. wait(40)
  1005. MATARBIXO()
  1006. Trageto(5452,557,'')
  1007. wait(40)
  1008. MATARBIXO()
  1009. Trageto(5452,560,'')
  1010. wait(40)
  1011. MATARBIXO()
  1012. Trageto(5455,563,'')
  1013. wait(40)
  1014. MATARBIXO()
  1015. Trageto(5458,566,'')
  1016. wait(40)
  1017. MATARBIXO()
  1018. Trageto(5461,566,'')
  1019. wait(40)
  1020. MATARBIXO()
  1021. Trageto(5463,566,'')
  1022. wait(40)
  1023. MATARBIXO()
  1024. Trageto(5463,569,'')
  1025. wait(40)
  1026. MATARBIXO()
  1027. Trageto(5463,572,'')
  1028. wait(40)
  1029. MATARBIXO()
  1030. Trageto(5466,575,'')
  1031. wait(40)
  1032. MATARBIXO()
  1033. Trageto(5463,578,'')
  1034. wait(40)
  1035. MATARBIXO()
  1036. Trageto(5460,578,'')
  1037. wait(40)
  1038. MATARBIXO()
  1039. Trageto(5457,578,'')
  1040. wait(40)
  1041. MATARBIXO()
  1042. Trageto(5454,578,'')
  1043. wait(40)
  1044. MATARBIXO()
  1045. Trageto(5451,578,'')
  1046. wait(40)
  1047. MATARBIXO()
  1048. Trageto(5447,578,'')
  1049. wait(40)
  1050. MATARBIXO()
  1051. Trageto(5444,578,'')
  1052. wait(40)
  1053. MATARBIXO()
  1054. Trageto(5441,582,'')
  1055. wait(40)
  1056. MATARBIXO()
  1057. Trageto(5438,588,'')
  1058. wait(40)
  1059. MATARBIXO()
  1060. Trageto(5435,588,'')
  1061. wait(40)
  1062. MATARBIXO()
  1063. Trageto(5433,588,'')
  1064. wait(40)
  1065. MATARBIXO()
  1066. Trageto(5430,591,'')
  1067. wait(40)
  1068. MATARBIXO()
  1069. Trageto(5431,593,'')
  1070. wait(40)
  1071. MATARBIXO()
  1072. Trageto(5431,596,'')
  1073. wait(40)
  1074. MATARBIXO()
  1075. end sub
  1076.  
  1077. sub awewe()
  1078. Trageto(555,555)
  1079. end sub
  1080.  
  1081. sub Trageto(x,y,Target)
  1082. var i, StepSucess
  1083. var dx, dy, Exit=0
  1084.  
  1085. While Exit<>1
  1086. If Target<>"" Then
  1087. dx=UO.GetX(Target)-UO.GetX()
  1088. dy=UO.GetY(Target)-UO.GetY()
  1089.  
  1090. If UO.GetDistance(Target)<2 Then
  1091. Exit=1
  1092. Endif
  1093. Else
  1094. dx=x-UO.GetX()
  1095. dy=y-UO.GetY()
  1096.  
  1097. If dx==0 AND dy==0 Then
  1098. Exit=1
  1099. Endif
  1100. Endif
  1101.  
  1102. If dx<>0 AND dy<>0 Then
  1103. If dx>0 AND dy>0 Then
  1104. StepSucess=Go(3,40,40); SE - DownArrow
  1105.  
  1106. If StepSucess==-1 Then
  1107. StepSucess=Go(7,38,40); WN - UpArrow
  1108. StepSucess=Go(1,39,40); NE - RightArrow
  1109.  
  1110. If StepSucess==-1 Then
  1111. StepSucess=Go(5,37,40); SW - LeftArrow
  1112. Endif
  1113. Endif
  1114. Endif
  1115.  
  1116. If dx>0 AND dy<0 Then
  1117. StepSucess=Go(1,39,40); NE - RightArrow
  1118.  
  1119. If StepSucess==-1 Then
  1120. StepSucess=Go(5,37,40); SW - LeftArrow
  1121. StepSucess=Go(3,40,40); SE - DownArrow
  1122.  
  1123. If StepSucess==-1 Then
  1124. StepSucess=Go(7,38,40) ;WN - UpArrow
  1125. Endif
  1126. Endif
  1127. Endif
  1128.  
  1129. If dx<0 AND dy>0 Then
  1130. StepSucess=Go(5,37,40); SW - LeftArrow
  1131.  
  1132. If StepSucess==-1 Then
  1133. StepSucess=Go(1,39,40); NE - RightArrow
  1134. StepSucess=Go(7,38,40); WN - UpArrow
  1135.  
  1136. If StepSucess==-1 Then
  1137. StepSucess=Go(3,40,40); SE - DownArrow
  1138. Endif
  1139. Endif
  1140. Endif
  1141.  
  1142. If dx<0 AND dy<0 Then
  1143. StepSucess=Go(7,38,40); WN - UpArrow
  1144.  
  1145. If StepSucess==-1 Then
  1146. StepSucess=Go(3,40,40); SE - DownArrow
  1147. StepSucess=Go(5,37,40); SW - LeftArrow
  1148.  
  1149. If StepSucess==-1 Then
  1150. StepSucess=Go(1,39,40); NE - RightArrow
  1151. Endif
  1152. Endif
  1153. Endif
  1154. Endif
  1155.  
  1156. If dx<>0 AND dy==0 Then
  1157. If dx>0 Then
  1158. StepSucess=Go(2,34,40); E - PgDown
  1159.  
  1160. If StepSucess==-1 Then
  1161. StepSucess=Go(3,40,40); SE - DownArrow
  1162.  
  1163. If StepSucess==-1 Then
  1164. StepSucess=Go(1,39,40); NE - RightArrow
  1165. Endif
  1166.  
  1167. StepSucess=Go(2,34,40); E - PgDown
  1168. Endif
  1169. Endif
  1170.  
  1171. If dx<0 Then
  1172. StepSucess=Go(6,36,40); W - Home
  1173.  
  1174. If StepSucess==-1 Then
  1175. StepSucess=Go(7,38,40); WN - UpArrow
  1176.  
  1177. If StepSucess==-1 Then
  1178. StepSucess=Go(5,37,40); SW - LeftArrow
  1179. Endif
  1180.  
  1181. StepSucess=Go(6,36,40); W - Home
  1182. Endif
  1183. Endif
  1184. Endif
  1185.  
  1186. If dx==0 AND dy<>0 Then
  1187. If dy>0 Then
  1188. StepSucess=Go(4,35,40); S - End
  1189.  
  1190. If StepSucess==-1 Then
  1191. StepSucess=Go(3,40,40); SE - DownArrow
  1192.  
  1193. If StepSucess==-1 Then
  1194. StepSucess=Go(5,37,40); SW - LeftArrow
  1195. Endif
  1196.  
  1197. StepSucess=Go(4,35,40); S - End
  1198. Endif
  1199. Endif
  1200.  
  1201. If dy<0 Then
  1202. StepSucess=Go(0,33,40); N - PgUp
  1203.  
  1204. If StepSucess==-1 Then
  1205. StepSucess=Go(1,39,40); NE - RightArrow
  1206.  
  1207. If StepSucess==-1 Then
  1208. StepSucess=Go(7,38,40); WN - UpArrow
  1209. Endif
  1210.  
  1211. StepSucess=Go(0,33,40); N - PgUp
  1212. Endif
  1213. Endif
  1214. Endif
  1215. Wend
  1216. end sub
  1217.  
  1218. sub Go(dir,key,walkwait)
  1219. var x, y, OldDir
  1220.  
  1221. x=UO.GetX()
  1222. y=UO.GetY()
  1223. OldDir=UO.GetDir()
  1224.  
  1225. If UO.GetDir()<>dir Then
  1226. UO.Press(key)
  1227. wait(walkwait)
  1228.  
  1229. If UO.GetDir()<>dir Then
  1230. CheckLag()
  1231. Endif
  1232. Endif
  1233.  
  1234. UO.Press(key)
  1235. wait(walkwait)
  1236.  
  1237. If x==UO.GetX() AND y==UO.GetY() Then
  1238. CheckLag()
  1239. Endif
  1240.  
  1241. If x==UO.GetX() AND y==UO.GetY() AND OldDir<>UO.GetDir() Then
  1242. UO.Press(key)
  1243. wait(walkwait)
  1244. Endif
  1245.  
  1246. If x==UO.GetX() AND y==UO.GetY() Then
  1247. CheckLag()
  1248. Endif
  1249.  
  1250. If x==UO.GetX() AND y==UO.GetY() Then
  1251. UO.Print("Travou!")
  1252. return -1
  1253. Else
  1254. return 1
  1255. Endif
  1256. end sub
  1257.  
  1258. sub CheckLag()
  1259. UO.DeleteJournal()
  1260. UO.Click('backpack')
  1261.  
  1262. Repeat
  1263. wait(200)
  1264. Until UO.InJournal('backpack')
  1265. end sub
  1266.  
  1267. sub Reconectar()
  1268. Wait (500)
  1269.  
  1270. while uo.count(spellbook) == 0
  1271. Wait (120000)
  1272. UO.LClick (399,331); click na janela do conection lost
  1273. Wait (2000)
  1274. UO.LClick (350,400)
  1275. Wait (2000)
  1276. UO.Say(SENHA)
  1277. Wait (2000)
  1278. UO.LClick (618,457)
  1279. Wait (2000)
  1280. UO.LClick (618,457)
  1281. Wait (2000)
  1282. UO.LClick (321,351); click na janela se senha errada
  1283. Wait (15000)
  1284. uo.useobject(backpack)
  1285. wait(500)
  1286.  
  1287. If UO.InJournal('voce nao|alcanca isto.') Then
  1288. wait(2000)
  1289. uo.LClick(335,316)
  1290. wait(2000)
  1291. UO.Say(CONTRA)
  1292. wait(2000)
  1293. uo.LClick(460,314)
  1294. wait(2000)
  1295. UO.DeleteJournal()
  1296. UO.DeleteJournal()
  1297. wait(500)
  1298. end if
  1299.  
  1300. uo.useobject(backpack)
  1301. wait(6000)
  1302.  
  1303. If UO.InJournal('voce nao|alcanca isto.') Then
  1304. wait(2000)
  1305. uo.LClick(335,316)
  1306. wait(2000)
  1307. UO.Say(CONTRA)
  1308. wait(2000)
  1309. uo.LClick(460,314)
  1310. wait(2000)
  1311. UO.DeleteJournal()
  1312. UO.DeleteJournal()
  1313. wait(500)
  1314. end if
  1315.  
  1316. uo.useobject(backpack)
  1317. wait(6000)
  1318.  
  1319. If UO.InJournal('voce nao|alcanca isto.') Then
  1320. wait(2000)
  1321. uo.LClick(335,316)
  1322. wait(2000)
  1323. UO.Say(CONTRA)
  1324. wait(2000)
  1325. uo.LClick(460,314)
  1326. wait(2000)
  1327. UO.DeleteJournal()
  1328. UO.DeleteJournal()
  1329. wait(500)
  1330. end if
  1331.  
  1332. wait(6000)
  1333. uo.useobject(backpack)
  1334. wait(500)
  1335.  
  1336. If UO.InJournal('Bem vindo|Login anterior') Then
  1337. wait(500)
  1338. UO.DeleteJournal()
  1339. UO.DeleteJournal()
  1340. end if
  1341. wend
  1342. end sub
  1343.  
  1344. sub AutoBands()
  1345. Var Delay = 0
  1346.  
  1347. While TRUE
  1348. UO.Press(200)
  1349.  
  1350. If UO.Count('0x0E21') > 0 Then
  1351. Wait(20)
  1352.  
  1353. if NOT uo.Poisoned('self') then
  1354. If UO.Life < UO.Str Then
  1355. Wait(15)
  1356. uo.deletejournal()
  1357. UO.BandageSelf()
  1358.  
  1359. Repeat
  1360. Wait(100)
  1361. Delay = Delay + 100
  1362. Until UO.InJournal('hits.') == 1 OR UO.InJournal('aplicar a bandage.') == 1 OR UO.InJournal('Auto target cancelled')==1 OR UO.InJournal('target info')==1 OR Delay > 4999
  1363.  
  1364. Delay = 0
  1365. End If
  1366. end if
  1367. Else
  1368. UO.CharPrint('0x0790','VOCE NAO TEM BANDAGENS.')
  1369. Wait(10000)
  1370. End If
  1371. Wend
  1372. EndSub
  1373.  
  1374. sub AutoPote()
  1375. While TRUE
  1376. UO.Press(200)
  1377. wait(300)
  1378. If UO.Count('0x0F0E','0x00FF') > 0 Then
  1379. If UO.Life < 38 then
  1380. uo.deletejournal()
  1381. UO.UseType("0x0F0E","0x00FF")
  1382. wait(1100)
  1383. end if
  1384. Else
  1385. UO.CharPrint('0x0790','VOCE NAO TEM HEAL.')
  1386. Wait(15000)
  1387. End If
  1388. Wend
  1389. EndSub
  1390.  
  1391. sub ddd(x,y)
  1392. dim key[8]
  1393. key[0] = '383933'
  1394. key[1] = '383739'
  1395. key[2] = '394034'
  1396. key[3] = '373840'
  1397. key[4] = '403735'
  1398. key[5] = '403937'
  1399. key[6] = '373836'
  1400. key[7] = '394038'
  1401.  
  1402. var myX, myY, t=0, d, d2, z, m=0, mydir
  1403. repeat
  1404. wait(15)
  1405. myX=uo.getX();
  1406. myY=uo.getY();
  1407.  
  1408. if x==myX then
  1409. if y>myY then
  1410. uo.Press(35)
  1411. wait(15)
  1412. endif
  1413.  
  1414. if y<myY then
  1415. uo.Press(33)
  1416. wait(15)
  1417. endif
  1418. else
  1419. if x<myX then
  1420. if y==myY then
  1421. uo.Press(36)
  1422. wait(15)
  1423. else
  1424. if y<myY then
  1425. uo.Press(38)
  1426. wait(15)
  1427. endif
  1428.  
  1429. if y>myY then
  1430. uo.Press(37)
  1431. wait(15)
  1432. endif
  1433. endif
  1434. endif
  1435.  
  1436. if x>myX then
  1437. if y==myY then
  1438. uo.Press(34)
  1439. wait(15)
  1440. else
  1441. if y<myY then
  1442. uo.Press(39)
  1443. wait(15)
  1444. endif
  1445.  
  1446. if y>myY then
  1447. uo.Press(40)
  1448. wait(15)
  1449. endif
  1450. endif
  1451. endif
  1452. endif
  1453.  
  1454. if uo.getx()==myX and uo.gety()==myY then
  1455. if t==4 then
  1456. t=0
  1457. wait(15)
  1458. mydir=uo.getdir()
  1459. d=val(MID(key[mydir],0,2))
  1460. d2=val(MID(key[mydir],2,2))
  1461.  
  1462. for z=1 to 4
  1463. uo.press(d)
  1464. next
  1465.  
  1466. if uo.getx()==myX and uo.gety()==myY then
  1467. for z=1 to 3
  1468. uo.press(d2)
  1469. next
  1470. endif
  1471. else
  1472. t=t+1
  1473. endif
  1474. endif
  1475.  
  1476. wait(70)
  1477. until (Num(x-uo.getx())<=1 and Num(y-uo.gety())<=2) or (Num(x-uo.getx())<=2 and Num(y-uo.gety())<=1)
  1478. end sub
  1479.  
  1480. sub Num(num)
  1481. if num>=0 then
  1482. return num
  1483. else
  1484. return num*(-1)
  1485. end if
  1486. end sub
  1487.  
  1488. sub status()
  1489. var x, l, uid, n=uo.getname('self')
  1490.  
  1491. if uo.injournal(n) then
  1492. uo.deletejournal(n)
  1493. uo.findtype('0x1BDD','0x0000','backpack')
  1494. x=uo.getquantity('finditem')+val(uo.getglobal('logs'))
  1495. uo.charprint('0x0047','..foi ao banco '+str(val(uo.getglobal('bank')))+' vezes.')
  1496. uo.charprint('0x0047','..cortou '+str(val(uo.getglobal('arvores')))+' arvores.')
  1497. uo.charprint('0x0047','..tem '+str(x)+' logs normais.')
  1498.  
  1499. if uo.skillval('Lumberjacking',1) < 1000 then
  1500. uo.print('Voce esta com '+ str(uo.skillval('Lumberjacking',1)) + ' de LumberJacking.')
  1501. endif
  1502. endif
  1503.  
  1504. if uo.injournal('backpack') then
  1505. uid=uo.getserial('backpack')
  1506. showlogs(uid)
  1507. uo.deletejournal('backpack')
  1508. endif
  1509. endsub
  1510.  
  1511. sub msg.log()
  1512. var l, c, n
  1513. uo.ignorereset()
  1514. uo.deletejournal('logs')
  1515. uo.findtype('0x0EED','-1','backpack')
  1516. l=uo.findcount('finditem')-1
  1517.  
  1518. while l>0
  1519. uo.ignore('finditem')
  1520. uo.findtype('0x0EED','-1','backpack')
  1521. l=l-1
  1522. wend
  1523.  
  1524. uo.findtype('0x0EED','-1','backpack')
  1525. uo.click('finditem')
  1526.  
  1527. repeat
  1528. wait(1)
  1529. until uo.injournal('log')
  1530.  
  1531. c=uo.getcolor('finditem')
  1532.  
  1533. if colorm<>1 then
  1534. c=colorm
  1535. endif
  1536.  
  1537. n=uo.getname('finditem')
  1538. uo.charprint( c,'Voce tem: '+n )
  1539. uo.ignorereset()
  1540. endsub
  1541.  
  1542. sub showlogs(uid)
  1543. var l, n
  1544.  
  1545. if not uid==uo.getserial('backpack') then
  1546. uo.exec('textclear')
  1547. endif
  1548.  
  1549. uo.ignorereset()
  1550. uo.deletejournal('logs')
  1551. uo.findtype('0x0EED','-1',uid)
  1552. l=uo.findcount('finditem')
  1553.  
  1554. while l>0
  1555. uo.deletejournal('logs')
  1556. uo.click('finditem')
  1557.  
  1558. repeat
  1559. wait(1)
  1560. until uo.injournal('log')
  1561.  
  1562. n=uo.getname('finditem')
  1563. uo.print('Voce tem: '+n)
  1564.  
  1565. if uid==uo.getserial('backpack') then
  1566. uo.exec('showjournal 1')
  1567. endif
  1568.  
  1569. uo.ignore('finditem')
  1570. uo.findtype('0x0EED','-1',uid)
  1571. l=l-1
  1572. wend
  1573.  
  1574. uo.ignorereset()
  1575. endsub
  1576.  
  1577. sub checksave()
  1578. if uo.injournal('World Save em 10 segundos...') then
  1579. repeat
  1580. wait(500)
  1581. until uo.injournal('Processo completo em')
  1582.  
  1583. uo.deletejournal()
  1584. endif
  1585. endsub
  1586.  
  1587. sub bibibi()
  1588. UO.Press(200)
  1589.  
  1590. Repeat
  1591. Wait(120)
  1592. Delay = Delay + 100
  1593. Until corpo <> UO.GetSerial('lastcontainer') OR Delay > 12000
  1594.  
  1595. Delay = 0
  1596. end sub
  1597.  
  1598. sub ir()
  1599. WalkN(0,0,'Target')
  1600. end sub
  1601.  
  1602. sub WalkN(x, y, Target)
  1603. var i, StepSucess
  1604. var dx, dy, Exit=0
  1605.  
  1606. While Exit<>1 and UO.GetDistance(Target)>1
  1607. If Target<>"" Then
  1608. dx=UO.GetX(Target)-UO.GetX()
  1609. dy=UO.GetY(Target)-UO.GetY()
  1610. ;UO.Print("Target locked!")
  1611.  
  1612. If UO.GetDistance(Target)<2 Then
  1613. Exit=1
  1614. Endif
  1615. Else
  1616. dx=x-UO.GetX()
  1617. dy=y-UO.GetY()
  1618.  
  1619. If dx==0 AND dy==0 Then
  1620. Exit=1
  1621. Endif
  1622. Endif
  1623.  
  1624. If dx<>0 AND dy<>0 Then
  1625. If dx>0 AND dy>0 Then
  1626. StepSucess=Go(3,40,40); SE - DownArrow
  1627. If StepSucess==-1 Then
  1628. StepSucess=Go(7,38,40); WN - UpArrow
  1629. StepSucess=Go(1,39,40); NE - RightArrow
  1630.  
  1631. If StepSucess==-1 Then
  1632. StepSucess=Go(5,37,40); SW - LeftArrow
  1633. Endif
  1634. Endif
  1635. Endif
  1636.  
  1637. If dx>0 AND dy<0 Then
  1638. StepSucess=Go(1,39,40); NE - RightArrow
  1639.  
  1640. If StepSucess==-1 Then
  1641. StepSucess=Go(5,37,40); SW - LeftArrow
  1642. StepSucess=Go(3,40,40); SE - DownArrow
  1643.  
  1644. If StepSucess==-1 Then
  1645. StepSucess=Go(7,38,40); WN - UpArrow
  1646. Endif
  1647. Endif
  1648. Endif
  1649.  
  1650. If dx<0 AND dy>0 Then
  1651. StepSucess=Go(5,37,40); SW - LeftArrow
  1652.  
  1653. If StepSucess==-1 Then
  1654. StepSucess=Go(1,39,40); NE - RightArrow
  1655. StepSucess=Go(7,38,40); WN - UpArrow
  1656.  
  1657. If StepSucess==-1 Then
  1658. StepSucess=Go(3,40,40); SE - DownArrow
  1659. Endif
  1660. Endif
  1661. Endif
  1662.  
  1663. If dx<0 AND dy<0 Then
  1664. StepSucess=Go(7,38,40); WN - UpArrow
  1665.  
  1666. If StepSucess==-1 Then
  1667. StepSucess=Go(3,40,40); SE - DownArrow
  1668. StepSucess=Go(5,37,40); SW - LeftArrow
  1669.  
  1670. If StepSucess==-1 Then
  1671. StepSucess=Go(1,39,40); NE - RightArrow
  1672. Endif
  1673. Endif
  1674. Endif
  1675.  
  1676. Endif
  1677.  
  1678. If dx<>0 AND dy==0 Then
  1679. If dx>0 Then
  1680. StepSucess=Go(2,34,40); E - PgDown
  1681.  
  1682. If StepSucess==-1 Then
  1683. StepSucess=Go(3,40,40); SE - DownArrow
  1684.  
  1685. If StepSucess==-1 Then
  1686. StepSucess=Go(1,39,40); NE - RightArrow
  1687. Endif
  1688.  
  1689. StepSucess=Go(2,34,40); E - PgDown
  1690. Endif
  1691. Endif
  1692.  
  1693.  
  1694. If dx<0 Then
  1695. StepSucess=Go(6,36,40); W - Home
  1696.  
  1697. If StepSucess==-1 Then
  1698. StepSucess=Go(7,38,40); WN - UpArrow
  1699.  
  1700. If StepSucess==-1 Then
  1701. StepSucess=Go(5,37,40); SW - LeftArrow
  1702. Endif
  1703.  
  1704. StepSucess=Go(6,36,40); W - Home
  1705. Endif
  1706. Endif
  1707. Endif
  1708.  
  1709. If dx==0 AND dy<>0 Then
  1710. If dy>0 Then
  1711. StepSucess=Go(4,35,40); S - End
  1712.  
  1713. If StepSucess==-1 Then
  1714. StepSucess=Go(3,40,40); SE - DownArrow
  1715.  
  1716. If StepSucess==-1 Then
  1717. StepSucess=Go(5,37,40); SW - LeftArrow
  1718. Endif
  1719.  
  1720. StepSucess=Go(4,35,40); S - End
  1721. Endif
  1722. Endif
  1723.  
  1724. If dy<0 Then
  1725. StepSucess=Go(0,33,40); N - PgUp
  1726.  
  1727. If StepSucess==-1 Then
  1728. StepSucess=Go(1,39,40); NE - RightArrow
  1729.  
  1730. If StepSucess==-1 Then
  1731. StepSucess=Go(7,38,40); WN - UpArrow
  1732. Endif
  1733.  
  1734. StepSucess=Go(0,33,40); N - PgUp
  1735. Endif
  1736. Endif
  1737. Endif
  1738. Wend
  1739. end sub
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!