package com.planet_ink.coffee_mud.Abilities.Misc;
import com.planet_ink.coffee_mud.Abilities.StdAbility;
import com.planet_ink.coffee_mud.core.interfaces.*;
import com.planet_ink.coffee_mud.core.*;
import com.planet_ink.coffee_mud.core.collections.*;
import com.planet_ink.coffee_mud.Abilities.interfaces.*;
import com.planet_ink.coffee_mud.Areas.interfaces.*;
import com.planet_ink.coffee_mud.Behaviors.interfaces.*;
import com.planet_ink.coffee_mud.CharClasses.interfaces.*;
import com.planet_ink.coffee_mud.Commands.interfaces.*;
import com.planet_ink.coffee_mud.Common.interfaces.*;
import com.planet_ink.coffee_mud.Exits.interfaces.*;
import com.planet_ink.coffee_mud.Items.interfaces.*;
import com.planet_ink.coffee_mud.Libraries.interfaces.*;
import com.planet_ink.coffee_mud.Locales.interfaces.*;
import com.planet_ink.coffee_mud.MOBS.interfaces.*;
import com.planet_ink.coffee_mud.Races.interfaces.*;

import java.util.*;

/*
   Copyright 2004-2020 Bo Zimmerman

   Licensed under the Apache License, Version 2.0 (the "License");
   you may not use this file except in compliance with the License.
   You may obtain a copy of the License at

	   http://www.apache.org/licenses/LICENSE-2.0

   Unless required by applicable law or agreed to in writing, software
   distributed under the License is distributed on an "AS IS" BASIS,
   WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
   See the License for the specific language governing permissions and
   limitations under the License.
*/
public class Injury extends StdAbility implements LimbDamage, HealthCondition
{
	@Override
	public String ID()
	{
		return "Injury";
	}

	private final static String	localizedName	= CMLib.lang().L("Injury");

	@Override
	public String name()
	{
		return localizedName;
	}

	@SuppressWarnings("unchecked")
	public PairVector<String,Integer>[] injuries=new PairVector[Race.BODY_PARTS];

	protected CMMsg		lastMsg			= null;
	protected String	lastLoc			= null;
	public int			lastHP			= -1;

	//public final static String[] BODYPARTSTR={
	//    "ANTENNEA","EYE","EAR","HEAD","NECK","ARM","HAND","TORSO","LEG","FOOT",
	//    "NOSE","GILL","MOUTH","WAIST","TAIL","WING"};
	public final static int[] INJURYCHANCE=
	{
		3,3,3,11,3,12,5,35,13,5,3,0,0,3,3,3
	};

	@Override
	public String getHealthConditionDesc()
	{
		final StringBuffer buf=new StringBuffer("");
		Pair<String,Integer> O=null;
		PairVector<String,Integer> V=null;
		try
		{
			if(injuries!=null)
			{
				for(int i=0;i<Race.BODY_PARTS;i++)
				{
					V=injuries[i];
					if(V!=null)
					{
						for(int i2=0;i2<V.size();i2++)
						{
							O=V.elementAt(i2);
							String wounds="";
							final int dmg = O.second.intValue();
							if (dmg<5)
								wounds=("a bruised ");
							else
							if (dmg<10)
								wounds=("a scratched ");
							else
							if (dmg<20)
								wounds=("a cut ");
							else
							if (dmg<30)
								wounds=("a sliced ");
							else
							if (dmg<40)
								wounds=("a gashed ");
							else
							if (dmg<60)
								wounds=("a bloody ");
							else
							if ((dmg<75)||(i==Race.BODY_TORSO))
								wounds=("a mangled ");
							else
							if ((dmg<100)||(i==Race.BODY_HEAD))
								wounds=("a dangling ");
							else
								wounds=("a shredded ");
							buf.append(", "+wounds+O.first.toLowerCase()+" ("+dmg+"%)");
						}
					}
				}
			}
		}
		catch (final Exception e)
		{
		}
		if(buf.length()==0)
			return "";
		return buf.substring(1);
	}

	@Override
	public String displayText()
	{
		final String buf=getHealthConditionDesc();
		if(buf.length()==0)
			return "";
		return "(Injuries:"+buf+")";
	}

	@Override
	protected int canAffectCode()
	{
		return CAN_MOBS;
	}

