void main()
{
object oPC = GetPCSpeaker();
effect eVis = EffectVisualEffect(VFX_DUR_IOUNSTONE_RED);
float fDuration = IntToFloat(75 + Random(46));
TakeGoldFromCreature(10000, oPC, TRUE);
SetLocalString(oPC, "FV_SHOP_ACCESS", "FV_VIRGINBLOOD");
ApplyEffectToObject(DURATION_TYPE_TEMPORARY, eVis, oPC, fDuration);
DelayCommand(fDuration, DeleteLocalString(oPC, "FV_SHOP_ACCESS"));
}