void main()
{
    object oSecretObject = GetObjectByTag("ot_BoulderWithSecret");
    location lSpawn = GetLocation(GetObjectByTag("JHR_WP_CAVEANIMAL"));
    SetLocalInt(oSecretObject, "nStateDiscovered", 1);
    CreateObject(OBJECT_TYPE_CREATURE  , "bearblck001", lSpawn);
    SetMapPinEnabled(GetObjectByTag("JHR_MN_CAVE1"), TRUE);
}
