Iskhodnyy_kod_Doom

if (!mo->momx && !mo->momy)

{

if (mo->flags & MF_SKULLFLY)

{

// the skull slammed into something mo->flags &= ~MF_SKULLFLY;

mo->momx = mo->momy = mo->momz = 0;

P_SetMobjState (mo, mo->info->spawnstate);

}

return;

}

player = mo->player;

if (mo->momx > MAXMOVE) mo->momx = MAXMOVE;

else if (mo->momx < -MAXMOVE) mo->momx = -MAXMOVE;

if (mo->momy > MAXMOVE) mo->momy = MAXMOVE;

else if (mo->momy < -MAXMOVE) mo->momy = -MAXMOVE;

xmove = mo->momx; ymove = mo->momy;

do

{

if (xmove > MAXMOVE/2 || ymove > MAXMOVE/2)

{

ptryx = mo->x + xmove/2; ptryy = mo->y + ymove/2; xmove >>= 1;

ymove >>= 1;

}

else

{

ptryx = mo->x + xmove; ptryy = mo->y + ymove; xmove = ymove = 0;

}

if (!P_TryMove (mo, ptryx, ptryy))

{

// blocked move if (mo->player)

{ // try to slide along it P_SlideMove (mo);

}

else if (mo->flags & MF_MISSILE)

481

{

// explode a missile if (ceilingline &&

ceilingline->backsector && ceilingline->backsector->ceilingpic == skyflatnum)

{

// Hack to prevent missiles exploding // against the sky.

// Does not handle sky floors. P_RemoveMobj (mo);

return;

}

P_ExplodeMissile (mo);

}

else

mo->momx = mo->momy = 0;

}

} while (xmove || ymove);

// slow down

if (player && player->cheats & CF_NOMOMENTUM)

{

if (mo->flags & MF_CORPSE)

{

//do not stop sliding

//if halfway off a step with some momentum if (mo->momx > FRACUNIT/4

||mo->momx < -FRACUNIT/4

||mo->momy > FRACUNIT/4

||mo->momy < -FRACUNIT/4)

{

if (mo->floorz != mo->subsector->sector->floorheight) return;

}

}

if (mo->momx > -STOPSPEED

&&mo->momx < STOPSPEED

&&mo->momy > -STOPSPEED

&&mo->momy < STOPSPEED

&&(!player

||(player->cmd.forwardmove== 0

&&player->cmd.sidemove == 0 ) ) )

{

// if in a walking frame, stop moving

if ( player&&(unsigned)((player->mo->state - states)- S_PLAY_RUN1) < 4) P_SetMobjState (player->mo, S_PLAY);

mo->momx = 0; mo->momy = 0;

}

else

{

mo->momx = FixedMul (mo->momx, FRICTION);

482

mo->momy = FixedMul (mo->momy, FRICTION);

}

}

//

// P_ZMovement

//

void P_ZMovement (mobj_t* mo)

{

// check for smooth step up

if (mo->player && mo->z < mo->floorz)

{

mo->player->viewheight -= mo->floorz-mo->z;

mo->player->deltaviewheight

= (VIEWHEIGHT - mo->player->viewheight)>>3;

}

// adjust height mo->z += mo->momz;

if ( mo->flags & MF_FLOAT && mo->target)

{

// float down towards target if too close if ( !(mo->flags & MF_SKULLFLY)

&& !(mo->flags & MF_INFLOAT) )

{

dist = P_AproxDistance (mo->x - mo->target->x, mo->y - mo->target->y);

delta =(mo->target->z + (mo->height>>1)) - mo->z;

if (delta<0 && dist < -(delta*3) ) mo->z -= FLOATSPEED;

else if (delta>0 && dist < (delta*3) ) mo->z += FLOATSPEED;

}

}

// clip movement

if (mo->z <= mo->floorz)

{

//hit the floor

//Note (id):

//somebody left this after the setting momz to 0,

//kinda useless there.

if (mo->flags & MF_SKULLFLY)

{

// the skull slammed into something mo->momz = -mo->momz;

}

if (mo->momz < 0)

{

if (mo->player

&& mo->momz < -GRAVITY*8)

{

//Squat down.

//Decrease viewheight for a moment

483

//after hitting the ground (hard),

//and utter appropriate sound.

mo->player->deltaviewheight = mo->momz>>3; S_StartSound (mo, sfx_oof);

}

mo->momz = 0;

}

mo->z = mo->floorz;

if ( (mo->flags & MF_MISSILE)

&& !(mo->flags & MF_NOCLIP) )

{

P_ExplodeMissile (mo); return;

}

}

