[CODE title="MassEnchant.mac"]| massenchant.mac 12-14-2020 by Cannonballdex
| Must be a Enchanter and have all of the spells scribed
| Level 49 Chanter can scribe all of the spells listed in this macro
| Easy way to scribe spells is using pokscribe.mac
| Will enchant any available items in inventory x5 using mass enchant spells or x20 using greater mass enchant spells
| Added on Jan 22, 2021 New Mass Enchants & Notify of missing spells
| Added on Dec 26, 2021 New Terror of Luclin Enchant Honed Bloodied Luclinite Abilities x1 and x10 Required levels 105 and 106
| Added on Dec 22, 2022 New Night of Shadows Enchant Honed Spiritual Lucinite Abilities x1 and x10 Requires Levels 110 and 111 - Esiah
#event Rest "#*#Insufficient Mana to cast this spell!#*#"
#event Stand "#*#You must be standing to cast a spell.#*#"
Sub Main
/echo \arWarning! \ayThis macro will \atMass Mana \ayall of your \atPoison Vial \ayin order.
/echo \ay If you have \atPrimordial Dynastic Radiance \aythis macro will make \atCelestial Platinum \aybefore \atEnchanted Platinum
/echo \ayand \atEnchant \ayall of your \atClay, Ore \ayand \atMetal Bars.
/echo \ayYou have 15 seconds to \at/endmacro \ayand bank items you don't want enchanted.
/echo \agMass Mana: \atPoison Vial \ao[\ap5\ao] \agand \atGem \ao[\apX\ao] \agthe amount
/echo \ag Vial of Viscous Mana \atPearl \ao[\ap5\ao]
/echo \ag Vial of Cloudy Mana \atPeridot \ao[\ap5\ao]
/echo \ag Vial of Clear Mana \atEmerald \ao[\ap5\ao]
/echo \ag Vial of Distilled Mana \atSapphire \ao[\ap10\ao]
/echo \ag Vial of Purified Mana \atRuby \ao[\ap20\ao]
/echo \agMass Enchant \ao[\ap5\ao] \agor \agGreater Mass Enchant \ao[\ap20\ao]
/echo \agClay & Ore: \ao[\atLarge Block of Clay\ao] \ap- \ao[\atLarge Bricks of High Quality \ay(\atOre\ay) \ap- \ay(\atMithril\ay) \ap- \ay(\atBrellium\ay) \ap- \ay(\atAdamantite\ay)\ao]
/echo \agMetal Bars: \ao[\ay(\atElectrum\ay) \ap- \ay(\atSilver\ay) \ap- \ay(\atGold\ay) \ap- \ay(\atPlatinum\ay) \ap- \ay(\atVelium\ay)\ao]
/echo \agEnchanter Metal AA: \ao[\ay(\atAlaran\ay) \ap- \ay(\atCelestial Platinum\ay) \ap- \ay(\atConflagrant Platinum\ay) \ap- \ay(\atCosgrite\ay) \ap- \ay(\atDwerium\ay)\ao]
/echo \ap- \ay(\atFeymetal\ay)\ao] \ap- \ay(\atPalladium\ay)\ao] \ap- \ay(\atPlanar Alloy\ay)\ao] \ap- \ay(\atRefined Restless Velium\ay)\ao] \ap- \ay(\atRefined Velium\ay)\ao] \ap- \ay(\atTemporite\ay)\ao \ap- \ay(\atLuclinite\ay)\ao]
/echo \ayThis macro will run until you \at/endmacro \ayor are \atout of items \ayto enchant.
/delay 15s
/echo \agHere we go!
|--------------------------------------------------------------------------------
| No components
|--------------------------------------------------------------------------------
:Loop
/if (${FindItemCount[=Poison Vial]} >19 && ${FindItemCount[=Pearl]} >19) {
/call MainLoop22
}
/if (${FindItemCount[=Poison Vial]} >4 && ${FindItemCount[=Pearl]} >4 && ${FindItemCount[=Pearl]} <20) {
/call MainLoop1
}
/if (${FindItemCount[=Poison Vial]} >19 && ${FindItemCount[=Peridot]} >19) {
/call MainLoop23
}
/if (${FindItemCount[=Poison Vial]} >4 && ${FindItemCount[=Peridot]} >4 && ${FindItemCount[=Peridot]} <20) {
/call MainLoop2
}
/if (${FindItemCount[=Poison Vial]} >19 && ${FindItemCount[=Emerald]} >19) {
/call MainLoop24
}
/if (${FindItemCount[=Poison Vial]} >4 && ${FindItemCount[=Emerald]} >4 && ${FindItemCount[=Emerald]} <20) {
/call MainLoop3
}
/if (${FindItemCount[=Poison Vial]} >19 && ${FindItemCount[=Sapphire]} >39) {
/call MainLoop25
}
/if (${FindItemCount[=Poison Vial]} >4 && ${FindItemCount[=Sapphire]} >9 && ${FindItemCount[=Sapphire]} <40) {
/call MainLoop4
}
/if (${FindItemCount[=Poison Vial]} >19 && ${FindItemCount[=Ruby]} >79) {
/call MainLoop26
}
/if (${FindItemCount[=Poison Vial]} >4 && ${FindItemCount[=Ruby]} >19 && ${FindItemCount[=Ruby]} <80) {
/call MainLoop5
}
/if (${FindItemCount[=Silver Bar]} >19) {
/call MainLoop7
}
/if (${FindItemCount[=Silver Bar]} >4 && ${FindItemCount[=Silver Bar]} <20) {
/call MainLoop6
}
/if (${FindItemCount[=Large Block of Clay]} >19) {
/call MainLoop21
}
/if (${FindItemCount[=Large Block of Clay]} >4 && ${FindItemCount[=Large Block of Clay]} <19) {
/call MainLoop8
}
/if (${FindItemCount[=Electrum Bar]} >19) {
/call MainLoop10
}
/if (${FindItemCount[=Electrum Bar]} >4 && ${FindItemCount[=Electrum Bar]} <20) {
/call MainLoop9
}
/if (${FindItemCount[=Gold Bar]} >19) {
/call MainLoop12
}
/if (${FindItemCount[=Gold Bar]} >4 && ${FindItemCount[=Gold Bar]} <20) {
/call MainLoop11
}
/if (${FindItemCount[=Platinum Bar]} >9 && ${FindItemCount[=Primordial Dynastic Radiance]} >9) {
/call MainLoop29
}
/if (${FindItemCount[=Platinum Bar]} <10 && ${FindItemCount[=Platinum Bar]} >0 && ${FindItemCount[=Primordial Dynastic Radiance]} >0) {
/call MainLoop30
}
/if (${FindItemCount[=Platinum Bar]} >19) {
/call MainLoop14
}
/if (${FindItemCount[=Platinum Bar]} >4 && ${FindItemCount[=Platinum Bar]} <20) {
/call MainLoop13
}
/if (${FindItemCount[=Velium Bar]} >19) {
/call MainLoop16
}
/if (${FindItemCount[=Velium Bar]} >4 && ${FindItemCount[=Velium Bar]} <20) {
/call MainLoop15
}
/if (${FindItemCount[=Large Brick of High Quality Ore]} >4) {
/call MainLoop17
}
/if (${FindItemCount[=Large Brick of Mithril]} >4) {
/call MainLoop18
}
/if (${FindItemCount[=Large Brick of Brellium]} >4) {
/call MainLoop19
}
/if (${FindItemCount[=Large Brick of Adamantite]} >4) {
/call MainLoop20
}
/if (${FindItemCount[=Alaran Metal Bar]} >9) {
/call MainLoop27
}
/if (${FindItemCount[=Alaran Metal Bar]} >0 && ${FindItemCount[=Alaran Metal Bar]} <10) {
/call MainLoop28
}
/if (${FindItemCount[=Conflagrant Platinum]} >9) {
/call MainLoop31
}
/if (${FindItemCount[=Conflagrant Platinum]} >0 && ${FindItemCount[=Conflagrant Platinum]} <10) {
/call MainLoop32
}
/if (${FindItemCount[=Cosgrite Bar]} >9) {
/call MainLoop33
}
/if (${FindItemCount[=Cosgrite Bar]} >0 && ${FindItemCount[=Cosgrite Bar]} <10) {
/call MainLoop34
}
/if (${FindItemCount[=Dwerium Bar]} >9) {
/call MainLoop35
}
/if (${FindItemCount[=Dwerium Bar]} >0 && ${FindItemCount[=Dwerium Bar]} <10) {
/call MainLoop36
}
/if (${FindItemCount[=Feymetal Bar]} >9) {
/call MainLoop37
}
/if (${FindItemCount[=Feymetal Bar]} >0 && ${FindItemCount[=Feymetal Bar]} <10) {
/call MainLoop38
}
/if (${FindItemCount[=Prismatic Palladium Bar]} >9) {
/call MainLoop39
}
/if (${FindItemCount[=Prismatic Palladium Bar]} >0 && ${FindItemCount[=Prismatic Palladium Bar]} <10) {
/call MainLoop40
}
/if (${FindItemCount[=Planar Alloy]} >9) {
/call MainLoop41
}
/if (${FindItemCount[=Planar Alloy]} >0 && ${FindItemCount[=Planar Alloy]} <10) {
/call MainLoop42
}
/if (${FindItemCount[=Refined Restless Velium]} >9) {
/call MainLoop43
}
/if (${FindItemCount[=Refined Restless Velium]} >0 && ${FindItemCount[=Refined Restless Velium]} <10) {
/call MainLoop44
}
/if (${FindItemCount[=Refined Velium]} >9) {
/call MainLoop45
}
/if (${FindItemCount[=Refined Velium]} >0 && ${FindItemCount[=Refined Velium]} <10) {
/call MainLoop46
}
/if (${FindItemCount[=Temporite Bar]} >9) {
/call MainLoop47
}
/if (${FindItemCount[=Temporite Bar]} >0 && ${FindItemCount[=Temporite Bar]} <10) {
/call MainLoop48
}
/if (${FindItemCount[=Honed Bloodied Luclinite]} >9) {
/call MainLoop49
}
/if (${FindItemCount[=Honed Bloodied Luclinite]} >0 && ${FindItemCount[=Honed Bloodied Luclinite]} <10) {
/call MainLoop50
} else {
/echo \atYou are out of items to enchant. Ending Macro.
/delay 1s
/autoinventory
/delay 1
/end
}
/return
|------------------------------------------------------------------------------
| Vial of Viscous Mana x5 - Mass Thicken Mana
|------------------------------------------------------------------------------
Sub MainLoop1
:MainLoop1
/if (!${Me.Book[${Spell[Mass Thicken Mana].RankName}]}) {
/echo \ayYou do not have the spell Mass Thicken Mana Scribed
/return
}
/if (${FindItemCount[=Poison Vial]} >4 && ${FindItemCount[=Pearl]} >4 && ${FindItemCount[=Pearl]} <20) {
/echo \agFound \ay[\atPoison Vial\ay] \agand \ay[\atPearl\ay] \agto make \ay[\atVial of Viscous Mana\ay]
/call ManaCheck
/doevents
/casting "Mass Thicken Mana"
/delay 5s
/while (${Me.Casting.ID}) {
/delay 5
}
/delay 1s
/if (${Cursor.ID}) {
/echo \agYou created \ay[\at${Cursor.Name}\ay]
/delay 1
/autoinventory
}
/if (${FindItemCount[=Poison Vial]} <5 || ${FindItemCount[=Pearl]} <5) {
/echo \ayOut of items, no longer making \ao[\atVial of Viscous Mana\ao]
/return
}
/delay 1s
/goto :MainLoop1
/return
|------------------------------------------------------------------------------
| Vial of Viscous Mana x20 - Greater Mass Thicken Mana
|------------------------------------------------------------------------------
Sub MainLoop22
:MainLoop22
/if (!${Me.Book[${Spell[Greater Mass Thicken Mana].RankName}]}) {
/echo \ayYou do not have the spell Greater Mass Thicken Mana Scribed
/return
}
/if (${FindItemCount[=Poison Vial]} >19 && ${FindItemCount[=Pearl]} >19) {
/echo \agFound \ay[\atPoison Vial\ay] \agand \ay[\atPearl\ay] \agto make \ay[\atVial of Viscous Mana\ay]
/call ManaCheck
/doevents
/casting "Greater Mass Thicken Mana"
/delay 5s
/while (${Me.Casting.ID}) {
/delay 5
}
/delay 1s
/if (${Cursor.ID}) {
/echo \agYou created \ay[\at${Cursor.Name}\ay]
/delay 1
/autoinventory
}
/if (${FindItemCount[=Poison Vial]} <20 || ${FindItemCount[=Pearl]} <20) {
/echo \ayOut of items, no longer making \ao[\atVial of Viscous Mana\ao]
/return
}
/delay 1s
/goto :MainLoop22
/return
|------------------------------------------------------------------------------
| Vial of Cloudy Mana x5 - Mass Crystallize Mana
|------------------------------------------------------------------------------
Sub MainLoop2
:MainLoop2
/if (!${Me.Book[${Spell[Mass Crystallize Mana].RankName}]}) {
/echo \ayYou do not have the spell Mass Crystallize Mana Scribed
/return
}
/if (${FindItemCount[=Poison Vial]} >4 && ${FindItemCount[=Peridot]} >4 && ${FindItemCount[=Peridot]} <20) {
/echo \agFound \ay[\atPoison Vial\ay] \agand \ay[\atPeridot\ay] \agto make \ay[\atVial of Cloudy Mana\ay]
/call ManaCheck
/doevents
/casting "Mass Crystallize Mana"
/delay 5s
/while (${Me.Casting.ID}) {
/delay 5
}
/delay 1s
/if (${Cursor.ID}) {
/echo \agYou created \ay[\at${Cursor.Name}\ay]
/delay 1
/autoinventory
}
/if (${FindItemCount[=Poison Vial]} <5 || ${FindItemCount[=Peridot]} <5) {
/echo \ayOut of items, no longer making \ao[\atVial of Cloudy Mana\ao]
/return
}
/delay 1s
/goto :MainLoop2
/return
|------------------------------------------------------------------------------
| Vial of Cloudy Mana x20 - Greater Mass Crystallize Mana
|------------------------------------------------------------------------------
Sub MainLoop23
:MainLoop23
/if (!${Me.Book[${Spell[Greater Mass Crystallize Mana].RankName}]}) {
/echo \ayYou do not have the spell Greater Mass Crystallize Mana Scribed
/return
}
/if (${FindItemCount[=Poison Vial]} >19 && ${FindItemCount[=Peridot]} >19) {
/echo \agFound \ay[\atPoison Vial\ay] \agand \ay[\atPeridot\ay] \agto make \ay[\atVial of Cloudy Mana\ay]
/call ManaCheck
/doevents
/casting "Greater Mass Crystallize Mana"
/delay 5s
/while (${Me.Casting.ID}) {
/delay 5
}
/delay 1s
/if (${Cursor.ID}) {
/echo \agYou created \ay[\at${Cursor.Name}\ay]
/delay 1
/autoinventory
}
/if (${FindItemCount[=Poison Vial]} <20 || ${FindItemCount[=Peridot]} <20) {
/echo \ayOut of items, no longer making \ao[\atVial of Cloudy Mana\ao]
/return
}
/delay 1s
/goto :MainLoop23
/return
|------------------------------------------------------------------------------
| Vial of Clear Mana x5 - Mass Clarify Mana
|------------------------------------------------------------------------------
Sub MainLoop3
:MainLoop3
/if (!${Me.Book[${Spell[Mass Clarify Mana].RankName}]}) {
/echo \ayYou do not have the spell Mass Clarify Mana Scribed
/return
}
/if (${FindItemCount[=Poison Vial]} >4 && ${FindItemCount[=Emerald]} >4 && ${FindItemCount[=Emerald]} <20) {
/echo \agFound \ay[\atPoison Vial\ay] \agand \ay[\atEmerald\ay] \agto make \ay[\atVial of Clear Mana\ay]
/call ManaCheck
/doevents
/casting "Mass Clarify Mana"
/delay 5s
/while (${Me.Casting.ID}) {
/delay 5
}
/delay 1s
/if (${Cursor.ID}) {
/echo \agYou created \ay[\at${Cursor.Name}\ay]
/delay 1
/autoinventory
}
/if (${FindItemCount[=Poison Vial]} <5 || ${FindItemCount[=Emerald]} <5) {
/echo \ayOut of items, no longer making \ao[\atVial of Clear Mana\ao]
/return
}
/delay 1s
/goto :MainLoop3
/return
|------------------------------------------------------------------------------
| Vial of Clear Mana x20 - Greater Mass Clarify Mana
|------------------------------------------------------------------------------
Sub MainLoop24
:MainLoop24
/if (!${Me.Book[${Spell[Greater Mass Clarify Mana].RankName}]}) {
/echo \ayYou do not have the spell Greater Mass Clarify Mana Scribed
/return
}
/if (${FindItemCount[=Poison Vial]} >19 && ${FindItemCount[=Emerald]} >19) {
/echo \agFound \ay[\atPoison Vial\ay] \agand \ay[\atEmerald\ay] \agto make \ay[\atVial of Clear Mana\ay]
/call ManaCheck
/doevents
/casting "Greater Mass Clarify Mana"
/delay 5s
/while (${Me.Casting.ID}) {
/delay 5
}
/delay 1s
/if (${Cursor.ID}) {
/echo \agYou created \ay[\at${Cursor.Name}\ay]
/delay 1
/autoinventory
}
/if (${FindItemCount[=Poison Vial]} <20 || ${FindItemCount[=Emerald]} <20) {
/echo \ayOut of items, no longer making \ao[\atVial of Clear Mana\ao]
/return
}
/delay 1s
/goto :MainLoop24
/return
|------------------------------------------------------------------------------
| Vial of Distilled Mana - Mass Distill Mana
|------------------------------------------------------------------------------
Sub MainLoop4
:MainLoop4
/if (!${Me.Book[${Spell[Mass Distill Mana].RankName}]}) {
/echo \ayYou do not have the spell Mass Distill Mana Scribed
/return
}
/if (${FindItemCount[=Poison Vial]} >4 && ${FindItemCount[=Sapphire]} >9 && ${FindItemCount[=Sapphire]} <40) {
/echo \agFound \ay[\atPoison Vial\ay] \agand \ay[\atSapphire\ay] \agto make \ay[\atVial of Distilled Mana\ay]
/call ManaCheck
/doevents
/casting "Mass Distill Mana"
/delay 5s
/while (${Me.Casting.ID}) {
/delay 5
}
/delay 1s
/if (${Cursor.ID}) {
/echo \agYou created \ay[\at${Cursor.Name}\ay]
/delay 1
/autoinventory
}
/if (${FindItemCount[=Poison Vial]} <5 || ${FindItemCount[=Sapphire]} <10) {
/echo \ayOut of items, no longer making \ao[\atVial of Distilled Mana\ao]
/return
}
/delay 1s
/goto :MainLoop4
/return
|------------------------------------------------------------------------------
| Vial of Distilled Mana - Greater Mass Distill Mana
|------------------------------------------------------------------------------
Sub MainLoop25
:MainLoop25
/if (!${Me.Book[${Spell[Greater Mass Distill Mana].RankName}]}) {
/echo \ayYou do not have the spell Greater Mass Distill Mana Scribed
/return
}
/if (${FindItemCount[=Poison Vial]} >19 && ${FindItemCount[=Sapphire]} >39) {
/echo \agFound \ay[\atPoison Vial\ay] \agand \ay[\atSapphire\ay] \agto make \ay[\atVial of Distilled Mana\ay]
/call ManaCheck
/doevents
/casting "Greater Mass Distill Mana"
/delay 5s
/while (${Me.Casting.ID}) {
/delay 5
}
/delay 1s
/if (${Cursor.ID}) {
/echo \agYou created \ay[\at${Cursor.Name}\ay]
/delay 1
/autoinventory
}
/if (${FindItemCount[=Poison Vial]} <20 || ${FindItemCount[=Sapphire]} <40) {
/echo \ayOut of items, no longer making \ao[\atVial of Distilled Mana\ao]
/return
}
/delay 1s
/goto :MainLoop25
/return
|------------------------------------------------------------------------------
| Vial of Purified Mana - Mass Purify Mana
|------------------------------------------------------------------------------
Sub MainLoop5
:MainLoop5
/if (!${Me.Book[${Spell[Mass Purify Mana].RankName}]}) {
/echo \ayYou do not have the spell Mass Purify Mana Scribed
/return
}
/if (${FindItemCount[=Poison Vial]} >4 && ${FindItemCount[=Ruby]} >19 && ${FindItemCount[=Ruby]} <80) {
/echo \agFound \ay[\atPoison Vial\ay] \agand \ay[\atRuby\ay] \agto make \ay[\atVial of Purified Mana\ay]
/call ManaCheck
/doevents
/casting "Mass Purify Mana"
/delay 5s
/while (${Me.Casting.ID}) {
/delay 5
}
/delay 1s
/if (${Cursor.ID}) {
/echo \agYou created \ay[\at${Cursor.Name}\ay]
/delay 1
/autoinventory
}
/if (${FindItemCount[=Poison Vial]} <5 || ${FindItemCount[=Ruby]} <20) {
/echo \ayOut of items, no longer making \ao[\atVial of Purified Mana\ao]
/return
}
/delay 1s
/goto :MainLoop5
/return
|------------------------------------------------------------------------------
| Vial of Purified Mana - Greater Mass Purify Mana
|------------------------------------------------------------------------------
Sub MainLoop26
:MainLoop26
/if (!${Me.Book[${Spell[Greater Mass Purify Mana].RankName}]}) {
/echo \ayYou do not have the spell Greater Mass Purify Mana Scribed
/return
}
/if (${FindItemCount[=Poison Vial]} >19 && ${FindItemCount[=Ruby]} >79) {
/echo \agFound \ay[\atPoison Vial\ay] \agand \ay[\atRuby\ay] \agto make \ay[\atVial of Purified Mana\ay]
/call ManaCheck
/doevents
/casting "Greater Mass Purify Mana"
/delay 5s
/while (${Me.Casting.ID}) {
/delay 5
}
/delay 1s
/if (${Cursor.ID}) {
/echo \agYou created \ay[\at${Cursor.Name}\ay]
/delay 1
/autoinventory
}
/if (${FindItemCount[=Poison Vial]} <20 || ${FindItemCount[=Ruby]} <80) {
/echo \ayOut of items, no longer making \ao[\atVial of Purified Mana\ao]
/return
}
/delay 1s
/goto :MainLoop26
/return
|------------------------------------------------------------------------------
| Enchanted Silver Bar x5 - Mass Enchant Silver
|------------------------------------------------------------------------------
Sub MainLoop6
:MainLoop6
/if (!${Me.Book[${Spell[Mass Enchant Silver].RankName}]}) {
/echo \ayYou do not have the spell Mass Enchant Silver Scribed
/return
}
/if (${FindItemCount[=Silver Bar]} >4 && ${FindItemCount[=Silver Bar]} <19) {
/echo \agFound \ay[\atSilver Bar\ay] \agto make \ay[\atEnchanted Silver Bar\ay]
/call ManaCheck
/doevents
/casting "Mass Enchant Silver"
/delay 5s
/while (${Me.Casting.ID}) {
/delay 5
}
/delay 1s
/if (${Cursor.ID}) {
/echo \agYou created \ay[\at${Cursor.Name}\ay]
/delay 1
/autoinventory
}
/if (${FindItemCount[=Silver Bar]} <5) {
/echo \ayOut of \ay[\atSilver Bar\ay] \ayno longer making \ay[\atEnchanted Silver Bar\ay]
/return
}
/delay 1s
/goto :MainLoop6
/return
|------------------------------------------------------------------------------
| Enchanted Silver Bar x20 - Greater Mass Enchant Silver
|------------------------------------------------------------------------------
Sub MainLoop7
:MainLoop7
/if (!${Me.Book[${Spell[Greater Mass Enchant Silver].RankName}]}) {
/echo \ayYou do not have the spell Greater Mass Enchant Silver Scribed
/return
}
/if (${FindItemCount[=Silver Bar]} >19) {
/echo \agFound \ay[\atSilver Bar\ay] \agto make \ay[\atEnchanted Silver Bar\ay]
/call ManaCheck
/doevents
/casting "Greater Mass Enchant Silver"
/delay 5s
/while (${Me.Casting.ID}) {
/delay 5
}
/delay 1s
/if (${Cursor.ID}) {
/echo \agYou created \ay[\at${Cursor.Name}\ay]
/delay 1
/autoinventory
}
/if (${FindItemCount[=Silver Bar]} <20) {
/echo \ayOut of \ay[\atSilver Bar\ay] \ayno longer making \ay[\atEnchanted Silver Bar\ay]
/return
}
/delay 1s
/goto :MainLoop7
/return
|------------------------------------------------------------------------------
| Large Block of Magic Clay x5 - Mass Enchant Clay
|------------------------------------------------------------------------------
Sub MainLoop8
:MainLoop8
/if (!${Me.Book[${Spell[Mass Enchant Clay].RankName}]}) {
/echo \ayYou do not have the spell Mass Enchant Clay Scribed
/return
}
/if (${FindItemCount[=Large Block of Clay]} >4 && ${FindItemCount[=Large Block of Clay]} <20) {
/echo \agFound \ay[\atLarge Block of Clay\ay] \agto make \ay[\atEnchanted Clay\ay]
/call ManaCheck
/doevents
/casting "Mass Enchant Clay"
/delay 5s
/while (${Me.Casting.ID}) {
/delay 5
}
/delay 1s
/if (${Cursor.ID}) {
/echo \agYou created \ay[\at${Cursor.Name}\ay]
/delay 1
/autoinventory
}
/if (${FindItemCount[=Large Block of Clay]} <5) {
/echo \ayOut of \ay[\atLarge Block of Clay\ay] \ayno longer making \ay[\atLarge Block of Magic Clay\ay]
/return
}
/delay 1s
/goto :MainLoop8
/return
|------------------------------------------------------------------------------
| Large Block of Magic Clay x20 - Greater Mass Enchant Clay
|------------------------------------------------------------------------------
Sub MainLoop21
:MainLoop21
/if (!${Me.Book[${Spell[Greater Mass Enchant Clay].RankName}]}) {
/echo \ayYou do not have the spell Greater Mass Enchant Clay Scribed
/return
}
/if (${FindItemCount[=Large Block of Clay]} >19) {
/echo \agFound \ay[\atLarge Block of Clay\ay] \agto make \ay[\atEnchanted Clay\ay]
/call ManaCheck
/doevents
/casting "Greater Mass Enchant Clay"
/delay 5s
/while (${Me.Casting.ID}) {
/delay 5
}
/delay 1s
/if (${Cursor.ID}) {
/echo \agYou created \ay[\at${Cursor.Name}\ay]
/delay 1
/autoinventory
}
/if (${FindItemCount[=Large Block of Clay]} <5) {
/echo \ayOut of \ay[\atLarge Block of Clay\ay] \ayno longer making \ay[\atLarge Block of Magic Clay\ay]
/return
}
/delay 1s
/goto :MainLoop21
/return
|------------------------------------------------------------------------------
| Enchanted Electrum Bar x5 - Mass Enchant Electrum
|------------------------------------------------------------------------------
Sub MainLoop9
:MainLoop9
/if (!${Me.Book[${Spell[Mass Enchant Electrum].RankName}]}) {
/echo \ayYou do not have the spell Mass Enchant Electrum Scribed
/return
}
/if (${FindItemCount[=Electrum Bar]} >4 && ${FindItemCount[=Electrum Bar]} <20) {
/echo \agFound \ay[\atElectrum Bar\ay] \agto make \ay[\atEnchanted Electrum Bar\ay]
/call ManaCheck
/doevents
/casting "Mass Enchant Electrum"
/delay 5s
/while (${Me.Casting.ID}) {
/delay 5
}
/delay 1s
/if (${Cursor.ID}) {
/echo \agYou created \ay[\at${Cursor.Name}\ay]
/delay 1
/autoinventory
}
/if (${FindItemCount[=Electrum Bar]} <5) {
/echo \ayOut of \ay[\atElectrum Bar\ay] \ayno longer making \ay[\atEnchanted Electrum Bar\ay]
/return
}
/delay 1s
/goto :MainLoop9
/return
|------------------------------------------------------------------------------
| Enchanted Electrum Bar x20 - Greater Mass Enchant Electrum
|------------------------------------------------------------------------------
Sub MainLoop10
:MainLoop10
/if (!${Me.Book[${Spell[Greater Mass Enchant Electrum].RankName}]}) {
/echo \ayYou do not have the spell Greater Mass Enchant Electrum Scribed
/return
}
/if (${FindItemCount[=Electrum Bar]} >19) {
/echo \agFound \ay[\atElectrum Bar\ay] \agto make \ay[\atEnchanted Electrum Bar\ay]
/call ManaCheck
/doevents
/casting "Greater Mass Enchant Electrum"
/delay 5s
/while (${Me.Casting.ID}) {
/delay 5
}
/delay 1s
/if (${Cursor.ID}) {
/echo \agYou created \ay[\at${Cursor.Name}\ay]
/delay 1
/autoinventory
}
/if (${FindItemCount[=Electrum Bar]} <20) {
/echo \ayOut of \ay[\atElectrum Bar\ay] \ayno longer making \ay[\atEnchanted Electrum Bar\ay]
/return
}
/delay 1s
/goto :MainLoop10
/return
|------------------------------------------------------------------------------
| Enchanted Gold Bar x5 - Mass Enchant Gold
|------------------------------------------------------------------------------
Sub MainLoop11
:MainLoop11
/if (!${Me.Book[${Spell[Mass Enchant Gold].RankName}]}) {
/echo \ayYou do not have the spell Mass Enchant Gold Scribed
/return
}
/if (${FindItemCount[=Gold Bar]} >4 && ${FindItemCount[=Gold Bar]} <20) {
/echo \agFound \ay[\atGold Bar\ay] \agto make \ay[\atEnchanted Gold Bar\ay]
/call ManaCheck
/doevents
/casting "Mass Enchant Gold"
/delay 5s
/while (${Me.Casting.ID}) {
/delay 5
}
/delay 1s
/if (${Cursor.ID}) {
/echo \agYou created \ay[\at${Cursor.Name}\ay]
/delay 1
/autoinventory
}
/if (${FindItemCount[=Gold Bar]} <5) {
/echo \ayOut of \ay[\atGold Bar\ay] \ayno longer making \ay[\atEnchanted Gold Bar\ay]
/return
}
/delay 1s
/goto :MainLoop11
/return
|------------------------------------------------------------------------------
| Enchanted Gold Bar x20 - Greater Mass Enchant Gold
|------------------------------------------------------------------------------
Sub MainLoop12
:MainLoop12
/if (!${Me.Book[${Spell[Greater Mass Enchant Gold].RankName}]}) {
/echo \ayYou do not have the spell Greater Mass Enchant Gold Scribed
/return
}
/if (${FindItemCount[=Gold Bar]} >19) {
/echo \agFound \ay[\atGold Bar\ay] \agto make \ay[\atEnchanted Gold Bar\ay]
/call ManaCheck
/doevents
/casting "Greater Mass Enchant Gold"
/delay 5s
/while (${Me.Casting.ID}) {
/delay 5
}
/delay 1s
/if (${Cursor.ID}) {
/echo \agYou created \ay[\at${Cursor.Name}\ay]
/delay 1
/autoinventory
}
/if (${FindItemCount[=Gold Bar]} <20) {
/echo \ayOut of \ay[\atGold Bar\ay] \ayno longer making \ay[\atEnchanted Gold Bar\ay]
/return
}
/delay 1s
/goto :MainLoop12
/return
|------------------------------------------------------------------------------
| Enchanted Platinum Bar x5 - Mass Enchant Platinum
|------------------------------------------------------------------------------
Sub MainLoop13
:MainLoop13
/if (!${Me.Book[${Spell[Mass Enchant Platinum].RankName}]}) {
/echo \ayYou do not have the spell Mass Enchant Platinum Scribed
/return
}
/if (${FindItemCount[=Platinum Bar]} >4 && ${FindItemCount[=Platinum Bar]} <20) {
/echo \agFound \ay[\atPlatinum Bar\ay] \agto make \ay[\atEnchanted Platinum Bar\ay]
/call ManaCheck
/doevents
/casting "Mass Enchant Platinum"
/delay 5s
/while (${Me.Casting.ID}) {
/delay 5
}
/delay 1s
/if (${Cursor.ID}) {
/echo \agYou created \ay[\at${Cursor.Name}\ay]
/delay 1
/autoinventory
}
/if (${FindItemCount[=Platinum Bar]} <5) {
/echo \ayOut of \ay[\atPlatinum Bar\ay] \ayno longer making \ay[\atEnchanted Platinum Bar\ay]
/return
}
/delay 1s
/goto :MainLoop13
/return
|------------------------------------------------------------------------------
| Enchanted Platinum Bar x20 - Greater Mass Enchant Platinum
|------------------------------------------------------------------------------
Sub MainLoop14
:MainLoop14
/if (!${Me.Book[${Spell[Greater Mass Enchant Platinum].RankName}]}) {
/echo \ayYou do not have the spell Greater Mass Enchant Platinum Scribed
/return
}
/if (${FindItemCount[=Platinum Bar]} >19) {
/echo \agFound \ay[\atPlatinum Bar\ay] \agto make \ay[\atEnchanted Platinum Bar\ay]
/call ManaCheck
/doevents
/casting "Greater Mass Enchant Platinum"
/delay 5s
/while (${Me.Casting.ID}) {
/delay 5
}
/delay 1s
/if (${Cursor.ID}) {
/echo \agYou created \ay[\at${Cursor.Name}\ay]
/delay 1
/autoinventory
}
/if (${FindItemCount[=Platinum Bar]} <20) {
/echo \ayOut of \ay[\atPlatinum Bar\ay] \ayno longer making \ay[\atEnchanted Platinum Bar\ay]
/return
}
/delay 1s
/goto :MainLoop14
/return
|------------------------------------------------------------------------------
| Enchanted Velium Bar x5 - Mass Enchant Velium
|------------------------------------------------------------------------------
Sub MainLoop15
:MainLoop15
/if (!${Me.Book[${Spell[Mass Enchant Velium].RankName}]}) {
/echo \ayYou do not have the spell Mass Enchant Velium Scribed
/return
}
/if (${FindItemCount[=Velium Bar]} >4 && ${FindItemCount[=Velium Bar]} <20) {
/echo \agFound \ay[\atVelium Bar\ay] \agto make \ay[\atEnchanted Velium Bar\ay]
/call ManaCheck
/doevents
/casting "Mass Enchant Velium"
/delay 5s
/while (${Me.Casting.ID}) {
/delay 5
}
/delay 1s
/if (${Cursor.ID}) {
/echo \agYou created \ay[\at${Cursor.Name}\ay]
/delay 1
/autoinventory
}
/if (${FindItemCount[=Velium Bar]} <5) {
/echo \ayOut of \ay[\atVelium Bar\ay] \ayno longer making \ay[\atEnchanted Velium Bar\ay]
/return
}
/delay 1s
/goto :MainLoop15
/return
|------------------------------------------------------------------------------
| Enchanted Velium Bar x20 - Greater Mass Enchant Velium
|------------------------------------------------------------------------------
Sub MainLoop16
:MainLoop16
/if (!${Me.Book[${Spell[Greater Mass Enchant Velium].RankName}]}) {
/echo \ayYou do not have the spell Greater Mass Enchant Velium Scribed
/return
}
/if (${FindItemCount[=Velium Bar]} >19) {
/echo \agFound \ay[\atVelium Bar\ay] \agto make \ay[\atEnchanted Velium Bar\ay]
/call ManaCheck
/doevents
/casting "Greater Mass Enchant Velium"
/delay 5s
/while (${Me.Casting.ID}) {
/delay 5
}
/delay 1s
/if (${Cursor.ID}) {
/echo \agYou created \ay[\at${Cursor.Name}\ay]
/delay 1
/autoinventory
}
/if (${FindItemCount[=Velium Bar]} <20) {
/echo \ayOut of \ay[\atVelium Bar\ay] \ayno longer making \ay[\atEnchanted Velium Bar\ay]
/return
}
/delay 1s
/goto :MainLoop16
/return
|------------------------------------------------------------------------------
| Large Brick of Enchanted Ore x5 - Mass Enchant Steel
|------------------------------------------------------------------------------
Sub MainLoop17
:MainLoop17
/if (!${Me.Book[${Spell[Mass Enchant Steel].RankName}]}) {
/echo \ayYou do not have the spell Mass Enchant Steel Scribed
/return
}
/if (${FindItemCount[=Large Brick of High Quality Ore]} >4) {
/echo \agFound \ay[\atLarge Brick of High Quality Ore\ay] \agto make \ay[\atEnchanted Steel\ay]
/call ManaCheck
/doevents
/casting "Mass Enchant Steel"
/delay 5s
/while (${Me.Casting.ID}) {
/delay 5
}
/delay 1s
/if (${Cursor.ID}) {
/echo \agYou created \ay[\at${Cursor.Name}\ay]
/delay 1
/autoinventory
}
/if (${FindItemCount[=Large Brick of High Quality Ore]} <5) {
/echo \ayOut of \ay[\atLarge Brick of High Quality Ore\ay] \ayno longer making \ay[\atEnchanted Steel\ay]
/return
}
/delay 1s
/goto :MainLoop17
/return
|------------------------------------------------------------------------------
| Enchanted Lrg. Brick of Mithril x5 - Mass Enchant Mithril
|------------------------------------------------------------------------------
Sub MainLoop18
:MainLoop18
/if (!${Me.Book[${Spell[Mass Enchant Mithril].RankName}]}) {
/echo \ayYou do not have the spell Mass Enchant Mithril Scribed
/return
}
/if (${FindItemCount[=Large Brick of Mithril]} >4) {
/echo \agFound \ay[\atLarge Brick of Mithril\ay] \agto make \ay[\atEnchanted Mithril\ay]
/call ManaCheck
/doevents
/casting "Mass Enchant Mithril"
/delay 5s
/while (${Me.Casting.ID}) {
/delay 5
}
/delay 1s
/if (${Cursor.ID}) {
/echo \agYou created \ay[\at${Cursor.Name}\ay]
/delay 1
/autoinventory
}
/if (${FindItemCount[=Large Brick of Mithril]} <5) {
/echo \ayOut of \ay[\atLarge Brick of Mithril\ay] \ayno longer making \ay[\atEnchanted Mithril\ay]
/return
}
/delay 1s
/goto :MainLoop18
/return
|------------------------------------------------------------------------------
| Enchanted Lrg. Brick of Brellium x5 - Mass Enchant Brellium
|------------------------------------------------------------------------------
Sub MainLoop19
:MainLoop19
/if (!${Me.Book[${Spell[Mass Enchant Brellium].RankName}]}) {
/echo \ayYou do not have the spell Mass Enchant Brellium Scribed
/return
}
/if (${FindItemCount[=Large Brick of Brellium]} >4) {
/echo \agFound \ay[\atLarge Brick of Brellium\ay] \agto make \ay[\atEnchanted Brellium\ay]
/call ManaCheck
/doevents
/casting "Mass Enchant Brellium"
/delay 5s
/while (${Me.Casting.ID}) {
/delay 5
}
/delay 1s
/if (${Cursor.ID}) {
/echo \agYou created \ay[\at${Cursor.Name}\ay]
/delay 1
/autoinventory
}
/if (${FindItemCount[=Large Brick of Brellium]} <5) {
/echo \ayOut of \ay[\atLarge Brick of Brellium\ay] \ayno longer making \ay[\atEnchanted Brellium\ay]
/return
}
/delay 1s
/goto :MainLoop19
/return
|------------------------------------------------------------------------------
| Enchanted Lrg. Brick of Adamantite x5 - Mass Enchant Adamantite
|------------------------------------------------------------------------------
Sub MainLoop20
:MainLoop20
/if (!${Me.Book[${Spell[Mass Enchant Adamantite].RankName}]}) {
/echo \ayYou do not have the spell Mass Enchant Adamantite Scribed
/return
}
/if (${FindItemCount[=Large Brick of Adamantite]} >4) {
/echo \agFound \ay[\atLarge Brick of Adamantite\ay] \agto make \ay[\atEnchanted Adamantite\ay]
/call ManaCheck
/doevents
/casting "Mass Enchant Adamantite"
/delay 5s
/while (${Me.Casting.ID}) {
/delay 5
}
/delay 1s
/if (${Cursor.ID}) {
/echo \agYou created \ay[\at${Cursor.Name}\ay]
/delay 1
/autoinventory
}
/if (${FindItemCount[=Large Brick of Adamantite]} <5) {
/echo \ayOut of \ay[\atLarge Brick of Adamantite\ay] \ayno longer making \ay[\atEnchanted Adamantite\ay]
/return
}
/delay 1s
/goto :MainLoop20
/return
|------------------------------------------------------------------------------
| Enchanted Alaran Metal x10 - Enchant Alaran Metal
|------------------------------------------------------------------------------
Sub MainLoop27
:MainLoop27
/if (!${Me.AltAbility[Enchant Alaran Metal (x10)]}) {
/echo \ayYou do not have the AA Enchant Alaran Metal (x10) Scribed
/return
}
/if (${FindItemCount[=Alaran Metal Bar]} >9) {
/echo \agFound \ay[\atAlaran Metal Bar\ay] \agto make \ay[\atEnchanted Alaran Metal x10\ay]
/call ManaCheck
/doevents
/alt activate 709
/delay 60s
/while (${Me.Casting.ID}) {
/delay 5
}
/delay 1s
/if (${Cursor.ID}) {
/echo \agYou created \ay[\at${Cursor.Name}\ay]
/delay 1
/autoinventory
}
/if (${FindItemCount[=Alaran Metal Bar]} <10) {
/echo \ayOut of \ay[\atAlaran Metal Bar\ay] \ayno longer making \ay[\atEnchanted Alaran Metal Bar\ay]
/return
}
/delay 1s
/goto :MainLoop27
/return
|------------------------------------------------------------------------------
| Enchanted Alaran Metal x1 - Enchant Alaran Metal
|------------------------------------------------------------------------------
Sub MainLoop28
:MainLoop28
/if (!${Me.AltAbility[Enchant Alaran Metal (x1)]}) {
/echo \ayYou do not have the AA Enchant Alaran Metal (x1) Scribed
/return
}
/if (${FindItemCount[=Alaran Metal Bar]} >0 && ${FindItemCount[=Alaran Metal Bar]} <10) {
/echo \agFound \ay[\atAlaran Metal Bar\ay] \agto make \ay[\atEnchanted Alaran Metal x1\ay]
/call ManaCheck
/doevents
/alt activate 708
/delay 10s
/while (${Me.Casting.ID}) {
/delay 5
}
/delay 1s
/if (${Cursor.ID}) {
/echo \agYou created \ay[\at${Cursor.Name}\ay]
/delay 1
/autoinventory
}
/if (${FindItemCount[=Alaran Metal Bar]} <1) {
/echo \ayOut of \ay[\atAlaran Metal Bar\ay] \ayno longer making \ay[\atEnchanted Alaran Metal Bar\ay]
/return
}
/delay 1s
/goto :MainLoop28
/return
|------------------------------------------------------------------------------
| Enchanted Celestial Platinum x10
|------------------------------------------------------------------------------
Sub MainLoop29
:MainLoop29
/if (!${Me.AltAbility[Enchant Celestial Platinum (x10)]}) {
/echo \ayYou do not have the AA Enchant Celestial Platinum (x10) Scribed
/return
}
/if (${FindItemCount[=Platinum Bar]} >9 && ${FindItemCount[=Primordial Dynastic Radiance]} >9) {
/echo \agFound \ay[\atPlatinum Bar & Primordial Dynastic Radiance\ay] \agto make \ay[\atEnchanted Celestial Platinum x10\ay]
/call ManaCheck
/doevents
/alt activate 3223
/delay 60s
/while (${Me.Casting.ID}) {
/delay 5
}
/delay 1s
/if (${Cursor.ID}) {
/echo \agYou created \ay[\at${Cursor.Name}\ay]
/delay 1
/autoinventory
}
/if (${FindItemCount[=Platinum Bar]} <10 || ${FindItemCount[=Primordial Dynastic Radiance]} <10) {
/echo \ayOut of \ay[\atPlatinum Bars or Primordial Dyanstic Radiance\ay] \ayno longer making \ay[\atEnchanted Celestial Platinum\ay]
/return
}
/delay 1s
/goto :MainLoop29
/return
|------------------------------------------------------------------------------
| Enchanted Celestial Platinum x1
|------------------------------------------------------------------------------
Sub MainLoop30
:MainLoop30
/if (!${Me.AltAbility[Enchant Celestial Platinum (x1)]}) {
/echo \ayYou do not have the AA Enchant Celestial Platinum (x1) Scribed
/return
}
/if (${FindItemCount[=Platinum Bar]} <10 && ${FindItemCount[=Platinum Bar]} >0 && ${FindItemCount[=Primordial Dynastic Radiance]} >0) {
/echo \agFound \ay[\atPlatinum Bar & Primordial Dynastic Radiance\ay] \agto make \ay[\atEnchanted Celestial Platinum x1\ay]
/call ManaCheck
/doevents
/alt activate 3222
/delay 10s
/while (${Me.Casting.ID}) {
/delay 5
}
/delay 1s
/if (${Cursor.ID}) {
/echo \agYou created \ay[\at${Cursor.Name}\ay]
/delay 1
/autoinventory
}
/if (${FindItemCount[=Platinum Bar]} <1 || ${FindItemCount[=Primordial Dynastic Radiance]} <1) {
/echo \ayOut of \ay[\atPlatinum Bars or Primordial Dyanstic Radiance\ay] \ayno longer making \ay[\atEnchanted Celestial Platinum\ay]
/return
}
/delay 1s
/goto :MainLoop30
/return
|------------------------------------------------------------------------------
| Enchanted Conflagrant Platinum x10 - Enchant Conflagrant Platinum
|------------------------------------------------------------------------------
Sub MainLoop31
:MainLoop31
/if (!${Me.AltAbility[Enchant Conflagrant Platinum (x10)]}) {
/echo \ayYou do not have the AA Enchant Conflagrant Platinum (x10) Scribed
/return
}
/if (${FindItemCount[=Conflagrant Platinum]} >9) {
/echo \agFound \ay[\atConflagrant Platinum\ay] \agto make \ay[\atEnchanted Conflagrant Platinum x10\ay]
/call ManaCheck
/doevents
/alt activate 3221
/delay 60s
/while (${Me.Casting.ID}) {
/delay 5
}
/delay 1s
/if (${Cursor.ID}) {
/echo \agYou created \ay[\at${Cursor.Name}\ay]
/delay 1
/autoinventory
}
/if (${FindItemCount[=Conflagrant Platinum]} <10) {
/echo \ayOut of \ay[\atConflagrant Platinum\ay] \ayno longer making \ay[\atEnchanted Conflagrant Platinum\ay]
/return
}
/delay 1s
/goto :MainLoop31
/return
|------------------------------------------------------------------------------
| Enchanted Conflagrant Platinum x1 - Enchant Conflagrant Platinum
|------------------------------------------------------------------------------
Sub MainLoop32
:MainLoop32
/if (!${Me.AltAbility[Enchant Conflagrant Platinum (x1)]}) {
/echo \ayYou do not have the AA Enchant Conflagrant Platinum (x1) Scribed
/return
}
/if (${FindItemCount[=Conflagrant Platinum]} >0 && ${FindItemCount[=Conflagrant Platinum]} <10) {
/echo \agFound \ay[\atConflagrant Platinum\ay] \agto make \ay[\atEnchanted Conflagrant Platinum x1\ay]
/call ManaCheck
/doevents
/alt activate 3220
/delay 10s
/while (${Me.Casting.ID}) {
/delay 5
}
/delay 1s
/if (${Cursor.ID}) {
/echo \agYou created \ay[\at${Cursor.Name}\ay]
/delay 1
/autoinventory
}
/if (${FindItemCount[=Conflagrant Platinum]} <1) {
/echo \ayOut of \ay[\atConflagrant Platinum\ay] \ayno longer making \ay[\atEnchanted Conflagrant Platinum\ay]
/return
}
/delay 1s
/goto :MainLoop32
/return
|------------------------------------------------------------------------------
| Enchanted Cosgrite Bar x10 - Enchant Cosgrite Bar
|------------------------------------------------------------------------------
Sub MainLoop33
:MainLoop33
/if (!${Me.AltAbility[Enchant Cosgrite (x10)]}) {
/echo \ayYou do not have the AA Enchant Cosgrite Bar (x10) Scribed
/return
}
/if (${FindItemCount[=Cosgrite Bar]} >9) {
/echo \agFound \ay[\atCosgrite Bar\ay] \agto make \ay[\atEnchanted Cosgrite Bar x10\ay]
/call ManaCheck
/doevents
/alt activate 3219
/delay 60s
/while (${Me.Casting.ID}) {
/delay 5
}
/delay 1s
/if (${Cursor.ID}) {
/echo \agYou created \ay[\at${Cursor.Name}\ay]
/delay 1
/autoinventory
}
/if (${FindItemCount[=Cosgrite Bar]} <10) {
/echo \ayOut of \ay[\atCosgrite Bar\ay] \ayno longer making \ay[\atEnchanted Cosgrite Bar\ay]
/return
}
/delay 1s
/goto :MainLoop33
/return
|------------------------------------------------------------------------------
| Enchanted Cosgrite Bar x1 - Enchant Cosgrite Bar
|------------------------------------------------------------------------------
Sub MainLoop34
:MainLoop34
/if (!${Me.AltAbility[Enchant Cosgrite (x1)]}) {
/echo \ayYou do not have the AA Enchant Cosgrite Bar (x1) Scribed
/return
}
/if (${FindItemCount[=Cosgrite Bar]} >0 && ${FindItemCount[=Cosgrite Bar]} <10) {
/echo \agFound \ay[\atCosgrite Bar\ay] \agto make \ay[\atEnchanted Cosgrite Bar x1\ay]
/call ManaCheck
/doevents
/alt activate 3218
/delay 10s
/while (${Me.Casting.ID}) {
/delay 5
}
/delay 1s
/if (${Cursor.ID}) {
/echo \agYou created \ay[\at${Cursor.Name}\ay]
/delay 1
/autoinventory
}
/if (${FindItemCount[=Cosgrite Bar]} <1) {
/echo \ayOut of \ay[\atCosgrite Bar\ay] \ayno longer making \ay[\atEnchanted Cosgrite Bar\ay]
/return
}
/delay 1s
/goto :MainLoop34
/return
|------------------------------------------------------------------------------
| Enchanted Dwerium Bar x10 - Enchant Dwerium Bar
|------------------------------------------------------------------------------
Sub MainLoop35
:MainLoop35
/if (!${Me.AltAbility[Enchant Dwerium (10)]}) {
/echo \ayYou do not have the AA Enchant Dwerium (10) Scribed
/return
}
/if (${FindItemCount[=Dwerium Bar]} >9) {
/echo \agFound \ay[\atDwerium Bar\ay] \agto make \ay[\atEnchanted Dwerium Bar x10\ay]
/call ManaCheck
/doevents
/alt activate 3207
/delay 60s
/while (${Me.Casting.ID}) {
/delay 5
}
/delay 1s
/if (${Cursor.ID}) {
/echo \agYou created \ay[\at${Cursor.Name}\ay]
/delay 1
/autoinventory
}
/if (${FindItemCount[=Dwerium Bar]} <10) {
/echo \ayOut of \ay[\atDwerium Bar\ay] \ayno longer making \ay[\atEnchanted Dwerium Bar\ay]
/return
}
/delay 1s
/goto :MainLoop35
/return
|------------------------------------------------------------------------------
| Enchanted Dwerium Bar x1 - Enchant Dwerium Bar
|------------------------------------------------------------------------------
Sub MainLoop36
:MainLoop36
/if (!${Me.AltAbility[Enchant Dwerium (x1)]}) {
/echo \ayYou do not have the AA Enchant Dwerium (x1) Scribed
/return
}
/if (${FindItemCount[=Dwerium Bar]} >0 && ${FindItemCount[=Dwerium Bar]} <10) {
/echo \agFound \ay[\atDwerium Bar\ay] \agto make \ay[\atEnchanted Dwerium Bar x1\ay]
/call ManaCheck
/doevents
/alt activate 3206
/delay 10s
/while (${Me.Casting.ID}) {
/delay 5
}
/delay 1s
/if (${Cursor.ID}) {
/echo \agYou created \ay[\at${Cursor.Name}\ay]
/delay 1
/autoinventory
}
/if (${FindItemCount[=Dwerium Bar]} <1) {
/echo \ayOut of \ay[\atDwerium Bar\ay] \ayno longer making \ay[\atEnchanted Dwerium Bar\ay]
/return
}
/delay 1s
/goto :MainLoop36
/return
|------------------------------------------------------------------------------
| Enchanted Feymetal Bar x10 - Enchant Feymetal Bar
|------------------------------------------------------------------------------
Sub MainLoop37
:MainLoop37
/if (!${Me.AltAbility[Enchant Feymetal (x10)]}) {
/echo \ayYou do not have the AA Enchant Feymetal (x10) Scribed
/return
}
/if (${FindItemCount[=Feymetal Bar]} >9) {
/echo \agFound \ay[\atFeymetal Bar\ay] \agto make \ay[\atEnchanted Feymetal Bar x10\ay]
/call ManaCheck
/doevents
/alt activate 755
/delay 60s
/while (${Me.Casting.ID}) {
/delay 5
}
/delay 1s
/if (${Cursor.ID}) {
/echo \agYou created \ay[\at${Cursor.Name}\ay]
/delay 1
/autoinventory
}
/if (${FindItemCount[=Feymetal Bar]} <10) {
/echo \ayOut of \ay[\atFeymetal Bar\ay] \ayno longer making \ay[\atEnchanted Feymetal Bar\ay]
/return
}
/delay 1s
/goto :MainLoop37
/return
|------------------------------------------------------------------------------
| Enchanted Feymetal Bar x1 - Enchant Feymetal Bar
|------------------------------------------------------------------------------
Sub MainLoop38
:MainLoop38
/if (!${Me.AltAbility[Enchant Feymetal (x1)]}) {
/echo \ayYou do not have the AA Enchant Feymetal (x1) Scribed
/return
}
/if (${FindItemCount[=Feymetal Bar]} >0 && ${FindItemCount[=Feymetal Bar]} <10) {
/echo \agFound \ay[\atFeymetal Bar\ay] \agto make \ay[\atEnchanted Feymetal Bar x1\ay]
/call ManaCheck
/doevents
/alt activate 754
/delay 10s
/while (${Me.Casting.ID}) {
/delay 5
}
/delay 1s
/if (${Cursor.ID}) {
/echo \agYou created \ay[\at${Cursor.Name}\ay]
/delay 1
/autoinventory
}
/if (${FindItemCount[=Feymetal Bar]} <1) {
/echo \ayOut of \ay[\atFeymetal Bar\ay] \ayno longer making \ay[\atEnchanted Feymetal Bar\ay]
/return
}
/delay 1s
/goto :MainLoop38
/return
|------------------------------------------------------------------------------
| Enchanted Palladium Bar x10 - Enchant Palladium Bar
|------------------------------------------------------------------------------
Sub MainLoop39
:MainLoop39
/if (!${Me.AltAbility[Enchant Palladium (x10)]}) {
/echo \ayYou do not have the AA Enchant Palladium (x10) Scribed
/return
}
/if (${FindItemCount[=Prismatic Palladium Bar]} >9) {
/echo \agFound \ay[\atPrismatic Palladium Bar\ay] \agto make \ay[\atEnchanted Prismatic Palladium Bar x10\ay]
/call ManaCheck
/doevents
/alt activate 3204
/delay 60s
/while (${Me.Casting.ID}) {
/delay 5
}
/delay 1s
/if (${Cursor.ID}) {
/echo \agYou created \ay[\at${Cursor.Name}\ay]
/delay 1
/autoinventory
}
/if (${FindItemCount[=Prismatic Palladium Bar]} <10) {
/echo \ayOut of \ay[\atPrismatic Palladium Bar\ay] \ayno longer making \ay[\atEnchanted Prismatic Palladium Bar\ay]
/return
}
/delay 1s
/goto :MainLoop39
/return
|------------------------------------------------------------------------------
| Enchanted Prismatic Palladium Bar x1 - Enchant Prismatic Palladium Bar
|------------------------------------------------------------------------------
Sub MainLoop40
:MainLoop40
/if (!${Me.AltAbility[Enchant Palladium (x1)]}) {
/echo \ayYou do not have the AA Enchant Palladium (x1) Scribed
/return
}
/if (${FindItemCount[=Prismatic Palladium Bar]} >0 && ${FindItemCount[=Prismatic Palladium Bar]} <10) {
/echo \agFound \ay[\atPrismatic Palladium Bar\ay] \agto make \ay[\atEnchanted Prismatic Palladium Bar x1\ay]
/call ManaCheck
/doevents
/alt activate 3208
/delay 10s
/while (${Me.Casting.ID}) {
/delay 5
}
/delay 1s
/if (${Cursor.ID}) {
/echo \agYou created \ay[\at${Cursor.Name}\ay]
/delay 1
/autoinventory
}
/if (${FindItemCount[=Prismatic Palladium Bar]} <1) {
/echo \ayOut of \ay[\atPrismatic Palladium Bar\ay] \ayno longer making \ay[\atEnchanted Prismatic Palladium Bar\ay]
/return
}
/delay 1s
/goto :MainLoop40
/return
|------------------------------------------------------------------------------
| Enchanted Planar Alloy x10 - Enchant Planar Alloy
|------------------------------------------------------------------------------
Sub MainLoop41
:MainLoop41
/if (!${Me.AltAbility[Enchant Planar Alloy (x10)]}) {
/echo \ayYou do not have the AA Enchant Planar Alloy (x10) Scribed
/return
}
/if (${FindItemCount[=Planar Alloy]} >9) {
/echo \agFound \ay[\atPlanar Alloy\ay] \agto make \ay[\atEnchanted Planar Alloy x10\ay]
/call ManaCheck
/doevents
/alt activate 1801
/delay 60s
/while (${Me.Casting.ID}) {
/delay 5
}
/delay 1s
/if (${Cursor.ID}) {
/echo \agYou created \ay[\at${Cursor.Name}\ay]
/delay 1
/autoinventory
}
/if (${FindItemCount[=Planar Alloy]} <10) {
/echo \ayOut of \ay[\atPlanar Alloy\ay] \ayno longer making \ay[\atEnchanted Planar Alloy\ay]
/return
}
/delay 1s
/goto :MainLoop41
/return
|------------------------------------------------------------------------------
| Enchanted Planar Alloy x1 - Enchant Planar Alloy
|------------------------------------------------------------------------------
Sub MainLoop42
:MainLoop42
/if (!${Me.AltAbility[Enchant Planar Alloy (x1)]}) {
/echo \ayYou do not have the AA Enchant Planar Alloy (x1) Scribed
/return
}
/if (${FindItemCount[=Planar Alloy]} >0 && ${FindItemCount[=Planar Alloy]} <10) {
/echo \agFound \ay[\atPlanar Alloy\ay] \agto make \ay[\atEnchanted Planar Alloy x1\ay]
/call ManaCheck
/doevents
/alt activate 1800
/delay 10s
/while (${Me.Casting.ID}) {
/delay 5
}
/delay 1s
/if (${Cursor.ID}) {
/echo \agYou created \ay[\at${Cursor.Name}\ay]
/delay 1
/autoinventory
}
/if (${FindItemCount[=Planar Alloy]} <1) {
/echo \ayOut of \ay[\atPlanar Alloy\ay] \ayno longer making \ay[\atEnchanted Planar Alloy\ay]
/return
}
/delay 1s
/goto :MainLoop42
/return
|------------------------------------------------------------------------------
| Enchanted Refined Restless Velium x10 - Enchant Refined Restless Velium
|------------------------------------------------------------------------------
Sub MainLoop43
:MainLoop43
/if (!${Me.AltAbility[Enchant Refined Restless Velium (x10)]}) {
/echo \ayYou do not have the AA Enchant Refined Restless Velium (x10) Scribed
/return
}
/if (${FindItemCount[=Refined Restless Velium]} >9) {
/echo \agFound \ay[\atRefined Restless Velium\ay] \agto make \ay[\atEnchanted Refined Restless Velium x10\ay]
/call ManaCheck
/doevents
/alt activate 3227
/delay 60s
/while (${Me.Casting.ID}) {
/delay 5
}
/delay 1s
/if (${Cursor.ID}) {
/echo \agYou created \ay[\at${Cursor.Name}\ay]
/delay 1
/autoinventory
}
/if (${FindItemCount[=Refined Restless Velium]} <10) {
/echo \ayOut of \ay[\atRefined Restless Velium\ay] \ayno longer making \ay[\atEnchanted Refined Restless Velium\ay]
/return
}
/delay 1s
/goto :MainLoop43
/return
|------------------------------------------------------------------------------
| Enchanted Refined Restless Velium x1 - Enchant Refined Restless Velium
|------------------------------------------------------------------------------
Sub MainLoop44
:MainLoop44
/if (!${Me.AltAbility[Enchant Refined Restless Velium (x1)]}) {
/echo \ayYou do not have the AA Enchant Refined Restless Velium (x1) Scribed
/return
}
/if (${FindItemCount[=Refined Restless Velium]} >0 && ${FindItemCount[=Refined Restless Velium]} <10) {
/echo \agFound \ay[\atRefined Restless Velium\ay] \agto make \ay[\atEnchanted Refined Restless Velium x1\ay]
/call ManaCheck
/doevents
/alt activate 3226
/delay 10s
/while (${Me.Casting.ID}) {
/delay 5
}
/delay 1s
/if (${Cursor.ID}) {
/echo \agYou created \ay[\at${Cursor.Name}\ay]
/delay 1
/autoinventory
}
/if (${FindItemCount[=Refined Restless Velium]} <1) {
/echo \ayOut of \ay[\atRefined Restless Velium\ay] \ayno longer making \ay[\atEnchanted Refined Restless Velium\ay]
/return
}
/delay 1s
/goto :MainLoop44
/return
|------------------------------------------------------------------------------
| Enchanted Refined Velium x10 - Enchant Refined Velium
|------------------------------------------------------------------------------
Sub MainLoop45
:MainLoop45
/if (!${Me.AltAbility[Enchant Refined Velium (x10)]}) {
/echo \ayYou do not have the AA Enchant Refined Velium (x10) Scribed
/return
}
/if (${FindItemCount[=Refined Velium]} >9) {
/echo \agFound \ay[\atRefined Velium\ay] \agto make \ay[\atEnchanted Refined Velium x10\ay]
/call ManaCheck
/doevents
/alt activate 3225
/delay 60s
/while (${Me.Casting.ID}) {
/delay 5
}
/delay 1s
/if (${Cursor.ID}) {
/echo \agYou created \ay[\at${Cursor.Name}\ay]
/delay 1
/autoinventory
}
/if (${FindItemCount[=Refined Velium]} <10) {
/echo \ayOut of \ay[\atRefined Velium\ay] \ayno longer making \ay[\atEnchanted Refined Velium\ay]
/return
}
/delay 1s
/goto :MainLoop45
/return
|------------------------------------------------------------------------------
| Enchanted Refined Velium x1 - Enchant Refined Velium
|------------------------------------------------------------------------------
Sub MainLoop46
:MainLoop46
/if (!${Me.AltAbility[Enchant Refined Velium (x1)]}) {
/echo \ayYou do not have the AA Enchant Refined Velium (x1) Scribed
/return
}
/if (${FindItemCount[=Refined Velium]} >0 && ${FindItemCount[=Refined Velium]} <10) {
/echo \agFound \ay[\atRefined Velium\ay] \agto make \ay[\atEnchanted Refined Velium x1\ay]
/call ManaCheck
/doevents
/alt activate 3224
/delay 10s
/while (${Me.Casting.ID}) {
/delay 5
}
/delay 1s
/if (${Cursor.ID}) {
/echo \agYou created \ay[\at${Cursor.Name}\ay]
/delay 1
/autoinventory
}
/if (${FindItemCount[=Refined Velium]} <1) {
/echo \ayOut of \ay[\atRefined Velium\ay] \ayno longer making \ay[\atEnchanted Refined Velium\ay]
/return
}
/delay 1s
/goto :MainLoop46
/return
|------------------------------------------------------------------------------
| Enchanted Temporite Bar x10 - Enchant Temporite Bar
|------------------------------------------------------------------------------
Sub MainLoop47
:MainLoop47
/if (!${Me.AltAbility[Enchant Temporite (x10)]}) {
/echo \ayYou do not have the AA Enchant Temporite (x10) Scribed
/return
}
/if (${FindItemCount[=Temporite Bar]} >9) {
/echo \agFound \ay[\atTemporite Bar\ay] \agto make \ay[\atEnchanted Temporite Bar x10\ay]
/call ManaCheck
/doevents
/alt activate 3210
/delay 60s
/while (${Me.Casting.ID}) {
/delay 5
}
/delay 1s
/if (${Cursor.ID}) {
/echo \agYou created \ay[\at${Cursor.Name}\ay]
/delay 1
/autoinventory
}
/if (${FindItemCount[=Temporite Bar]} <10) {
/echo \ayOut of \ay[\atTemporite Bar\ay] \ayno longer making \ay[\atEnchanted Temporite Bar\ay]
/return
}
/delay 1s
/goto :MainLoop47
/return
|------------------------------------------------------------------------------
| Enchanted Temporite Bar x1 - Enchant Temporite Bar
|------------------------------------------------------------------------------
Sub MainLoop48
:MainLoop48
/if (!${Me.AltAbility[Enchant Temporite (x1)]}) {
/echo \ayYou do not have the AA Enchant Temporite (x1) Scribed
/return
}
/if (${FindItemCount[=Temporite Bar]} >0 && ${FindItemCount[=Temporite Bar]} <10) {
/echo \agFound \ay[\atTemporite Bar\ay] \agto make \ay[\atEnchanted Temporite Bar x1\ay]
/call ManaCheck
/doevents
/alt activate 3209
/delay 10s
/while (${Me.Casting.ID}) {
/delay 5
}
/delay 1s
/if (${Cursor.ID}) {
/echo \agYou created \ay[\at${Cursor.Name}\ay]
/delay 1
/autoinventory
}
/if (${FindItemCount[=Temporite Bar]} <1) {
/echo \ayOut of \ay[\atTemporite Bar\ay] \ayno longer making \ay[\atEnchanted Temporite Bar\ay]
/return
}
/delay 1s
/goto :MainLoop48
/return
|------------------------------------------------------------------------------
| Enchanted Honed Bloodied Luclinite x10 - Enchant Honed Bloodied Luclinite
|------------------------------------------------------------------------------
Sub MainLoop49
:MainLoop49
/if (!${Me.AltAbility[Enchant Honed Bloodied Luclinite (x10)]}) {
/echo \ayYou do not have the AA Enchant Honed Bloodied Luclinite (x10) Scribed
/return
}
/if (${FindItemCount[=Honed Bloodied Luclinite]} >9) {
/echo \agFound \ay[\atHoned Bloodied Luclinite\ay] \agto make \ay[\atEnchanted Honed Bloodied Luclinite x10\ay]
/call ManaCheck
/doevents
/alt activate 3229
/delay 60s
/while (${Me.Casting.ID}) {
/delay 5
}
/delay 1s
/if (${Cursor.ID}) {
/echo \agYou created \ay[\at${Cursor.Name}\ay]
/delay 1
/autoinventory
}
/if (${FindItemCount[=Honed Bloodied Luclinite]} <10) {
/echo \ayOut of \ay[\atHoned Bloodied Luclinite\ay] \ayno longer making \ay[\atEnchanted Honed Bloodied Luclinite\ay]
/return
}
/delay 1s
/goto :MainLoop49
/return
|------------------------------------------------------------------------------
| Enchanted Honed Bloodied Luclinite x1 - Enchant Honed Bloodied Luclinite
|------------------------------------------------------------------------------
Sub MainLoop50
:MainLoop50
/if (!${Me.AltAbility[Enchant Honed Bloodied Luclinite (x1)]}) {
/echo \ayYou do not have the AA Enchant Honed Bloodied Luclinite (x1) Scribed
/return
}
/if (${FindItemCount[=Honed Bloodied Luclinite]} >0 && ${FindItemCount[=Honed Bloodied Luclinite]} <10) {
/echo \agFound \ay[\atHoned Bloodied Luclinite\ay] \agto make \ay[\atEnchanted Honed Bloodied Luclinite x1\ay]
/call ManaCheck
/doevents
/alt activate 3228
/delay 10s
/while (${Me.Casting.ID}) {
/delay 5
}
/delay 1s
/if (${Cursor.ID}) {
/echo \agYou created \ay[\at${Cursor.Name}\ay]
/delay 1
/autoinventory
}
/if (${FindItemCount[=Honed Bloodied Luclinite]} <1) {
/echo \ayOut of \ay[\atHoned Bloodied Luclinite\ay] \ayno longer making \ay[\atEnchanted Honed Bloodied Luclinite\ay]
/return
}
/delay 1s
/goto :MainLoop50
/return
|------------------------------------------------------------------------------
| Enchanted Honed Spiritual Luclinite x10 - Enchant Honed Spiritual Luclinite
|------------------------------------------------------------------------------
Sub MainLoop51
:MainLoop51
/if (!${Me.AltAbility[Enchant Honed Bloodied Luclinite (x10)]}) {
/echo \ayYou do not have the AA Enchant Honed Bloodied Luclinite (x10) Scribed
/return
}
/if (${FindItemCount[=Honed Bloodied Luclinite]} >9) {
/echo \agFound \ay[\atHoned Bloodied Luclinite\ay] \agto make \ay[\atEnchanted Honed Bloodied Luclinite x10\ay]
/call ManaCheck
/doevents
/alt activate 3229
/delay 60s
/while (${Me.Casting.ID}) {
/delay 5
}
/delay 1s
/if (${Cursor.ID}) {
/echo \agYou created \ay[\at${Cursor.Name}\ay]
/delay 1
/autoinventory
}
/if (${FindItemCount[=Honed Bloodied Luclinite]} <10) {
/echo \ayOut of \ay[\atHoned Bloodied Luclinite\ay] \ayno longer making \ay[\atEnchanted Honed Bloodied Luclinite\ay]
/return
}
/delay 1s
/goto :MainLoop51
/return
|------------------------------------------------------------------------------
| Enchanted Honed Spiritual Luclinite x10 - Enchant Honed Spiritual Luclinite
|------------------------------------------------------------------------------
Sub MainLoop52
:MainLoop52
/if (!${Me.AltAbility[Enchant Honed Bloodied Luclinite (x1)]}) {
/echo \ayYou do not have the AA Enchant Honed Bloodied Luclinite (x1) Scribed
/return
}
/if (${FindItemCount[=Honed Bloodied Luclinite]} >0 && ${FindItemCount[=Honed Bloodied Luclinite]} <10) {
/echo \agFound \ay[\atHoned Bloodied Luclinite\ay] \agto make \ay[\atEnchanted Honed Bloodied Luclinite x1\ay]
/call ManaCheck
/doevents
/alt activate 3228
/delay 10s
/while (${Me.Casting.ID}) {
/delay 5
}
/delay 1s
/if (${Cursor.ID}) {
/echo \agYou created \ay[\at${Cursor.Name}\ay]
/delay 1
/autoinventory
}
/if (${FindItemCount[=Honed Bloodied Luclinite]} <1) {
/echo \ayOut of \ay[\atHoned Bloodied Luclinite\ay] \ayno longer making \ay[\atEnchanted Honed Bloodied Luclinite\ay]
/return
}
/delay 1s
/goto :MainLoop52
/return
|------------------------------------------------------------------------------
| Sub ManaCheck
|------------------------------------------------------------------------------
Sub ManaCheck
/if (${Me.PctMana} <10) {
/echo \ayLow on Mana. Medding for a minute.
/sit
/delay 60s
/echo \agMana is good, getting back to work!
}
/return
|------------------------------------------------------------------------------
| Sub Rest
|------------------------------------------------------------------------------
Sub Event_Rest
/if (${Me.PctMana} <50) {
/echo \ayLow on Mana. Medding for a minute.
/sit
/delay 60s
/echo \agMana is good, getting back to work!
}
/return
|------------------------------------------------------------------------------
| Sub Stand
|------------------------------------------------------------------------------
Sub Event_Stand
/if (${Me.PctMana} >50) {
/echo \ayStanding to cast a spell.
/stand
/echo \agMana is good, getting back to work!
}
/return[/CODE]
