ZOMBIE_MAIN:
	put stow mace
	put stow shield
	pause .5
	if matchre("$roomobjs", "(\S+) ((which|that) appears dead|\(dead\))") then
	{
		setvar perf $1
		put prep cfb 13
		put perform preserve on %perf
		pause 4
		put perform arise on %perf
		pause 10
		put cast
		put get mace
		pause .5
		put command zombie give
		pause 3
		put get shield from pack
		put command zombie give
		pause 3
		put command zombie stance offensive
		pause 3
		put command zombie behavior aggressive
		pause 3
		put command zombie special
		pause 3
	}
ZOMBIE_HEAL:
	put prep nr
	pause 10
	put perform cut
	pause 3
	put harn 3
	pause 3
	match ZOMBIE_HEAL_DONE The reconstruction has been completed
	matchwait 3

MANA_CHECK:
	if ($mana < 80) then goto LOW_POWER
	else goto ZOMBIE_HEAL

LOW_POWER:
	pause 10
	goto MANA_CHECK

ZOMBIE_HEAL_DONE:
exit