[provocating]

It was not too bad, this did it.

	    
    	            my @clientlist = $entity_list->GetClientList();
	            foreach $ent (@clientlist)
	            {
	                $ent->CastSpell(2570, $ent);
			    }
		    my @npclist = $entity_list->GetNPCList();
	            foreach $ent (@npclist)
	            {
	                    $ent->CastSpell(2570, $ent);
	            }

The only downside is that it looks like they are casting it themselves, which they are. This is the only way I figured for it to work. If you think of any other way let me know.