//::///////////////////////////////////////////////
//:: BODY TAILOR: decrease
//:: onconv bodytailor
//:://////////////////////////////////////////////
/*
   this just decrements the piece number and slaps it on.
   well, checking for restrictions and looping back to top,
   too.
*/
//:://////////////////////////////////////////////
//:: Modified By: styzygy
//:: Created By: bloodsong
//:: based on the mil tailor by Jake E. Fitch (Milambus Mandragon)
//:://////////////////////////////////////////////
#include "inc_bodytailor"



void main()
{
    object oPC = GetPCSpeaker();

    string sToModify = GetLocalString(oPC, "ToModify");
    //-- WINGS, TAIL, HEAD, EYES...
    int iToModify = GetLocalInt(oPC, "ToModify");
    //-- bodypart #...
    string s2DAFile = GetLocalString(oPC, "2DAFile");
    //-- "" for items with no 2da file...?
    string s2DAend; //-- the endoffile check

    int iNewApp;

//--WING SECTION vvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvv
    if(sToModify == "WINGS")
    {
      //-- advance wing type.
      iNewApp = GetCreatureWingType(oPC)-1;

      if(iNewApp < 0)  {  GetCachedLimit(s2DAFile);  }

      //--if it is restricted, skip ahead.
      while(WingIsInvalid(iNewApp))
      {//-- decrease
        iNewApp--;
        s2DAend = Get2DACheck(s2DAFile, iNewApp);
        //-- check for blank lines
        if (s2DAend == "SKIP")
        {//-- be careful reading 2da in a fast loop.
          iNewApp--;
          s2DAend = Get2DACheck(s2DAFile, iNewApp);
        }
        //-- check we didnt hit the end
        if (iNewApp < 0)
        {//-- if hit the end, loop back to top
           iNewApp = GetCachedLimit(s2DAFile);
        }
      }

     //--do the loop around check
     s2DAend = Get2DACheck(s2DAFile, iNewApp);
    while (s2DAend == "SKIP" || s2DAend == "FAIL")
    {
        if (iNewApp < 0)
        {
            iNewApp = GetCachedLimit(s2DAFile);
        } else {
            iNewApp--;
        }

        s2DAend = Get2DACheck(s2DAFile, iNewApp);
    }  //-- end loop around check

      SetCreatureWingType(iNewApp, oPC); //--now slap the new wing on!
    }
//--END WINGS ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^


//--TAIL SECTION vvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvv
    if(sToModify == "TAIL")
    {
      //-- advance tail type.
      iNewApp = GetCreatureTailType(oPC)-1;
      if(iNewApp < 0)  {  GetCachedLimit(s2DAFile);  }

      //--if it is restricted, skip ahead.
      while(TailIsInvalid(iNewApp))
      {//-- increase
        iNewApp--;

        s2DAend = Get2DACheck(s2DAFile, iNewApp);
        //-- check for blank lines
        if (s2DAend == "SKIP")
        {//-- be careful reading 2da in a fast loop.
          iNewApp--;
          s2DAend = Get2DACheck(s2DAFile, iNewApp);
        }
        //-- check we didnt hit the end
        if (iNewApp < 0)
        {//-- if hit the end, loop back to top
           iNewApp = GetCachedLimit(s2DAFile);
        }
      }

     //--do the loop around check
     s2DAend = Get2DACheck(s2DAFile, iNewApp);
    while (s2DAend == "SKIP" || s2DAend == "FAIL")
    {
        if (iNewApp < 0)
        {
            iNewApp = GetCachedLimit(s2DAFile);
        } else {
            iNewApp--;
        }

        s2DAend = Get2DACheck(s2DAFile, iNewApp);
    }  //-- end loop around check

      SetCreatureTailType(iNewApp, oPC); //--now slap the new tail on!
    }
//--END TAIL ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^

//--the rest of the parts dont have 2da files to read from.
//-- be sure you set your max numbers in the include file (btlr__inc)

  int nGender = GetGender(oPC);
  int nRace = GetAppearanceType(oPC);
  int nMax = 256;

//--HEAD BITS-------------------------------------------------------
  if(sToModify == "HEAD")
  {
    iNewApp = GetCreatureBodyPart(CREATURE_PART_HEAD, oPC)-1;
       //-- check we didnt hit the end(s)
    if(nGender==GENDER_FEMALE)
    {
       switch(nRace)
       {
         case 0: nMax=DFHEADMAX; break;
         case 1: nMax = EFHEADMAX; break;
         case 2: nMax = GFHEADMAX; break;
         case 4:
         case 6: nMax = HFHEADMAX; break;
         case 3: nMax = AFHEADMAX; break;
         case 5: nMax = OFHEADMAX; break;
       }
     }
     else //--males and everything else
     {
       switch(nRace)
       {
         case 0: nMax=DMHEADMAX; break;
         case 1: nMax = EMHEADMAX; break;
         case 2: nMax = GMHEADMAX; break;
         case 4:
         case 6: nMax = HMHEADMAX; break;
         case 3: nMax = AMHEADMAX; break;
         case 5: nMax = OMHEADMAX; break;
       }
    }

    if(iNewApp < 0)
    {//-- loop to 0
      iNewApp = nMax;
    }

     SetCreatureBodyPart(CREATURE_PART_HEAD, iNewApp, oPC);
  }  //-- end HEAD section


//--MISC BITS------------------------------------------------------

    if(sToModify == "PARTS")
    {
     iNewApp = GetCreatureBodyPart(iToModify, oPC) -1;
     //--check the ceiling
     if(iNewApp <= 255)
     { //-- more than our 3 parts
       if(iNewApp < 0)
       { //-- if it is 0, loop to 255
         iNewApp = 255;
       }
       else if(iNewApp < 255 && iNewApp > CUSTOMPARTS)
       { //-- or else jump from 255 to max custom pieces
        iNewApp = CUSTOMPARTS;
       }
     }  //-- end loop check

     SetCreatureBodyPart(iToModify, iNewApp, oPC);
    }


//--PHENO PART------------------------------------------------------
    if(sToModify == "PHENO")
    {
     iNewApp = GetPhenoType(oPC) -1;
     //--check the ceiling
     if(iNewApp < 0)
     {
         iNewApp = MAXPHENO;
     }  //-- end loop check

     SetPhenoType(iNewApp, oPC);
    }
//--END PHENO PART------------------------------------------------------



//--EVERYBODY/THING SECTION ---------------------------------------------
    SendMessageToPC(oPC, "New Appearance: " + IntToString(iNewApp));
}