//#include "_persist_01a"
void CheckAction(object oPC, object oSelf);
void CreateAnObject(string sResource, object oPC);
void ReplaceSelf(object oSelf, string sAppearance);
void CreateNew(location lSelf, string sResSelf);

void main()
{
  object oSelf=OBJECT_SELF;
  object oPC=GetLastUsedBy();

  if (GetLocalInt(oPC,"iAmDigging")!= 0) return;
  if (GetLocalInt(oSelf,"iAmSetToDie")==0)SetLocalInt(oPC,"iAmDigging",99);
  DelayCommand(5.0,SetLocalInt(oPC,"iAmDigging",0));


  string sSelf=GetTag(oSelf);
  string sResource = "";
  string sSuccessString = "";
  string sFailString = "";
  string sOldSkill = "";
  string sOldSkill2 = "";
  string sAppearance;
  //int iDigSkill=GetTokenPair(oPC,14,3);
  int iDigSkill = GetCampaignInt("UOACraft","iDigSkill",oPC);
  int iDigChance=iDigSkill;
  int iSuccess=0;
  int iToolBreak=GetLocalInt(oPC,"iToolWillBreak");
  int iRandom = 0;
  int iMaxDig = GetLocalInt(oSelf,"iMaxDig");
  if (iMaxDig==0)
   {
    iMaxDig=d4(3)+9;
    SetLocalInt(oSelf,"iMaxDig",iMaxDig);
   }
  object oTool=OBJECT_INVALID;



  if (iDigChance < 350)
   {
    iDigChance = GetAbilityScore(oPC,ABILITY_STRENGTH)*5;
    iDigChance = iDigChance + (GetAbilityScore(oPC,ABILITY_CONSTITUTION)*3);
    iDigChance = iDigChance + (GetAbilityScore(oPC,ABILITY_DEXTERITY)*2);
    iDigChance = iDigChance*3;
    if (iDigChance >350) iDigChance = 350;
    if (iDigSkill>iDigChance)iDigChance=iDigSkill;
   }

  if (sSelf == "DIG_CLAY")
   {
    oTool = GetItemPossessedBy(oPC,"TOOL_SHOVEL");
    if (oTool==OBJECT_INVALID)
     {
      FloatingTextStringOnCreature("You must have a shovel in order to dig clay.",oPC,FALSE);
      return;
     }
    sAppearance="temporaryrubble1";
    sResource = "clay";
    sSuccessString = "You manage to dig out a lump of pliable clay.";
    sFailString = "You dig for a while but do not find any useable clay.";
    PlaySound ("as_cv_mineshovl1");
   }

  if (sSelf == "DIG_SAND")
   {
    oTool = GetItemPossessedBy(oPC,"TOOL_SHOVEL");
    if (oTool==OBJECT_INVALID)
     {
      FloatingTextStringOnCreature("You must have a shovel in order to dig sand.",oPC,FALSE);
      return;
     }
    sResource = "sandbag";
    sAppearance="temporaryrubble2";
    sSuccessString = "You manage to dig out a bagful of fine quality sand.";
    sFailString = "You dig for a while but do not find any useable sand.";
    PlaySound ("as_cv_mineshovl2");
   }

  if (sSelf == "DIG_SALT")
   {
    oTool = GetItemPossessedBy(oPC,"TOOL_SHOVEL");
    if (oTool==OBJECT_INVALID)
     {
      FloatingTextStringOnCreature("You must have a shovel in order to dig salt.",oPC,FALSE);
      return;
     }
    sResource = "saltblock";
    sAppearance="temporaryrubble2";
    sSuccessString = "You manage to dig out a chunk of pure salt.";
    sFailString = "You dig for a while but do not find any pure salt.";
    PlaySound ("as_cv_mineshovl3");
   }

  if (sSelf == "DIG_LIME")
   {
    oTool = GetItemPossessedBy(oPC,"TOOL_SHOVEL");
    if (oTool==OBJECT_INVALID)
     {
      FloatingTextStringOnCreature("You must have a shovel in order to dig lime.",oPC,FALSE);
      return;
     }
    sResource = "limeblock";
    sAppearance="temporaryrubble2";
    sSuccessString = "You manage to dig out a chunk of pure lime.";
    sFailString = "You dig for a while but do not find any pure lime.";
    PlaySound ("as_cv_mineshovl3");
   }

  if (sSelf == "DIG_SULPHUR")
   {
    oTool = GetItemPossessedBy(oPC,"TOOL_SHOVEL");
    if (oTool==OBJECT_INVALID)
     {
      FloatingTextStringOnCreature("You must have a shovel in order to dig sulphur.",oPC,FALSE);
      return;
     }
    sResource = "sulphur";
    sAppearance="temporaryrubble1";
    sSuccessString = "You manage to dig out a chunk of pure sulphur.";
    sFailString = "You dig for a while but do not find any pure sulphur.";
    PlaySound ("as_cv_mineshovl3");
   }
  //FloatingTextStringOnCreature("Digging...",oPC,FALSE);

  iRandom = Random(1000);


  AssignCommand(oPC,ActionPlayAnimation(ANIMATION_LOOPING_GET_MID,1.0,5.0));

  if (iRandom <= iDigChance)
    {
     DelayCommand(5.0,FloatingTextStringOnCreature(sSuccessString,oPC,FALSE));
     iMaxDig--;
     SetLocalInt(oSelf,"iMaxDig",iMaxDig);
     if (iMaxDig==1)
      {
       SetLocalInt(oSelf,"iAmSetToDie",99);
       SetLocalInt(oPC,"iAmDigging",0);
       DelayCommand(3.0,FloatingTextStringOnCreature("The deposit has run out!",oPC,FALSE));
       DelayCommand(6.5,ReplaceSelf(oSelf,sAppearance));
      }
     iSuccess = 1;
     DelayCommand(6.0,CreateAnObject(sResource,oPC));
     if (iMaxDig>1) DelayCommand(5.5,AssignCommand(oPC,CheckAction(oPC,oSelf)));
     if (Random(1000)> iDigSkill)
      {
       if (d10(1)+1>= iDigSkill/1000)
        {
         if (GetLocalInt(oPC,"iSkillGain")==0)
          {
           if (iMaxDig>1)SetLocalInt(oPC,"iSkillGain",99);
           DelayCommand(10.0,SetLocalInt(oPC,"iSkillGain",0));
           iDigSkill++;
           sOldSkill2 = IntToString(iDigSkill);
           sOldSkill = "."+GetStringRight(sOldSkill2,1);
           if (iDigSkill > 9)
             {
              sOldSkill = GetStringLeft(sOldSkill2,GetStringLength(sOldSkill2)-1)+sOldSkill;
             }
            else
             {
              sOldSkill = "0"+sOldSkill;
             }
           if (iDigSkill <= 1000)
            {
             //DelayCommand(5.5,SetTokenPair(oPC,14,3,iDigSkill));
             DelayCommand(6.0,SetCampaignInt("UOACraft","iDigSkill",iDigSkill,oPC));
             DelayCommand(6.0,SendMessageToPC(oPC,"=================================="));
             DelayCommand(6.0,SendMessageToPC(oPC,"Your skill in digging has gone up!"));
             DelayCommand(6.0,SendMessageToPC(oPC,"Current digging skill : "+ sOldSkill+"%"));
             DelayCommand(6.0,SendMessageToPC(oPC,"=================================="));
             if (GetLocalInt(GetModule(),"_UOACraft_XP")!=0) DelayCommand(6.0,GiveXPToCreature(oPC,GetLocalInt(GetModule(),"_UOACraft_XP")));
            }
          }
        }
      }
    }
   else
    {
     switch (d8(1))
      {
       case 1:{sFailString="Your progress is slow...";break;}
       case 2:{sFailString="Your back is getting sore...";break;}
       case 3:{sFailString="Your arms are getting tired...";break;}
       case 4:{sFailString="You know there has to be some in here somewhere..";break;}
       case 5:{sFailString="This is back-breaking work!";break;}
       default:{break;}
      }
     DelayCommand(5.0,FloatingTextStringOnCreature(sFailString,oPC,FALSE));
     DelayCommand(5.5,AssignCommand(oPC,CheckAction(oPC,oSelf)));
     return;
    }

  if (iSuccess == 1)
   {
    iToolBreak++;
    if (iToolBreak > 100)
     {
      DelayCommand(6.0,FloatingTextStringOnCreature("Your tool has broken while digging..",oPC,FALSE));
      DestroyObject(oTool,6.0);
      iToolBreak = 0;
     }
   }

  SetLocalInt(oPC,"iToolWillBreak",iToolBreak);
}

