//Put this script OnEnter

void main()
{

object oPC = GetEnteringObject();
object oTarget = GetObjectByTag("RA_PLC_BOULDER01");
object oSpawn;
location lTarget;

if (!GetIsPC(oPC)) return;

int DoOnce = GetLocalInt(oPC, GetTag(OBJECT_SELF));

if (DoOnce==TRUE) return;

SetLocalInt(oPC, GetTag(OBJECT_SELF), TRUE);


if (GetIsSkillSuccessful(oPC, SKILL_SEARCH, 30))
    {
        if (!GetIsObjectValid(oTarget)) return;
        DelayCommand(0.1f, DestroyObject(oTarget, 0.0));

        oTarget = GetWaypointByTag("RA_PLC_BOULDER01");
        lTarget = GetLocation(oTarget);
        oSpawn = CreateObject(OBJECT_TYPE_PLACEABLE, "ra_hiddencave001", lTarget);
        SendMessageToPC(oPC, "You have discovered an illusion shrouded door.");
        DestroyObject(oSpawn, 180.0f);
    }
}