else if (! (mo->flags & MF_NOGRAVITY) )

{

if (mo->momz == 0) mo->momz = -GRAVITY*2;

else

mo->momz -= GRAVITY;

}

if (mo->z + mo->height > mo->ceilingz)

{

// hit the ceiling if (mo->momz > 0)

mo->momz = 0;

{

mo->z = mo->ceilingz - mo->height;

}

if (mo->flags & MF_SKULLFLY)

{ // the skull slammed into something mo->momz = -mo->momz;

}

if ( (mo->flags & MF_MISSILE)

&& !(mo->flags & MF_NOCLIP) )

{

P_ExplodeMissile (mo); return;

}

}

}

//

// P_NightmareRespawn

//

void

P_NightmareRespawn (mobj_t* mobj)

{

x = mobj->spawnpoint.x << FRACBITS; y = mobj->spawnpoint.y << FRACBITS;

484

//spawn a teleport fog at old spot

//because of removal of the body? mo = P_SpawnMobj (mobj->x,

mobj->y,

mobj->subsector->sector->floorheight , MT_TFOG); // initiate teleport sound

S_StartSound (mo, sfx_telept);

// spawn a teleport fog at the new spot ss = R_PointInSubsector (x,y);

mo = P_SpawnMobj (x, y, ss->sector->floorheight , MT_TFOG);

S_StartSound (mo, sfx_telept);

//spawn the new monster mthing = &mobj->spawnpoint;

//spawn it

if (mobj->info->flags & MF_SPAWNCEILING) z = ONCEILINGZ;

else

z = ONFLOORZ;

// inherit attributes from deceased one mo = P_SpawnMobj (x,y,z, mobj->type); mo->spawnpoint = mobj->spawnpoint; mo->angle = ANG45 * (mthing->angle/45);

if (mthing->options & MTF_AMBUSH) mo->flags |= MF_AMBUSH;

mo->reactiontime = 18;

// remove the old monster, P_RemoveMobj (mobj);

}

//

// P_MobjThinker

//

void P_MobjThinker (mobj_t* mobj)

{

// momentum movement if (mobj->momx

||mobj->momy

||(mobj->flags&MF_SKULLFLY) )

{

P_XYMovement (mobj);

// FIXME: decent NOP/NULL/Nil function pointer please. if (mobj->thinker.function.acv == (actionf_v) (-1))

// FIXME: decent NOP/NULL/Nil function pointer please.

485

if (mobj->thinker.function.acv == (actionf_v) (-1))

}

//cycle through states,

//calling action functions at transitions if (mobj->tics != -1)

{

mobj->tics--;

//you can cycle through multiple states in a tic

if (!mobj->tics)

if (!P_SetMobjState (mobj, mobj->state->nextstate) )

// check for nightmare respawn

if (! (mobj->flags & MF_COUNTKILL) ) return;

if (!respawnmonsters) return;

mobj->movecount++;

if (mobj->movecount < 12*35) return;

if ( leveltime&31 ) return;

if (P_Random () > 4) return;

P_NightmareRespawn (mobj);

}

}

//

// P_SpawnMobj

//

mobj_t* P_SpawnMobj

(fixed_t x, fixed_t y, fixed_t z,

mobjtype_t type )

