[Supreme]

#include spell_routines.inc

function main(string CastMe, int MyCount, string SummonedItem)
{

EQExecute /memspellset Summon
wait 3000 ${Me.SpellReady[Dimensional Pocket]}
call Summon "${CastMe}" ${MyCount} "${SummonedItem}"
speak Done summoning items
if !${Me.Sitting}
EQExecute /sit
echo END Bag script

}

function Summon(string CastMe, int MyCount, string SummonedItem)
{

echo Spellname: "${CastMe}"
echo Number: ${MyCount}
echo What is summoned: "${SummonedItem}"
echo Summon count is ${FindItemCount[="${SummonedItem}"]}
do
{
wait ${Math.Rand[15]:Inc[5]}

if ${Me.SpellReady["${CastMe}"]} && ${Me.PctMana}>20
{
echo summoning ${SummonedItem}
call Cast "${CastMe}"
if ${Cursor(exists)}
{
EQExecute /autoinventory
EQExecute /sit
echo waiting for spell ready
wait 20 !${Cursor.ID}
wait 9999 ${Me.SpellReady["${CastMe}"]}
echo Summon count is ${FindItemCount["=${SummonedItem}"]}
}
}
else
{
echo resting for mana
if !${Me.Sitting}
EQExecute /sit
wait 9999 ${Me.PctMana}==100
echo done resting for mana
}
}
while (${FindItemCount["=${SummonedItem}"]}<${MyCount})
}

So POWAH!