MacroQuest64

Posted: **Mon Jun 26, 2006 7:28 am**

This script works partially, but not quite properly. I would appriciate it if someone could tell me where I've goofed up. It has to be something dealing with the else statement in the baggage function.

In this version it will summon as many bags as my mana allows, and then it will end.

Code: Select all

#include spell_routines.inc

function main()
{
    EQExecute /memspellset Summon
    wait 3000 ${Me.SpellReady[Dimensional Pocket]}
    call Baggage
    if !${Me.Sitting}
    EQExecute /sit
    echo END Bag script

}

function Baggage(int BagCount=1)
{
	do
	{
		wait ${Math.Rand[15]:Inc[5]}

		echo ${Me.SpellReady[Dimensional Pocket]} && ${Me.PctMana}>5
		if ${Me.SpellReady[Dimensional Pocket]} && ${Me.PctMana}>5
		{
			echo summoning bag
			call Cast "Dimensional Pocket"
			if ${Cursor(exists)}
			{
				EQExecute /autoinventory
				EQExecute /sit
				wait 20 !${Cursor.ID}
                wait 9999 ${Me.SpellReady[Dimensional Pocket]}
			}
		}
		else
		{
			echo resting for mana
			if !${Me.Sitting}
			EQExecute /sit
			wait 3000 ${Me.PctMana}==100
		}
	}
	while (${BagCount:Inc}<=6)
}

In this version it casts one time and then starts meditating to full.

Code: Select all

#include spell_routines.inc

function main()
{
    EQExecute /memspellset Summon
    wait 3000 ${Me.SpellReady[Dimensional Pocket]}
    call Baggage
    if !${Me.Sitting}
    EQExecute /sit
    echo END Bag script

}

function Baggage(int BagCount=1)
{
	do
	{
		wait ${Math.Rand[15]:Inc[5]}

		echo ${Me.SpellReady[Dimensional Pocket]} && ${Me.PctMana}>5
		if ${Me.SpellReady[Dimensional Pocket]} && ${Me.PctMana}>5
		{
			echo summoning bag
			call Cast "Dimensional Pocket"
			if ${Cursor(exists)}
			{
				EQExecute /autoinventory
				EQExecute /sit
				wait 20 !${Cursor.ID}
                wait 9999 ${Me.SpellReady[Dimensional Pocket]}
			}
		} else {
			echo resting for mana
			if !${Me.Sitting}
			EQExecute /sit
			wait 3000 ${Me.PctMana}==100
		}
	}
	while (${BagCount:Inc}<=6)
}

Posted: **Mon Jun 26, 2006 8:28 am**

Ok, nearly got it working...

Code: Select all

#include spell_routines.inc

function main()
{
    EQExecute /memspellset Summon
    wait 3000 ${Me.SpellReady[Dimensional Pocket]}
    call Baggage
    speak Done summoning bags
    if !${Me.Sitting}
	EQExecute /sit
    echo END Bag script

}

function Baggage(int BagCount=1)
{
	do
	{
		wait ${Math.Rand[15]:Inc[5]}

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

It has one problem I'm trying to figure out, and that is resetting the count by -1 on fizzle and insufficient mana, otherwise it incriments and ends up not casting enough of them.

The other possibility is to skip a variable counter and count number of bags. But that is something else that I need to learn.

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

This is now fully functional and working. It can be modified for summoning anything up to a certain amount. You'll find the working version in the release scripts thread here.