C
Ccomp5950
This shit gonna get nerfed pretty damn quick but while you can...Have fun...
Oh and I'm not exactly sure the invite thing works, I have my friends hardcoded into my personal copy
There is a workaround for warping relative to the targets location.
/Megawarp t e 150 (Warp 150 feet east of Target) can be fixxed and work with Warps that do not include this function into it. Scroll down to about the 6th post for it. I'm not adding it to the Macro because some people's warp use /warp X Y Z and some use /warp Y X Z (Y is switched with X as is the case with /loc) it's an easy fix, just watch your characters once around, if you warp some weird place switch it like I show you in that post and you should be fine.
Edit: Added Succor after killing the guard
Oh and I'm not exactly sure the invite thing works, I have my friends hardcoded into my personal copy
There is a workaround for warping relative to the targets location.
/Megawarp t e 150 (Warp 150 feet east of Target) can be fixxed and work with Warps that do not include this function into it. Scroll down to about the 6th post for it. I'm not adding it to the Macro because some people's warp use /warp X Y Z and some use /warp Y X Z (Y is switched with X as is the case with /loc) it's an easy fix, just watch your characters once around, if you warp some weird place switch it like I show you in that post and you should be fine.
Edit: Added Succor after killing the guard
Rich (BB code):
|--------------------------
|Fully Automated West Commonlands Griffon Task
|This assumes your only one entering zone every 45 minutes, and that you already have 3 characters in group
|Change the INVITE PW by changing what the event INVITE looks for (PASSWORD) to whatever you require your other
|toons or trusted friends to type in.
|
| Macro by Ccomp5950
| Usage: Start within /say distance of Kathi Norman in West Commonlands and walk away
|
| Last Updated 20 Oct 2005 0041(CST)
|
| Oh and steal this macro!~
|
|--------------------------
|
#Chat say
#Chat Group
#Chat Tell
#Event Invite "#1# tells you, 'Invite me (PASSWORD)'#*#"
#Event WaitTimer "#*#task because you must wait 0d:0h:#1#m before you can#*#"
#turbo 10
#include spellcast.inc
Sub Main()
/Echo =============================
/Echo East Commons Task AFK V1.0
/Echo =============================
/call Setup
:StartOver
/if (${Zone.ID}==22) /goto :Bigloop
/call Reset
:Bigloop
/Call Cast
/doevents
/keypress Left
/tar _01
/megawarp t
/keypress Left
/delay 10s (!${Target.ID})
/tar _02
/megawarp t
/keypress Left
/delay 10s (!${Target.ID})
/tar _03
/megawarp t
/keypress Left
/delay 10s (!${Target.ID})
/tar _04
/megawarp t
/keypress Left
/delay 10s (!${Target.ID})
/tar _05
/megawarp t
/keypress Left
/delay 10s (!${Target.ID})
/tar _06
/megawarp t
/keypress Left
/delay 10s (!${Target.ID})
/tar _07
/megawarp t
/keypress Left
/delay 10s (!${Target.ID})
/tar _08
/megawarp t
/keypress Left
/delay 10s (!${Target.ID})
/tar _09
/megawarp t
/keypress Left
/delay 10s (!${Target.ID})
/tar _10
/megawarp t
/keypress Left
/delay 15s
/tar Guard_Tygus
/megawarp t
/delay 1
/keypress 3
/delay 3s
/call BigAttack ${Target.ID}
/megawarp s
/sit
/delay 10m (${Me.PctMana}>95)
/sit
/tar Merchant_Wendell
/megawarp t
/keypress Left
/delay 1s
/hail
/delay 2s
/megawarp 683 527 -49
/call BigAttack ${Target.ID}
/delay 15s
/tar Kathi
/megawarp t
/keypress Left
/delay 1s
/say Leave
/delay 30s
/goto :StartOver
/return
Sub Movement(int MoveX,int MoveY)
/if ((${MoveX}==9999) && (${MoveY}==9999)) {
/varset MoveX ${Target.X}
/varset MoveY ${Target.Y}
}
/declare iCount int local
/varset iCount 0
:AnchorMoveLoop
/delay 1
/face fast nolook loc ${MoveY},${MoveX}
/if (${Math.Distance[${MoveY},${MoveX}]}>6) {
/keypress forward hold
} else {
/keypress forward
/return
}
/if (${iCount}>2) {
/face fast nolook loc ${MoveY},${MoveX}
/varset iCount 0
}
/goto :AnchorMoveLoop
/return
Sub Reset
/for g 0 to ${Group.Members} {
/varcalc g2 ${Group.Members}-${g}
/taskremove ${Group.Member[${g2}]}
/next g
/delay 5s
/call Movement -851 1011
/target "Kathi Norman" npc
/face
/delay 1s
/say happy
/delay 5s
/doevents
/delay 5s
:OMGWAIT
/if (${Window[TaskTemplateSelectWnd].Open}) {
/notify TaskTemplateSelectWnd TaskTemplateSelectAcceptButton leftmouseup
/delay 5s
/goto :Okyourgood
}
/goto :OMGWAIT
:Okyourgood
/cleanup
/delay 10s
/target "Kathi Norman" npc
/delay 20s
/say trinket
/delay 30s
/gsay And it begins...
/varset waiter 0
/return
Sub Setup
/declare y int outer 0
/declare g int outer 0
/declare g2 int outer 0
/declare waitforit int outer 0
/declare w int outer 1
/declare waiter int outer 0
/return
Sub GMHERE
/beep
/beep
/beep
/echo GM has entered the zone!
/exit
/endmacro
/return
Sub Event_Invite(Junk,string Nameb)
/invite ${Nameb}
/taskadd ${Nameb}
/pause 1s
/return
Sub BigAttack(int TargID)
/varset w 1
/varset y 1
/delay 2s
/attack off
:Looperlala
/delay 2s
/call cast "Snare" activat
/delay 2s
/if (${Target.Distance}>100) /goto :Looperlala
:BattleLooper
/doevents
/tar ID ${TargID}
/delay 1s
/if (${Target.Distance}>160) /call Warper
/call cast "Careless Lightning" activate
/delay 2
/delay 7s (!${Me.Casting.Name.Equal["Careless Lightning"]})
/delay 1s
/if (${Target.PctHPs}<40) {
/call cast "Snare" activate
/delay 7s (!${Me.Casting.Name.Equal["Snare"]})
}
/if (${Target.Distance}<20) /call Warper
/delay 1s
/if (!${Target.ID}) /return
/if (${Target.Type.Equal[Corpse]}) /return
/goto :BattleLooper
/return
Sub Warper
/if (!${Target.ID}) /return
/if (${y}==0) {
/megawarp t e 150
/varset y 1
/face
/delay 1s
/return
}
/if (${y}==1) {
/megawarp t w 150
/varset y 0
}
/delay 1s
/face
/return
Sub Event_WaitTimer(crap,int Waitupyo)
/varcalc Waitupyo ${Waitupyo}+1
/echo Delaying ${Waitupyo} minutes
/for y 0 to ${Waitupyo}
/Echo ${Math.Calc[${Waitupyo}-${y}]} minutes left till get new expedition
/doevents
/delay 15s
/doevents
/delay 15s
/doevents
/delay 15s
/doevents
/delay 15s
/next y
/target "Kathi Norman" npc
/say happy
/return
Last edited:
And thank you Ccomp for the macro and spellcast!
no EQ for 2 weeks
