effect eEffect;
object oTarget;

//Created by Guile 3/12/07
//Put this script OnUsed
#include "nw_i0_tool"
void main()
{

object oPC = GetLastUsedBy();

if (!GetIsPC(oPC)) return;

int DoOnce = GetLocalInt(oPC, GetTag(OBJECT_SELF));

if (DoOnce==TRUE) return;

SetLocalInt(oPC, GetTag(OBJECT_SELF), TRUE);

if (GetGold(oPC) >= 90000)
   {
   AssignCommand(oPC, TakeGoldFromCreature(99999, oPC, TRUE));

   oTarget = oPC;

   eEffect = EffectSpellResistanceIncrease(80);

   eEffect = SupernaturalEffect(eEffect);

   ApplyEffectToObject(DURATION_TYPE_TEMPORARY, eEffect, oTarget, 900.0f);

   eEffect = EffectConcealment(70);

   eEffect = SupernaturalEffect(eEffect);

   ApplyEffectToObject(DURATION_TYPE_TEMPORARY, eEffect, oTarget, 900.0f);

   eEffect = EffectSavingThrowIncrease(SAVING_THROW_ALL, 20, SAVING_THROW_TYPE_ALL);

   eEffect = SupernaturalEffect(eEffect);

   ApplyEffectToObject(DURATION_TYPE_TEMPORARY, eEffect, oTarget, 900.0f);

   eEffect = EffectACIncrease(20);

   eEffect = SupernaturalEffect(eEffect);

   ApplyEffectToObject(DURATION_TYPE_TEMPORARY, eEffect, oTarget, 900.0f);

   }
else if (GetGold(oPC) >= 50000)
   {
   AssignCommand(oPC, TakeGoldFromCreature(75000, oPC, TRUE));

   CreateItemOnObject("brothelspecitem", oPC);

   RewardPartyXP(20000, oPC, FALSE);

   }
}