void CheckAction(object oPC, object oSelf)
 {
  int iCurrentAction = GetCurrentAction(oPC);
  if (iCurrentAction == ACTION_MOVETOPOINT) return;
  if (iCurrentAction == ACTION_ATTACKOBJECT) return;
  if (iCurrentAction == ACTION_CASTSPELL) return;
  if (iCurrentAction == ACTION_REST) return;
  if (iCurrentAction == ACTION_PICKUPITEM) return;
  if (iCurrentAction == ACTION_SIT) return;
  if (GetDistanceBetween(oPC,oSelf) >2.5) return;

  AssignCommand(oPC,ActionInteractObject(oSelf));

 }

void CreateAnObject(string sResource, object oPC)
 {
  CreateItemOnObject(sResource,oPC,1);
  return;
 }

void ReplaceSelf(object oSelf, string sAppearance)
 {
  object oTemp;
  location lSelf;
  string sResSelf;
  sResSelf=GetResRef(oSelf);
  lSelf=GetLocation(oSelf);
  oTemp = CreateObject(OBJECT_TYPE_PLACEABLE,sAppearance,lSelf,FALSE);
  DestroyObject(oSelf,1.0);
  AssignCommand(oTemp,DelayCommand(3600.0,CreateNew(lSelf,sResSelf)));
  DestroyObject(oTemp,3630.0);
  return;
 }

void CreateNew(location lSelf, string sResSelf)
 {
  CreateObject(OBJECT_TYPE_PLACEABLE,sResSelf,lSelf,FALSE);
  return;
 }