MacroQuest64

Need to talk about MacroQuest to other MacroQuest users?
https://mq64.org/phpBB3/

Tri-Logger #2 (any camp) [20+]

https://mq64.org/phpBB3/viewtopic.php?t=14847

Page 1 of 6

Tri-Logger #2 (any camp) [20+]

Posted: Mon Jul 02, 2007 3:22 am
by xantan
This is NOT full 3 person macro, just the cleric and enchanter assist the warrior whom I play, he pulls etc.

enchanter -> buffs, tashanis, slows, nukes, roots

Cleric -> buffs, heals

Warrior -> (manual play) -> pulls

Cleric Macro:

Code: Select all

#turbo

#Event dead     "#*#Returning to Bind Location#*#" 
#event nomana "Insufficient Mana to cast this spell!" 

#include Spell_Routines.inc

Sub Main
/declare Nuke string outer
/declare SpellToCast string outer
/varset Nuke "Furor"

:loop
/doevents
/call buff
/if (${Me.Standing} && !${Me.Mount.ID}) /sit
/call assist
/goto :loop

Sub buff
/varset SpellToCast Daring
/if (${Me.PctMana} > 82 && ${Me.Book[${SpellToCast}]}&&${Me.Buff[${SpellToCast}].Duration}<10 && ${Spell[${SpellToCast}].Stacks}) /call buff2
/varset SpellToCast Symbol of Ryltan
/if (${Me.PctMana} > 96 && ${Me.Book[${SpellToCast}]}&&${Me.Buff[${SpellToCast}].Duration}<10 && ${Spell[${SpellToCast}].Stacks}) /call buff3
/return

Sub buff2
/tar pc cleric
/call cast "${SpellToCast}" gem5 15s
/tar pc enchanter
/call cast "${SpellToCast}" gem5 15s
/tar pc warrior
/call cast "${SpellToCast}" gem5 15s
/if (${Me.Standing} && !${Me.Mount.ID}) /sit
/return

Sub buff3
/tar pc cleric
/call cast "${SpellToCast}" gem6 15s
/tar pc enchanter
/call cast "${SpellToCast}" gem6 15s
/tar pc warrior
/call cast "${SpellToCast}" gem6 15s
/if (${Me.Standing} && !${Me.Mount.ID}) /sit
/return

Sub assist
/if (${Me.Standing} && !${Me.Mount.ID}) /sit
/tar pc warrior
/delay 1
/doevents
/tar pc warrior
/delay 1
/if ( ${Target.PctHPs}<=90 ) {
/call heal
/delay 2s
/tar pc warrior
/if ( ${Target.PctHPs}<=99 ) {
/call fight
/return
}
}
/delay 1
/tar pc enchanter
/delay 1
/if ( ${Target.PctHPs}<=70 ) /call heal
/delay 1
/tar pc cleric
/delay 1
/if ( ${Target.PctHPs}<=70 ) /call heal
/delay 1
/return

Sub fight
/keypress esc
:fightloop
/if (${Me.Standing} && !${Me.Mount.ID}) /sit
/tar pc warrior
/delay 1
/doevents
/tar pc warrior
/if ( ${Target.PctHPs}<=68 ) /call Heal
/if ( ${Me.PctHPs}<=20 ) /call die
/if ( ${Target.PctHPs}>=98 ) /return
/delay 1
/if (${Me.Standing} && !${Me.Mount.ID}) /sit
/tar pc cleric
/delay 1
/if ( ${Target.PctHPs}<=67 ) /call Heal2
/if ( ${Me.PctHPs}<=20 ) /call die
/delay 1
/tar pc enchanter
/if ( ${Target.PctHPs}<=52 ) /call Heal2
/if ( ${Me.PctHPs}<=20 ) /call die
/if (${Me.Standing} && !${Me.Mount.ID}) /sit
/goto :fightloop
/return

Sub heal
/call cast "Healing" gem3 12s
/doevents
/delay 9s
/if (${Me.Standing} && !${Me.Mount.ID}) /sit
/delay 4s
/return

Sub heal2
/call cast "Greater Healing" gem2 12s
/doevents
/delay 6s
/if (${Me.Standing} && !${Me.Mount.ID}) /sit
/delay 4s
/return

Sub Event_nomana
/if (${Me.Standing} && !${Me.Mount.ID}) /sit
/delay 12s
/return

Sub Event_dead
/endmacro
/exit
/delay 10s
/return

Sub die
/call cast "Divine Aura" gem8 20s
/return
Enchanter macro:

Code: Select all

#turbo

#Event dead     "#*#Returning to Bind Location#*#" 
#event nomana "Insufficient Mana to cast this spell!" 

#include Spell_Routines.inc

Sub Main
/declare SpellToCast string outer

:loop
/doevents
/call buff
/if (${Me.Standing} && !${Me.Mount.ID}) /sit
/call assist
/goto :loop

Sub buff
/call pet
/varset SpellToCast Breeze
/if (${Me.Book[${SpellToCast}]}&&${Me.Buff[${SpellToCast}].Duration}<10 && ${Spell[${SpellToCast}].Stacks}) /call buff2
/varset SpellToCast Alacrity
/if (${Me.PctMana} > 80 && ${Me.Book[${SpellToCast}]}&&${Me.Buff[${SpellToCast}].Duration}<10 && ${Spell[${SpellToCast}].Stacks}) /call buff3
/varset SpellToCast Major Shielding
/if (${Me.Book[${SpellToCast}]}&&${Me.Buff[${SpellToCast}].Duration}<10 && ${Spell[${SpellToCast}].Stacks}) /call cast "Major Shielding" gem8 15s
/return

