My own enchant.mac

Norrathian

Lifetime Member
Joined
Jun 7, 2007
Messages
238
Reaction score
52
Points
28
Location
The hills of Tennessee
Code:
|Enchant using AA ability or spell in slot 1 (As long as you have the supplies)
|
|  1) It will cast any AA enchant spells that are ready and you have the required components
|  2} It will cast the spell in Gem slot 1, provided it has the components.
|  3) go to step 1 and repeat - you can load up on items you'd like your chanter to make and let them run
|
|  the next version will include all of the other classes / diety imbues
|
|  v0.99

#include spell_routines.inc

Sub Main
    :CheckCursor
    /if (${Cursor.ID} && ${Me.FreeInventory}>0) {
        /autoinven
    }
    /if (${Cursor.ID}) /goto :CheckCursor

    /if (${Me.Casting.ID}) /goto :CheckCursor   

    :CastSpell
    /if (${Me.AltAbilityReady[Enchant Alaran Metal (x10)]} && ${FindItemCount[=Alaran Metal Bar]}>9) /alt act 709
    /if (${Me.AltAbilityReady[Enchant Celestial Platinum (x10)]} && ${FindItemCount[=Primordial Dynastic Radiance]}>9) /alt act 3223
    /if (${Me.AltAbilityReady[Enchant Conflagrant Platinum (x10)]} && ${FindItemCount[=Conflagrant Platinum]}>9) /alt act 3221
    /if (${Me.AltAbilityReady[Enchant Cosgrite (x10)]} && ${FindItemCount[=Conflagrant Platinum]}>9) /alt act 3219
    /if (${Me.AltAbilityReady[Enchant Dwerium (x10)]} && ${FindItemCount[=Dwerium Bar]}>9) /alt act 3207
    /if (${Me.AltAbilityReady[Enchant Feymetal (x10)]} && ${FindItemCount[=Feymetal Bar]}>9) /alt act 755
    /if (${Me.AltAbilityReady[Enchant Palladium Bar (x10)]} && ${FindItemCount[=Prismatic Palladium Bar]}>9) /alt act 3204
    /if (${Me.AltAbilityReady[Enchant Planar Alloy (x10)]} && ${FindItemCount[=Planar Alloy]}>9) /alt act 1801
    /if (${Me.AltAbilityReady[Enchant Refined Velium (x10)]} && ${FindItemCount[=Refined Velium]}>9) /alt act 3225
    /if (${Me.AltAbilityReady[Enchant Refined Restless Velium (x10)]} && ${FindItemCount[=Refined Restless Velium]}>9) /alt act 3227
    /if (${Me.AltAbilityReady[Enchant Honed Bloodied Luclinite (x10)]} && ${FindItemCount[=Honed Bloodied Luclinite]}>9) /alt act 3229
    /if (${Me.AltAbilityReady[Enchant Temporite (x10)]} && ${FindItemCount[=Temporite Bar]}>9) /alt act 3210
    
    /if (${Me.Gem[1].Name.Equal[Greater Mass Purify Mana]} && ${FindItemCount[=Poison Vial]}>19 && ${FindItemCount[=Ruby]}>79 && ${Me.SpellReady[${Me.Gem[1]}]}) /cast "${Me.Gem[1]}"
    /if (${Me.Gem[1].Name.Equal[Greater Mass Distill Mana]} && ${FindItemCount[=Poison Vial]}>19 && ${FindItemCount[=Sapphire]}>39 && ${Me.SpellReady[${Me.Gem[1]}]}) /cast "${Me.Gem[1]}"
    /if (${Me.Gem[1].Name.Equal[Greater Mass Clarify Mana]} && ${FindItemCount[=Poison Vial]}>19 && ${FindItemCount[=Emeralds]}>19 && ${Me.SpellReady[${Me.Gem[1]}]}) /cast "${Me.Gem[1]}"
    /if (${Me.Gem[1].Name.Equal[Greater Mass Crystallize Mana]} && ${FindItemCount[=Poison Vial]}>19 && ${FindItemCount[=Peridot]}>19 && ${Me.SpellReady[${Me.Gem[1]}]}) /cast "${Me.Gem[1]}"
    /if (${Me.Gem[1].Name.Equal[Greater Mass Thicken Mana]} && ${FindItemCount[=Poison Vial]}>19 && ${FindItemCount[=Pearl]}>19 && ${Me.SpellReady[${Me.Gem[1]}]}) /cast "${Me.Gem[1]}"

    /if (${Me.Gem[1].Name.Equal[Imbue Water]} && ${FindItemCount[=Water Mephit Blood]}>0 && ${FindItemCount[=Raw Diamond]}>0 && ${Me.SpellReady[${Me.Gem[1]}]}) /cast "${Me.Gem[1]}"
    /if (${Me.Gem[1].Name.Equal[Imbue Fire]} && ${FindItemCount[=Fire Mephit Blood]}>0 && ${FindItemCount[=Raw Diamond]}>0 && ${Me.SpellReady[${Me.Gem[1]}]}) /cast "${Me.Gem[1]}"
    /if (${Me.Gem[1].Name.Equal[Imbue Air]} && ${FindItemCount[=Air Mephit Blood]}>0 && ${FindItemCount[=Raw Diamond]}>0 && ${Me.SpellReady[${Me.Gem[1]}]}) /cast "${Me.Gem[1]}"
    /if (${Me.Gem[1].Name.Equal[Imbue Valor]} && ${FindItemCount[=Metalic Liquid]}>0 && ${FindItemCount[=Raw Diamond]}>0 && ${Me.SpellReady[${Me.Gem[1]}]}) /cast "${Me.Gem[1]}"
    /if (${Me.Gem[1].Name.Equal[Imbue War]} && ${FindItemCount[=War Wraith Blood]}>0 && ${FindItemCount[=Raw Diamond]}>0 && ${Me.SpellReady[${Me.Gem[1]}]}) /cast "${Me.Gem[1]}"
    /if (${Me.Gem[1].Name.Equal[Imbue Nightmare]} && ${FindItemCount[=Nightmare Mephit Blood]}>0 && ${FindItemCount[=Raw Diamond]}>0 && ${Me.SpellReady[${Me.Gem[1]}]}) /cast "${Me.Gem[1]}"
    /if (${Me.Gem[1].Name.Equal[Imbue Storm]} && ${FindItemCount[=Storm Rider Blood]}>0 && ${FindItemCount[=Raw Diamond]}>0 && ${Me.SpellReady[${Me.Gem[1]}]}) /cast "${Me.Gem[1]}"
    /if (${Me.Gem[1].Name.Equal[Imbue Earth]} && ${FindItemCount[=Earth Mephit Blood]}>0 && ${FindItemCount[=Raw Diamond]}>0 && ${Me.SpellReady[${Me.Gem[1]}]}) /cast "${Me.Gem[1]}"
    /if (${Me.Gem[1].Name.Equal[Imbue Torment]} && ${FindItemCount[=Tormentor Blood]}>0 && ${FindItemCount[=Raw Diamond]}>0 && ${Me.SpellReady[${Me.Gem[1]}]}) /cast "${Me.Gem[1]}"
    /if (${Me.Gem[1].Name.Equal[Imbue Justice]} && ${FindItemCount[=Alkaline Etched Stone]}>0 && ${FindItemCount[=Raw Diamond]}>0 && ${Me.SpellReady[${Me.Gem[1]}]}) /cast "${Me.Gem[1]}"
    /if (${Me.Gem[1].Name.Equal[Imbue Disease]} && ${FindItemCount[=Bubonian Blood]}>0 && ${FindItemCount[=Raw Diamond]}>0 && ${Me.SpellReady[${Me.Gem[1]}]}) /cast "${Me.Gem[1]}"

    /if (${Me.Gem[1].Name.Equal[Greater Mass Enchant Mithril]} && ${FindItemCount[=Large Brick of Mithril]}>20) /cast "${Me.Gem[1]}"
    /if (${Me.Gem[1].Name.Equal[Greater Mass Enchant Steel]} && ${FindItemCount[=Large Brick of High Quaility Ore]}>20) /cast "${Me.Gem[1]}"
    /if (${Me.Gem[1].Name.Equal[Greater Mass Enchant Adamantite]} && ${FindItemCount[=Large Brick of Adamantite]}>20) /cast "${Me.Gem[1]}"
    /if (${Me.Gem[1].Name.Equal[Greater Mass Enchant Brellium]} && ${FindItemCount[=Large Brick of Brellium]}>20) /cast "${Me.Gem[1]}"
    /if (${Me.Gem[1].Name.Equal[Greater Mass Enchant Velium]} && ${FindItemCount[=Velium Bar]}>20) /cast "${Me.Gem[1]}"
    /if (${Me.Gem[1].Name.Equal[Greater Mass Enchant Platinum]} && ${FindItemCount[=Platinum Bar]}>20) /cast "${Me.Gem[1]}"
    /if (${Me.Gem[1].Name.Equal[Greater Mass Enchant Gold]} && ${FindItemCount[=Gold Bar]}>20) /cast "${Me.Gem[1]}"
    /if (${Me.Gem[1].Name.Equal[Greater Mass Enchant Silver]} && ${FindItemCount[=Silver Bar]}>20) /cast "${Me.Gem[1]}"
    /if (${Me.Gem[1].Name.Equal[Greater Mass Enchant Electrum]} && ${FindItemCount[=Electrum Bar]}>20) /cast "${Me.Gem[1]}"
    /if (${Me.Gem[1].Name.Equal[Greater Mass Enchant Clay]} && ${FindItemCount[=Large Brick of Clay]}>20) /cast "${Me.Gem[1]}"
   
    :MedUpCheck
    /if (${Me.PctMana}<20) {
        /echo Medding to 99%
        /sit
        :MedLoop
        /if (${Me.PctMana}<99) /goto :MedLoop
    }
    /goto :CheckCursor

/endmacro
 
Last edited by a moderator:
  • Like
Reactions: magik
get it to the dev team to get it added to "push" to be compiled.