void
TestNearestNeighborSplat<T>::testPolicies()
{
USING_NK_NS
USING_NKHIVE_NS
// construct volume
T default_val(0);
T splat_val(1);
// Test plus policy
{
typename Volume<T>::shared_ptr volume(new Volume<T>(2, 1, default_val));
NearestNeighborSplat<T, std::plus> splatter(volume);
splatter.splat(-0.2, -1.2, -0.8, splat_val);
splatter.splat(-0.2, -1.2, -0.8, splat_val);
TOL_CHECK(volume->get(-1, -2, -1), 2);
}
// Test set policy
{
typename Volume<T>::shared_ptr volume(new Volume<T>(2, 1, default_val));
NearestNeighborSplat<T, set_op> splatter(volume);
splatter.splat(-0.2, -1.2, -0.8, splat_val);
splatter.splat(-0.2, -1.2, -0.8, splat_val);
TOL_CHECK(volume->get(-1, -2, -1), 1);
}
}
Point3 Splat::EvalNormalPerturb(ShadeContext& sc) {
float del, d, f;
Point3 p, dp, np;
if (gbufID)
sc.SetGBufferID(gbufID);
xyzGen->GetXYZ(sc, p, dp);
d = splatter(p);
del = 0.1f;
// float strength = (abs((int)col[1].r-(int)col[0].r)+
// abs((int)col[1].g-(int)col[0].g)+
// abs((int)col[1].b-(int)col[0].b)); ///100.0f; // 756.0f
// f = strength/del;
f = 1.0f/del;
Point3 M[3];
xyzGen->GetBumpDP(sc,M);
np.x = f*(splatter(p+del*M[0]) - d);
np.y = f*(splatter(p+del*M[1]) - d);
np.z = f*(splatter(p+del*M[2]) - d);
np = sc.VectorFromNoScale(np,REF_OBJECT);
Texmap *sub0 = mapOn[0]?subTex[0]:NULL;
Texmap *sub1 = mapOn[1]?subTex[1]:NULL;
if (sub0||sub1) {
// d((1-k)*a + k*b ) = dk*(b-a) + k*(db-da) + da
float a,b;
Point3 da,db;
if (sub0) {
a = sub0->EvalMono(sc);
da = sub0->EvalNormalPerturb(sc);
}
else {
a = Intens(col[0]);
da = Point3(0.0f,0.0f,0.0f);
}
if (sub1) {
b = sub1->EvalMono(sc);
db = sub1->EvalNormalPerturb(sc);
}
else {
b = Intens(col[1]);
db= Point3(0.0f,0.0f,0.0f);
}
np = (b-a)*np + d*(db-da) + da;
}
else
np *= Intens(col[1])-Intens(col[0]);
return np;
}
void
TestLinearSplat<T>::testPolicies()
{
USING_NK_NS
USING_NKHIVE_NS
// construct volume
T default_val(0);
T splat_val(1);
vec3d res(1.0);
vec3d kernel_offset(0.5);
// test std::plus
{
typename Volume<T>::shared_ptr volume(
new Volume<T>(2, 1, default_val, res, kernel_offset));
LinearSplat<T, std::plus> splatter(volume);
splatter.splat(0, 0, 0, splat_val);
splatter.splat(0, 0, 0, splat_val);
TOL_CHECK(volume->get(0, 0, 0), 0.25);
TOL_CHECK(volume->get(0, 0, -1), 0.25);
TOL_CHECK(volume->get(0, -1, 0), 0.25);
TOL_CHECK(volume->get(0, -1, -1), 0.25);
TOL_CHECK(volume->get(-1, 0, 0), 0.25);
TOL_CHECK(volume->get(-1, -1, 0), 0.25);
TOL_CHECK(volume->get(-1, 0, -1), 0.25);
TOL_CHECK(volume->get(-1, -1, -1), 0.25);
}
// test set
{
typename Volume<T>::shared_ptr volume(
new Volume<T>(2, 1, default_val, res, kernel_offset));
LinearSplat<T, set_op> splatter(volume);
splatter.splat(0, 0, 0, splat_val);
splatter.splat(0, 0, 0, splat_val);
TOL_CHECK(volume->get(0, 0, 0), 0.125);
TOL_CHECK(volume->get(0, 0, -1), 0.125);
TOL_CHECK(volume->get(0, -1, 0), 0.125);
TOL_CHECK(volume->get(0, -1, -1), 0.125);
TOL_CHECK(volume->get(-1, 0, 0), 0.125);
TOL_CHECK(volume->get(-1, -1, 0), 0.125);
TOL_CHECK(volume->get(-1, 0, -1), 0.125);
TOL_CHECK(volume->get(-1, -1, -1), 0.125);
}
}
/* Ground critter dies and alerts others nearby */
static void gc_die(struct Critter *critter) {
struct dllist *lst=critter_list;
splatter(critter);
while(lst) {
struct Critter *c=lst->data;
if(c!=critter && c->type==GROUNDCRITTER &&
fabs(c->physics.x-critter->physics.x)<250 &&
fabs(c->physics.y-critter->physics.y)<250)
{
if(c->physics.x<critter->physics.x)
c->walker.walking = -1;
else
c->walker.walking = 1;
c->ff = 15 + rand()%30;
c->timerfunc = gc_flee;
c->timer = 0;
}
lst=lst->next;
}
}
void mdeath::normal( monster &z )
{
if( z.no_corpse_quiet ) {
return;
}
if( z.type->in_species( ZOMBIE ) ) {
sfx::play_variant_sound( "mon_death", "zombie_death", sfx::get_heard_volume( z.pos() ) );
}
if( g->u.sees( z ) ) {
//Currently it is possible to get multiple messages that a monster died.
add_msg( m_good, _( "The %s dies!" ), z.name() );
}
const int max_hp = std::max( z.get_hp_max(), 1 );
const float overflow_damage = std::max( -z.get_hp(), 0 );
const float corpse_damage = 2.5 * overflow_damage / max_hp;
const bool pulverized = corpse_damage > 5 && overflow_damage > z.get_hp_max();
z.bleed(); // leave some blood if we have to
if( !pulverized ) {
make_mon_corpse( z, static_cast<int>( std::floor( corpse_damage * itype::damage_scale ) ) );
}
// if mdeath::splatter was set along normal makes sure it is not called twice
bool splatt = false;
for( const auto &deathfunction : z.type->dies ) {
if( deathfunction == mdeath::splatter ) {
splatt = true;
}
}
if( !splatt ) {
splatter( z );
}
}
// --- Methods inherited from Texmap ---
RGBA Splat::EvalColor(ShadeContext& sc) {
// After being evaluated, if a map or material has a non-zero gbufID,
// it should call ShadeContext::SetGBuffer() to store it into
// the shade context.
if (gbufID)
sc.SetGBufferID(gbufID);
// Use the XYZGen instance to get a transformed point from the
// ShadeContext.
Point3 p, dp;
xyzGen->GetXYZ(sc, p, dp);
if (size == 0.0f)
size = 0.0001f;
float d = splatter(p);
// If we have sub-texmaps and they are enabled, get the colors from
// the sub-texmaps, otherwise get them from the color swatch
RGBA c0 = (mapOn[0]&&subTex[0]) ? subTex[0]->EvalColor(sc): col[0];
RGBA c1 = (mapOn[1]&&subTex[1]) ? subTex[1]->EvalColor(sc): col[1];
// Composite the colors together and return the result.
return (1.0f-d)*c0 + d*c1;
}
void game::fire(player &p, int tarx, int tary, std::vector<point> &trajectory,
bool burst)
{
item ammotmp;
item* gunmod = p.weapon.active_gunmod();
it_ammo *curammo = NULL;
item *weapon = NULL;
if (p.weapon.has_flag(IF_CHARGE)) { // It's a charger gun, so make up a type
// Charges maxes out at 8.
int charges = p.weapon.num_charges();
it_ammo *tmpammo = dynamic_cast<it_ammo*>(itypes["charge_shot"]);
tmpammo->damage = charges * charges;
tmpammo->pierce = (charges >= 4 ? (charges - 3) * 2.5 : 0);
tmpammo->range = 5 + charges * 5;
if (charges <= 4)
tmpammo->accuracy = 14 - charges * 2;
else // 5, 12, 21, 32
tmpammo->accuracy = charges * (charges - 4);
tmpammo->recoil = tmpammo->accuracy * .8;
tmpammo->ammo_effects = 0;
if (charges == 8)
tmpammo->ammo_effects |= mfb(AMMO_EXPLOSIVE_BIG);
else if (charges >= 6)
tmpammo->ammo_effects |= mfb(AMMO_EXPLOSIVE);
if (charges >= 5)
tmpammo->ammo_effects |= mfb(AMMO_FLAME);
else if (charges >= 4)
tmpammo->ammo_effects |= mfb(AMMO_INCENDIARY);
if (gunmod != NULL) {
weapon = gunmod;
} else {
weapon = &p.weapon;
}
curammo = tmpammo;
weapon->curammo = tmpammo;
weapon->active = false;
weapon->charges = 0;
} else if (gunmod != NULL) {
weapon = gunmod;
curammo = weapon->curammo;
} else {// Just a normal gun. If we're here, we know curammo is valid.
curammo = p.weapon.curammo;
weapon = &p.weapon;
}
ammotmp = item(curammo, 0);
ammotmp.charges = 1;
if (!weapon->is_gun() && !weapon->is_gunmod()) {
debugmsg("%s tried to fire a non-gun (%s).", p.name.c_str(),
weapon->tname().c_str());
return;
}
bool is_bolt = false;
unsigned int effects = curammo->ammo_effects;
// Bolts and arrows are silent
if (curammo->type == AT_BOLT || curammo->type == AT_ARROW)
is_bolt = true;
int x = p.posx, y = p.posy;
// Have to use the gun, gunmods don't have a type
it_gun* firing = dynamic_cast<it_gun*>(p.weapon.type);
if (p.has_trait(PF_TRIGGERHAPPY) && one_in(30))
burst = true;
if (burst && weapon->burst_size() < 2)
burst = false; // Can't burst fire a semi-auto
bool u_see_shooter = u_see(p.posx, p.posy);
// Use different amounts of time depending on the type of gun and our skill
p.moves -= time_to_fire(p, firing);
// Decide how many shots to fire
int num_shots = 1;
if (burst)
num_shots = weapon->burst_size();
if (num_shots > weapon->num_charges() && !weapon->has_flag(IF_CHARGE))
num_shots = weapon->num_charges();
if (num_shots == 0)
debugmsg("game::fire() - num_shots = 0!");
// Set up a timespec for use in the nanosleep function below
timespec ts;
ts.tv_sec = 0;
ts.tv_nsec = BULLET_SPEED;
// Use up some ammunition
int trange = trig_dist(p.posx, p.posy, tarx, tary);
if (trange < int(firing->volume / 3) && firing->ammo != AT_SHOT)
trange = int(firing->volume / 3);
else if (p.has_bionic("bio_targeting")) {
if (trange > LONG_RANGE)
trange = int(trange * .65);
else
trange = int(trange * .8);
}
if (firing->skill_used == Skill::skill("rifle") && trange > LONG_RANGE)
trange = LONG_RANGE + .6 * (trange - LONG_RANGE);
std::string message = "";
bool missed = false;
int tart;
for (int curshot = 0; curshot < num_shots; curshot++) {
// Burst-fire weapons allow us to pick a new target after killing the first
if (curshot > 0 &&
(mon_at(tarx, tary) == -1 || z[mon_at(tarx, tary)].hp <= 0)) {
std::vector<point> new_targets;
int mondex;
for (int radius = 1; radius <= 2 + p.skillLevel("gun") && new_targets.empty();
radius++) {
for (int diff = 0 - radius; diff <= radius; diff++) {
mondex = mon_at(tarx + diff, tary - radius);
if (mondex != -1 && z[mondex].hp > 0 && z[mondex].friendly == 0)
new_targets.push_back( point(tarx + diff, tary - radius) );
mondex = mon_at(tarx + diff, tary + radius);
if (mondex != -1 && z[mondex].hp > 0 && z[mondex].friendly == 0)
new_targets.push_back( point(tarx + diff, tary + radius) );
if (diff != 0 - radius && diff != radius) { // Corners were already checked
mondex = mon_at(tarx - radius, tary + diff);
if (mondex != -1 && z[mondex].hp > 0 && z[mondex].friendly == 0)
new_targets.push_back( point(tarx - radius, tary + diff) );
mondex = mon_at(tarx + radius, tary + diff);
if (mondex != -1 && z[mondex].hp > 0 && z[mondex].friendly == 0)
new_targets.push_back( point(tarx + radius, tary + diff) );
}
}
}
if (!new_targets.empty()) {
int target_picked = rng(0, new_targets.size() - 1);
tarx = new_targets[target_picked].x;
tary = new_targets[target_picked].y;
if (m.sees(p.posx, p.posy, tarx, tary, 0, tart))
trajectory = line_to(p.posx, p.posy, tarx, tary, tart);
else
trajectory = line_to(p.posx, p.posy, tarx, tary, 0);
} else if ((!p.has_trait(PF_TRIGGERHAPPY) || one_in(3)) &&
(p.skillLevel("gun") >= 7 || one_in(7 - p.skillLevel("gun"))))
return; // No targets, so return
}
// Drop a shell casing if appropriate.
itype_id casing_type = "null";
switch(curammo->type) {
case AT_SHOT: casing_type = "shot_hull"; break;
case AT_9MM: casing_type = "9mm_casing"; break;
case AT_22: casing_type = "22_casing"; break;
case AT_38: casing_type = "38_casing"; break;
case AT_40: casing_type = "40_casing"; break;
case AT_44: casing_type = "44_casing"; break;
case AT_45: casing_type = "45_casing"; break;
case AT_57: casing_type = "57mm_casing"; break;
case AT_46: casing_type = "46mm_casing"; break;
case AT_762: casing_type = "762_casing"; break;
case AT_223: casing_type = "223_casing"; break;
case AT_3006: casing_type = "3006_casing"; break;
case AT_308: casing_type = "308_casing"; break;
case AT_40MM: casing_type = "40mm_casing"; break;
default: /*No casing for other ammo types.*/ break;
}
if (casing_type != "null") {
int x = p.posx - 1 + rng(0, 2);
int y = p.posy - 1 + rng(0, 2);
std::vector<item>& items = m.i_at(x, y);
int i;
for (i = 0; i < items.size(); i++)
if (items[i].typeId() == casing_type &&
items[i].charges < (dynamic_cast<it_ammo*>(items[i].type))->count) {
items[i].charges++;
break;
}
if (i == items.size()) {
item casing;
casing.make(itypes[casing_type]);
// Casing needs a charges of 1 to stack properly with other casings.
casing.charges = 1;
m.add_item(x, y, casing);
}
}
// Use up a round (or 100)
if (weapon->has_flag(IF_FIRE_100))
weapon->charges -= 100;
else
weapon->charges--;
// Current guns have a durability between 5 and 9.
// Misfire chance is between 1/64 and 1/1024.
if (one_in(2 << firing->durability)) {
add_msg("Your weapon misfired!");
return;
}
make_gun_sound_effect(this, p, burst, weapon);
int trange = calculate_range(p, tarx, tary);
double missed_by = calculate_missed_by(p, trange, weapon);
// Calculate a penalty based on the monster's speed
double monster_speed_penalty = 1.;
int target_index = mon_at(tarx, tary);
if (target_index != -1) {
monster_speed_penalty = double(z[target_index].speed) / 80.;
if (monster_speed_penalty < 1.)
monster_speed_penalty = 1.;
}
if (curshot > 0) {
if (recoil_add(p) % 2 == 1)
p.recoil++;
p.recoil += recoil_add(p) / 2;
} else
p.recoil += recoil_add(p);
if (missed_by >= 1.) {
// We missed D:
// Shoot a random nearby space?
tarx += rng(0 - int(sqrt(double(missed_by))), int(sqrt(double(missed_by))));
tary += rng(0 - int(sqrt(double(missed_by))), int(sqrt(double(missed_by))));
if (m.sees(p.posx, p.posy, x, y, -1, tart))
trajectory = line_to(p.posx, p.posy, tarx, tary, tart);
else
trajectory = line_to(p.posx, p.posy, tarx, tary, 0);
missed = true;
if (!burst) {
if (&p == &u)
add_msg("You miss!");
else if (u_see_shooter)
add_msg("%s misses!", p.name.c_str());
}
} else if (missed_by >= .7 / monster_speed_penalty) {
// Hit the space, but not necessarily the monster there
missed = true;
if (!burst) {
if (&p == &u)
add_msg("You barely miss!");
else if (u_see_shooter)
add_msg("%s barely misses!", p.name.c_str());
}
}
int dam = weapon->gun_damage();
for (int i = 0; i < trajectory.size() &&
(dam > 0 || (effects & AMMO_FLAME)); i++) {
if (i > 0)
m.drawsq(w_terrain, u, trajectory[i-1].x, trajectory[i-1].y, false, true);
// Drawing the bullet uses player u, and not player p, because it's drawn
// relative to YOUR position, which may not be the gunman's position.
if (u_see(trajectory[i].x, trajectory[i].y)) {
char bullet = '*';
if (effects & mfb(AMMO_FLAME))
bullet = '#';
mvwputch(w_terrain, trajectory[i].y + VIEWY - u.posy,
trajectory[i].x + VIEWX - u.posx, c_red, bullet);
wrefresh(w_terrain);
if (&p == &u)
nanosleep(&ts, NULL);
}
if (dam <= 0) { // Ran out of momentum.
ammo_effects(this, trajectory[i].x, trajectory[i].y, effects);
if (is_bolt &&
((curammo->m1 == WOOD && !one_in(4)) ||
(curammo->m1 != WOOD && !one_in(15))))
m.add_item(trajectory[i].x, trajectory[i].y, ammotmp);
if (weapon->num_charges() == 0)
weapon->curammo = NULL;
return;
}
int tx = trajectory[i].x, ty = trajectory[i].y;
// If there's a monster in the path of our bullet, and either our aim was true,
// OR it's not the monster we were aiming at and we were lucky enough to hit it
int mondex = mon_at(tx, ty);
// If we shot us a monster...
if (mondex != -1 && (!z[mondex].has_flag(MF_DIGS) ||
rl_dist(p.posx, p.posy, z[mondex].posx, z[mondex].posy) <= 1) &&
((!missed && i == trajectory.size() - 1) ||
one_in((5 - int(z[mondex].type->size))))) {
double goodhit = missed_by;
if (i < trajectory.size() - 1) // Unintentional hit
goodhit = double(rand() / (RAND_MAX + 1.0)) / 2;
// Penalize for the monster's speed
if (z[mondex].speed > 80)
goodhit *= double( double(z[mondex].speed) / 80.);
std::vector<point> blood_traj = trajectory;
blood_traj.insert(blood_traj.begin(), point(p.posx, p.posy));
splatter(this, blood_traj, dam, &z[mondex]);
shoot_monster(this, p, z[mondex], dam, goodhit, weapon);
} else if ((!missed || one_in(3)) &&
(npc_at(tx, ty) != -1 || (u.posx == tx && u.posy == ty))) {
double goodhit = missed_by;
if (i < trajectory.size() - 1) // Unintentional hit
goodhit = double(rand() / (RAND_MAX + 1.0)) / 2;
player *h;
if (u.posx == tx && u.posy == ty)
h = &u;
else
h = active_npc[npc_at(tx, ty)];
std::vector<point> blood_traj = trajectory;
blood_traj.insert(blood_traj.begin(), point(p.posx, p.posy));
splatter(this, blood_traj, dam);
shoot_player(this, p, h, dam, goodhit);
} else
m.shoot(this, tx, ty, dam, i == trajectory.size() - 1, effects);
} // Done with the trajectory!
int lastx = trajectory[trajectory.size() - 1].x;
int lasty = trajectory[trajectory.size() - 1].y;
ammo_effects(this, lastx, lasty, effects);
if (m.move_cost(lastx, lasty) == 0) {
lastx = trajectory[trajectory.size() - 2].x;
lasty = trajectory[trajectory.size() - 2].y;
}
if (is_bolt &&
((curammo->m1 == WOOD && !one_in(5)) ||
(curammo->m1 != WOOD && !one_in(15)) ))
m.add_item(lastx, lasty, ammotmp);
}
if (weapon->num_charges() == 0)
weapon->curammo = NULL;
}
void game::fire(player &p, int tarx, int tary, std::vector<point> &trajectory,
bool burst)
{
item ammotmp;
item* gunmod = p.weapon.active_gunmod();
it_ammo *curammo = NULL;
item *weapon = NULL;
if (p.weapon.has_flag("CHARGE")) { // It's a charger gun, so make up a type
// Charges maxes out at 8.
int charges = p.weapon.num_charges();
it_ammo *tmpammo = dynamic_cast<it_ammo*>(itypes["charge_shot"]);
tmpammo->damage = charges * charges;
tmpammo->pierce = (charges >= 4 ? (charges - 3) * 2.5 : 0);
tmpammo->range = 5 + charges * 5;
if (charges <= 4)
tmpammo->dispersion = 14 - charges * 2;
else // 5, 12, 21, 32
tmpammo->dispersion = charges * (charges - 4);
tmpammo->recoil = tmpammo->dispersion * .8;
if (charges == 8) { tmpammo->ammo_effects.insert("EXPLOSIVE_BIG"); }
else if (charges >= 6) { tmpammo->ammo_effects.insert("EXPLOSIVE"); }
if (charges >= 5){ tmpammo->ammo_effects.insert("FLAME"); }
else if (charges >= 4) { tmpammo->ammo_effects.insert("INCENDIARY"); }
if (gunmod != NULL) {
weapon = gunmod;
} else {
weapon = &p.weapon;
}
curammo = tmpammo;
weapon->curammo = tmpammo;
weapon->active = false;
weapon->charges = 0;
} else if (gunmod != NULL) {
weapon = gunmod;
curammo = weapon->curammo;
} else {// Just a normal gun. If we're here, we know curammo is valid.
curammo = p.weapon.curammo;
weapon = &p.weapon;
}
ammotmp = item(curammo, 0);
ammotmp.charges = 1;
if (!weapon->is_gun() && !weapon->is_gunmod()) {
debugmsg("%s tried to fire a non-gun (%s).", p.name.c_str(),
weapon->tname().c_str());
return;
}
bool is_bolt = false;
std::set<std::string> *effects = &curammo->ammo_effects;
// Bolts and arrows are silent
if (curammo->type == "bolt" || curammo->type == "arrow")
is_bolt = true;
int x = p.posx, y = p.posy;
// Have to use the gun, gunmods don't have a type
it_gun* firing = dynamic_cast<it_gun*>(p.weapon.type);
if (p.has_trait(PF_TRIGGERHAPPY) && one_in(30))
burst = true;
if (burst && weapon->burst_size() < 2)
burst = false; // Can't burst fire a semi-auto
// Use different amounts of time depending on the type of gun and our skill
if (!effects->count("BOUNCE")) {
p.moves -= time_to_fire(p, firing);
}
// Decide how many shots to fire
int num_shots = 1;
if (burst)
num_shots = weapon->burst_size();
if (num_shots > weapon->num_charges() && !weapon->has_flag("CHARGE"))
num_shots = weapon->num_charges();
if (num_shots == 0)
debugmsg("game::fire() - num_shots = 0!");
// Set up a timespec for use in the nanosleep function below
timespec ts;
ts.tv_sec = 0;
ts.tv_nsec = BULLET_SPEED;
// Use up some ammunition
int trange = rl_dist(p.posx, p.posy, tarx, tary);
if (trange < int(firing->volume / 3) && firing->ammo != "shot")
trange = int(firing->volume / 3);
else if (p.has_bionic("bio_targeting")) {
if (trange > LONG_RANGE)
trange = int(trange * .65);
else
trange = int(trange * .8);
}
if (firing->skill_used == Skill::skill("rifle") && trange > LONG_RANGE)
trange = LONG_RANGE + .6 * (trange - LONG_RANGE);
std::string message = "";
bool missed = false;
int tart;
const bool debug_retarget = false; // this will inevitably be needed
const bool wildly_spraying = false; // stub for now. later, rng based on stress/skill/etc at the start,
int weaponrange = p.weapon.range(); // this is expensive, let's cache. todo: figure out if we need p.weapon.range(&p);
for (int curshot = 0; curshot < num_shots; curshot++) {
// Burst-fire weapons allow us to pick a new target after killing the first
if ( curshot > 0 && (mon_at(tarx, tary) == -1 || z[mon_at(tarx, tary)].hp <= 0) ) {
std::vector<point> new_targets;
new_targets.clear();
if ( debug_retarget == true ) {
mvprintz(curshot,5,c_red,"[%d] %s: retarget: mon_at(%d,%d)",curshot,p.name.c_str(),tarx,tary);
if(mon_at(tarx, tary) == -1) {
printz(c_red, " = -1");
} else {
printz(c_red, ".hp=%d",
z[mon_at(tarx, tary)].hp
);
}
}
for (
int radius = 0; /* range from last target, not shooter! */
radius <= 2 + p.skillLevel("gun") && /* more skill: wider burst area? */
radius <= weaponrange && /* this seems redundant */
( new_targets.empty() || /* got target? stop looking. However this breaks random selection, aka, wildly spraying, so: */
wildly_spraying == true ); /* lets set this based on rng && stress or whatever elsewhere */
radius++
) { /* iterate from last target's position: makes sense for burst fire.*/
for (std::vector<monster>::iterator it = z.begin(); it != z.end(); it++) {
int nt_range_to_me = rl_dist(p.posx, p.posy, it->posx, it->posy);
int dummy;
if (nt_range_to_me == 0 || nt_range_to_me > weaponrange ||
!pl_sees(&p, &(*it), dummy)) {
/* reject out of range and unseen targets as well as MY FACE */
continue;
}
int nt_range_to_lt = rl_dist(tarx,tary,it->posx,it->posy);
/* debug*/ if ( debug_retarget && nt_range_to_lt <= 5 ) printz(c_red, " r:%d/l:%d/m:%d ..", radius, nt_range_to_lt, nt_range_to_me );
if (nt_range_to_lt != radius) {
continue; /* we're spiralling outward, catch you next iteration (maybe) */
}
if (it->hp >0 && it->friendly == 0) {
new_targets.push_back(point(it->posx, it->posy)); /* oh you're not dead and I don't like you. Hello! */
}
}
}
if ( new_targets.empty() == false ) { /* new victim! or last victim moved */
int target_picked = rng(0, new_targets.size() - 1); /* 1 victim list unless wildly spraying */
tarx = new_targets[target_picked].x;
tary = new_targets[target_picked].y;
if (m.sees(p.posx, p.posy, tarx, tary, 0, tart)) {
trajectory = line_to(p.posx, p.posy, tarx, tary, tart);
} else {
trajectory = line_to(p.posx, p.posy, tarx, tary, 0);
}
/* debug */ if (debug_retarget) printz(c_ltgreen, " NEW:(%d:%d,%d) %d,%d (%s)[%d] hp: %d",
target_picked, new_targets[target_picked].x, new_targets[target_picked].y,
tarx, tary, z[mon_at(tarx, tary)].name().c_str(), mon_at(tarx, tary), z[mon_at(tarx, tary)].hp);
} else if (
(
!p.has_trait(PF_TRIGGERHAPPY) || /* double tap. TRIPLE TAP! wait, no... */
one_in(3) /* on second though...everyone double-taps at times. */
) && (
p.skillLevel("gun") >= 7 || /* unless trained */
one_in(7 - p.skillLevel("gun")) /* ...sometimes */
) ) {
return; // No targets, so return
} else if (debug_retarget) {
printz(c_red, " new targets.empty()!");
}
} else if (debug_retarget) {
mvprintz(curshot,5,c_red,"[%d] %s: target == mon_at(%d,%d)[%d] %s hp %d",curshot, p.name.c_str(), tarx ,tary,
mon_at(tarx, tary),
z[mon_at(tarx, tary)].name().c_str(),
z[mon_at(tarx, tary)].hp);
}
// Drop a shell casing if appropriate.
itype_id casing_type = "null";
if( curammo->type == "shot" ) casing_type = "shot_hull";
else if( curammo->type == "9mm" ) casing_type = "9mm_casing";
else if( curammo->type == "22" ) casing_type = "22_casing";
else if( curammo->type == "38" ) casing_type = "38_casing";
else if( curammo->type == "40" ) casing_type = "40_casing";
else if( curammo->type == "44" ) casing_type = "44_casing";
else if( curammo->type == "45" ) casing_type = "45_casing";
else if( curammo->type == "454" ) casing_type = "454_casing";
else if( curammo->type == "500" ) casing_type = "500_casing";
else if( curammo->type == "57" ) casing_type = "57mm_casing";
else if( curammo->type == "46" ) casing_type = "46mm_casing";
else if( curammo->type == "762" ) casing_type = "762_casing";
else if( curammo->type == "223" ) casing_type = "223_casing";
else if( curammo->type == "3006" ) casing_type = "3006_casing";
else if( curammo->type == "308" ) casing_type = "308_casing";
else if( curammo->type == "40mm" ) casing_type = "40mm_casing";
if (casing_type != "null") {
item casing;
casing.make(itypes[casing_type]);
// Casing needs a charges of 1 to stack properly with other casings.
casing.charges = 1;
if( weapon->has_gunmod("brass_catcher") != -1 ) {
p.i_add( casing );
} else {
int x = p.posx - 1 + rng(0, 2);
int y = p.posy - 1 + rng(0, 2);
m.add_item_or_charges(x, y, casing);
}
}
// Use up a round (or 100)
if (weapon->has_flag("FIRE_100"))
weapon->charges -= 100;
else
weapon->charges--;
if (firing->skill_used != Skill::skill("archery") &&
firing->skill_used != Skill::skill("throw"))
{
// Current guns have a durability between 5 and 9.
// Misfire chance is between 1/64 and 1/1024.
if (one_in(2 << firing->durability)) {
add_msg_player_or_npc( &p, _("Your weapon misfires!"),
_("<npcname>'s weapon misfires!") );
return;
}
}
make_gun_sound_effect(this, p, burst, weapon);
int trange = calculate_range(p, tarx, tary);
double missed_by = calculate_missed_by(p, trange, weapon);
// Calculate a penalty based on the monster's speed
double monster_speed_penalty = 1.;
int target_index = mon_at(tarx, tary);
if (target_index != -1) {
monster_speed_penalty = double(z[target_index].speed) / 80.;
if (monster_speed_penalty < 1.)
monster_speed_penalty = 1.;
}
if (curshot > 0) {
if (recoil_add(p) % 2 == 1)
p.recoil++;
p.recoil += recoil_add(p) / 2;
} else
p.recoil += recoil_add(p);
if (missed_by >= 1.) {
// We missed D:
// Shoot a random nearby space?
int mtarx = tarx + rng(0 - int(sqrt(double(missed_by))), int(sqrt(double(missed_by))));
int mtary = tary + rng(0 - int(sqrt(double(missed_by))), int(sqrt(double(missed_by))));
if (m.sees(p.posx, p.posy, x, y, -1, tart))
trajectory = line_to(p.posx, p.posy, mtarx, mtary, tart);
else
trajectory = line_to(p.posx, p.posy, mtarx, mtary, 0);
missed = true;
if (!burst) {
add_msg_player_or_npc( &p, _("You miss!"), _("<npcname> misses!") );
}
} else if (missed_by >= .8 / monster_speed_penalty) {
// Hit the space, but not necessarily the monster there
missed = true;
if (!burst) {
add_msg_player_or_npc( &p, _("You barely miss!"), _("<npcname> barely misses!") );
}
}
int dam = weapon->gun_damage();
int tx = trajectory[0].x;
int ty = trajectory[0].y;
int px = trajectory[0].x;
int py = trajectory[0].y;
for (int i = 0; i < trajectory.size() &&
(dam > 0 || (effects->count("FLAME"))); i++) {
px = tx;
py = ty;
tx = trajectory[i].x;
ty = trajectory[i].y;
// Drawing the bullet uses player u, and not player p, because it's drawn
// relative to YOUR position, which may not be the gunman's position.
if (u_see(tx, ty)) {
if (i > 0)
{
m.drawsq(w_terrain, u, trajectory[i-1].x, trajectory[i-1].y, false,
true, u.posx + u.view_offset_x, u.posy + u.view_offset_y);
}
char bullet = '*';
if (effects->count("FLAME"))
bullet = '#';
mvwputch(w_terrain, ty + VIEWY - u.posy - u.view_offset_y,
tx + VIEWX - u.posx - u.view_offset_x, c_red, bullet);
wrefresh(w_terrain);
if (&p == &u)
nanosleep(&ts, NULL);
}
if (dam <= 0 && !(effects->count("FLAME"))) { // Ran out of momentum.
ammo_effects(this, tx, ty, *effects);
if (is_bolt && !(effects->count("IGNITE")) &&
!(effects->count("EXPLOSIVE")) &&
((curammo->m1 == "wood" && !one_in(4)) ||
(curammo->m1 != "wood" && !one_in(15))))
m.add_item_or_charges(tx, ty, ammotmp);
if (weapon->num_charges() == 0)
weapon->curammo = NULL;
return;
}
// If there's a monster in the path of our bullet, and either our aim was true,
// OR it's not the monster we were aiming at and we were lucky enough to hit it
int mondex = mon_at(tx, ty);
// If we shot us a monster...
if (mondex != -1 && (!z[mondex].has_flag(MF_DIGS) ||
rl_dist(p.posx, p.posy, z[mondex].posx, z[mondex].posy) <= 1) &&
((!missed && i == trajectory.size() - 1) ||
one_in((5 - int(z[mondex].type->size))))) {
double goodhit = missed_by;
if (i < trajectory.size() - 1) // Unintentional hit
goodhit = double(rand() / (RAND_MAX + 1.0)) / 2;
// Penalize for the monster's speed
if (z[mondex].speed > 80)
goodhit *= double( double(z[mondex].speed) / 80.);
std::vector<point> blood_traj = trajectory;
blood_traj.insert(blood_traj.begin(), point(p.posx, p.posy));
splatter(this, blood_traj, dam, &z[mondex]);
shoot_monster(this, p, z[mondex], dam, goodhit, weapon);
} else if ((!missed || one_in(3)) &&
(npc_at(tx, ty) != -1 || (u.posx == tx && u.posy == ty))) {
double goodhit = missed_by;
if (i < trajectory.size() - 1) // Unintentional hit
goodhit = double(rand() / (RAND_MAX + 1.0)) / 2;
player *h;
if (u.posx == tx && u.posy == ty)
h = &u;
else
h = active_npc[npc_at(tx, ty)];
if (h->power_level >= 10 && h->uncanny_dodge()) {
h->power_level -= 7; // dodging bullets costs extra
}
else {
std::vector<point> blood_traj = trajectory;
blood_traj.insert(blood_traj.begin(), point(p.posx, p.posy));
splatter(this, blood_traj, dam);
shoot_player(this, p, h, dam, goodhit);
}
} else
m.shoot(this, tx, ty, dam, i == trajectory.size() - 1, *effects);
} // Done with the trajectory!
ammo_effects(this, tx, ty, *effects);
if (effects->count("BOUNCE"))
{
for (int i = 0; i < z.size(); i++)
{
// search for monsters in radius 4 around impact site
if (rl_dist(z[i].posx, z[i].posy, tx, ty) <= 4)
{
// don't hit targets that have already been hit
if (!z[i].has_effect(ME_BOUNCED) && !z[i].dead)
{
add_msg(_("The attack bounced to %s!"), z[i].name().c_str());
trajectory = line_to(tx, ty, z[i].posx, z[i].posy, 0);
if (weapon->charges > 0)
fire(p, z[i].posx, z[i].posy, trajectory, false);
break;
}
}
}
}
if (m.move_cost(tx, ty) == 0) {
tx = px;
ty = py;
}
if (is_bolt && !(effects->count("IGNITE")) &&
!(effects->count("EXPLOSIVE")) &&
((curammo->m1 == "wood" && !one_in(5)) ||
(curammo->m1 != "wood" && !one_in(15)) ))
m.add_item_or_charges(tx, ty, ammotmp);
}
if (weapon->num_charges() == 0)
weapon->curammo = NULL;
}
void
TestLinearSplat<T>::test()
{
USING_NK_NS
USING_NKHIVE_NS
// construct volume
T default_val(0);
T splat_val(1);
vec3d res(1.0);
vec3d kernel_offset(0.5);
// splat value at the origin.
{
typename Volume<T>::shared_ptr volume(
new Volume<T>(2, 1, default_val, res, kernel_offset));
LinearSplat<T> splatter(volume);
splatter.splat(0, 0, 0, splat_val);
TOL_CHECK(volume->get(0, 0, 0), 0.125);
TOL_CHECK(volume->get(0, 0, -1), 0.125);
TOL_CHECK(volume->get(0, -1, 0), 0.125);
TOL_CHECK(volume->get(0, -1, -1), 0.125);
TOL_CHECK(volume->get(-1, 0, 0), 0.125);
TOL_CHECK(volume->get(-1, -1, 0), 0.125);
TOL_CHECK(volume->get(-1, 0, -1), 0.125);
TOL_CHECK(volume->get(-1, -1, -1), 0.125);
}
// splat value at the center of a voxel.
{
typename Volume<T>::shared_ptr volume(
new Volume<T>(2, 1, default_val, res, kernel_offset));
LinearSplat<T> splatter(volume);
splatter.splat(0.5, 0.5, 0.5, splat_val);
TOL_CHECK(volume->get(0, 0, 0), 1);
TOL_CHECK(volume->get(0, 0, -1), 0);
TOL_CHECK(volume->get(0, -1, 0), 0);
TOL_CHECK(volume->get(0, -1, -1), 0);
TOL_CHECK(volume->get(-1, 0, 0), 0);
TOL_CHECK(volume->get(-1, -1, 0), 0);
TOL_CHECK(volume->get(-1, 0, -1), 0);
TOL_CHECK(volume->get(-1, -1, -1), 0);
TOL_CHECK(volume->get(0, 0, 1), 0);
TOL_CHECK(volume->get(0, 1, 0), 0);
TOL_CHECK(volume->get(0, 1, 1), 0);
TOL_CHECK(volume->get(1, 0, 0), 0);
TOL_CHECK(volume->get(1, 1, 0), 0);
TOL_CHECK(volume->get(1, 0, 1), 0);
TOL_CHECK(volume->get(1, 1, 1), 0);
}
// splat value off center closer to origin
{
typename Volume<T>::shared_ptr volume(
new Volume<T>(2, 1, default_val, res, kernel_offset));
LinearSplat<T> splatter(volume);
splatter.splat(0.25, 0.25, 0.25, splat_val);
TOL_CHECK(volume->get(0, 0, 0), 0.421875);
TOL_CHECK(volume->get(0, 0, -1), 0.140625);
TOL_CHECK(volume->get(0, -1, 0), 0.140625);
TOL_CHECK(volume->get(0, -1, -1), 0.046875);
TOL_CHECK(volume->get(-1, 0, 0), 0.140625);
TOL_CHECK(volume->get(-1, -1, 0), 0.046875);
TOL_CHECK(volume->get(-1, 0, -1), 0.046875);
TOL_CHECK(volume->get(-1, -1, -1), 0.015625);
}
// splat value off center further from origin
{
typename Volume<T>::shared_ptr volume(
new Volume<T>(2, 1, default_val, res, kernel_offset));
LinearSplat<T> splatter(volume);
splatter.splat(0.75, 0.75, 0.75, splat_val);
TOL_CHECK(volume->get(0, 0, 0), 0.421875);
TOL_CHECK(volume->get(0, 0, 1), 0.140625);
TOL_CHECK(volume->get(0, 1, 0), 0.140625);
TOL_CHECK(volume->get(0, 1, 1), 0.046875);
TOL_CHECK(volume->get(1, 0, 0), 0.140625);
TOL_CHECK(volume->get(1, 1, 0), 0.046875);
TOL_CHECK(volume->get(1, 0, 1), 0.046875);
TOL_CHECK(volume->get(1, 1, 1), 0.015625);
}
// splat value at negative voxel
{
typename Volume<T>::shared_ptr volume(
new Volume<T>(2, 1, default_val, res, kernel_offset));
LinearSplat<T> splatter(volume);
splatter.splat(-0.75, -0.75, -0.75, splat_val);
TOL_CHECK(volume->get(-1, -1, -1), 0.421875);
TOL_CHECK(volume->get(-1, -1, -2), 0.140625);
TOL_CHECK(volume->get(-1, -2, -1), 0.140625);
TOL_CHECK(volume->get(-1, -2, -2), 0.046875);
TOL_CHECK(volume->get(-2, -1, -1), 0.140625);
TOL_CHECK(volume->get(-2, -2, -1), 0.046875);
TOL_CHECK(volume->get(-2, -1, -2), 0.046875);
TOL_CHECK(volume->get(-2, -2, -2), 0.015625);
}
// splat value at negative voxel closer to zero
{
typename Volume<T>::shared_ptr volume(
new Volume<T>(2, 1, default_val, res, kernel_offset));
LinearSplat<T> splatter(volume);
splatter.splat(-0.25, -0.25, -0.25, splat_val);
TOL_CHECK(volume->get(-1, -1, -1), 0.421875);
TOL_CHECK(volume->get(-1, -1, 0), 0.140625);
TOL_CHECK(volume->get(-1, 0, -1), 0.140625);
TOL_CHECK(volume->get(-1, 0, 0), 0.046875);
TOL_CHECK(volume->get( 0, -1, -1), 0.140625);
TOL_CHECK(volume->get( 0, 0, -1), 0.046875);
TOL_CHECK(volume->get( 0, -1, 0), 0.046875);
TOL_CHECK(volume->get( 0, 0, 0), 0.015625);
}
}
void
TestNearestNeighborSplat<T>::test()
{
USING_NKHIVE_NS
// construct volume
T default_val(0);
T splat_val(1);
// splat value at the origin.
{
typename Volume<T>::shared_ptr volume(new Volume<T>(2, 1, default_val));
NearestNeighborSplat<T> splatter(volume);
splatter.splat(0, 0, 0, splat_val);
TOL_CHECK(volume->get(0, 0, 0), 1);
TOL_CHECK(volume->get(0, 0, -1), 0);
TOL_CHECK(volume->get(0, -1, 0), 0);
TOL_CHECK(volume->get(0, -1, -1), 0);
TOL_CHECK(volume->get(-1, 0, 0), 0);
TOL_CHECK(volume->get(-1, -1, 0), 0);
TOL_CHECK(volume->get(-1, 0, -1), 0);
TOL_CHECK(volume->get(-1, -1, -1), 0);
}
// splat value at center
{
typename Volume<T>::shared_ptr volume(new Volume<T>(2, 1, default_val));
NearestNeighborSplat<T> splatter(volume);
splatter.splat(0.5, 0.5, 0.5, splat_val);
TOL_CHECK(volume->get(0, 0, 0), 1);
TOL_CHECK(volume->get(0, 0, -1), 0);
TOL_CHECK(volume->get(0, -1, 0), 0);
TOL_CHECK(volume->get(0, -1, -1), 0);
TOL_CHECK(volume->get(-1, 0, 0), 0);
TOL_CHECK(volume->get(-1, -1, 0), 0);
TOL_CHECK(volume->get(-1, 0, -1), 0);
TOL_CHECK(volume->get(-1, -1, -1), 0);
}
// splat value off center
{
typename Volume<T>::shared_ptr volume(new Volume<T>(2, 1, default_val));
NearestNeighborSplat<T> splatter(volume);
splatter.splat(0.1, 0.5, 0.8, splat_val);
TOL_CHECK(volume->get(0, 0, 0), 1);
TOL_CHECK(volume->get(0, 0, -1), 0);
TOL_CHECK(volume->get(0, -1, 0), 0);
TOL_CHECK(volume->get(0, -1, -1), 0);
TOL_CHECK(volume->get(-1, 0, 0), 0);
TOL_CHECK(volume->get(-1, -1, 0), 0);
TOL_CHECK(volume->get(-1, 0, -1), 0);
TOL_CHECK(volume->get(-1, -1, -1), 0);
}
// splat negative values.
{
typename Volume<T>::shared_ptr volume(new Volume<T>(2, 1, default_val));
NearestNeighborSplat<T> splatter(volume);
splatter.splat(-0.2, -1.2, -0.8, splat_val);
TOL_CHECK(volume->get(-1, -2, -1), 1);
TOL_CHECK(volume->get(0, 0, -2), 0);
TOL_CHECK(volume->get(0, -2, 0), 0);
TOL_CHECK(volume->get(0, -2, -2), 0);
TOL_CHECK(volume->get(-2, 0, 0), 0);
TOL_CHECK(volume->get(-2, -2, 0), 0);
TOL_CHECK(volume->get(-2, 0, -2), 0);
TOL_CHECK(volume->get(-2, -2, -2), 0);
TOL_CHECK(volume->get(0, 0, 0), 0);
TOL_CHECK(volume->get(1, 0, 0), 0);
TOL_CHECK(volume->get(0, 1, 0), 0);
TOL_CHECK(volume->get(0, 0, 1), 0);
TOL_CHECK(volume->get(1, 0, 1), 0);
TOL_CHECK(volume->get(1, 1, 0), 0);
TOL_CHECK(volume->get(1, 1, 1), 0);
}
}