Sub CheckForDead
  /declare corpseID int local
  /declare rezIndex int local
  /if (${SpawnCount[corpse radius 100]}) {
    /for rezIndex 1 to ${SpawnCount[pc corpse radius 100]}
      /varset corpseID ${NearestSpawn[${rezIndex},pc corpse radius 100].ID}
	  /if (${Spawn[${corpseID}].Deity.ID} && !${rezTimer${corpseID}}) {
        /call AddToList rezList ${corpseID}
	    /if ( ${Macro.Return.Equal[1]} ) {
	      /echo New corpse detected! >> ${Spawn[${corpseID}].DisplayName} <<
	    }
      }
    /next rezIndex
  }
/return

Sub RezDead
  /declare tempID string local
  /declare i int local
  /if ( ${rezList.Find[[]} ) {
    /if ( ${rezList.Find[[]}>1 ) /varset rezList ${rezList.Right[-${Math.Calc[${rezList.Find[[]}-1]}]}
	/for i 1 to ${rezList.Count[[]}
	  /varset tempID ${rezList.Arg[${i},[].Left[-1]}
	  /if (${rezTimer${tempID}} > 1) {
	    /echo ${rezTimer${tempID}} seconds left on ${Spawn[${tempID}].Name} timer
		/next i
	  }
      /if (${Me.AltAbility[Blessing of Resurrection]} && ${Me.AltAbilityReady[Blessing of Resurrection]}) {
	    /if ( !${Spawn[${tempID}].Type.Equal[corpse]} ) {
	      /call DeleteFromList rezList ${tempID}
        }
        /squelch /target id ${tempID}
        /delay 1s ${Target.ID}==${tempID}
        /corpse
        /echo I am attempting to resurrect ${Target.Name} in my radius
		/if (${Defined[rezTimer${tempID}]} && ${rezTimer${tempID}} == 0) {
	      /varset rezTimer${tempID} 600
	    } else {
          /declare rezTimer${tempID} timer outer 600
		}
        /call Cast "Blessing of Resurrection" alt 10s
		/call DeleteFromList rezList ${tempID}
      }
	/next i
  }
/return