Guest User

Untitled

a guest
Oct 20th, 2017
76
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 3.64 KB | None | 0 0
  1. Start:
  2. Gosub relax
  3. Gosub Restock
  4. Gosub Feed
  5. Gosub Recallin1 ; elder 1
  6. Gosub Kill
  7. Gosub Recallin2 ; elder 2
  8. Gosub Kill
  9. Gosub Recallout2
  10. Gosub Healpet
  11. Gosub relax2
  12. Gosub Restock
  13. Gosub Recallin3 ; linch 1
  14. Gosub Kill
  15. Gosub Recallin4 ; linch 2
  16. Gosub Kill
  17. Gosub Recallin5 ; linch 3
  18. Gosub Kill
  19. Gosub Recallout
  20. Gosub Restock
  21.  
  22. Sub Restock
  23. wait 1s
  24. Key F6 ; bank/restock key
  25. wait 15s
  26. return
  27.  
  28. Sub Feed
  29. Key F4 ; dismout and feed nm 2 times macro
  30. wait 15s
  31. return
  32.  
  33. Sub Recallin1
  34. msg $
  35. msg all come $
  36. msg all follow me $
  37. Key F2 ; Recall in1 & dismount
  38. wait 2s
  39. return
  40.  
  41. Sub Recallin2
  42. msg $
  43. msg all come $
  44. msg all follow me $
  45. Key F3 ; Recall in2 & dismount
  46. wait 2s
  47. return
  48.  
  49. Sub Recallin3
  50. msg $
  51. msg all come $
  52. msg all follow me $
  53. Key F8 ; Recall in1 & dismount
  54. wait 2s
  55. return
  56.  
  57. Sub Recallin4
  58. msg $
  59. msg all come $
  60. msg all follow me $
  61. Key F9 ; Recall in1 & dismount
  62. wait 2s
  63. return
  64.  
  65. Sub Recallin5
  66. msg $
  67. msg all come $
  68. msg all follow me $
  69. Key F11 ; Recall in1 & dismount
  70. wait 2s
  71. return
  72.  
  73. Sub Kill
  74. Finditem I_MD_WD G_5
  75. If #FINDKIND = 1
  76. {
  77. set #ltargetid #Findid
  78. msg $
  79. msg all kill $ ; ymf corpse type
  80. msg all kill$
  81. wait 10
  82. event macro 22 0
  83. wait 10
  84. Gosub check
  85. Gosub loot
  86. }
  87. return
  88.  
  89. Sub Check
  90. Set %Test 1
  91. while %Test < 3
  92. {
  93. Finditem I_MD_WD G_6
  94. if #FINDKIND = -1
  95. {
  96. set %Test %Test + 1
  97. }
  98. Finditem HS_IS G_6
  99. if #findrep = 6
  100. {
  101. Key F1
  102. wait 2s
  103. Key F1
  104. wait 2s
  105. Key F1
  106. wait 2s
  107. Goto Start
  108. }
  109. }
  110. return
  111.  
  112. Sub loot
  113. set %eldercorpseid YFM ; YFM
  114. Finditem %eldercorpseid G_5
  115. if #findkind = 1
  116. {
  117. set %findx #findx
  118. set %findy #findy
  119. wait 20
  120. move %findx %findy 0
  121. }
  122. wait 10
  123. set !monsterc #FINDID
  124. set #lobjectid #findid
  125. wait 10
  126. event macro 17 0
  127. wait 20
  128.  
  129. set %eldercorpseid #CONTID
  130. finditem POF_BFF_CFF_IFF C_ , #contid
  131. if #FINDKIND = 0 ;<> -1
  132. {
  133. for %n 1 #FINDCNT
  134. {
  135. set %backpackid #backpackid
  136. set #contid %backpackid
  137. exevent Drag #FINDID #FINDSTACK
  138. wait 2
  139. exevent Dropc %backpackid
  140. wait 40
  141.  
  142. set #SCNT 20
  143. set %Action Idle
  144.  
  145. }
  146. }
  147.  
  148. set %eldercorpseid #CONTID
  149. finditem POF_BFF_CFF_IFF C_ , #contid
  150. if #FINDKIND = 0 ;<> -1
  151. {
  152. for %n 1 #FINDCNT
  153. {
  154. set %backpackid #backpackid
  155. set #contid %backpackid
  156. exevent Drag #FINDID #FINDSTACK
  157. wait 2
  158. exevent Dropc %backpackid
  159. wait 40
  160.  
  161. set #SCNT 20
  162. set %Action Idle
  163.  
  164. }
  165. }
  166. return
  167.  
  168.  
  169. Sub Recallout
  170. msg $
  171. msg all follow me $
  172. Key F1 ; recall out & mount
  173. wait 2s
  174. return
  175.  
  176. Sub Recallout2
  177. msg $
  178. msg all follow me $
  179. msg all follow me $
  180. Key F10 ; recall out & mount
  181. wait 2s
  182. return
  183.  
  184. Sub Healpet
  185. wait 5s
  186. Key F7 ; cast gheal, heal pet
  187. wait 2s
  188. return
  189.  
  190. Sub relax
  191. Set %hmm 1
  192. while %hmm < 60
  193. {
  194. Finditem FDS_SXHZ G_4
  195. if #FINDKIND = -1
  196. {
  197. msg $
  198. msg all come $
  199. msg all follow me $
  200. }
  201. set %hmm %hmm + 1
  202. wait 1s
  203. }
  204. Return
  205.  
  206. Sub relax2
  207. Set %hmm 1
  208. while %hmm < 30
  209. {
  210. Finditem FDS_SXHZ G_4
  211. if #FINDKIND = -1
  212. {
  213. msg $
  214. msg all come $
  215. msg all follow me $
  216. }
  217. set %hmm %hmm + 1
  218. wait 1s
  219. }
  220. Return
Add Comment
Please, Sign In to add comment