Amon_PRC8/_module/nss/uberloot.nss

void main()
{
   int nHD =(GetHitDice(OBJECT_SELF));
   int nCash;

   if (nHD <= 10)
   {nCash = d2(nHD / 2);}

   else if (nHD <= 25)
   {nCash = d4(nHD/2);}

   else if (nHD <= 40)
   {nCash = d6 (nHD/2);}

   else if (nHD <= 9999)
   {nCash = d10(nHD);}


   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#####

    //    ActionSpeakString("Running Uberloot", TALKVOLUME_SHOUT);

     if ((nHD <= 10))
     {
            ExecuteScript ("lootitems", OBJECT_SELF);
            int nCheck = d100(1);
            if(nCheck <= 68)
            {
            }
            else if(nCheck <= 72)
            {
            ExecuteScript ("lootgold", OBJECT_SELF);
            }
            else if(nCheck <= 76)
            {
            ExecuteScript ("loothealkits", OBJECT_SELF);
            }
            else if(nCheck <= 80)
            {
            ExecuteScript ("loottrap", OBJECT_SELF);
            }
            else if(nCheck <= 84)
            {
            ExecuteScript ("lootgold", OBJECT_SELF);
            }
            else if(nCheck <= 88)
            {
            ExecuteScript ("lootpotions", OBJECT_SELF);
            }
            else if(nCheck <= 92)
            {
            ExecuteScript ("lootgems", OBJECT_SELF);
            }
            else if(nCheck <= 96)
            {
            ExecuteScript ("lootrations", OBJECT_SELF);
            }
            else
            {
            ExecuteScript ("lootranged", OBJECT_SELF);
            }
      }

      else if ((nHD <= 15))
            {
            ExecuteScript ("lootitems2", OBJECT_SELF);
            int nCheck = d100(1);
            if(nCheck <= 73)
            {
            }
            else if(nCheck <= 78)
            {
            ExecuteScript ("lootranged", OBJECT_SELF);
            }
            else if(nCheck <= 86)
            {
            ExecuteScript ("loottraps", OBJECT_SELF);
            }
            else if(nCheck <= 88)
            {
            ExecuteScript ("lootrations", OBJECT_SELF);
            }
            else if(nCheck <= 91)
            {
            ExecuteScript ("lootpotions", OBJECT_SELF);
            }
            else if(nCheck <= 94)
            {
            ExecuteScript ("loothealkits", OBJECT_SELF);
            }
            else if(nCheck <= 97)
            {
            ExecuteScript ("lootgems", OBJECT_SELF);
            }
            else
            {
            ExecuteScript ("lootgold", OBJECT_SELF);
            }

            int nCheck2 = d100(1);
            if(nCheck2 <= 73)
            {
            }
            else if(nCheck2 <= 78)
            {
            ExecuteScript ("lootranged", OBJECT_SELF);
            }
            else if(nCheck2 <= 83)
            {
            ExecuteScript ("loottraps", OBJECT_SELF);
            }
            else if(nCheck2 <= 88)
            {
            ExecuteScript ("lootrations", OBJECT_SELF);
            }
            else if(nCheck2 <= 91)
            {
            ExecuteScript ("lootpotions", OBJECT_SELF);
            }
            else if(nCheck2 <= 94)
            {
            ExecuteScript ("loothealkits", OBJECT_SELF);
            }
            else if(nCheck2 <= 97)
            {
            ExecuteScript ("lootgems", OBJECT_SELF);
            }
            else
            {
            ExecuteScript ("lootgold", OBJECT_SELF);
            }
         }



    else if ((nHD <= 30))
    {

        int nCheck = d100(1);
        if(nCheck <= 73)
           {
           }
        else if(nCheck <= 78)
           {
           ExecuteScript ("lootranged", OBJECT_SELF);
           }
        else if(nCheck <= 88)
           {
           ExecuteScript ("lootgems", OBJECT_SELF);
           }
        else if(nCheck <= 91)
           {
           ExecuteScript ("lootpotions", OBJECT_SELF);
           }
        else if(nCheck <= 94)
           {
           ExecuteScript ("loothealkits", OBJECT_SELF);
           }
        else if(nCheck <= 97)
           {
           ExecuteScript ("lootgems", OBJECT_SELF);
           }
        else
           {
           ExecuteScript ("lootgold", OBJECT_SELF);
           }

        int nCheck2 = d100(1);
        if(nCheck2 <= 73)
           {
           }
        else if(nCheck2 <= 78)
           {
           ExecuteScript ("lootranged", OBJECT_SELF);
           }
        else if(nCheck2 <= 88)
           {
           ExecuteScript ("lootgems", OBJECT_SELF);
           }
        else if(nCheck2 <= 91)
           {
           ExecuteScript ("lootpotions", OBJECT_SELF);
           }
        else if(nCheck2 <= 94)
           {
           ExecuteScript ("loothealkits", OBJECT_SELF);
           }
        else if(nCheck2 <= 97)
           {
           ExecuteScript ("lootgems", OBJECT_SELF);
           }
        else
           {
           ExecuteScript ("lootgold", OBJECT_SELF);
           }

        int nCheck3 = d100(1);
        if(nCheck3 <= 73)
           {
           }
        else if(nCheck3 <= 78)
           {
           ExecuteScript ("lootranged", OBJECT_SELF);
           }
        else if(nCheck3 <= 88)
           {
           ExecuteScript ("lootgems", OBJECT_SELF);
           }
        else if(nCheck3 <= 91)
           {
           ExecuteScript ("lootpotions", OBJECT_SELF);
           }
        else if(nCheck3 <= 94)
           {
           ExecuteScript ("loothealkits", OBJECT_SELF);
           }
        else if(nCheck3 <= 97)
           {
           ExecuteScript ("lootgems", OBJECT_SELF);
           }
        else
           {
           ExecuteScript ("lootgold", OBJECT_SELF);
           }
    }

        else if ((nHD <= 9999))
    {

        int nCheck = d100(1);
        if(nCheck <= 50)
           {
           ExecuteScript ("lootgold", OBJECT_SELF);
           }
        else if(nCheck <= 66)
           {
           ExecuteScript ("lootranged", OBJECT_SELF);
           }
        else if(nCheck <= 88)
           {
           ExecuteScript ("lootgems", OBJECT_SELF);
           }
        else if(nCheck <= 91)
           {
           ExecuteScript ("lootpotions", OBJECT_SELF);
           }
        else if(nCheck <= 94)
           {
           ExecuteScript ("loothealkits", OBJECT_SELF);
           }
        else if(nCheck <= 97)
           {
           ExecuteScript ("lootgems", OBJECT_SELF);
           }
        else
           {
           ExecuteScript ("lootgold", OBJECT_SELF);
           }

        int nCheck2 = d100(1);
        if(nCheck2 <= 73)
           {
           }
        else if(nCheck2 <= 78)
           {
           ExecuteScript ("lootranged", OBJECT_SELF);
           }
        else if(nCheck2 <= 88)
           {
           ExecuteScript ("lootgems", OBJECT_SELF);
           }
        else if(nCheck2 <= 91)
           {
           ExecuteScript ("lootpotions", OBJECT_SELF);
           }
        else if(nCheck2 <= 94)
           {
           ExecuteScript ("loothealkits", OBJECT_SELF);
           }
        else if(nCheck2 <= 97)
           {
           ExecuteScript ("lootgems", OBJECT_SELF);
           }
        else
           {
           ExecuteScript ("lootgold", OBJECT_SELF);
           }

        int nCheck3 = d100(1);
        if(nCheck3 <= 73)
           {
           ExecuteScript ("lootgold", OBJECT_SELF);
           }
        else if(nCheck3 <= 78)
           {
           ExecuteScript ("lootranged", OBJECT_SELF);
           }
        else if(nCheck3 <= 88)
           {
           ExecuteScript ("lootgems", OBJECT_SELF);
           }
        else if(nCheck3 <= 91)
           {
           ExecuteScript ("lootpotions", OBJECT_SELF);
           }
        else if(nCheck3 <= 94)
           {
           ExecuteScript ("loothealkits", OBJECT_SELF);
           }
        else if(nCheck3 <= 97)
           {
           ExecuteScript ("lootgems", OBJECT_SELF);
           }
        else
           {
           ExecuteScript ("lootgold", OBJECT_SELF);
           }
    }
}