void main()
{
object oPC = GetPCSpeaker();
effect eVis = EffectVisualEffect(VFX_DUR_IOUNSTONE_BLUE);
float fDuration = IntToFloat(65 + Random(56));
TakeGoldFromCreature(200, oPC, TRUE);
SetLocalString(oPC, "FV_SHOP_ACCESS", "FV_NORMALBLOOD");
ApplyEffectToObject(DURATION_TYPE_TEMPORARY, eVis, oPC, fDuration);
DelayCommand(fDuration, DeleteLocalString(oPC, "FV_SHOP_ACCESS"));
}