MacroQuest64

Posted: **Mon Jun 26, 2006 9:15 am**

This script will allow you to summon anything your toon is capable of summoning, with some modifications. If it is in RED then you'll have to change it for your purposes and setups.
Requires the use of spell_routines.inc version 2.5.0
(I'll add comments later)

Code: Select all

#include spell_routines.inc

function main()
{
;you can comment this out entirely
;just remember to have your spell up before starting.
    [color=red]EQExecute /memspellset Summon[/color]

    wait 3000 ${Me.SpellReady[[color=red]Dimensional Pocket[/color]]}
    call SummonIt
    if !${Me.Sitting}
    EQExecute /sit
    echo END Bag script

}

function SummonIt()
{
	do
	{
		wait ${Math.Rand[15]:Inc[5]}

		echo [color=red]bag[/color] count is ${FindItemCount[=[color=red]Dimensional Pocket[/color]]}
		if ${Me.SpellReady[[color=red]Dimensional Pocket][/color]} && ${Me.PctMana}>[color=red]20[/color]
		{
			echo summoning bag
			call Cast "[color=red]Dimensional Pocket[/color]"
			if ${Cursor(exists)}
			{
				EQExecute /autoinventory
				EQExecute /sit
				echo waiting for spell ready
				wait 20 !${Cursor.ID}
				wait ${Math.Rand[20]:Inc[[color=red]65[/color]]} ${Me.SpellReady[[color=red]Dimensional Pocket[/color]]}
			}
		}
          else
		{
		echo resting for mana
		if !${Me.Sitting}
		EQExecute /sit
		wait 9999 ${Me.PctMana}==100
		echo done resting for mana
		}
	}
	while (${FindItemCount[=[color=red]Dimensional Pocket[/color]]}<[color=red]6[/color])
}