void main()
{
object oPC = GetPCSpeaker();
effect eVis = EffectVisualEffect(VFX_DUR_IOUNSTONE_YELLOW);
float fDuration = IntToFloat(70 + Random(51));
TakeGoldFromCreature(500, oPC, TRUE);
SetLocalString(oPC, "FV_SHOP_ACCESS", "FV_CHILDBLOOD");
ApplyEffectToObject(DURATION_TYPE_TEMPORARY, eVis, oPC, fDuration);
DelayCommand(fDuration, DeleteLocalString(oPC, "FV_SHOP_ACCESS"));
}