Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Start:
- Gosub relax
- Gosub Restock
- Gosub Feed
- Gosub Recallin1 ; elder 1
- Gosub Kill
- Gosub Recallin2 ; elder 2
- Gosub Kill
- Gosub Recallout2
- Gosub Healpet
- Gosub relax2
- Gosub Restock
- Gosub Recallin3 ; linch 1
- Gosub Kill
- Gosub Recallin4 ; linch 2
- Gosub Kill
- Gosub Recallin5 ; linch 3
- Gosub Kill
- Gosub Recallout
- Gosub Restock
- Sub Restock
- wait 1s
- Key F6 ; bank/restock key
- wait 15s
- return
- Sub Feed
- Key F4 ; dismout and feed nm 2 times macro
- wait 15s
- return
- Sub Recallin1
- msg $
- msg all come $
- msg all follow me $
- Key F2 ; Recall in1 & dismount
- wait 2s
- return
- Sub Recallin2
- msg $
- msg all come $
- msg all follow me $
- Key F3 ; Recall in2 & dismount
- wait 2s
- return
- Sub Recallin3
- msg $
- msg all come $
- msg all follow me $
- Key F8 ; Recall in1 & dismount
- wait 2s
- return
- Sub Recallin4
- msg $
- msg all come $
- msg all follow me $
- Key F9 ; Recall in1 & dismount
- wait 2s
- return
- Sub Recallin5
- msg $
- msg all come $
- msg all follow me $
- Key F11 ; Recall in1 & dismount
- wait 2s
- return
- Sub Kill
- Finditem I_MD_WD G_5
- If #FINDKIND = 1
- {
- set #ltargetid #Findid
- msg $
- msg all kill $ ; ymf corpse type
- msg all kill$
- wait 10
- event macro 22 0
- wait 10
- Gosub check
- Gosub loot
- }
- return
- Sub Check
- Set %Test 1
- while %Test < 3
- {
- Finditem I_MD_WD G_6
- if #FINDKIND = -1
- {
- set %Test %Test + 1
- }
- Finditem HS_IS G_6
- if #findrep = 6
- {
- Key F1
- wait 2s
- Key F1
- wait 2s
- Key F1
- wait 2s
- Goto Start
- }
- }
- return
- Sub loot
- set %eldercorpseid YFM ; YFM
- Finditem %eldercorpseid G_5
- if #findkind = 1
- {
- set %findx #findx
- set %findy #findy
- wait 20
- move %findx %findy 0
- }
- wait 10
- set !monsterc #FINDID
- set #lobjectid #findid
- wait 10
- event macro 17 0
- wait 20
- set %eldercorpseid #CONTID
- finditem POF_BFF_CFF_IFF C_ , #contid
- if #FINDKIND = 0 ;<> -1
- {
- for %n 1 #FINDCNT
- {
- set %backpackid #backpackid
- set #contid %backpackid
- exevent Drag #FINDID #FINDSTACK
- wait 2
- exevent Dropc %backpackid
- wait 40
- set #SCNT 20
- set %Action Idle
- }
- }
- set %eldercorpseid #CONTID
- finditem POF_BFF_CFF_IFF C_ , #contid
- if #FINDKIND = 0 ;<> -1
- {
- for %n 1 #FINDCNT
- {
- set %backpackid #backpackid
- set #contid %backpackid
- exevent Drag #FINDID #FINDSTACK
- wait 2
- exevent Dropc %backpackid
- wait 40
- set #SCNT 20
- set %Action Idle
- }
- }
- return
- Sub Recallout
- msg $
- msg all follow me $
- Key F1 ; recall out & mount
- wait 2s
- return
- Sub Recallout2
- msg $
- msg all follow me $
- msg all follow me $
- Key F10 ; recall out & mount
- wait 2s
- return
- Sub Healpet
- wait 5s
- Key F7 ; cast gheal, heal pet
- wait 2s
- return
- Sub relax
- Set %hmm 1
- while %hmm < 60
- {
- Finditem FDS_SXHZ G_4
- if #FINDKIND = -1
- {
- msg $
- msg all come $
- msg all follow me $
- }
- set %hmm %hmm + 1
- wait 1s
- }
- Return
- Sub relax2
- Set %hmm 1
- while %hmm < 30
- {
- Finditem FDS_SXHZ G_4
- if #FINDKIND = -1
- {
- msg $
- msg all come $
- msg all follow me $
- }
- set %hmm %hmm + 1
- wait 1s
- }
- Return
Add Comment
Please, Sign In to add comment