Guest User

Untitled

a guest
Jan 11th, 2019
91
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 3.08 KB | None | 0 0
  1. begin loop()
  2. // Bring RO2 window to front
  3. Window.Bring to front("Ragnarok Online2 - Legend of The Second", "No")
  4. if Color.At coordinate is not within (RGB range)("84", "144", "195", "0", "1067", "24")
  5. begin
  6. Keyboard.Hold keys("{<numpad1>}")
  7. Macro.Pause("400")
  8. Keyboard.Release keys("{<numpad1>}")
  9. Macro.Pause("400")
  10. Keyboard.Hold keys("{<numpad2>}")
  11. Macro.Pause("400")
  12. Keyboard.Release keys("{<numpad2>}")
  13. Macro.Pause("400")
  14. end
  15. Function.Execute("autolor")
  16. Function.Execute("loot")
  17. Function.Execute("autoattsel")
  18. end
  19.  
  20. function("autoattsel")
  21. begin
  22. // trying to attack mobs selected
  23. Keyboard.Hold keys("1")
  24. Macro.Pause("400")
  25. Keyboard.Release keys("1")
  26. Macro.Pause("400")
  27. if Color.At coordinate is (RGB)("248", "248", "248", "778", "521")
  28. begin
  29. Keyboard.Hold keys("f")
  30. Macro.Pause("1500")
  31. Keyboard.Release keys("f")
  32. Macro.Pause("400")
  33. Keyboard.Hold keys("4")
  34. Macro.Pause("1000")
  35. Keyboard.Release keys("4")
  36. Macro.Pause("400")
  37. end
  38. while Color.At coordinate is (RGB)("254", "238", "0", "852", "170")
  39. // if cant attack begin mob facing checks
  40. begin
  41. Macro.Pause("2000")
  42. Keyboard.Hold keys("{<tab>}")
  43. Macro.Pause("400")
  44. Keyboard.Release keys("{<tab>}")
  45. Macro.Pause("400")
  46. Keyboard.Hold keys("d")
  47. Macro.Pause("1000")
  48. Keyboard.Release keys("d")
  49. Macro.Pause("400")
  50. end
  51. while Color.At coordinate is (RGB)("217", "183", "11", "544", "540")
  52. // Jupitel meter is full
  53. begin
  54. Keyboard.Hold keys("3")
  55. Macro.Pause("1500")
  56. Keyboard.Release keys("3")
  57. Macro.Pause("400")
  58. end
  59. while Color.At coordinate is (RGB)("12", "8", "0", "424", "83")
  60. // begin mobs is dead checks
  61. begin
  62. Keyboard.Hold keys("{<tab>}")
  63. Macro.Pause("400")
  64. Keyboard.Release keys("{<tab>}")
  65. Macro.Pause("400")
  66. end
  67. end
  68. function
  69.  
  70. function("loot")
  71. begin
  72. Keyboard.Hold keys("r")
  73. Macro.Pause("500")
  74. Keyboard.Release keys("r")
  75. Macro.Pause("500")
  76. end
  77. function
  78.  
  79. function("autolor")
  80. if Color.At coordinate is (RGB)("20", "11", "1", "249", "81")
  81. begin
  82. Keyboard.Hold keys("5")
  83. Macro.Pause("400")
  84. Keyboard.Release keys("5")
  85. Macro.Pause("2000")
  86. end
  87. function
Add Comment
Please, Sign In to add comment