void setmangry(struct monst *mtmp)
{
if(mtmp->mpeaceful == 0) {
return;
}
if(mtmp->mtame != 0) {
return;
}
mtmp->mpeaceful = 0;
if(ishuman(mtmp) != 0) {
pline("%s get angry!", Monnam(mtmp));
}
}
int cCombat::CalcDef(P_CHAR pc,int x) // Calculate total defense power
{
P_ITEM pj=NULL;
P_ITEM pShield = pc->getShield();
unsigned int total=pc->def;
if (x==0) // -Fraz- added parrying skill bonuses
{
if (pShield)
total+=(((pc->skill[PARRYING]*pShield->def)/200)+1); // Updated to OSI standars (Skyfire)
} //Displayed AR = ((Parrying Skill * Base AR of Shield) ? 200) + 1
if (pc->skill[PARRYING]==1000)
total+=5; // gm parry bonus.
if (ishuman(pc)) // Added by Magius(CHE)
{
unsigned int ci=0;
P_ITEM pi;
vector<SERIAL> vecContainer = contsp.getData(pc->serial);
for ( ci = 0; ci < vecContainer.size(); ci++)
{
pi = FindItemBySerial(vecContainer[ci]);
if (pi != NULL && pi->layer>1 && pi->layer<25)
{
//blackwinds new stuff
int armordef=0;
if (pi->def>0)
{
float armorhpperc=((float)pi->hp/((float)pi->maxhp/100));
armordef=(int)(((float)pi->def/100)*armorhpperc);
}
if (x==0)
total+=pi->def;
else
{
switch (pi->layer)
{
case 5:
case 13:
case 17:
case 20:
case 22:
if (x==1 && pi->def>total)
{
total=pi->def;
pj=pi;
}
break;
case 19:
if (x==2 && pi->def>total)
{
total=pi->def;
pj=pi;
}
break;
case 6:
if (x==3 && pi->def>total)
{
total=pi->def;
pj=pi;
}
break;
case 3:
case 4:
case 12:
case 23:
case 24:
if (x==4 && pi->def>total)
{
total=pi->def;
pj=pi;
}
break;
case 10:
if (x==5 && pi->def>total)
{
total=pi->def;
pj=pi;
}
break;
case 7:
if (x==6 && pi->def>total)
{
total=pi->def;
pj=pi;
}
break;
default:
break;
}
}
}
}
} else pj=NULL;
UOXSOCKET k=calcSocketFromChar(pc);
if (pj && k!=-1)
{
//AntiChrist - don't damage hairs, beard and backpack
//important! this sometimes cause backpack destroy!
//
if(pj->layer!=0x0B && pj->layer!=0x10 && pj->layer!=0x15) // bugfix lB,was 0x15, 0x15,0x15 !!
{
if((rand()%2)==0)
pj->hp--; //Take off a hit point
if(pj->hp<=0)
{
sysmessage(k, tr("Your %1 has been destroyed").arg(pj->getName().c_str()));
pc->removeItemBonus(pj); // remove BONUS STATS given by equipped special items
//-Frazurbluu- need to have tactics bonus removed also
if ((pj->trigon==1) && (pj->layer >0))// -Frazurbluu- Trigger Type 2 is my new trigger type *-
{
Trig->triggerwitem(k, pj, 1); // trigger is fired when item destroyed
}
Items->DeleItem(pj);
}
statwindow(k, currchar[k]);
}
}
if (total < 2) total = 2;
return total;
}
// CombatHit now expects that LineOfSight has been checked before (Duke, 10.7.2001)
void cCombat::CombatHit(P_CHAR pc_attacker, P_CHAR pc_deffender, unsigned int currenttime, short los)
{
char hit;
if (pc_deffender == NULL || pc_attacker == NULL)
return;
UOXSOCKET s1=calcSocketFromChar(pc_attacker), s2=calcSocketFromChar(pc_deffender);
unsigned short fightskill = Skills->GetCombatSkill(pc_attacker), bowtype = Combat->GetBowType(pc_attacker),splitnum,splitcount,hitin;
unsigned int basedamage;
int damage; // removed from unsigne by Magius(CHE)
signed int x;
// Magius(CHE) - For armour absorbtion system
int maxabs, maxnohabs, tmpj;
P_ITEM pWeapon=pc_attacker->getWeapon();// get the weapon item only once
if (pWeapon && !(rand()%50) // a 2 percent chance (Duke, 07.11.2000)
&& pWeapon->type !=9) // but not for spellbooks (Duke, 09/10/00)
{
pWeapon->hp--; //Take off a hit point
if(pWeapon->hp<=0)
{
sysmessage(s1, tr("Your weapon has been destroyed"));
if ((pWeapon->trigon==1) && (pWeapon->layer>0))// -Frazurbluu- Trigger Type 2 is my new trigger type *-
{
Trig->triggerwitem(s1, pWeapon, 1); // trigger is fired when item destroyed
}
Items->DeleItem(pWeapon);
}
}
// End here - Magius(CHE) - For armour absorbtion system
pc_attacker->swingtarg=-1;
if((chardist(pc_attacker, pc_deffender)>1 && fightskill!=ARCHERY) || !los) return;
if(pc_deffender->isNpc() && pc_deffender->isInvul()) return; // ripper
hit=Skills->CheckSkill(pc_attacker, fightskill, 0, 1000); // increase fighting skill for attacker and defender
if (!hit)
{
if (pc_attacker->isPlayer())
doMissedSoundEffect(pc_attacker);
if ((fightskill==ARCHERY)&&(los))
{
if (rand()%3-1)//-1 0 or 1
{
short id=0x1BFB; // bolts
if (bowtype==1)
id=0x0F3F; // arrows
P_ITEM pAmmo=Items->SpawnItem(pc_deffender,1,"#",1,id,0,0);
if(pAmmo)
{
pAmmo->moveTo(pc_deffender->pos);
pAmmo->priv=1;
RefreshItem(pAmmo);
}
}
}
}
else
{
if (!pc_deffender->isInvul())
{
if (pc_deffender->xid==0x0191) soundeffect2(pc_deffender,0x014b);
else if (pc_deffender->xid==0x0190) soundeffect2(pc_deffender,0x0156);
playmonstersound(pc_deffender, pc_deffender->id(), SND_DEFEND);
//AntiChrist -- for poisoned weapons
if((pWeapon) && (pWeapon->poisoned>0))
{
pc_deffender->poisoned=pWeapon->poisoned;
pc_deffender->poisontime=uiCurrentTime+(MY_CLOCKS_PER_SEC*(40/pc_deffender->poisoned)); // a lev.1 poison takes effect after 40 secs, a deadly pois.(lev.4) takes 40/4 secs - AntiChrist
pc_deffender->poisonwearofftime=pc_deffender->poisontime+(MY_CLOCKS_PER_SEC*SrvParams->poisonTimer()); //wear off starts after poison takes effect - AntiChrist
}
CheckPoisoning(s2, pc_attacker, pc_deffender); // attacker poisons defender
CheckPoisoning(s1, pc_deffender, pc_attacker); // and vice versa
if ((pc_deffender->effDex()>0)) pc_deffender->priv2&=0xFD; // unfreeze
if (fightskill!=WRESTLING && los)
Combat->ItemSpell(pc_attacker, pc_deffender);
if (fightskill!=WRESTLING || pc_attacker->isNpc())
basedamage=Combat->CalcAtt(pc_attacker); // Calc base damage
else
{
if ((pc_attacker->skill[WRESTLING]/100) > 0)
{
if (pc_attacker->skill[WRESTLING]/100!=0)
basedamage=rand()%(pc_attacker->skill[WRESTLING]/100);
else basedamage=0;
}
else basedamage=rand()%2;
}
if((pc_attacker->isPlayer()) && (fightskill!=WRESTLING))
{
if (pWeapon->racehate != 0 && pc_deffender->race != 0)//-Fraz- Racehating combat
{
if (pWeapon->racehate==pc_deffender->race)
{
basedamage *=2;
if(pc_deffender->isPlayer())
{
sysmessage(s2, tr("You scream in agony from being hit by the accursed metal!"));
if (pc_deffender->xid == 0x0191) soundeffect2(pc_deffender,0x0152);
else if (pc_deffender->xid==0x0190) soundeffect2(pc_deffender,0x0157);
}// can add a possible effect below here for npc's being hit
}
}
}
Skills->CheckSkill(pc_attacker, TACTICS, 0, 1000);
damage=(int)(basedamage*((pc_attacker->skill[TACTICS]+500.0)/1000.0)); // Add Tactical bonus
damage=damage+(int)((basedamage*(pc_attacker->st/500.0))); // Add Strength bonus
//Adds a BONUS DAMAGE for ANATOMY
//Anatomy=100 -> Bonus +20% Damage - AntiChrist (11/10/99)
if (Skills->CheckSkill(pc_attacker, ANATOMY, 0, 1000))
{
float multiplier=(((pc_attacker->skill[ANATOMY]*20)/1000.0f)/100.0f)+1;
damage=(int) (damage * multiplier);
}
//Adds a BONUS DEFENCE for TACTICS
//Tactics=100 -> Bonus -20% Damage - AntiChrist (11/10/99)
float multiplier=1-(((pc_deffender->skill[TACTICS]*20)/1000.0f)/100.0f);
damage=(int) (damage * multiplier);
P_ITEM pShield=pc_deffender->getShield();
if(pShield)
{
if (Skills->CheckSkill(pc_deffender, PARRYING, 0, 1000))// chance to block with shield
{
if (pShield->def!=0) damage-=rand()%(pShield->def);// damage absorbed by shield
if(rand()%2) pShield->hp--; //Take off a hit point
if(pShield->hp<=0)
{
sysmessage(s2, tr("Your shield has been destroyed"));
if ((pShield->trigon==1) && (pShield->layer >0))// -Frazurbluu- Trigger Type 2 is my new trigger type *-
{
Trig->triggerwitem(s2, pShield, 1); // trigger is fired when item destroyed
}
Items->DeleItem(pShield);
}
}
}
// Armor destruction and sped up by hitting with maces should go in here somewhere
// According to lacation of body hit Id imagine -Frazurbluu- **NEEDS ADDED**
x=rand()%100;// determine area of body hit
if (!SrvParams->combatHitMessage())
{
if (x<=44) x=1; // body
else if (x<=58) x=2; // arms
else if (x<=72) x=3; // head
else if (x<=86) x=4; // legs
else if (x<=93) x=5; // neck
else x=6; // hands
}
else
{
temp[0] = '\0';
hitin = rand()%2;
if (x<=44)
{
x=1; // body
switch (hitin)
{
case 1:
//later take into account dir facing attacker during battle
if (damage < 10) strcpy(temp, "hits you in your Chest!");
else if (damage >=10) strcpy(temp, "lands a terrible blow to your Chest!");
break;
case 2:
if (damage < 10) strcpy(temp, "lands a blow to your Stomach!");
else if (damage >=10) strcpy(temp, "knocks the wind out of you!");
break;
default:
if (damage < 10) strcpy(temp, "hits you in your Ribs!");
else if (damage >=10) strcpy(temp, "broken your Rib?!");
}
}
else if (x<=58)
{
if (damage > 1)
{
x=2; // arms
switch (hitin)
{
case 1: strcpy(temp, "hits you in Left Arm!"); break;
case 2: strcpy(temp, "hits you in Right Arm!"); break;
default:strcpy(temp, "hits you in Right Arm!");
}
}
}
else if (x<=72)
{
x=3; // head
switch (hitin)
{
case 1:
if (damage < 10) strcpy(temp, "hits you you straight in the Face!");
else if (damage >=10) strcpy(temp, "lands a stunning blow to your Head!");
break;
case 2:
if (damage < 10) strcpy(temp, "hits you to your Head!"); //kolours - (09/19/98)
else if (damage >=10) strcpy(temp, "smashed a blow across your Face!");
break;
default:
if (damage < 10) strcpy(temp, "hits you you square in the Jaw!");
else if (damage >=10) strcpy(temp, "lands a terrible hit to your Temple!");
}
}
else if (x<=86)
{
x=4; // legs
switch (hitin)
{
case 1: strcpy(temp, "hits you in Left Thigh!"); break;
case 2: strcpy(temp, "hits you in Right Thigh!"); break;
default:strcpy(temp, "hits you in Groin!");
}
}
else if (x<=93)
{
x=5; // neck
strcpy(temp, "hits you to your Throat!");
}
else
{
x=6; // hands
switch (hitin)
{
case 1:
if (damage > 1) strcpy(temp, tr("hits you in Left Hand!").latin1());
break;
case 2:
if (damage > 1) strcpy(temp, tr("hits you in Right Hand!").latin1());
break;
default:
if (damage > 1) strcpy(temp, tr("hits you in Right Hand!").latin1());
}
}
sprintf((char*)temp2,"%s %s",pc_attacker->name.c_str(), temp);
if (pc_deffender->isPlayer() && s2!=-1) sysmessage(s2, (char*)temp2); //kolours -- hit display
}
x = CalcDef(pc_deffender,x);
// Magius(CHE) - For armour absorbtion system
maxabs = 20; //
// there are monsters with DEF >20, this makes them undefeatable
maxnohabs=100;
if (SrvParams->maxAbsorbtion() > 0)
{
maxabs = SrvParams->maxAbsorbtion();
}
if (SrvParams->maxnohabsorbtion() > 0)
{
maxnohabs = SrvParams->maxnohabsorbtion();
}
if (!ishuman(pc_deffender)) maxabs=maxnohabs;
tmpj=(int) (damage*x)/maxabs; // Absorbtion by Magius(CHE)
damage -= tmpj;
if (damage<0) damage=0;
if (pc_deffender->isPlayer()) damage /= SrvParams->npcdamage(); // Rate damage against other players
// End Armour Absorbtion by Magius(CHE) (See alse reactive armour spell damage)
if (pc_attacker->isPlayer())//Zippy
ItemCastSpell(s1, pc_deffender,pWeapon);
//AntiChrist - 26/10/99
//when hitten and damage >1, defender fails if casting a spell!
if(damage>1 && pc_deffender->isPlayer())//only if damage>1 and against a player
{
if(pc_deffender->casting && currentSpellType[s2]==0 )
{//if casting a normal spell (scroll: no concentration loosen)
Magic->SpellFail(s2);
currentSpellType[s2]=0;
pc_deffender->spell=-1;
pc_deffender->casting=0;
pc_deffender->spelltime=0;
pc_deffender->priv2 &= 0xfd; // unfreeze, bugfix LB
}
}
if(damage>0)
{
if (pc_deffender->ra) // For reactive armor spell
{
// -Frazurbluu- RA may need a rewrite to be more OSI standard here
// Its said 80% deflected 10% to attacker / 10% defender gotta check special effects
int damage1;
damage1=(int)( damage*(pc_deffender->skill[MAGERY]/2000.0));
pc_deffender->hp -= damage-damage1;
if (pc_deffender->isNpc()) damage1 = damage1 * SrvParams->npcdamage(); // by Magius(CHE)
pc_attacker->hp -= damage1; // Remove damage from attacker
staticeffect(pc_deffender, 0x37, 0x4A, 0, 15);//RA effect - AntiChrist (9/99)
if ((fightskill==MACEFIGHTING) && (IsSpecialMace(pWeapon->id())))// Stamina Loss -Fraz-
{
//pc_attacker->stm-=3+(rand()%4);
}
if ((fightskill==FENCING) && (IsFencing2H(pWeapon->id())))// Paralyzing -Fraz-
{
//will call the combat caused paralyzation **NEED TO DO**
}
if ((fightskill==SWORDSMANSHIP) && (IsAxe(pWeapon->id())))// Concussion Hit -Fraz-
{
//will call the combat caused concussion (loss of int for 30 secs) **NEED TO DO**
// for now make it subtract mana
//pc_attacker->mn-=(pc_attacker->mn/2);
}
updatestats(pc_attacker, 0);
}
else
{ // -Fraz- Now needs adjusted to happen on a skill percentage
pc_deffender->hp-=damage; // Remove damage from defender only apply special hits to non-npc's
if ((fightskill==MACEFIGHTING) && (IsSpecialMace(pWeapon->id())) && (pc_deffender->isPlayer()))// Stamina Loss -Fraz-
{
pc_deffender->stm-=3+(rand()%3);
}
if ((fightskill==FENCING) && (IsFencing2H(pWeapon->id())) && (pc_deffender->isPlayer()))// Paralyzing -Fraz-
{
tempeffect(pc_attacker, pc_deffender, 44, 0, 0, 0);
sysmessage(s1, tr("You delivered a paralyzing blow"));
}
if ((fightskill==SWORDSMANSHIP) && (IsAxe(pWeapon->id())) && (pc_deffender->isPlayer()))// Concussion Hit -Fraz-
{
tempeffect(pc_attacker, pc_deffender, 45, 0, 0, 0);
//pc_attacker->mn-=(pc_attacker->mn/2); //-Fraz- temp use of this for concussion
}
updatestats((pc_deffender), 0);
}
// blood shred by blackwind
if (damage>10)
{
short id = 0x122c;
if (damage>50) id=0x122a;
else if (damage>40) id=0x122d;
else if (damage>30) id=0x122e;
else if (damage>20) id=0x122b;
P_ITEM pBlood = Items->SpawnItem(pc_deffender, 1, "#", 0, id, 0, 0);
if (pBlood)
{
pBlood->moveTo(pc_deffender->pos);
pBlood->priv = 1;
pBlood->setGMMovable(); //Moveable by GM
RefreshItem(pBlood);
pBlood->decaytime = (SrvParams->decayTime()/2)*MY_CLOCKS_PER_SEC+uiCurrentTime;
}
}
///////// For Splitting NPCs /// McCleod
if ((pc_deffender->split>0)&&(pc_deffender->hp>=1))
{
if (rand()%100<=pc_deffender->splitchnc)
{
if (pc_deffender->split==1) splitnum=1;
else splitnum=rand()%pc_deffender->split+1;
for (splitcount=0;splitcount<splitnum;splitcount++)
Npcs->Split(pc_deffender);
}
}
//////// End of spliting NPCs
}
if (pc_attacker->isPlayer())
if((fightskill==ARCHERY && los)|| fightskill!=ARCHERY)
doSoundEffect(pc_attacker, fightskill, pWeapon);
if (pc_deffender->hp<0) pc_deffender->hp=0;
updatestats((pc_deffender), 0);
x = pc_deffender->id();
if (x>=0x0190)
{
if (!pc_deffender->onhorse)
npcaction(pc_deffender, 0x14);
}
}
}
}