//:://////////////////////////////////////////////
//::// Blood Stone
//:://////////////////////////////////////////////

void main()
{
  int nDiceRoll = d100( 1 );
  int nDiceRoll3 = d2( 1 );

   /*//#####GOLD########
   int nCash = d2(1);
   object oFirstKiller = GetLastKiller();
   object oPCArea = GetArea(oFirstKiller);
   //object oNextPCArea;

   object oGetterOfGold = GetFirstFactionMember(GetLastKiller(), TRUE);
   object oNextPCArea = GetArea(oGetterOfGold);
   if (oPCArea == oNextPCArea)//(GetArea(oFirstKiller)))
   {
       GiveGoldToCreature(oGetterOfGold, nCash);
   }
   else{}
   while (GetIsObjectValid(oGetterOfGold) == TRUE)
   {
       oGetterOfGold = GetNextFactionMember(GetLastKiller(), TRUE);
       oNextPCArea = GetArea(oGetterOfGold);
       if (oPCArea == oNextPCArea){
       GiveGoldToCreature(oGetterOfGold, nCash);
       }
       else{
       }
        //oGetterOfGold = GetNextFactionMember(GetLastKiller(), TRUE);
   }

    //####GOLD END#####*/

  if( nDiceRoll <=20 ){
       CreateItemOnObject("bloodstone", OBJECT_SELF, 1);
    }
  else{}
}