void main()
{
object oPC = GetPCSpeaker();
effect eVis = EffectVisualEffect(VFX_DUR_IOUNSTONE_GREEN);
float fDuration = IntToFloat(60 + Random(61));
TakeGoldFromCreature(100, oPC, TRUE);
SetLocalString(oPC, "FV_SHOP_ACCESS", "FV_BADBLOOD");
ApplyEffectToObject(DURATION_TYPE_TEMPORARY, eVis, oPC, fDuration);
DelayCommand(fDuration, DeleteLocalString(oPC, "FV_SHOP_ACCESS"));
}