Advertisement
Guest User

Untitled

a guest
Jul 21st, 2017
47
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 1.21 KB | None | 0 0
  1. deletejournal
  2. gosub SCAN
  3.  
  4. sub SCAN
  5. set %_jindex #jindex
  6. SCANLOOP:
  7. if #jindex >= %_jindex
  8. {
  9. scanjournal %_jindex
  10. if YOU_START_TO_TAME in #journal || TOO_FAR_AWAY in #journal
  11. gosub TAMING
  12. if THAT_ANIMAL_LOOKS_TAME in #journal
  13. gosub RELEASE
  14. }
  15. return
  16.  
  17. sub TAMING
  18. gosub ACQUIRE
  19. FOLLOWLOOP:
  20. onhotkey F11
  21. goto TAMINGRETURN
  22. set %Cnt %Cnt + 1
  23. finditem %TameTarget
  24. if #findX > #charPosX + 1 || #findX < #charPosX - 1 || #findY > #charPosY + 1 || #findY < #charPosY - 1
  25. {
  26. event pathfind #findX #findY #findZ
  27. sleep 20
  28. }
  29. scanjournal 1
  30. if YOU_FAIL_TO_TAME in #journal || TOO_FAR_AWAY in #journal || %Cnt > 350
  31. gosub TAME
  32. if SEEMS_TO_ACCEPT_YOU in #journal || THAT_WASN'T_EVEN in #journal || THAT_ANIMAL_LOOKS_TAME in #journal
  33. {
  34. set %Cnt 0
  35. gosub RELEASE
  36. goto TAMINGRETURN
  37. }
  38. goto FOLLOWLOOP:
  39. TAMINGRETURN:
  40. return
  41.  
  42. sub TAME
  43. event macro 13 35
  44. target
  45. event macro 22 0
  46. set %Cnt 0
  47. return
  48.  
  49. sub RELEASE
  50. gosub ACQUIRE
  51. exevent RenamePet #ltargetid Boss
  52. wait 10
  53. exevent popup %TameTarget 10
  54. wait 5
  55. if #contkind = OXHD
  56. {
  57. set #contposx 0
  58. set #contposy 0
  59. click 30 90 dmc
  60. }
  61. return
  62.  
  63. sub ACQUIRE
  64. set %TameTarget #ltargetid
  65. set #ltargetkind 1
  66. set #ltargetid %TameTarget
  67. return
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement