Iskhodnyy_kod_Doom

switch(line->special)

{

case 46:

// OPEN DOOR IMPACT ok = 1;

break;

}

if (!ok) return;

}

switch(line->special)

{

case 24:

// RAISE FLOOR EV_DoFloor(line,raiseFloor); P_ChangeSwitchTexture(line,0); break;

case 46:

// OPEN DOOR EV_DoDoor(line,open); P_ChangeSwitchTexture(line,1); break;

case 47:

// RAISE FLOOR NEAR AND CHANGE

EV_DoPlat(line,raiseToNearestAndChange,0);

P_ChangeSwitchTexture(line,0);

break;

}

}

//

//P_PlayerInSpecialSector

//Called every tic frame

//that the player origin is in a special sector

void P_PlayerInSpecialSector (player_t* player)

{

sector_t* sector;

sector = player->mo->subsector->sector;

// Falling, not all the way down yet?

if (player->mo->z != sector->floorheight)

return;

561

break;

case 16:

//SUPER HELLSLIME DAMAGE case 4:

//STROBE HURT

if (!player->powers[pw_ironfeet] || (P_Random()<5) )

{

if (!(leveltime&0x1f))

P_DamageMobj (player->mo, NULL, NULL, 20);

}

break;

case 9:

// SECRET SECTOR player->secretcount++; sector->special = 0; break;

case 11:

// EXIT SUPER DAMAGE! (for E1M8 finale) player->cheats &= ~CF_GODMODE;

if (!(leveltime&0x1f))

P_DamageMobj (player->mo, NULL, NULL, 20);

if (player->health <= 10) G_ExitLevel();

break;

default:

I_Error ("P_PlayerInSpecialSector: " "unknown special %i", sector->special);

break;

};

}

//

//P_UpdateSpecials

//Animate planes, scroll walls, etc.

if (levelTimer == true)

{

levelTimeCount--;

if (!levelTimeCount) G_ExitLevel();

}

562

// ANIMATE FLATS AND TEXTURES GLOBALLY for (anim = anims ; anim < lastanim ; anim++)

{

for (i=anim->basepic ; i<anim->basepic+anim->numpics ; i++)

{

pic = anim->basepic + ( (leveltime/anim->speed + i)%anim->numpics ); if (anim->istexture)

texturetranslation[i] = pic;

else

flattranslation[i] = pic;

}

}

//ANIMATE LINE SPECIALS

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

{

line = linespeciallist[i]; switch(line->special)

{

case 48:

// EFFECT FIRSTCOL SCROLL + sides[line->sidenum[0]].textureoffset += FRACUNIT; break;

}

}

//DO BUTTONS

for (i = 0; i < MAXBUTTONS; i++) if (buttonlist[i].btimer)

{

buttonlist[i].btimer--;

if (!buttonlist[i].btimer)

{

switch(buttonlist[i].where)

{

case top: sides[buttonlist[i].line->sidenum[0]].toptexture =

buttonlist[i].btexture;

break;

case middle: sides[buttonlist[i].line->sidenum[0]].midtexture =

buttonlist[i].btexture;

break;

case bottom: sides[buttonlist[i].line->sidenum[0]].bottomtexture =

buttonlist[i].btexture;

break;

}

S_StartSound((mobj_t *)&buttonlist[i].soundorg,sfx_swtchn); memset(&buttonlist[i],0,sizeof(button_t));

}

}

}

//

// Special Stuff that can not be categorized

563

{

secnum = -1; rtn = 0;

while ((secnum = P_FindSectorFromLineTag(line,secnum)) >= 0)

{

s1 = &sectors[secnum];

// ALREADY MOVING? IF SO, KEEP GOING...

if (s1->specialdata) continue;

rtn = 1;

s2 = getNextSector(s1->lines[0],s1); for (i = 0;i < s2->linecount;i++)

{

if ((!s2->lines[i]->flags & ML_TWOSIDED) || (s2->lines[i]->backsector == s1)) continue;

s3 = s2->lines[i]->backsector;

//Spawn rising slime

floor = Z_Malloc (sizeof(*floor), PU_LEVSPEC, 0); P_AddThinker (&floor->thinker);

s2->specialdata = floor;

floor->thinker.function.acp1 = (actionf_p1) T_MoveFloor; floor->type = donutRaise;

floor->crush = false; floor->direction = 1; floor->sector = s2; floor->speed = FLOORSPEED / 2; floor->texture = s3->floorpic; floor->newspecial = 0;

floor->floordestheight = s3->floorheight;

//Spawn lowering donut-hole

floor = Z_Malloc (sizeof(*floor), PU_LEVSPEC, 0); P_AddThinker (&floor->thinker);

s1->specialdata = floor;

floor->thinker.function.acp1 = (actionf_p1) T_MoveFloor; floor->type = lowerFloor;

floor->crush = false; floor->direction = -1; floor->sector = s1; floor->speed = FLOORSPEED / 2;

floor->floordestheight = s3->floorheight; break;

}

}

return rtn;

}

