hexen2/H2MP/hcode/damage.hc

1777 lines
42 KiB
C++
Raw Permalink Normal View History

2000-11-10 00:00:00 +00:00
/*
* $Header: /H2 Mission Pack/HCode/damage.hc 48 3/27/98 2:14p Mgummelt $
*/
void() T_MissileTouch;
void() info_player_start;
void necromancer_sphere(entity ent);
void crusader_sphere(entity ent);
void(float force_respawn) monster_death_use;
void(entity attacker,float total_damage)player_pain;
void()PlayerDie;
void MonsterDropStuff(void);
void Use_TeleportCoin(void);
void UseInvincibility(void);
void Use_TomeofPower(void);
void use_super_healthboost();
entity FindExpLeader()
{
entity lastent, leader;
float top_exp;
lastent=nextent(world);
num_players=0;
while(lastent)
{
if(lastent.classname=="player")
{
num_players+=1;
if(lastent.experience>top_exp)
{
leader=lastent;
top_exp=leader.experience;
}
}
lastent=find(lastent,classname,"player");
}
return leader;
}
float CheckExpAward (entity attacker,entity targ,float fatality,float damage)
{
float exp_bonus,health_mod,exp_base;
entity lastleader,newking;
if(!attacker.flags&FL_CLIENT)
{
// dprint("Attacker not a player!\n");
return FALSE;
}
if(attacker.deadflag>=DEAD_DYING)
{
// dprint("Attacker dead!\n");
return FALSE;
}
if(world.target=="sheep")
{
if(fatality&&targ.classname=="player_sheep")
{
if(attacker.flags&FL_CLIENT)
{
string sheep_pointer;
sound (attacker, CHAN_BODY, "misc/comm.wav", 1, ATTN_NORM);
exp_base=random();
if(!targ.scale)
targ.scale=1;
sprint(attacker,"Got me a ");
sheep_pointer=ftos(targ.experience_value);
sprint(attacker,sheep_pointer);
sprint(attacker,"-pointer!\n");
if(targ.scale<0.5)
{
sprint(attacker,"Slippery sucker! ");
exp_bonus=rint((0.6-targ.scale)*10);
sheep_pointer=ftos(exp_bonus);
sprint(attacker,sheep_pointer);
sprint(attacker,"-point bonus!\n");
attacker.experience+=exp_bonus;
}
/* if(fatality==2)
{
sprint(attacker,"Non-scope bonus point!");
attacker.experience+=1;
}*/
if(exp_base<0.2)
centerprint(attacker,"Bullseye!\n");
else if(exp_base<0.4)
centerprint(attacker,"Got one!\n");
else if(exp_base<0.6)
centerprint(attacker,"Right in the kill zone!\n");
else if(exp_base<0.8)
centerprint(attacker,"Boo-yah!\n");
else
centerprint(attacker,"Nee-hahhh!\n");
}
attacker.experience+=targ.experience_value;
}
return FALSE;
}
//NOTE: exp_mult is for DM only
health_mod=1;
if(deathmatch)
{
if(attacker.artifact_active&ART_INVINCIBILITY)
health_mod=0.2;//CHEAP!!!
else if(attacker.health>attacker.max_health)
{
health_mod=attacker.max_health/attacker.health;
if(health_mod<0.5)
health_mod=0.5;
}
else if(attacker.health<attacker.max_health*0.5)
{
health_mod=((attacker.max_health*0.5)/attacker.health)*0.1;
if(health_mod>3.3)
health_mod=3.3;
}
}
exp_mult*=health_mod;
if(targ.classname=="player")
{
if(fatality)
if(damage>targ.max_health)
damage=targ.max_health;
targ.experience_value=(targ.level*800 - 500)*exp_mult;
if(fatality)
targ.experience_value*=(damage/targ.max_health);//remainder of health
else
targ.experience_value*=(damage/targ.max_health*0.5);
exp_base=targ.experience_value;
}
else
{
if(fatality)
exp_base=targ.experience_value;//remainder of health
else
exp_base=targ.init_exp_val*(damage/targ.max_health*0.5);//give appropriate exp for % of damage to max_health, divided by 2
}
if(exp_base<=0)
{
// dprint("target has no exp_val\n");
return FALSE;
}
if(attacker.model=="models/sheep.mdl")
{//3000 exp bonus for killing as sheep.
if(fatality)
{
sound (attacker, CHAN_BODY, "misc/comm.wav", 1, ATTN_NORM);
centerprint(attacker,"Sheep kill BONUS!!!\n");
exp_bonus=3000;
}
}
if(deathmatch)
{
lastleader=FindExpLeader();//Find King of the Hill
if(targ.classname=="player")//Exp gained is (level*800 - 500) * exp_mult
{
if(!fatality)
{
if((targ.classname=="player"&&teamplay&&attacker.team==self.team)||attacker==targ)//hit your own guy
{//this is checked above to, but what the hay
// dprint("Attacker hit own teammate in DM!\n");
return FALSE;
}
else
{
// dprint("Attacker valid player in DM!\n");
return exp_base;//exp_bonus only for fatalities
}
}
else
{
attacker.level_frags+=targ.level;//Level frags
if(lastleader==targ&&attacker!=targ)//Killed King
{
sound (attacker, CHAN_ITEM, "misc/comm.wav", 1, ATTN_STATIC);
centerprint(attacker,"You took out the King of the Hill!\n");
if(num_players>2)//Only give bonus if more than 2 players
exp_bonus+=500*(num_players - 2); //Give an extra 500* num players,you beat others to the kill
}
}
}
if((targ.classname=="player"&&teamplay&&attacker.team==targ.team)||attacker==targ)
{
if(!fatality)
{//this is checked above to, but what the hay
// dprint("Attacker hit own teammate in DM!\n");
return FALSE;
}
else if(attacker==targ)
return FALSE;
else
drop_level(attacker,1);//Killed someone on your team, or killed self, lose a level, get no exp
}
else
{
if(targ.classname=="player"&&attacker.level+2<targ.level)
{
if(fatality)
drop_level(targ,1); //If player killed by a lower level player, lose 1 level (diff in levels must be 3 or more)
}
if(attacker!=targ.controller)//No credit for killing your imp!
{
if(!fatality)
{
// dprint("Attacker hit valid player in DM!\n");
return exp_base;//exp_bonus is only for fatalities
}
else
AwardExperience(attacker,targ,exp_base+exp_bonus);
}
else if(!fatality)
{
// dprint("Attacker hit own ent in DM!\n");
return FALSE;
}
}
if(deathmatch)
{
newking=FindExpLeader();
if(newking!=lastleader)
{//Tell everyone if the king of the hill has changed
sound (world, CHAN_BODY, "misc/comm.wav", 1, ATTN_NONE);
bprint(newking.netname);
bprint(" is the NEW King of the Hill!\n");
WriteByte(MSG_ALL, SVC_UPDATE_KINGOFHILL);
WriteEntity (MSG_ALL, newking);
}
}
}
else if(targ.classname=="player"&&coop&&teamplay&&attacker.team==targ.team)
{
if(!fatality)
{
// dprint("Attacker hit own teammate in coop\n");
return FALSE;
}
else
drop_level(attacker,1); //Killed friend in coop, lose a level
}
else if(attacker!=targ.controller&&(targ.monsterclass<CLASS_BOSS||targ.classname=="obj_chaos_orb"))//Bosses award Exp themselves, to all players in coop
{
if(!fatality)
{
// dprint("Attacker hit valid exp targ\n");
return exp_base;//exp_bonus only for fatalities
}
else
AwardExperience(attacker,targ,exp_base+exp_bonus);
}
return TRUE;
}
void poison_think ()
{
self.enemy.deathtype="poison";
T_Damage (self.enemy, self, self.owner, 1 );
if(self.enemy.flags&FL_CLIENT)
stuffcmd(self.enemy,"bf\n");
if(self.lifetime<time||self.enemy.health<=0||(!self.enemy.flags2&FL2_POISONED))
{
self.enemy.flags2(-)FL2_POISONED;
self.think=SUB_Remove;
}
thinktime self : 1;
}
void spawn_poison(entity loser,entity killer,float poison_length)
{
entity poison_ent;
loser.flags2(+)FL2_POISONED;
poison_ent=spawn();
poison_ent.think=poison_think;
poison_ent.enemy=loser;
poison_ent.owner=killer;
thinktime poison_ent : 0.05;
poison_ent.lifetime=time+poison_length;
}
float ClassArmorProtection[20] =
{
// Paladin Armor Protection
.05, // AMULET
.10, // BRACERS
.25, // BREASTPLATE
.15, // HELMET
// Crusader Armor Protection
.15, // AMULET
.05, // BRACER
.10, // BREASTPLATE
.25, // HELMET
// Necromancer Armor Protection
.25, // AMULET
.15, // BRACER
.05, // BREASTPLATE
.10, // HELMET
// Assassin Armor Protection
.10, // AMULET
.15, // BRACER
.25, // BREASTPLATE
.05, // HELMET
// Succubus Armor Protection
.10, // AMULET
.15, // BRACER
.25, // BREASTPLATE
.05 // HELMET
};
//============================================================================
/*
============
CanDamage
Returns true if the inflictor can directly damage the target. Used for
explosions and melee attacks.
============
*/
float(entity targ, entity inflictor) CanDamage =
{
// bmodels need special checking because their origin is 0,0,0
vector inflictor_org,targ_org,ofs;
float targ_rad,loop_cnt;
if(inflictor.flags2&FL_ALIVE)
inflictor_org = inflictor.origin+inflictor.proj_ofs;
else
inflictor_org = (inflictor.absmin+inflictor.absmax)*0.5;
targ_org=(targ.absmin+targ.absmax)*0.5;
// targ_rad=targ.maxs_x;
targ_rad=15;
if (targ.movetype == MOVETYPE_PUSH)
{
traceline(inflictor_org, targ_org, TRUE, self);
if (trace_fraction == 1)
return TRUE;
if (trace_ent == targ)
return TRUE;
return FALSE;
}
ofs='0 0 0';
loop_cnt=5;
while(loop_cnt)
{
if(loop_cnt!=5)
{
if(loop_cnt<3)
ofs_x=targ_rad*-1;
else
ofs_x=targ_rad;
if(loop_cnt==3||loop_cnt==2)
ofs_y=targ_rad*-1;
else
ofs_y=targ_rad;
}
traceline(inflictor_org, targ_org + ofs, TRUE, self);
if (trace_fraction == 1)
return TRUE;
loop_cnt-=1;
}
// dprintv("Can't damage from %s",inflictor_org);
// dprintv(" to %s\n",targ_org);
return FALSE;
};
float Pal_DivineIntervention(void)
{
float chance;
if (self.level < 6)
return(FALSE);
chance = self.level * .02;
if (chance > .20)
chance = .20;
if (chance < random())
return(FALSE);
centerprint (self,"Your God has saved your mortal body!");
self.health = self.max_health;
self.cnt_teleport += 1;
Use_TeleportCoin();
self.cnt_invincibility += 1;
UseInvincibility ();
self.invincible_time = time + 5;
self.cnt_tome += 1;
Use_TomeofPower ();
self.artifact_active(+)ARTFLAG_DIVINE_INTERVENTION;
self.divine_time = time + HX_FRAME_TIME;
sound (self, CHAN_BODY, "paladin/devine.wav", 1, ATTN_NORM);
return(TRUE);
}
/*
============
Killed
============
*/
void(entity targ, entity attacker, entity inflictor,float damage) Killed =
{
entity oself;
oself = self;
self = targ;
if(!self.flags2&FL_ALIVE)
if (self.movetype == MOVETYPE_PUSH || self.movetype == MOVETYPE_NONE)
{ // doors, triggers, etc
if(self.th_die)
self.th_die();
self=oself;
return;
}
self.flags2(-)FL_ALIVE;
self.touch = self.th_pain = SUB_Null;
if (attacker.classname == "player")
{
if ((attacker.playerclass==CLASS_NECROMANCER) && (attacker.level >= 3))
{
if ((targ.flags & FL_MONSTER) || (targ.flags & FL_CLIENT))
necromancer_sphere (attacker);
}
else if ((attacker.playerclass==CLASS_CRUSADER) && (attacker.level >= 3))
{
if ((targ.flags & FL_MONSTER) || (targ.flags & FL_CLIENT))
crusader_sphere (attacker);
}
}
//Check for decapitation death
self.movedir='0 0 0';
if(self.model!="models/sheep.mdl"&&self.deathtype!="teledeath"&&self.deathtype!="teledeath2"&&self.deathtype!="teledeath3"&&self.deathtype != "teledeath4")
if
(inflictor.classname=="ax_blade"||
(inflictor.classname=="player"&&
(
(attacker.playerclass==CLASS_ASSASSIN&&attacker.weapon==IT_WEAPON1)||
(attacker.playerclass==CLASS_PALADIN&&attacker.weapon!=IT_WEAPON4)||
(attacker.playerclass==CLASS_NECROMANCER&&attacker.weapon==IT_WEAPON1)
)
)
)
if(random()<0.3||self.classname=="monster_medusa")
self.decap=2;
else
self.decap=TRUE;
else if(inflictor.classname!="player"&&vlen(inflictor.origin-self.origin+self.view_ofs)<=17&&self.health>=-40&&self.health<-10)
if(random()<0.4)
{
self.movedir=normalize(self.origin+self.view_ofs-inflictor.origin);
self.decap=2;
}
if(self.skin==GLOBAL_SKIN_STONE||self.frozen>0)
{ //Frozen or stoned
if(self.classname!="player")
self.th_die=shatter;
thinktime self : 0;
self.attack_finished=time;
self.pausetime=time;
self.teleport_time=time;
if(self.frozen>0)
self.deathtype="ice shatter";
else if(self.skin==GLOBAL_SKIN_STONE)
self.deathtype="stone crumble";
}
if (self.classname == "player")
ClientObituary(self, attacker, inflictor);
if(world.target=="sheep")
{
if(inflictor.scoped)
CheckExpAward(attacker,self,TRUE,damage);
else
CheckExpAward(attacker,self,2,damage);
}
else
CheckExpAward(attacker,self,TRUE,damage);
/*
if(attacker.deadflag<DEAD_DYING)
{
if(attacker.model=="models/sheep.mdl"&&attacker.flags&FL_CLIENT)
{//3000 exp bonus for killing as sheep.
sound (attacker, CHAN_BODY, "misc/comm.wav", 1, ATTN_NORM);
centerprint(attacker,"Sheep kill BONUS!!!\n");
exp_bonus=3000;
}
if(deathmatch)
{
entity lastleader;
if(self.classname=="player")
self.experience_value=(self.level*800 - 500)*exp_mult;//Exp gained is (level*800 - 500) * exp_mult
if(attacker.flags&FL_CLIENT)
{
attacker.level_frags+=self.level;//Level frags
lastleader=FindExpLeader();//Find King of the Hill
if(lastleader==targ&&attacker!=targ)//Killed King
{
sound (world, CHAN_BODY, "misc/comm.wav", 1, ATTN_NONE);
bprint(attacker.netname);
bprint(" took out the King of the Hill (");
bprint(targ.netname);
bprint(")!!!\n");
if(num_players>2)//Only give bonus if more than 2 players
targ.experience_value+=500*num_players - 2; //Give an extra 500* num players,you beat others to the kill
}
if((self.classname=="player"&&attacker.classname=="player"&&teamplay&&attacker.team==self.team)||attacker==targ)
drop_level(attacker,1);//Killed someone on your team, or killed self, lose a level, get no exp
else
{
if(attacker.level<targ.level)
drop_level(targ,1); //If killed by a lower level player, lose 1 level
if(attacker!=self.controller)//No credit for killing your imp!
AwardExperience(attacker,self,self.experience_value+exp_bonus);
}
if(FindExpLeader()!=lastleader)
{//Tell everyone if the king of the hill has changed
sound (world, CHAN_BODY, "misc/comm.wav", 1, ATTN_NONE);
bprint(attacker.netname);
bprint(" is the NEW King of the Hill!\n");
}
}
}
else if(self.classname=="player"&&attacker.classname=="player"&&(coop||teamplay&&attacker.team==self.team))
drop_level(attacker,1); //Killed friend in coop, lose a level
else if(attacker.flags&FL_CLIENT&&attacker!=self.controller&&(self.monsterclass<CLASS_BOSS||self.classname=="obj_chaos_orb"))//Bosses award Exp themselves, to all players in coop
AwardExperience(attacker,self,self.experience_value+exp_bonus);
}
*/
self.enemy = attacker;
// bump the monster counter
if(self.model=="models/sheep.mdl"&&world.target=="sheep")
monster_death_use(TRUE);
if (self.flags & FL_MONSTER)
{
self.experience_value= self.init_exp_val = 0;
if(world.model=="maps/monsters.bsp")
self.targetname="";//THE PIT!
if(self.puzzle_id=="")
MonsterDropStuff();
killed_monsters = killed_monsters + 1;
WriteByte (MSG_ALL, SVC_KILLEDMONSTER);
if(self.classname!="monster_imp_lord"&&self.classname!="monster_fish")
monster_death_use(FALSE);
pitch_roll_for_slope('0 0 0',self);
}
else if(self.th_die==SUB_Null)
if(self.target)
SUB_UseTargets();
self.th_stand=self.th_walk=self.th_run=self.th_pain=self.oldthink=self.think=self.th_melee=self.th_missile=SUB_Null;
if(pointcontents(self.origin+self.view_ofs)==CONTENT_WATER)
DeathBubbles(20);
if(attacker.classname=="rider_death")
spawn_ghost(attacker);
if(self.puzzle_id!="")
DropPuzzlePiece();
if(oself!=targ)
{
if(self.classname=="player")
PlayerDie();
else if (self.th_die)
self.th_die ();
self = oself;
}
else
{
if(self.classname=="player")
self.think=PlayerDie;
else if (self.th_die)
self.think=self.th_die;
thinktime self : 0;
}
if (self.health < -99)
self.health = -99; // don't let sbar look bad if a player
};
void monster_pissed (entity attacker)
{
entity found;
if(self.controller.classname=="player")
{//Summoned/controlled monsters
if(coop)
if(found.classname=="player")
return;
if(deathmatch&&teamplay)
if(found.team==self.controller.team)
return;
}
if (self.enemy.classname == "player")
self.oldenemy = self.enemy;
self.enemy = attacker;
self.goalentity = self.enemy;
if (self.th_walk)
FoundTarget ();
}
float armor_inv(entity victim)
{
float armor_cnt;
armor_cnt =0;
if (victim.armor_amulet)
armor_cnt += 1;
if (victim.armor_bracer)
armor_cnt += 1;
if (victim.armor_breastplate)
armor_cnt += 1;
if (victim.armor_helmet)
armor_cnt += 1;
return(armor_cnt);
}
float armor_calc(entity targ,float damage)
{
float total_armor_protection;
float armor_cnt;
float armor_damage;
float perpiece;
float curr_damage,armor_damage;
total_armor_protection = 0;
if (targ.armor_amulet)
total_armor_protection += ClassArmorProtection[targ.playerclass - 1];
if (targ.armor_bracer)
total_armor_protection += ClassArmorProtection[targ.playerclass - 1 + 1];
if (targ.armor_breastplate)
total_armor_protection += ClassArmorProtection[targ.playerclass - 1 + 2];
if (targ.armor_helmet)
total_armor_protection += ClassArmorProtection[targ.playerclass - 1 + 3];
total_armor_protection += targ.level * .001;
armor_cnt = armor_inv(targ);
if (armor_cnt) // There is armor
{
armor_damage = total_armor_protection * damage;
// Damage is greater than all the armor
if (armor_damage > (targ.armor_amulet + targ.armor_bracer +
targ.armor_breastplate + targ.armor_helmet))
{
targ.armor_amulet = 0;
targ.armor_bracer = 0;
targ.armor_breastplate = 0;
targ.armor_helmet = 0;
}
else // Damage the armor
{
curr_damage = armor_damage;
// FIXME: Commented out the loop for E3 because of a runaway loop message
// while (curr_damage>0)
// {
armor_cnt = armor_inv(targ);
perpiece = curr_damage / armor_cnt;
if ((targ.armor_amulet) && (curr_damage))
{
targ.armor_amulet -= perpiece;
curr_damage -= perpiece;
if (targ.armor_amulet < 0)
{
curr_damage -= targ.armor_amulet;
targ.armor_amulet = 0;
}
if (targ.armor_amulet < 1)
targ.armor_amulet = 0;
}
if ((targ.armor_bracer) && (curr_damage))
{
targ.armor_bracer -= perpiece;
curr_damage -= perpiece;
if (targ.armor_bracer < 0)
{
curr_damage -= targ.armor_bracer;
targ.armor_bracer = 0;
}
if (targ.armor_bracer < 1)
targ.armor_bracer = 0;
}
if ((targ.armor_breastplate) && (curr_damage))
{
targ.armor_breastplate -= perpiece;
curr_damage -= perpiece;
if (targ.armor_breastplate < 0)
{
curr_damage -= targ.armor_breastplate;
targ.armor_breastplate = 0;
}
if (targ.armor_breastplate < 1)
targ.armor_breastplate = 0;
}
if ((targ.armor_helmet) && (curr_damage))
{
targ.armor_helmet -= perpiece;
curr_damage -= perpiece;
if (targ.armor_helmet < 0)
{
curr_damage -= targ.armor_helmet;
targ.armor_helmet = 0;
}
if (targ.armor_helmet < 1)
targ.armor_helmet = 0;
}
// }
}
}
else
armor_damage =0;
return(armor_damage);
}
/*
============
T_Damage
The damage is coming from inflictor, but get mad at attacker
This should be the only function that ever reduces health.
============
*/
void(entity targ, entity inflictor, entity attacker, float damage) T_Damage=
{
vector dir;
entity oldself;
float save;
float total_damage,do_mod;
float armor_damage;
float hurt_exp_award;
entity holdent,lastleader,newking;
if (!targ.takedamage)
return;
if(targ.camera_time>=time&&!deathmatch)
return;
if (targ.classname=="monster_yakman"&&targ.pain_finished>time)
return;
if(targ.thingtype==THINGTYPE_ACID&&inflictor.thingtype==THINGTYPE_ACID)
return;
if(targ.invincible_time>time)
{
sound(targ,CHAN_ITEM,"misc/pulse.wav",1,ATTN_NORM);
return;
}
if(inflictor.classname=="cube_of_force")
attacker=inflictor.controller;
if(targ!=attacker)
if (targ.deathtype != "teledeath"&&targ.deathtype != "teledeath2"&&targ.deathtype != "teledeath3"&&targ.deathtype != "teledeath4")
{
if(coop&&teamplay&&attacker.classname=="player"&&targ.classname=="player")
return;
if(teamplay)
if(attacker.classname=="player"&&targ.classname=="player")
if(attacker.team==targ.team)
return;
}
if (targ.flags & FL_GODMODE)
return;
if(targ.classname=="monster_mezzoman")
{
if(inflictor.flags2&FL_NODAMAGE)
{
inflictor.flags2(-)FL_NODAMAGE;
if(random()<0.3)
CreateSpark (inflictor.origin);
return;
}
if(targ.movechain.classname=="mezzo reflect")
if(infront_of_ent(inflictor,targ))
{
sound(targ,CHAN_AUTO,"mezzo/slam.wav",1,ATTN_NORM);
makevectors(targ.angles);
if(random()<0.1)
CreateSpark(targ.origin+targ.view_ofs+v_forward*12);
else if(random()<0.7)
particle4(targ.origin+targ.view_ofs+v_forward*12,random(5,15),256 + (8 * 15),PARTICLETYPE_FASTGRAV,2 * damage);
return;
}
}
// Nothing but melee weapons hurt the snake
// if ((targ.classname == "monster_snake") &&
// ((!inflictor.classname == "player") || (!attacker.classname == "player")))
// return;
if(targ.health<=0)
{
targ.health=targ.health-damage;//Keep taking damage while dying, if enough, may gib in mid-death
return;
}
if(deathmatch)
if(targ.flags&FL_CLIENT)
if(targ.viewentity!=targ&&targ.viewentity!=world)
{
oldself=self;
self=targ;
CameraReturn();
self=oldself;
}
//Damage modifiers
// used by buttons and triggers to set activator for target firing
//NOTE: EXPERIMENTAL, FIXME?
if(skill>=4)
{//NOTE: respawn monster when it dies after 10 seconds?
if(targ.flags&FL_CLIENT)
damage*=2;
}
damage_attacker = attacker;
if(attacker.flags&FL_CLIENT&&attacker==inflictor)
{//Damage mod for strength using melee weaps
if(attacker.weapon==IT_WEAPON1)
{
if(attacker.playerclass==CLASS_CRUSADER)
{
if(!attacker.artifact_active&ART_TOMEOFPOWER)
do_mod=TRUE;
}
else
do_mod=TRUE;
}
else if(attacker.playerclass==CLASS_PALADIN)
if(attacker.weapon==IT_WEAPON2&&!attacker.artifact_active&ART_TOMEOFPOWER)
do_mod=TRUE;
if(do_mod)
{
do_mod = attacker.strength - 11;
damage+=damage*do_mod/30;//from .84 - 1.23
}
}
if(targ.flags&FL_MONSTER&&inflictor.flags2&FL2_ADJUST_MON_DAM)
damage*=2;//Special- more damage against monsters
if (attacker.super_damage)
damage += attacker.super_damage * damage;
// Calculating Damage to a player
if (targ.classname == "player")
{ // How much armor does he have
armor_damage = armor_calc(targ,damage);
// What hits player
total_damage = damage - armor_damage;
}
else
total_damage = damage;
// add to the damage total for clients, which will be sent as a single
// message at the end of the frame
// FIXME: remove after combining shotgun blasts?
if (targ.flags & FL_CLIENT)
{
targ.dmg_take = targ.dmg_take + total_damage;
targ.dmg_save = targ.dmg_save + save;
targ.dmg_inflictor = inflictor;
}
// figure momentum add
if ( (inflictor != world) && (targ.movetype == MOVETYPE_WALK) )
{
dir = targ.origin - (inflictor.absmin + inflictor.absmax) * 0.5;
dir = normalize(dir);
targ.velocity = targ.velocity + dir*damage*8;
}
// check for godmode or invincibility
// do the damage
targ.health = targ.health - total_damage;
if(targ.health>=0&&targ.health<1.0000)//No more Zombie mode!!! (Sorry!)
targ.health=-0.1;
if (targ.health <=0 && targ.classname == "player" && targ.cnt_sh_boost)
{
if (deathmatch || skill == 0) // Only in deatmatch or easy mode
{
holdent = self;
self = targ;
use_super_healthboost();
centerprint(self,"Saved by the Mystic Urn!\n");
stuffcmd(self,"bf\n");
sound (self, CHAN_AUTO, "misc/comm.wav", 1, ATTN_NORM);
self.deathtype="";
self = holdent;
return;
}
}
// Check to see if divine intervention took place
if ((targ.health <= 0) && (targ.classname == "player") && (targ.playerclass == CLASS_PALADIN))
{
holdent = self;
self = targ;
if (Pal_DivineIntervention())
{
self.deathtype="";
self = holdent;
return;
}
self = holdent;
}
if (targ.health <= 0)
{
if(attacker.controller.classname=="player")
{//Proper frag credit to controller of summoned stuff
inflictor=attacker;
attacker=attacker.controller;
}
targ.th_pain=SUB_Null; //Should prevents interruption of death sequence
Killed (targ, attacker,inflictor,total_damage);
return;
}
// react to the damage
oldself = self;
self = targ;
/* if(self.experience_value)
{
if(!self.max_health)
dprint("WARNING! EXPERIENCE AWARDER WITHOUT MAX_HEALTH!!!\n");
if(self.max_health<self.health)
{
dprint(self.classname);
dprint(" - WARNING! MAX_HEALTH<HEALTH!!!\n");
}
if(self.init_exp_val<self.experience_value)
dprint("WARNING! EXPERIENCE > INIT_EXP!!!\n");
}
*/
lastleader=FindExpLeader();
hurt_exp_award=CheckExpAward(attacker,self,FALSE,total_damage);
if(hurt_exp_award>0)
{
AwardExperience(attacker,self,hurt_exp_award);
if(deathmatch)
{
newking=FindExpLeader();
if(newking!=lastleader)
{//Tell everyone if the king of the hill has changed
sound (world, CHAN_BODY, "misc/comm.wav", 1, ATTN_NONE);
bprint(newking.netname);
bprint(" is the NEW King of the Hill!\n");
WriteByte(MSG_ALL, SVC_UPDATE_KINGOFHILL);
WriteEntity (MSG_ALL, newking);
}
}
if(self.classname!="player")
self.experience_value-=hurt_exp_award;
}
// barrels need sliding information
if (self.classname == "barrel")
{
self.enemy = inflictor;
self.count = total_damage;
}
else if (self.classname == "catapult")
self.enemy = inflictor;
else if(self.classname=="player")
self.enemy = attacker;
if ( (self.flags & FL_MONSTER) && attacker != world && !(attacker.flags & FL_NOTARGET)&&attacker!=self.controller&&(attacker.controller!=self.controller||attacker.controller==world))
{ // Monster's shouldn't attack each other (kin don't shoot kin)
if (self != attacker && attacker != self.enemy&&(self.enemy.classname!="player"||attacker.classname=="player"||(attacker.controller.classname=="player"&&attacker.flags2&FL_ALIVE)))// && attacker.flags & FL_CLIENT)
{
if (self.classname != attacker.classname||random(100)<=5) //5% chance they'll turn on selves
{
if((self.model=="models/spider.mdl"||self.model=="models/scorpion.mdl")&&attacker.model==self.model)
{
if(random()<0.3)
monster_pissed(attacker);
}
else
monster_pissed(attacker);
}
}
}
if (self.th_pain)
if(self.th_pain!=SUB_Null)
{
if(self.classname=="player"&&self.model!="models/sheep.mdl")
player_pain(attacker, total_damage);
else if(self.frozen<=0)
self.th_pain (attacker, total_damage);
// nightmare mode monsters don't go into pain frames often
if (skill >= 3)
self.pain_finished = time + 5;
}
self = oldself;
};
/*
============
T_RadiusDamage
============
*/
//void(entity loser)SpawnFlameOn;
void(entity inflictor, entity attacker, float damage, entity ignore) T_RadiusDamage =
{
float points,inertia,radius;
entity head;
vector inflictor_org, org;
//FIXME: If too many radius damage effects go off at the same time, it crashes in a loop
// This usually occurs when object whose death is radius damage destoy
// other objects with a radius damage death (namely: exploding barrels)
inflictor_org = (inflictor.absmin+inflictor.absmax)*0.5;
if(inflictor.classname=="circfire")
radius=150;
else if(inflictor.classname=="poison grenade")
radius=200;//FIXME- greater distance above...
else
radius=damage+40;
head = findradius(inflictor_org, radius);
if(inflictor.classname=="fireballblast")
damage+=attacker.level*33;
while (head)
{
if (head != ignore&&head!=inflictor)// && head!=inflictor.owner)
{
if (head.takedamage)
{
org = (head.absmax + head.absmin)*0.5;
if(inflictor.classname=="poison grenade")
{
if(head.flags2&FL_ALIVE&&head.thingtype==THINGTYPE_FLESH)
points=0;
else
points=damage;
}
else
points = 0.5*vlen (inflictor_org - org);
if (points < 0)
points = 0;
points = damage - points;
if (head == attacker)
if(attacker.classname=="monster_eidolon"||attacker.playerclass==CLASS_NECROMANCER)//Necromancer takes no radius damage from his own magic
points = 0;
else if(inflictor.model=="models/assgren.mdl")//Some more resistance to the Assassin's own Big One
points*=0.25;
else
points*=0.5;
//following stops multiple grenades from blowing each other up
if(head.owner==inflictor.owner&&
head.classname==inflictor.classname&&
(head.classname=="stickmine"||head.classname=="tripwire"||head.classname=="proximity"))
points=0;
if((inflictor.classname=="snowball"||inflictor.classname=="blizzard")&&head.frozen>0)
points=0;
if (points > 0)
{
if (CanDamage (head, inflictor)||inflictor.classname=="fireballblast")
{
if(other.movetype!=MOVETYPE_PUSH)
{
if (head.mass<=10)
inertia = 1;
else if(head.mass<=100)
inertia = head.mass/10;
else
inertia = head.mass;
head.velocity=head.velocity+normalize(org-inflictor_org)*(points*10/inertia);
head.flags(-)FL_ONGROUND;
}
if(inflictor.classname=="poison grenade")
{
if(!head.flags2&FL2_POISONED)
{//Poison them
if(head.flags&FL_CLIENT&&(coop||teamplay==1))
{
if(head.team!=attacker.team&&!coop)
{
centerprint(head,"You have been poisoned!\n");
spawn_poison(head,attacker,random(10,20));
}
}
else
spawn_poison(head,attacker,random(10,20));
}
}
if(inflictor.classname=="fireballblast")
{
if(points>10||points<5)
points=random(5,10);
if(head.flags2&FL2_FIREHEAL)
{
if(head.health+points<=head.max_health)
head.health=head.health+points;
else
head.health=head.max_health;
}
if(head.health<=points)
points=1000;
T_Damage (head, inflictor, attacker, points);
}
else
T_Damage (head, inflictor, attacker, points);
}
}
}
}
head = head.chain;
}
};
/*
============
T_RadiusDamageWater
============
*/
void(entity inflictor, entity attacker, float dam, entity ignore) T_RadiusDamageWater =
{
float points;
entity head;
vector org;
head = findradius(inflictor.origin, dam);
while (head!=world)
{
if (head != ignore)
{
if (head.takedamage)
{
if (pointcontents(head.origin) == CONTENT_WATER || pointcontents(head.origin) == CONTENT_SLIME) // visible(inflictor)?
{
if (head.classname == "player" && head != attacker)
head.enemy = attacker;
org = head.origin + (head.mins + head.maxs)*0.5;
points = 0.25 * vlen (inflictor.origin - org);
if (points <= 64)
points = 1;
points = dam/points;
if (points < 1||(self.classname=="mjolnir"&&head==self.controller)||head.classname=="monster_hydra"||(head.classname=="player"&&head==attacker))
points = 0;
if (points > 0)
{
head.deathtype="zap";
// spawnshockball((head.absmax+head.absmin)*0.5);
starteffect(CE_LSHOCK,(head.absmax+head.absmin)*0.5);
T_Damage (head, inflictor, attacker, points);
//Bubbles if dead?
}
}
}
}
head = head.chain;
}
};
/*
============
T_BeamDamage
============
*/
/*
void(entity attacker, float damage) T_BeamDamage =
{
local float points;
local entity head;
head = findradius(attacker.origin, damage+40);
while (head)
{
if (head.takedamage)
{
points = 0.5*vlen (attacker.origin - head.origin);
if (points < 0)
points = 0;
points = damage - points;
if (head == attacker)
points = points * 0.5;
if (points > 0)
{
if (CanDamage (head, attacker))
T_Damage (head, attacker, attacker, points);
}
}
head = head.chain;
}
};
*/
/*
============
T_RadiusManaDamage
============
*/
/*
void(entity inflictor, entity attacker, float manadamage, entity ignore) T_RadiusManaDamage =
{
local float points;
local entity head;
local vector org;
head = findradius(inflictor.origin, manadamage);
while (head)
{
if (head != ignore)
{
if ((head.takedamage) && (head.classname=="player"))
{
org = head.origin + (head.mins + head.maxs)*0.5;
points = 0.5 * vlen (inflictor.origin - org);
if (points < 0)
points = 0;
points = manadamage - points;
if (head == attacker)
points = points * 0.5;
if (points > 0)
{
if (CanDamage (head, inflictor))
{
head.bluemana = head.bluemana - points;
if (head.bluemana<0)
head.bluemana=0;
head.greenmana = head.greenmana - points;
if (head.greenmana<0)
head.greenmana=0;
}
}
}
}
head = head.chain;
}
};
*/
/*
* $Log: /H2 Mission Pack/HCode/damage.hc $
*
* 48 3/27/98 2:14p Mgummelt
* Sheephunt fix
*
* 47 3/23/98 7:01p Mgummelt
*
* 46 3/23/98 6:44p Mgummelt
*
* 45 3/23/98 5:48p Mgummelt
*
* 44 3/17/98 11:02a Mgummelt
*
* 43 3/16/98 8:31p Mgummelt
*
* 42 3/14/98 11:09p Mgummelt
*
* 41 3/13/98 3:02a Mgummelt
*
* 40 3/11/98 7:28p Mgummelt
*
* 39 3/10/98 12:21a Mgummelt
*
* 38 3/09/98 7:06p Mgummelt
*
* 37 3/09/98 3:05p Mgummelt
*
* 36 3/09/98 12:30p Mgummelt
*
* 35 3/06/98 4:55p Mgummelt
*
* 34 3/04/98 5:57p Mgummelt
*
* 33 3/04/98 3:39p Mgummelt
*
* 32 3/03/98 7:31p Mgummelt
*
* 31 3/03/98 1:58p Jmonroe
*
* 30 3/03/98 1:56p Mgummelt
*
* 29 3/02/98 7:57p Mgummelt
*
* 28 3/02/98 11:51a Mgummelt
*
* 27 3/01/98 3:12p Mgummelt
*
* 26 2/26/98 1:11a Mgummelt
*
* 25 2/21/98 4:01p Mgummelt
*
* 24 2/17/98 5:31p Mgummelt
*
* 23 2/16/98 10:54a Mgummelt
*
* 22 2/12/98 2:48p Mgummelt
*
* 21 2/10/98 4:21p Mgummelt
*
* 20 2/09/98 3:42p Mgummelt
*
* 19 2/08/98 3:09p Mgummelt
*
* 18 2/07/98 1:58p Mgummelt
*
* 17 2/06/98 9:59p Mgummelt
* Implemented Succubus' special abilities.
*
* 16 2/05/98 12:30p Mgummelt
*
* 15 2/04/98 4:58p Mgummelt
* spawnflags on monsters cleared out
*
* 14 2/03/98 7:08p Mgummelt
*
* 13 1/28/98 3:10p Mgummelt
*
* 12 1/27/98 4:18p Mgummelt
*
* 11 1/26/98 6:18p Mgummelt
*
* 10 1/19/98 6:20p Mgummelt
*
* 9 1/14/98 7:43p Mgummelt
*
* 8 1/08/98 4:25p Mgummelt
*
* 7 1/07/98 2:34p Mgummelt
*
* 156 10/29/97 4:05p Mgummelt
*
* 155 10/28/97 1:00p Mgummelt
* Massive replacement, rewrote entire code... just kidding. Added
* support for 5th class.
*
* 153 10/07/97 12:59p Mgummelt
*
* 152 9/25/97 11:11a Mgummelt
*
* 151 9/11/97 4:33p Mgummelt
*
* 150 9/11/97 12:02p Mgummelt
*
* 149 9/10/97 7:50p Mgummelt
*
* 148 9/10/97 7:34p Mgummelt
*
* 147 9/09/97 3:59p Mgummelt
*
* 146 9/03/97 7:50p Mgummelt
*
* 145 9/03/97 7:47p Mgummelt
*
* 144 9/02/97 9:06p Mgummelt
*
* 143 9/02/97 6:05p Mgummelt
*
* 142 9/02/97 3:33p Mgummelt
*
* 141 9/02/97 2:55a Mgummelt
*
* 140 9/01/97 11:12p Rlove
*
* 139 9/01/97 3:27p Mgummelt
*
* 138 9/01/97 3:08a Mgummelt
*
* 137 9/01/97 1:35a Mgummelt
*
* 136 8/31/97 10:48p Mgummelt
*
* 135 8/31/97 2:36p Mgummelt
*
* 134 8/31/97 11:38a Mgummelt
* To which I say- shove where the sun don't shine- sideways! Yeah!
* How's THAT for paper cut!!!!
*
* 133 8/31/97 8:52a Mgummelt
*
* 132 8/29/97 11:42p Mgummelt
*
* 131 8/29/97 8:26p Mgummelt
*
* 130 8/29/97 4:17p Mgummelt
* Long night
*
* 129 8/29/97 12:33a Mgummelt
*
* 128 8/29/97 12:33a Mgummelt
*
* 127 8/28/97 8:56p Mgummelt
*
* 126 8/28/97 2:42p Mgummelt
*
* 125 8/28/97 12:44a Mgummelt
*
* 124 8/27/97 11:44p Mgummelt
*
* 123 8/27/97 11:30p Mgummelt
*
* 122 8/27/97 10:52p Mgummelt
*
* 121 8/26/97 10:28p Mgummelt
*
* 120 8/26/97 6:00p Mgummelt
*
* 119 8/26/97 10:17a Mgummelt
*
* 118 8/26/97 9:30a Mgummelt
*
* 117 8/26/97 7:38a Mgummelt
*
* 116 8/26/97 2:26a Mgummelt
*
* 115 8/24/97 4:03p Rlove
*
* 114 8/21/97 1:53p Mgummelt
*
* 113 8/21/97 4:23a Mgummelt
*
* 112 8/21/97 3:33a Mgummelt
*
* 111 8/20/97 3:44p Mgummelt
*
* 110 8/20/97 1:16p Rlove
*
* 109 8/19/97 1:09p Mgummelt
*
* 108 8/19/97 12:57p Mgummelt
*
* 107 8/18/97 4:47p Rlove
*
* 106 8/17/97 3:45p Mgummelt
*
* 105 8/17/97 3:06p Mgummelt
*
* 104 8/16/97 6:25p Mgummelt
*
* 103 8/15/97 11:27p Mgummelt
*
* 102 8/15/97 4:59p Mgummelt
*
* 101 8/15/97 2:40p Rlove
*
* 100 8/14/97 10:27p Bgokey
*
* 99 8/14/97 8:31p Mgummelt
*
* 98 8/14/97 4:47p Mgummelt
*
* 97 8/14/97 5:55a Rlove
* Now it really works when you die and Super Health brings you back to
* life.
*
* 96 8/13/97 5:33p Rlove
*
* 95 8/13/97 5:32p Mgummelt
*
* 94 8/13/97 12:11p Mgummelt
*
* 93 8/13/97 8:15a Rlove
*
* 92 8/11/97 3:27p Rlove
* Work on Divine Intervention
*
* 91 8/11/97 2:54p Rlove
*
* 90 8/09/97 6:28a Mgummelt
*
* 89 8/09/97 4:14a Mgummelt
*
* 88 8/09/97 2:04a Mgummelt
*
* 87 8/09/97 1:49a Mgummelt
*
* 86 8/06/97 10:18p Mgummelt
*
* 85 8/05/97 8:32p Mgummelt
*
* 84 8/05/97 6:47p Mgummelt
*
* 83 8/05/97 11:24a Rlove
* Only melee hurts the snake
*
* 82 8/02/97 10:17a Rlove
* Monster don't attack monsters any more.
*
* 81 7/30/97 11:49p Mgummelt
*
* 80 7/30/97 11:22p Mgummelt
*
* 79 7/30/97 3:32p Mgummelt
*
* 78 7/29/97 9:15p Mgummelt
*
* 77 7/28/97 7:50p Mgummelt
*
* 76 7/28/97 2:10p Mgummelt
*
* 75 7/28/97 1:51p Mgummelt
*
* 74 7/26/97 8:38a Mgummelt
*
* 73 7/25/97 11:26p Mgummelt
*
* 72 7/25/97 3:50p Mgummelt
*
* 71 7/25/97 11:20a Mgummelt
*
* 70 7/24/97 12:33p Mgummelt
*
* 69 7/24/97 12:30p Mgummelt
*
* 68 7/24/97 3:26a Mgummelt
*
* 67 7/21/97 3:03p Rlove
*
* 66 7/21/97 12:35p Mgummelt
*
* 65 7/21/97 11:45a Mgummelt
*
* 64 7/19/97 9:53p Mgummelt
*
* 63 7/18/97 11:06a Mgummelt
*
* 62 7/17/97 4:12p Mgummelt
*
* 61 7/17/97 2:17p Mgummelt
*
* 60 7/15/97 8:41p Mgummelt
*
* 59 7/15/97 8:30p Mgummelt
*
* 58 7/15/97 8:03p Mgummelt
*
* 57 7/01/97 3:30p Mgummelt
*
* 56 7/01/97 2:21p Mgummelt
*
* 55 7/01/97 9:46a Rlove
* Crusader soul sphere is in. It does double damage.
*
* 54 6/30/97 7:30p Rlove
*
* 53 6/30/97 3:23p Mgummelt
*
* 52 6/29/97 10:56a Rlove
*
* 51 6/27/97 10:18a Rlove
*
* 50 6/18/97 4:21p Mgummelt
*
* 49 6/18/97 10:18a Rjohnson
* Removed excess entity fields
*
* 48 6/17/97 7:14a Rlove
*
* 47 6/16/97 7:35p Mgummelt
*
* 46 6/16/97 4:00p Mgummelt
*
* 45 6/16/97 2:08p Rlove
* Temp fix for armor calc loop
*
* 43 6/16/97 12:03p Rjohnson
* Removed imp stuff
*
* 42 6/10/97 3:43p Rlove
* New armor calc
*
* 41 6/06/97 9:17p Mgummelt
*
* 40 5/31/97 4:00p Mgummelt
*
* 39 5/31/97 3:59p Mgummelt
*
* 38 5/31/97 12:18a Mgummelt
*
* 37 5/29/97 4:33p Mgummelt
*
* 36 5/27/97 9:40a Rlove
* Took out super_damage and radsuit fields
*
* 35 5/23/97 2:54p Mgummelt
*
* 34 5/22/97 7:29p Mgummelt
*
* 33 5/22/97 6:30p Mgummelt
*
* 32 5/22/97 2:50a Mgummelt
*
* 31 5/19/97 11:36p Mgummelt
*
* 30 5/17/97 8:45p Mgummelt
*
* 29 5/15/97 5:05a Mgummelt
*
* 28 5/15/97 12:30a Mgummelt
*
* 26 5/07/97 4:23p Mgummelt
*
* 25 5/05/97 10:09p Mgummelt
*
* 24 5/05/97 4:48p Mgummelt
*
* 23 5/03/97 8:49a Rlove
*
* 22 5/01/97 8:52p Mgummelt
*
* 21 4/30/97 5:03p Mgummelt
*
* 20 4/28/97 11:15a Rlove
* Owner no longer gets hurt by radius explosion
*
* 19 4/25/97 8:32p Mgummelt
*
* 18 4/24/97 8:48p Mgummelt
*
* 17 4/17/97 4:10p Mgummelt
*
* 16 4/17/97 2:50p Mgummelt
*
* 15 4/17/97 2:03p Mgummelt
*
* 14 4/16/97 4:22p Mgummelt
*
* 13 4/13/96 3:30p Mgummelt
*
* 12 4/11/97 12:32a Mgummelt
*
* 11 4/10/96 2:50p Mgummelt
*
* 10 4/10/97 11:36a Mgummelt
*
* 9 4/09/96 8:28p Mgummelt
*
* 8 4/09/96 7:54p Mgummelt
*
* 7 4/09/96 7:31p Mgummelt
*
* 6 4/09/96 4:49p Mgummelt
*
* 5 4/09/96 4:43p Mgummelt
*
* 4 4/07/97 4:13p Mgummelt
*
* 3 4/07/97 3:07p Mgummelt
*
* 2 3/31/97 6:39a Rlove
* New stuff
*
* 1 3/31/97 6:39a Rlove
*
* 15 3/21/97 4:22p Aleggett
* Added sliding information to T_Damage for barrels
*
* 13 3/21/97 9:38a Rlove
* Created CHUNK.HC and MATH.HC, moved brush_die to chunk_death so others
* can use it.
*
* 12 3/14/97 9:21a Rlove
* Plaques are done
*
* 11 3/12/97 4:23p Rlove
* New Monster AI
*
* 10 2/10/97 4:27p Rjohnson
* Made it so that T_Damage will not change an enemy if the attacker has
* no target set
*
* 9 2/07/97 1:37p Rlove
* Artifact of Invincibility
*
* 8 2/03/97 4:42p Rlove
* Newest soul sphere
*
* 7 2/03/97 3:12p Rlove
* Added soul spheres
*
* 6 1/28/97 10:28a Rjohnson
* Added experience fields and awarding experience function
*
* 5 12/31/96 8:41a Rlove
* Glyph of the Ancients is working
*
* 4 12/13/96 10:50a Rjohnson
* When damage it being done, if the monster is awake, it will just change
* the target, otherwise, it will try to wake the monster (which changes
* it think function)
*
* 3 12/06/96 2:02p Rjohnson
* Revised T_Damage and T_RadiusDamage
*
* 2 11/11/96 1:12p Rlove
* Added Source Safe stuff
*/