[Asylum]

Update: perhaps?

sub EVENT_SPAWN {
	$npc->TempName("");
	quest::settimer("armor", 30);
}

sub EVENT_TIMER {
	if ($timer eq "armor") {
		my @clientlist = $entity_list->GetClientList();
		my @slotlist = (2,7,9,10,12,17,18,19);
		my @itemlist = (0000,0000,0000,0000,0000,0000,0000,0000);
		foreach $ent (@clientlist) {
			foreach $slot (@slotlist) {
				if (plugin::check_hasitemequipped($ent, $slot, $itemlist[$a])) { #usage plugin::check_hasitemequipped($client, slotid, itemid)
					$a++;
					$ent->Message(315, "Your armor protects you from harm.");
				}
				else {
					my $eid = $ent->GetID(); #Get this client's Entity_ID
					$ent->CastSpell(7026,$eid); #casts Aura of Crimson Mists IV
					my $h_ent_name = $ent->GetCleanName();
					quest::ze(4, "$h_ent_name suffers in the throes of anguish.");
				}
			}
		}
	}
}