	@Override
	protected int canTargetCode()
	{
		return CAN_MOBS;
	}

	@Override
	public int abstractQuality()
	{
		return Ability.QUALITY_INDIFFERENT;
	}

	@Override
	public boolean putInCommandlist()
	{
		return false;
	}

	@Override
	public boolean canBeUninvoked()
	{
		return true;
	}

	@Override
	public int classificationCode()
	{
		return Ability.ACODE_PROPERTY;
	}

	@Override
	public int usageType()
	{
		return USAGE_MOVEMENT | USAGE_MANA;
	}

	@Override
	public void unInvoke()
	{
		final Environmental E=affected;
		super.unInvoke();
		if((E instanceof MOB)&&(canBeUninvoked())&&(!((MOB)E).amDead()))
			((MOB)E).tell(L("Your injuries are healed."));
	}

	@Override
	public String text()
	{
		PairVector<String,Integer> V=null;
		Pair<String,Integer> O=null;
		final StringBuffer buf=new StringBuffer("");
		if(injuries!=null)
		{
			for(int i=0;i<Race.BODY_PARTS;i++)
			{
				V=injuries[i];
				if(V!=null)
				{
					for(int i2=0;i2<V.size();i2++)
					{
						O=V.elementAt(i2);
						buf.append(i+":"+O.first.toLowerCase()+":"+O.second.intValue()+";");
					}
				}
			}
		}
		return buf.toString();
	}

	@SuppressWarnings("unchecked")
	@Override
	public void setMiscText(String txt)
	{
		if(txt.startsWith("+"))
		{
			if(affected instanceof MOB)
			{
				final MOB mob=(MOB)affected;
				txt=txt.substring(1);
				final int x=txt.indexOf('=');
				if(x<0)
					return;
				final String chosenName=txt.substring(0,x);
				final String amount=txt.substring(x+1);
				Amputation A=(Amputation)mob.fetchEffect("Amputation");
				if(A==null)
				{
					A=new Amputation();
					A.setAffectedOne(mob);
				}
				final List<String> remains=A.unaffectedLimbSet();
				if(mob.charStats().getBodyPart(Race.BODY_HEAD)>0)
					remains.add("head");
				if(mob.charStats().getBodyPart(Race.BODY_TORSO)>0)
					remains.add("torso");
				final int chosenOne=remains.indexOf(chosenName);
				if(chosenOne<0)
					return;
				if(injuries==null)
					injuries=new PairVector[Race.BODY_PARTS];
				final Integer chosenBodyLoc=Race.BODYPARTHASH_RL_LOWER.get(remains.get(chosenOne).toLowerCase().trim());
				if(chosenBodyLoc!=null)
				{
					PairVector<String,Integer> bodyVec=injuries[chosenBodyLoc.intValue()];
					if(bodyVec==null)
					{
						injuries[chosenBodyLoc.intValue()]=new PairVector<String,Integer>();
						bodyVec=injuries[chosenBodyLoc.intValue()];
					}
					int whichInjury=-1;
					for(int i=0;i<bodyVec.size();i++)
					{
						final Pair<String,Integer> O=bodyVec.get(i);
						if(O.first.equalsIgnoreCase(remains.get(chosenOne)))
						{
							whichInjury=i;
							break;
						}
					}
					Pair<String,Integer> O=null;
					if(whichInjury<0)
					{
						O=new Pair<String,Integer>(
								remains.get(chosenOne).toLowerCase(),
								Integer.valueOf(0)
						);
						bodyVec.addElement(O);
						whichInjury=bodyVec.size()-1;
					}
					O=bodyVec.get(whichInjury);
					O.second=Integer.valueOf(O.second.intValue()+CMath.s_int(amount));
					if(O.second.intValue()>100)
						O.second=Integer.valueOf(100);
				}
			}
		}
		else
		if(txt.indexOf('/')>0)
			super.setMiscText(txt);
		else
		{
			injuries=new PairVector[Race.BODY_PARTS];
			final List<String> sets=CMParms.parseSemicolons(txt,true);
			for(int s=0;s<sets.size();s++)
			{
				final String set=sets.get(s);
				final List<String> V=CMParms.parseAny(set,':',false);
				if(V.size()==3)
				{
					final int part=CMath.s_int(V.get(0));
					if((part>=0)&&(part<Race.BODY_PARTS))
					{
						final String msg=V.get(1);
						final int hurt=CMath.s_int(V.get(V.size()-1));
						if(injuries[part]==null)
							injuries[part] = new PairVector<String,Integer>();
						injuries[part].add(new Pair<String,Integer>(msg,Integer.valueOf(hurt)));
					}
				}
			}
		}
		if(affected instanceof MOB)
		{
			final MOB mob=(MOB)affected;
			if(lastHP<0)
				lastHP=mob.curState().getHitPoints();
		}
	}

