Follow along with the video below to see how to install our site as a web app on your home screen.
Note: This feature may not be available in some browsers.
# By Pugs
#clacker.mac
#this is untested and will not keep them in order
Sub main
#include spell_routines.inc
#event aonoff #*#Your illusion fades#*#
#event ringoff #*#The Taelosian guard fades#*#
#event Ear #*#The rage subsides#*#
/call Cast "Amulet of Necropotence" item
/call cast "Stormeye Band" item
/call cast "Ring of Organic Darkness" item
/call cast "Fabled Shrunken Goblin Skull Earring" item
:loop
/delay 30s
/doevents
/goto :loop
#sub event_aonoff
/call Cast "Amulet of Necropotence" item
/return
#sub event_ringoff
/call cast "Stormeye Band" item
/call cast "Ring of Organic Darkness" item
/return
#sub event_Ear
/call cast "Fabled Shrunken Goblin Skull Earring" item
/return
As I do not have access to EQ atm I will test this in the AM but you all are welcome to try it out in the meantime and give feedback.zippy42167 said:I'll go one further, and ask if anyone has a macro to keep up their clickies, in a specific order? hehe
#include spell_routines.inc
sub Main
/declare clicky1 string local Amulet of Necropotence
/declare clicky2 string local Ancient Werewolf Skull
/declare clicky3 string local Skull of Vishimtar
/declare clicky4 string local Black Fur Boots
/declare maxclickies int local 4
/declare loopid int local
:clickyloop
/for loopid 1 to ${maxclickies}
:topclickloop
/if (${delaybuff${loopid}}) /next loopid
/if (!${Me.Buff[${FindItem[${clicky${loopid}}].Spell}].ID}) {
/call nextbuffcheck
/if (${Macro.Return}<${loopid}) /goto :bottomloop
/if (${Macro.Return}==${loopid}) {
/call Cast "${clicky${loopid}}" item
/goto :bottomloop
}
/if (${Macro.Return}>${loopid}) {
/call clickoff ${loopid}
/if (${Me.Buff[${loopid}].Duration}) {
/if (!${Defined[delaybuff${loopid}]}) /declare delaybuff${loopid} timer outer
/varset delaybuff${loopid} 30s
/goto :bottomloop
}
/goto :topclickloop
}
/goto :bottomloop
}
/if (${Me.Buff[${FindItem[${clicky${loopid}}].Spell}].Duration}<5) /call Cast "${clicky${loopid}}" item
:bottomloop
/delay 1
/if (${Me.Casting.ID}) /goto :bottomloop
/next loopid
/goto :clickyloop
/return
Sub nextbuffcheck
/declare buffloop int local
/declare temp int local
/for buffloop 21 downto 1
/if (!${Me.Buff[${buffloop}].Duration}) /varset temp ${buffloop}
/next buffloop
/return ${temp}
Sub clickoff(int temp)
/varcalc temp ${temp}-1
/nomodkey /notify BuffWindow buff${temp} leftmouseup
/delay 1s
/return
Sosafina said:ok 1 more question =p anyway you can put in a code in there so that if im invis it wont cast or if another spell overwrites one of the clickies it wont unclick that spell and click the clicky.. example.. Strength of Hunter and Fabled Shrunken Goblin Skull earring.. =)
#include spell_routines.inc
sub Main
/declare clicky1 string local Amulet of Necropotence
/declare clicky2 string local Ancient Werewolf Skull
/declare clicky3 string local Skull of Vishimtar
/declare clicky4 string local Black Fur Boots
/declare maxclickies int local 4
/declare loopid int local
:clickyloop
/if (${Me.Moving} || ${Me.Invis} || ${Me.Stunned} || ${Me.Sitting} || ${Me.Ducking}) /goto :clickyloop
/for loopid 1 to ${maxclickies}
:topclickloop
/if (${delaybuff${loopid}}) /next loopid
/if (!${Me.Buff[${FindItem[${clicky${loopid}}].Spell}].ID} && ${FindItem[${clicky${loopid}}].Spell.Stacks}) {
/call nextbuffcheck
/if (${Macro.Return}<${loopid}) /goto :bottomloop
/if (${Macro.Return}==${loopid}) {
/call Cast "${clicky${loopid}}" item
/goto :bottomloop
}
/if (${Macro.Return}>${loopid}) {
/call clickoff ${loopid}
/if (${Me.Buff[${loopid}].Duration}) {
/if (!${Defined[delaybuff${loopid}]}) /declare delaybuff${loopid} timer outer
/varset delaybuff${loopid} 30s
/goto :bottomloop
}
/goto :topclickloop
}
/goto :bottomloop
}
/if (${Me.Buff[${FindItem[${clicky${loopid}}].Spell}].Duration}<5) /call Cast "${clicky${loopid}}" item
:bottomloop
/delay 1
/if (${Me.Casting.ID}) /goto :bottomloop
/next loopid
/goto :clickyloop
/return
Sub nextbuffcheck
/declare buffloop int local
/declare temp int local
/for buffloop 21 downto 1
/if (!${Me.Buff[${buffloop}].Duration}) /varset temp ${buffloop}
/next buffloop
/return ${temp}
Sub clickoff(int temp)
/varcalc temp ${temp}-1
/nomodkey /notify BuffWindow buff${temp} leftmouseup
/delay 1s
/return
#include spell_routines.inc
sub Main
/declare clicky1 string local Amulet of Necropotence
/declare clicky2 string local Ancient Werewolf Skull
/declare clicky3 string local Skull of Vishimtar
/declare clicky4 string local Black Fur Boots
/declare maxclickies int local 4
/declare loopid int local
:clickyloop
/if (${Me.Moving} || ${Me.Invis} || ${Me.Stunned} || ${Me.Sitting} || ${Me.Ducking}) /goto :clickyloop
/for loopid 1 to ${maxclickies}
:topclickloop
/if (!${Me.Buff[${FindItem[${clicky${loopid}}].Spell}].ID} && ${FindItem[${clicky${loopid}}].Spell.Stacks}) {
/call Cast "${clicky${loopid}}" item
/goto :bottomloop
}
/if (${Me.Buff[${FindItem[${clicky${loopid}}].Spell}].ID} && ${Me.Buff[${FindItem[${clicky${loopid}}].Spell}].Duration}<5) {
/call Cast "${clicky${loopid}}" item
/goto :bottomloop
}
:bottomloop
/delay 1
/if (${Me.Casting.ID}) /goto :bottomloop
/next loopid
/goto :clickyloop
/return