//

// SPECIAL SPAWNING

//

564

//

//P_SpawnSpecials

//After the map has been loaded, scan for specials

//that spawn thinkers

// Parses command line parameters. void P_SpawnSpecials (void)

{

episode = 1;

if (W_CheckNumForName("texture2") >= 0) episode = 2;

// See if -TIMER needs to be used. levelTimer = false;

i = M_CheckParm("-avg"); if (i && deathmatch)

{

levelTimer = true; levelTimeCount = 20 * 60 * 35;

}

i = M_CheckParm("-timer"); if (i && deathmatch)

sector = sectors;

for (i=0 ; i<numsectors ; i++, sector++)

{

if (!sector->special) continue;

switch (sector->special)

{

case 1:

// FLICKERING LIGHTS

P_SpawnLightFlash (sector); break;

case 2:

// STROBE FAST P_SpawnStrobeFlash(sector,FASTDARK,0); break;

case 3:

// STROBE SLOW P_SpawnStrobeFlash(sector,SLOWDARK,0); break;

case 4:

565

// STROBE FAST/DEATH SLIME P_SpawnStrobeFlash(sector,FASTDARK,0); sector->special = 4;

break;

case 8:

// GLOWING LIGHT P_SpawnGlowingLight(sector); break;

case 9:

// SECRET SECTOR totalsecret++; break;

case 10:

// DOOR CLOSE IN 30 SECONDS P_SpawnDoorCloseIn30 (sector); break;

case 12:

// SYNC STROBE SLOW

P_SpawnStrobeFlash (sector, SLOWDARK, 1); break;

case 13:

// SYNC STROBE FAST

P_SpawnStrobeFlash (sector, FASTDARK, 1); break;

case 14:

// DOOR RAISE IN 5 MINUTES P_SpawnDoorRaiseIn5Mins (sector, i); break;

case 17: P_SpawnFireFlicker(sector); break;

}

}

// Init line EFFECTs numlinespecials = 0;

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

{

switch(lines[i].special)

{

case 48:

// EFFECT FIRSTCOL SCROLL+ linespeciallist[numlinespecials] = &lines[i]; numlinespecials++;

break;

}

}

// Init other misc stuff for (i = 0;i < MAXCEILINGS;i++) activeceilings[i] = NULL;

for (i = 0;i < MAXPLATS;i++) activeplats[i] = NULL;

for (i = 0;i < MAXBUTTONS;i++) memset(&buttonlist[i],0,sizeof(button_t));

566

//UNUSED: no horizonal sliders.

//P_InitSlidingDoorFrames();

}

9.24 p spec.h

// Emacs style mode select -*- C++ -*- //-----------------------------------------------------------------------------

//

//$Id:$

//Copyright (C) 1993-1996 by id Software, Inc.

//This program is free software; you can redistribute it and/or

//modify it under the terms of the GNU General Public License

//as published by the Free Software Foundation; either version 2

//of the License, or (at your option) any later version.

//

//This program is distributed in the hope that it will be useful,

//but WITHOUT ANY WARRANTY; without even the implied warranty of

//MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the

//GNU General Public License for more details.

//

//DESCRIPTION: none

//Implements special effects:

//Texture animation, height or lighting changes

//according to adjacent sectors, respective

//utility functions, etc.

//

//-----------------------------------------------------------------------------

#ifndef __P_SPEC__ #define __P_SPEC__

//

// End-level timer (-TIMER option)

//

extern extern

//Define values for map objects

void

567

P_ShootSpecialLine

void P_CrossSpecialLine

fixed_t P_FindLowestFloorSurrounding(sector_t* sec); fixed_t P_FindHighestFloorSurrounding(sector_t* sec);

fixed_t P_FindNextHighestFloor

fixed_t P_FindLowestCeilingSurrounding(sector_t* sec); fixed_t P_FindHighestCeilingSurrounding(sector_t* sec);

int P_FindSectorFromLineTag

int P_FindMinSurroundingLight

//

// SPECIAL

//

int EV_DoDonut(line_t* line);

//

// P_LIGHTS

568

P_SpawnStrobeFlash

569

570