	@Override
	public List<String> unaffectedLimbSet()
	{
		Amputation ampuA=(Amputation)affected.fetchEffect("Amputation");
		if(ampuA==null)
		{
			ampuA=new Amputation();
			ampuA.setAffectedOne(affected);
		}
		final List<String> remains=ampuA.unaffectedLimbSet();
		if(affected instanceof MOB)
		{
			final MOB mob=(MOB)affected;
			if(mob.charStats().getBodyPart(Race.BODY_HEAD)>0)
				remains.add("head");
			if(mob.charStats().getBodyPart(Race.BODY_TORSO)>0)
				remains.add("torso");
		}
		final List<String> affected=affectedLimbNameSet();
		final List<String> checks=new ArrayList<String>(remains);
		for(final String limb : checks)
		{
			if(affected.contains(limb))
				remains.remove(limb);
		}
		return remains;
	}

	@Override
	public Item damageLimb(final String limbName)
	{
		if(affected!=null)
		{
			if(affected instanceof MOB)
			{
				final boolean success=((MOB)affected).location().show(((MOB)affected),this,CMMsg.MSG_OK_VISUAL,L("^G<S-YOUPOSS> @x1 is injured!^?",limbName));
				if(!success)
					return null;
			}
		}
		for(int p=0;p<Race.BODY_PARTS;p++)
		{
			if(limbName.equalsIgnoreCase(Race.BODYPARTSTR[p])
			||limbName.equalsIgnoreCase("right "+Race.BODYPARTSTR[p])
			||limbName.equalsIgnoreCase("left "+Race.BODYPARTSTR[p]))
			{
				PairVector<String,Integer> parts=injuries[p];
				if(parts == null)
				{
					parts=new PairVector<String,Integer>();
					injuries[p]=parts;
				}
				for(final Pair<String,Integer> part : parts)
				{
					if(part.first.equalsIgnoreCase(limbName))
					{
						if(part.second.intValue()<90)
							part.second = Integer.valueOf(part.second.intValue()+10);
						return null;
					}
				}
				if(affected instanceof MOB)
				{
					final MOB mob=(MOB)affected;
					if((p==Race.BODY_HEAD)
					&&(CMLib.dice().rollPercentage()==1)
					&&(CMLib.dice().rollPercentage()==1)
					&&(!CMSecurity.isDisabled(CMSecurity.DisFlag.AUTODISEASE)))
					{
						final Ability A=CMClass.getAbility("Disease_Vertigo");
						if((A!=null)
						&&(mob.fetchEffect(A.ID())==null)
						&&(!CMSecurity.isAbilityDisabled(A.ID())))
							A.invoke(mob,mob,true,0);
					}
					final PlayerStats pStats = mob.playerStats();
					if((pStats!=null)
					&&(pStats.getHygiene()>=PlayerStats.HYGIENE_DELIMIT)
					&&(CMLib.dice().rollPercentage()==1)
					&&(CMLib.dice().rollPercentage()==1))
					{
						final Ability A=CMClass.getAbility("Disease_FilthFever");
						if((A!=null)
						&&(mob.fetchEffect(A.ID())==null)
						&&(!CMSecurity.isAbilityDisabled(A.ID())))
							A.invoke(mob,mob,true,0);
					}
				}
				parts.add(new Pair<String,Integer>(limbName.toLowerCase(),Integer.valueOf(10)));
				return null;
			}
		}
		return null;
	}

