Wait4Rez.iss 2.3

[echoism]

Based this on A_Druid_00's Wait4Rez for mq2
I took out the consents, since those can be auto-set.

Code: Select all

;Wait4rez.iss v2.2
;Translated for ISXEQ by echoism
;based on A_Druid_00's Wait4Rez.inc
#if ${Script.Filename.Equal[wait4rez]}
function main()
{
	call Wait4Rez()	
}
#endif

function Wait4Rez()
{
	echo Awaiting rez: auto-accepting, and looting my corpse
	while !${Window[ConfirmationDialogBox].Open}
		WaitFrame
	Window[ConfirmationDialogBox].Child[Yes_Button]:LeftMouseUp
	while !${Spawn[corpse,${Me.Name}].ID}
		WaitFrame
	while ${Target.CleanName.NotEqual[${Me}'s corpse]}
		Target corpse ${Me.Name}
	while ${Me.Spawn.State.NotEqual[BIND]}
	{
		if (${Target.Distance}>20) 
			EQExecute /corpse
		Wait 50 ${Target.Distance}<20
		if ${Target.Distance}>100
			return
		EQExecute /loot
		Wait 50 ${Me.Spawn.State.Equal[BIND]}
	}
	DeclareVariable loottotal int local
	while ${Corpse.Items}
	{
		loottotal:Set[${Corpse.Items}]
		Wait 10 ${loottotal}!=${Corpse.Items}
	}
	DeclareVariable i int local 0
	while ${i:Inc} <= ${loottotal}
	{
		while ${Corpse.Item[${i}].ID}
		{
			EQItemNotify loot${i} rightmouseup
			Wait 100 !${Corpse.Item[${i}].ID}
		}
	}
	Window[LootWnd].Child[DoneButton]:LeftMouseUp
}

[Kroak]

This sits in a loop and never loots. Haven't died enough to really fix it, but I believe it's a problem with a while loop. The loop doesn't loot anything, so the ${Corpse.Items} stays positive. Haven't tried it without the loop yet, but I believe in the original, there was something about waiting for ${Corpse.Items} to populate. Something like this might work.
Also had problems targeting, and looting corpse.

Code: Select all

;Wait4rez.iss v2.2 
;Translated for ISXEQ by echoism 
;based on A_Druid_00's Wait4Rez.inc 
#if ${Script.Filename.Equal[wait4rez]} 
function main() 
{ 
   call Wait4Rez()    
} 
#endif 

function Wait4Rez() 
{ 
   echo Awaiting rez: auto-accepting, and looting my corpse 
   while !${Window[ConfirmationDialogBox].Open} 
      WaitFrame 
   Window[ConfirmationDialogBox].Child[Yes_Button]:LeftMouseUp 
   while !${Spawn[corpse,${Me.Name}].ID} 
      WaitFrame 
   while ${Target.CleanName.NotEqual[${Me}'s corpse]} 
      [color=red]Spawn[corpse,${Me.Name}]:Target[/color]
   while ${Me.Spawn.State.NotEqual[BIND]} 
   { 
      if (${Target.Distance}>20) 
         EQExecute /corpse 
      Wait 50 ${Target.Distance}<20 
      if ${Target.Distance}>100 
         return 
      EQExecute /loot 
      Wait 50 ${Me.Spawn.State.Equal[BIND]} 
   } 
   DeclareVariable loottotal int local 
	while [color=red]${LootTotal}<[/color]${Corpse.Items}
	{
		loottotal:Set[${Corpse.Items}]
		Wait 10 ${loottotal}!=${Corpse.Items}
	}
   DeclareVariable i int local 0 
   while ${i:Inc} <= ${loottotal} 
   { 
      while ${Corpse.Item[${i}].ID} 
      { 
         EQItemNotify loot${i} rightmouseup 
         Wait 100 !${Corpse.Item[${i}].ID} 
      } 
   } 
   Window[LootWnd].Child[DoneButton]:LeftMouseUp 
}

[iluvseq]

Code: Select all

   while ${Target.CleanName.NotEqual[${Me}'s corpse]}
      Spawn[corpse,${Me.Name}]:Target 

This doesn't work.

Nor does:

Code: Select all

   while ${Target.CleanName.NotEqual[${Me}'s corpse]}
      Target corpse ${Me.Name}

Both just fall through as though the ${Target.CleanName} check succeeds.

I'm pretty sure this is because ${Target} is NULL when nothing is targetted, so ${Target.CleanName.NotEqual[]} returns NULL when nothing is targetted.

[Drumstix42]

I don't use ISXEQ, but try: Target mycorpse

[bardomatic]

try this one, it's a little more flexable in the order things are done in, will mem spellset named cr if it exists.

Code: Select all

objectdef scripttimer
{ 
	variable uint EndTime 
	method Set(uint Milliseconds) 
	{ 
		EndTime:Set[${Milliseconds}+${MacroQuest.Running}] 
	} 
	member:uint TimeLeft()
	{ 
		if ${MacroQuest.Running}>=${EndTime} 
			return 0 
		return ${Math.Calc[${EndTime}-${MacroQuest.Running}]} 
	}
	member:uint ToText()
	{ 
		if ${MacroQuest.Running}>=${EndTime} 
			return 0 
		return ${Math.Calc[(${EndTime}-${MacroQuest.Running})/1000].Int} 
	}
} 

variable bool haveacorpse=FALSE
variable scripttimer corpsetimer
variable int i

function main()
{

	echo Awaiting rez: auto-accepting, and looting my corpse
	AddTrigger countingcorpse "You have given @p1@ permission to drag your corpse in @p2@."
	EQExecute /consent ${Me.CleanName}${Me.CleanName}
	timedcommand 25 EQExecute /deny ${Me.CleanName}${Me.CleanName}
	corpsetimer:Set[10000]
	while !${haveacorpse} && ${corpsetimer}
	{
		if ${QueuedCommands}
			ExecuteQueued
		else
			WaitFrame
	}

	while 1
	{
		if !${haveacorpse}
		{
			break
		}
		if !${Me.Gem[1](exists)} && !${Window[LootWnd]}
		{
			EQExecute /memspellset cr
			wait 300 ${Me.Gem[9](exists)}
		}
		if ${Window[ConfirmationDialogBox].Open} && !${Me.Buff[1].Name.Find[Resurrection]}
		{
			Window[ConfirmationDialogBox].Child[Yes_Button]:LeftMouseUp
		}
		if ${Spawn[corpse,${Me.Name}].ID} && ${Spawn[corpse,${Me.Name}].Distance}<100
		{
			Target "${Me}'s corpse"
			wait 50  ${Target.CleanName.Equal[${Me}'s corpse]}
		}
		if ${Target.CleanName.Equal[${Me}'s corpse]} && ${Spawn[corpse,${Me.Name}].Distance}>9
		{
			EQExecute /corpse
			wait 50 ${Spawn[corpse,${Me.Name}].Distance}>9
		}

		if ${Target.CleanName.Equal[${Me}'s corpse]} && ${Spawn[corpse,${Me.Name}].Distance}<10
		{
			EQExecute /loot
			wait 50 ${Window[LootWnd]}
		}

		if ${Window[LootWnd]}
		{
			wait 50 ${Window[LootWnd].Child[LW_LootSlot0].Tooltip.Length}>0
			for (i:Set[0] ; ${i}<31 ; i:Inc)
			{
				if ${Window[LootWnd].Child[LW_LootSlot${i}].Tooltip.Length}>0
				{
					Window[LootWnd].Child[LW_LootSlot${i}]:RightMouseUp
					wait 30 ${Window[LootWnd].Child[LW_LootSlot${i}].Tooltip.Length}==0
				}
			}
			Window[LootWnd].Child[DoneButton]:LeftMouseUp
			break
		}
		if ${QueuedCommands}
			ExecuteQueued
		else
			WaitFrame
	}
}

function countingcorpse(string Line,... params)
{
	haveacorpse:Set[TRUE]
}

[4xxx]

Tried to get the above working, but I am receiving an error "No such 'int' member 'Tooltip'" in a loop and it fails to loot anything.

[FrankJScott]

In reply to the person talking about rubber mulch safety surfacing, safe swing sets, major travel websites, toto 6d past result, future golf major sites, win lose approach conflict resolution, I highly recommend this conversational tone on toto advice or major site of digestion and absorption, playsafe rubber flooring, win win or lose lose, rubber playground equipment, sport toto result, magnum sport toto, alongside all this i loved this about toto forum alongside all win lose approach conflict resolution, rubber covering for playground, used playground flooring, playground foam padding, sport 4d singapore, playground safe rubber mulch, not to mention this advice on toto advice which is as good as surfacing playground, mls soccer predictions tonight, win win win lose, playground warning, sport toto 6d result, rubber mulch safety 2020, . Also, have a look at this here are the findings for toto link and don't forget playset rubber flooring, material for under playground, playground protection, playing safely in the playground, major league baseball spring training sites, toto official website, alongside all this extra resources on toto blog as well as sports toto check winning, playground foam surface, john andre hanging site, playground matting, rubber outdoor playground flooring, steve lukather website, on top of recommended reading on toto advice which is also worth a look as well as toto website, playground matting, sports toto 6d, safe swing sets, rubber foam for playgrounds, rubber play flooring, also. I also suggest this my sources for toto url as well as soccer stream mls, astm f1148, outdoor playground soft flooring, playground warning, safe play surfaces, safe outdoor play equipment, on top of this my explanation for toto tips as well as major job search engines, playground covering rubber, playground safe mulch, major review sites, outdoor playground floor, outdoor playground soft flooring, and don't forget i was reading this about toto details on top of major travel websites, major social media outlets, sport toto singapore 4d, inspection of playground equipment, major job search sites, playground surfaces, which is also great. Finally, have a look at this from this source for toto url with outdoor foam padding for playground, major news sites, major review sites, non toxic playground surface, playground flooring material, outdoor playground safety, for good measure. Check more @ Additional Resources For Top Mastiff Breed Info a89a61d

[xyilla]

Гром

[xyilla]

арти

[xyilla]

S60-

[xyilla]

Маль

[xyilla]

Geor

[xyilla]

Char

[xyilla]

Тубл

[xyilla]

Tesc