Sub buff2
/tar pc enchanter
/call cast "${SpellToCast}" gem5 15s
/tar pc cleric
/call cast "${SpellToCast}" gem5 15s
/delay 1
/if (${Me.Standing} && !${Me.Mount.ID}) /sit
/return

Sub buff3
/tar pc enchanter
/call cast "${SpellToCast}" gem6 15s
/tar pc warrior
/call cast "${SpellToCast}" gem6 15s
/if (${Me.Standing} && !${Me.Mount.ID}) /sit
/return

Sub assist
/if (${Me.Standing} && !${Me.Mount.ID}) /sit
/tar pc warrior
/delay 1
/doevents
/tar pc warrior
/delay 1
/if ( ${Target.PctHPs}<=98 ) {
/delay 3s
/call fight
/delay 1
/return
}
/delay 1
/return

Sub fight
/if (${Me.Standing} && !${Me.Mount.ID}) /sit
/delay 3
/tar pc warrior
/if ( ${Target.PctHPs}<=98 ) {
/delay 2
/if (!${Me.Standing}) /stand up
/delay 3
/assist
/delay 1s
/attack off
/delay 2s
/if ( ${Target.PctHPs}<=99 ) /goto :fightloop
/delay 1
/return
}
/delay 1
/doevents
/tar pc warrior
/if ( ${Target.PctHPs}>=97 ) /return
/delay 1
/tar npc goblin radius 70
/if ( ${Target.PctHPs}<=94 ) /goto :fightloop
/if ( ${Target.PctHPs}>=93 ) /return
/delay 1
/return
:fightloop
/if (${Target.ID} && ${Target.Type.NotEqual[PC]}) {
/call cast "Tashani" gem3 10s
/delay 5s
/call cast "Languid Pace" gem7 10s
/delay 8s
:fightloop2
/if (${Target.ID} && ${Target.Type.NotEqual[PC]}) {
/if (${Me.PctMana} > 30 && ${Target.ID} && ${Target.PctHPs}>=20 ) /call cast "Chaos Flux" gem1 10s
/if (${Me.PctMana} > 6 && ${Target.ID} && ${Target.PctHPs}<=38 )  /call cast "Root" gem4 8s
/delay 7s
/if (${Me.Standing} && !${Me.Mount.ID}) /sit
/delay 3s
/goto :fightloop2
/return
}
}
/return

Sub Event_nomana
/if (${Me.Standing} && !${Me.Mount.ID}) /sit
/delay 12s
/return

Sub Event_dead
/endmacro
/exit
/delay 10s
/return

Sub pet
/tar pet radius 40
/delay 2
/if (${Target.ID} && ${Target.Type.NotEqual[Pet]}) {
/keypress esc
/tar pet radius 40
/if (${Target.ID}) /return
/varset SpellToCast Sagar's Animation
/delay 1
/call cast "${SpellToCast}" gem8 20s
/return
}
/tar pet radius 40
/if (${Target.ID}) /return
/varset SpellToCast Sagar's Animation
/delay 1
/call cast "${SpellToCast}" gem8 20s
/return



Sub OLD THINGS TO KNOW OR ETC
/if (!${Target.ID} || ${Target.Type.NotEqual[PC]}) {
/return
enjoy.

do with it what you want.

Posted: Thu Jul 05, 2007 7:44 pm
by discip1e
Prolly won't be using this, as I have other, deeper macros that I use for botting. However, in reading this, they appear to do just fine in most grouping situations.

And thank you for sharing what you've come up with, I hope others will share what they've come up with.

Re: Tri-Logger #2 (any camp) [20+]

Posted: Fri Aug 15, 2025 10:00 am
by xyilla
одно

Re: Tri-Logger #2 (any camp) [20+]

Posted: Fri Aug 15, 2025 10:01 am
by xyilla
228

Re: Tri-Logger #2 (any camp) [20+]

Posted: Fri Aug 15, 2025 10:02 am
by xyilla
CHAP

Re: Tri-Logger #2 (any camp) [20+]

Posted: Fri Aug 15, 2025 10:03 am
by xyilla
SUGG

Re: Tri-Logger #2 (any camp) [20+]

Posted: Fri Aug 15, 2025 10:05 am
by xyilla
Пущи

Re: Tri-Logger #2 (any camp) [20+]

Posted: Fri Aug 15, 2025 10:06 am
by xyilla
Citi

Re: Tri-Logger #2 (any camp) [20+]

Posted: Fri Aug 15, 2025 10:07 am
by xyilla
Mark

Re: Tri-Logger #2 (any camp) [20+]

Posted: Fri Aug 15, 2025 10:08 am
by xyilla
Caus

Re: Tri-Logger #2 (any camp) [20+]

Posted: Fri Aug 15, 2025 10:09 am
by xyilla
Моск

Re: Tri-Logger #2 (any camp) [20+]

Posted: Fri Aug 15, 2025 10:10 am
by xyilla
друг

Re: Tri-Logger #2 (any camp) [20+]

Posted: Fri Aug 15, 2025 10:11 am
by xyilla
клей

Re: Tri-Logger #2 (any camp) [20+]

Posted: Fri Aug 15, 2025 10:12 am
by xyilla
Ворк

Re: Tri-Logger #2 (any camp) [20+]

Posted: Fri Aug 15, 2025 10:14 am
by xyilla
Afri
All times are UTC-04:00
Page 1 of 6
Powered by phpBB® Forum Software © phpBB Limited
https://www.phpbb.com/