	@Override
	public List<String> affectedLimbNameSet()
	{
		final List<String> list=new Vector<String>(1);
		PairVector<String,Integer> V=null;
		Pair<String,Integer> O=null;
		if(injuries!=null)
		{
			for(int i=0;i<Race.BODY_PARTS;i++)
			{
				V=injuries[i];
				if(V!=null)
				{
					for(int i2=0;i2<V.size();i2++)
					{
						O=V.elementAt(i2);
						list.add(O.first.toLowerCase());
					}
				}
			}
		}
		return list;
	}

	@Override
	public void restoreLimb(final String limbName)
	{
		for(int partNum=0;partNum<Race.BODY_PARTS;partNum++)
		{
			if(injuries[partNum]!=null)
			{
				for(final Pair<String,Integer> part : injuries[partNum])
				{
					if(part.first.equalsIgnoreCase(limbName))
					{
						injuries[partNum].remove(part);
						if(injuries[partNum].size()==0)
							injuries[partNum]=null;
						if((affected != null)&&(affectedLimbNameSet().size()==0))
							affected.delEffect(this);
						return;
					}
				}
			}
		}
	}

	@Override
	public boolean tick(final Tickable ticking, final int tickID)
	{
		if((affected instanceof MOB)&&(tickID==Tickable.TICKID_MOB))
		{
			final MOB mob=(MOB)affected;
			if(mob.curState().getHitPoints()>=mob.maxState().getHitPoints())
			{
				for(int i=0;i<injuries.length;i++)
					injuries[i]=null;
				unInvoke();
			}
			else
			if((mob.curState().getHitPoints()>lastHP)&&(lastHP>=0))
			{
				final Vector<int[]> choicesToHeal=new Vector<int[]>();
				for(int i=0;i<injuries.length;i++)
				{
					if(injuries[i]!=null)
					{
						for(int x=0;x<injuries[i].size();x++)
						{
							final int[] choice=new int[2];
							choice[0] = i;
							choice[1] = x;
							choicesToHeal.addElement(choice);
						}
					}
				}
				if(choicesToHeal.size()==0)
				{
					for(int i=0;i<injuries.length;i++)
						injuries[i]=null;
					unInvoke();
				}
				else
				{
					int pct=(int)Math.round(CMath.div(mob.curState().getHitPoints()-lastHP,mob.maxState().getHitPoints())*100.0);
					if(pct<=0)
						pct=1;
					int tries=100;
					while((pct>0)&&((--tries)>0)&&(choicesToHeal.size()>0))
					{
						final int which=CMLib.dice().roll(1,choicesToHeal.size(),-1);
						final int[] choice=choicesToHeal.elementAt(which);
						if(choice[0]<injuries.length)
						{
							final PairVector<String,Integer> V=injuries[choice[0]];
							if((V!=null)&&(choice[1]<V.size()))
							{
								final Pair<String,Integer> O=V.get(choice[1]);
								if(pct>O.second.intValue())
								{
									V.removeElement(O);
									if(V.size()==0)
										injuries[choice[0]]=null;
									pct-=O.second.intValue();
									choicesToHeal.removeElementAt(which);
								}
								else
								{
									O.second=Integer.valueOf(O.second.intValue()-pct);
									pct=0;
								}
							}
						}
					}
				}
			}
			else
			if((!mob.isMonster())
			&& (CMLib.dice().rollPercentage()==1)
			&& (CMLib.dice().rollPercentage()>(mob.charStats().getStat(CharStats.STAT_CONSTITUTION)*4))
			&& (!CMSecurity.isDisabled(CMSecurity.DisFlag.AUTODISEASE)))
			{
				final Ability A=CMClass.getAbility("Disease_Infection");
				if((A!=null)&&(mob.fetchEffect(A.ID())==null)&&(injuries.length>0)&&(!CMSecurity.isAbilityDisabled(A.ID())))
				{
					final List<String> injuredList = affectedLimbNameSet();
					if(injuredList.size()>0)
					{
						final int which=CMLib.dice().roll(1,injuredList.size(),-1);
						final String injuredLimb=injuredList.get(which);
						final MOB infector = CMClass.getFactoryMOB(injuredLimb, mob.phyStats().level(), mob.location());
						A.invoke(infector,mob,true,mob.phyStats().level());
					}
				}
			}
			lastHP=mob.curState().getHitPoints();
		}
		return super.tick(ticking,tickID);
	}

