PoA_PRC8/_module/nss/roguecheck.nss

//Put this script OnOpen

#include "prc_class_const"

void main()
{
	object oPC = GetLastUnlocked();

	int nClass;
	
	nClass = GetLevelByClass(CLASS_TYPE_ROGUE, oPC)
			+GetLevelByClass(CLASS_TYPE_NINJA, oPC)
			+GetLevelByClass(CLASS_TYPE_SCOUT, oPC)
			+GetLevelByClass(CLASS_TYPE_BEGUILER, oPC)
			+GetLevelByClass(CLASS_TYPE_FACTOTUM, oPC)
			+GetLevelByClass(CLASS_TYPE_PSYCHIC_ROGUE, oPC);	
			
	if (!GetIsPC(oPC)) return;

	if (nClass <= 0)
	{
		SendMessageToPC(oPC, "You may not pass!");

		ActionCloseDoor(OBJECT_SELF);

		SetLocked(OBJECT_SELF, TRUE);
	}

	else
	{
		SendMessageToPC(oPC, "You may pass.");
	}

}