Clicky Macro

[Maskoi]

This was a quick macro I wrote for a friend who just needed a macro to check and keep his clicky buffs up.

| Clicky.Mac by Maskoi v 1.0 9/18/2010
| Requires spell_routines.inc
| Add your clickies and mob check radius then /mac clicky
| This macro made for www.Redguides.com/www.NotAddicted.com
| Don't steal it or we'll punch your fase!

#include spell_routines.inc

Sub Main

|----------------------------------------------------------------------------
| SUB: Clicky Declares
|----------------------------------------------------------------------------

    /declare ClickyItemUse         int outer 1
    /declare ClickyItem[8]      string outer
    /varset ClickyItem[1]        Phosphorescent Rapier of Dazzling Light
    /varset ClickyItem[2]        Cloak of Moss
    /varset ClickyItem[3]        Intruderbane Hook
    /varset ClickyItem[4]        Scorched Silk Belt
    /varset ClickyItem[5]        Lute of the Howler
    /varset ClickyItem[6]        Forgeflame Earring
    /varset ClickyItem[7]        Vermilionite Underbead
    /varset ClickyItem[8]        NULL
    
    /declare MobRadius            int outer 25

    :mainloop
    /if (${Me.Stunned} || ${Me.Ducking} || ${Me.Moving} || ${Me.Invis}) /goto :mainloop
    
    /if (${Window[MerchantWnd]} || ${Window[TradeWnd]} || ${Window[GiveWnd]} || ${Window[LootWnd]} || ${Window[SpellBookWnd]} || ${Window[BigBankWnd]} || ${Window[LootWnd]} || ${Window[BankWnd]} || ${Window[TributeMasterWnd]} || ${Window[GuildTributeMasterWnd]}) {
        /delay 2
        /goto :mainloop
    }
    
    /call Check_Clicky
    
    /goto :mainloop
/return

|----------------------------------------------------------------------------
| SUB: Check_Clicky 
|----------------------------------------------------------------------------
Sub Check_Clicky
/declare i int local
/declare TwistOff int local
/if (!${ClickyItemUse}) /return
/if (${Me.Pet.CleanName.Equal[${Me.Name}`s familiar]}) /pet get lost
/for i 1 to ${ClickyItem.Size}
        /if (${FindItemCount[${ClickyItem[${i}]}]}<=0) /next i
        /if (${FindItem[${ClickyItem[${i}]}].Spell.Stacks[0]} && !${Me.Buff[${FindItem[${ClickyItem[${i}]}].Spell}].ID} && ${NearestSpawn[NPC].Distance}>=${MobRadius}) {
            | - Turn off bard twisting
            /if (${Me.Class.ShortName.Equal[BRD]} && ${Twist}) /multiline ; /squelch /twist off ; /varset TwistOff 1
            /target myself
            /delay 3
            /call Cast "${ClickyItem[${i}]}" item
            /echo Clicking ${ClickyItem[${i}]}
        }
    /next i
    | - Turn on bard twisting again
    /if (${TwistOff}) /squelch /twist start
/return