	public static String[][] TRANSLATE=
	{
		{"<T-HIM-HER>","<T-HIS-HER>"},
		{"<T-NAME>","<T-YOUPOSS>"},
		{"<T-NAMESELF>","<T-YOUPOSS>"}
	};

	public String fixMessageString(String message, final String loc)
	{
		if(message==null)
			return null;
		int x=message.indexOf("<DAMAGE>");
		if(x<0)
			x=message.indexOf("<DAMAGES>");
		if(x<0)
			return message;
		int y=Integer.MAX_VALUE;
		int which=-1;
		for(int i=0;i<TRANSLATE.length;i++)
		{
			final int y1=message.indexOf(TRANSLATE[i][0],x);
			if((y1>x)&&(y1<y))
			{
				y=y1;
				which=i;
			}
		}
		if(which>=0)
			message=message.substring(0,y)+TRANSLATE[which][1]+" "+loc+message.substring(y+TRANSLATE[which][0].length());
		return message;
	}

	@Override
	public boolean okMessage(final Environmental host, final CMMsg msg)
	{
		if((msg.target()==affected)
		&&(msg.targetMinor()==CMMsg.TYP_DAMAGE)
		&&(msg.value()>0)
		&&(msg.target() instanceof MOB)
		&&(msg.targetMessage()!=null)
		&&(msg.targetMessage().indexOf("<DAMAGE>")>=0))
		{
			final String superTextReadOnly;
			synchronized(this)
			{
				superTextReadOnly = super.miscText;
			}
			final String sourceName = msg.source().Name();
			if(superTextReadOnly.startsWith(sourceName+"/") // special directed damage stuff
			   ||((CMProps.getIntVar(CMProps.Int.INJPCTHP)>=(int)Math.round(CMath.div(((MOB)msg.target()).curState().getHitPoints(),((MOB)msg.target()).maxState().getHitPoints())*100.0))
				&&(CMLib.dice().rollPercentage()<=CMProps.getIntVar(CMProps.Int.INJPCTCHANCE))))
			{
				final MOB mob=(MOB)msg.target();
				Amputation ampuA=(Amputation)mob.fetchEffect("Amputation");
				if(ampuA==null)
				{
					ampuA=new Amputation();
					ampuA.setAffectedOne(mob);
				}
				final List<String> remains=ampuA.unaffectedLimbSet();
				if(mob.charStats().getBodyPart(Race.BODY_HEAD)>0)
					remains.add("head");
				if(mob.charStats().getBodyPart(Race.BODY_TORSO)>0)
					remains.add("torso");
				if(remains.size()>0)
				{
					if(superTextReadOnly.startsWith(sourceName+"/"))
					{
						final String remainLoc=superTextReadOnly.substring(sourceName.length()+2).toLowerCase();
						if(remains.contains(remainLoc))
						{
							remains.clear();
							remains.add(remainLoc);
						}
						else
							return super.okMessage(host, msg);
					}
					final int[] chances=new int[remains.size()];
					int total=0;
					for(int x=0;x<remains.size();x++)
					{
						final String remain=remains.get(x); // is lowercase
						if(Race.BODYPARTHASH_RL_LOWER.containsKey(remain))
						{
							final int bodyPart=Race.BODYPARTHASH_RL_LOWER.get(remain).intValue();
							final int amount=INJURYCHANCE[bodyPart];
							chances[x]+=amount;
							total+=amount;
						}
					}
					if(total>0)
					{
						int randomRoll=CMLib.dice().roll(1,total,-1);
						int chosenOne=-1;
						if((lastMsg!=null)
						&&(lastLoc!=null)
						&&((msg==lastMsg)||((lastMsg.trailerMsgs()!=null)&&(lastMsg.trailerMsgs().contains(msg))))
						&&(remains.contains(lastLoc)))
							chosenOne=remains.indexOf(lastLoc);
						else
						if((superTextReadOnly.startsWith(sourceName+"/"))
						&&(remains.contains(superTextReadOnly.substring(sourceName.length()+1))))
						{
							chosenOne=remains.indexOf(superTextReadOnly.substring(sourceName.length()+1));
							super.miscText="";
						}
						else
						{
							for(int i=0;i<chances.length;i++)
							{
								if(chances[i]>0)
								{
									chosenOne=i;
									randomRoll-=chances[i];
									if(randomRoll<=0)
										break;
								}
							}
						}
						final int BodyPct=(int)Math.round(CMath.div(msg.value(),mob.maxState().getHitPoints())*100.0);
						int LimbPct=BodyPct*CMProps.getIntVar(CMProps.Int.INJMULTIPLIER);
						if(LimbPct<1)
							LimbPct=1;
						final Integer chosenBodyLoc=Race.BODYPARTHASH_RL_LOWER.get(remains.get(chosenOne));
						if(chosenBodyLoc!=null)
						{
							lastMsg=msg;
							lastLoc=remains.get(chosenOne);
							PairVector<String,Integer> bodyVec=injuries[chosenBodyLoc.intValue()];
							if(bodyVec==null)
							{
								injuries[chosenBodyLoc.intValue()]=new PairVector<String,Integer>();
								bodyVec=injuries[chosenBodyLoc.intValue()];
							}
							int whichInjury=-1;
							for(int i=0;i<bodyVec.size();i++)
							{
								final Pair<String,Integer> O=bodyVec.get(i);
								if(O.first.equalsIgnoreCase(remains.get(chosenOne)))
								{
									whichInjury=i;
									break;
								}
							}
							final String newTarg=fixMessageString(msg.targetMessage(),remains.get(chosenOne).toLowerCase());
							if(!newTarg.equalsIgnoreCase(msg.targetMessage()))
							{
								msg.modify(msg.source(),msg.target(),msg.tool(),
										msg.sourceCode(),fixMessageString(msg.sourceMessage(),remains.get(chosenOne).toLowerCase()),
										msg.targetCode(),newTarg,
										msg.othersCode(),fixMessageString(msg.othersMessage(),remains.get(chosenOne).toLowerCase()));
								Pair<String,Integer> O=null;
								if(whichInjury<0)
								{
									O=new Pair<String,Integer>(
										remains.get(chosenOne).toLowerCase(),
										Integer.valueOf(0));
									bodyVec.addElement(O);
									whichInjury=bodyVec.size()-1;
								}
								O=bodyVec.get(whichInjury);
								O.second=Integer.valueOf(O.second.intValue()+LimbPct);
								if(O.second.intValue()>100)
									O.second=Integer.valueOf(100);
								if((O.second.intValue()>=100)
								||((BodyPct>5)
									&&((msg.tool() instanceof Electronics)||(BodyPct>=CMProps.getIntVar(CMProps.Int.INJPCTHPAMP)))))
								{
									boolean proceed=(CMLib.dice().rollPercentage()<=CMProps.getIntVar(CMProps.Int.INJPCTCHANCEAMP))
													&&(mob.phyStats().level()>=CMProps.getIntVar(CMProps.Int.INJMINLEVEL));
									if(msg.tool() instanceof Weapon)
									{
										switch(((Weapon)msg.tool()).weaponDamageType())
										{
										case Weapon.TYPE_FROSTING:
										case Weapon.TYPE_GASSING:
											proceed=false;
											break;
										default:
											break;
										}
									}
									if(Amputation.validamputees[chosenBodyLoc.intValue()]&&proceed)
									{
										bodyVec.removeElement(O);
										if(bodyVec.size()==0)
											injuries[chosenBodyLoc.intValue()]=null;
										final Amputation amputationA=ampuA;
										final String bodyPartName=O.first.toLowerCase();
										msg.addTrailerRunnable(new Runnable()
										{
											@Override
											public void run()
											{
												if(amputationA.damageLimb(bodyPartName)!=null)
												{
													if(mob.fetchEffect(amputationA.ID())==null)
													{
														amputationA.makeLongLasting();
														mob.addEffect(amputationA);
													}
												}
											}
										});
									}
								}
							}
						}
					}
				}
			}
		}
		return super.okMessage(host,msg);
	}

	@Override
	public boolean invoke(final MOB mob, final List<String> commands, final Physical givenTarget, final boolean auto, final int asLevel)
	{
		if(givenTarget.fetchEffect(ID())!=null)
			return false;
		super.tickDown=2;
		final Ability A=(Ability)copyOf();
		A.startTickDown(mob,givenTarget,Ability.TICKS_ALMOST_FOREVER);
		return true;
	}
}