{

mobj_t* mobj; state_t* st; mobjinfo_t* info;

mobj = Z_Malloc (sizeof(*mobj), PU_LEVEL, NULL); memset (mobj, 0, sizeof (*mobj));

info = &mobjinfo[type];

mobj->type = type; mobj->info = info; mobj->x = x; mobj->y = y;

mobj->radius = info->radius;

486

mobj->height = info->height; mobj->flags = info->flags; mobj->health = info->spawnhealth;

if (gameskill != sk_nightmare) mobj->reactiontime = info->reactiontime;

mobj->lastlook = P_Random () % MAXPLAYERS;

//do not set the state with P_SetMobjState,

//because action routines can not be called yet st = &states[info->spawnstate];

mobj->state = st; mobj->tics = st->tics; mobj->sprite = st->sprite; mobj->frame = st->frame;

// set subsector and/or block links P_SetThingPosition (mobj);

mobj->floorz = mobj->subsector->sector->floorheight; mobj->ceilingz = mobj->subsector->sector->ceilingheight;

if (z == ONFLOORZ)

mobj->z = mobj->floorz; else if (z == ONCEILINGZ)

mobj->z = mobj->ceilingz - mobj->info->height;

else

mobj->z = z;

mobj->thinker.function.acp1 = (actionf_p1)P_MobjThinker;

P_AddThinker (&mobj->thinker);

return mobj;

void P_RemoveMobj (mobj_t* mobj)

{

if ((mobj->flags & MF_SPECIAL)

&&!(mobj->flags & MF_DROPPED)

&&(mobj->type != MT_INV)

&&(mobj->type != MT_INS))

{

itemrespawnque[iquehead] = mobj->spawnpoint; itemrespawntime[iquehead] = leveltime; iquehead = (iquehead+1)&(ITEMQUESIZE-1);

// lose one off the end? if (iquehead == iquetail)

iquetail = (iquetail+1)&(ITEMQUESIZE-1);

}

// unlink from sector and block lists P_UnsetThingPosition (mobj);

487

//stop any playing sound S_StopSound (mobj);

//free block

P_RemoveThinker ((thinker_t*)mobj);

}

//

// P_RespawnSpecials

//

void P_RespawnSpecials (void)

{

// only respawn items in deathmatch if (deathmatch != 2)

return; //

//nothing left to respawn? if (iquehead == iquetail)

return;

//wait at least 30 seconds

if (leveltime - itemrespawntime[iquetail] < 30*35) return;

mthing = &itemrespawnque[iquetail];

x = mthing->x << FRACBITS; y = mthing->y << FRACBITS;

//spawn a teleport fog at the new spot ss = R_PointInSubsector (x,y);

mo = P_SpawnMobj (x, y, ss->sector->floorheight , MT_IFOG); S_StartSound (mo, sfx_itmbk);

//find which type to spawn

for (i=0 ; i< NUMMOBJTYPES ; i++)

{

if (mthing->type == mobjinfo[i].doomednum) break;

}

// spawn it

if (mobjinfo[i].flags & MF_SPAWNCEILING) z = ONCEILINGZ;

else

z = ONFLOORZ;

mo = P_SpawnMobj (x,y,z, i); mo->spawnpoint = *mthing;

mo->angle = ANG45 * (mthing->angle/45);

488

// pull it from the que

iquetail = (iquetail+1)&(ITEMQUESIZE-1);

}

//

//P_SpawnPlayer

//Called when a player is spawned on the level.

//Most of the player structure stays unchanged

//between levels.

//

void P_SpawnPlayer (mapthing_t* mthing)

// not playing?

if (!playeringame[mthing->type-1])

return;

p = &players[mthing->type-1];

p->mo = mobj; p->playerstate = PST_LIVE; p->refire = 0;

p->message = NULL; p->damagecount = 0; p->bonuscount = 0; p->extralight = 0; p->fixedcolormap = 0; p->viewheight = VIEWHEIGHT;

//setup gun psprite P_SetupPsprites (p);

//give all cards in death match mode if (deathmatch)

for (i=0 ; i<NUMCARDS ; i++) p->cards[i] = true;

if (mthing->type-1 == consoleplayer)

489

{

//wake up the status bar ST_Start ();

//wake up the heads up text HU_Start ();

}

}

//

//P_SpawnMapThing

//The fields of the mapthing should

//already be in host byte order.

//

void P_SpawnMapThing (mapthing_t* mthing)

{

//count deathmatch start positions if (mthing->type == 11)

{

if (deathmatch_p < &deathmatchstarts[10])

{

memcpy (deathmatch_p, mthing, sizeof(*mthing)); deathmatch_p++;

}

return;

}

//check for players specially

if (mthing->type <= 4)

{

// save spots for respawning in network games playerstarts[mthing->type-1] = *mthing;

if (!deathmatch) P_SpawnPlayer (mthing);

return;

}

// check for apropriate skill level

if (!netgame && (mthing->options & 16) ) return;

if (gameskill == sk_baby) bit = 1;

else if (gameskill == sk_nightmare) bit = 4;

else

bit = 1<<(gameskill-1);

if (!(mthing->options & bit) ) return;

// find which type to spawn

for (i=0 ; i< NUMMOBJTYPES ; i++)

if (mthing->type == mobjinfo[i].doomednum) break;

if (i==NUMMOBJTYPES)

490