Subversion Repositories Kolibri OS

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

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

//

// $Id:$

//

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

//

// This source is available for distribution and/or modification

// only under the terms of the DOOM Source Code License as

// published by id Software. All rights reserved.

//

// The source is distributed in the hope that it will be useful,

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

// FITNESS FOR A PARTICULAR PURPOSE. See the DOOM Source Code License

// for more details.

//

// $Log:$

//

// DESCRIPTION:

//	Plats (i.e. elevator platforms) code, raising/lowering.

//

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

static const char

rcsid[] = "$Id: p_plats.c,v 1.5 1997/02/03 22:45:12 b1 Exp $";

#include "i_system.h"

#include "z_zone.h"

#include "m_random.h"

#include "doomdef.h"

#include "p_local.h"

#include "s_sound.h"

// State.

#include "doomstat.h"

#include "r_state.h"

// Data.

#include "sounds.h"

plat_t*		activeplats[MAXPLATS];

//

// Move a plat up and down

//

void T_PlatRaise(plat_t* plat)

{

    result_e	res;

    switch(plat->status)

    {

      case up:

	res = T_MovePlane(plat->sector,

			  plat->speed,

			  plat->high,

			  plat->crush,0,1);

	if (plat->type == raiseAndChange

	    || plat->type == raiseToNearestAndChange)

	{

	    if (!(leveltime&7))

		S_StartSound((mobj_t *)&plat->sector->soundorg,

			     sfx_stnmov);

	}

	if (res == crushed && (!plat->crush))

	{

	    plat->count = plat->wait;

	    plat->status = down;

	    S_StartSound((mobj_t *)&plat->sector->soundorg,

			 sfx_pstart);

	}

	else

	{

	    if (res == pastdest)

	    {

		plat->count = plat->wait;

		plat->status = waiting;

		S_StartSound((mobj_t *)&plat->sector->soundorg,

			     sfx_pstop);

		switch(plat->type)

		{

		  case blazeDWUS:

		  case downWaitUpStay:

		    P_RemoveActivePlat(plat);

		    break;

		  case raiseAndChange:

		  case raiseToNearestAndChange:

		    P_RemoveActivePlat(plat);

		    break;

		  default:

		    break;

		}

	    }

	}

	break;

      case	down:

	res = T_MovePlane(plat->sector,plat->speed,plat->low,false,0,-1);

	if (res == pastdest)

	{

	    plat->count = plat->wait;

	    plat->status = waiting;

	    S_StartSound((mobj_t *)&plat->sector->soundorg,sfx_pstop);

	}

	break;

      case	waiting:

	if (!--plat->count)

	{

	    if (plat->sector->floorheight == plat->low)

		plat->status = up;

	    else

		plat->status = down;

	    S_StartSound((mobj_t *)&plat->sector->soundorg,sfx_pstart);

	}

      case	in_stasis:

	break;

    }

}

//

// Do Platforms

//  "amount" is only used for SOME platforms.

//

int

EV_DoPlat

( line_t*	line,

  plattype_e	type,

  int		amount )

{

    plat_t*	plat;

    int		secnum;

    int		rtn;

    sector_t*	sec;

    secnum = -1;

    rtn = 0;

    //	Activate all  plats that are in_stasis

    switch(type)

    {

      case perpetualRaise:

	P_ActivateInStasis(line->tag);

	break;

      default:

	break;

    }

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

    {

	sec = §ors[secnum];

	if (sec->specialdata)

	    continue;

	// Find lowest & highest floors around sector

	rtn = 1;

	plat = Z_Malloc( sizeof(*plat), PU_LEVSPEC, 0);

	P_AddThinker(&plat->thinker);

	plat->type = type;

	plat->sector = sec;

	plat->sector->specialdata = plat;

	plat->thinker.function.acp1 = (actionf_p1) T_PlatRaise;

	plat->crush = false;

	plat->tag = line->tag;

	switch(type)

	{

	  case raiseToNearestAndChange:

	    plat->speed = PLATSPEED/2;

	    sec->floorpic = sides[line->sidenum[0]].sector->floorpic;

	    plat->high = P_FindNextHighestFloor(sec,sec->floorheight);

	    plat->wait = 0;

	    plat->status = up;

	    // NO MORE DAMAGE, IF APPLICABLE

	    sec->special = 0;

	    S_StartSound((mobj_t *)&sec->soundorg,sfx_stnmov);

	    break;

	  case raiseAndChange:

	    plat->speed = PLATSPEED/2;

	    sec->floorpic = sides[line->sidenum[0]].sector->floorpic;

	    plat->high = sec->floorheight + amount*FRACUNIT;

	    plat->wait = 0;

	    plat->status = up;

	    S_StartSound((mobj_t *)&sec->soundorg,sfx_stnmov);

	    break;

	  case downWaitUpStay:

	    plat->speed = PLATSPEED * 4;

	    plat->low = P_FindLowestFloorSurrounding(sec);

	    if (plat->low > sec->floorheight)

		plat->low = sec->floorheight;

	    plat->high = sec->floorheight;

	    plat->wait = 35*PLATWAIT;

	    plat->status = down;

	    S_StartSound((mobj_t *)&sec->soundorg,sfx_pstart);

	    break;

	  case blazeDWUS:

	    plat->speed = PLATSPEED * 8;

	    plat->low = P_FindLowestFloorSurrounding(sec);

	    if (plat->low > sec->floorheight)

		plat->low = sec->floorheight;

	    plat->high = sec->floorheight;

	    plat->wait = 35*PLATWAIT;

	    plat->status = down;

	    S_StartSound((mobj_t *)&sec->soundorg,sfx_pstart);

	    break;

	  case perpetualRaise:

	    plat->speed = PLATSPEED;

	    plat->low = P_FindLowestFloorSurrounding(sec);

	    if (plat->low > sec->floorheight)

		plat->low = sec->floorheight;

	    plat->high = P_FindHighestFloorSurrounding(sec);

	    if (plat->high < sec->floorheight)

		plat->high = sec->floorheight;

	    plat->wait = 35*PLATWAIT;

	    plat->status = P_Random()&1;

	    S_StartSound((mobj_t *)&sec->soundorg,sfx_pstart);

	    break;

	}

	P_AddActivePlat(plat);

    }

    return rtn;

}

void P_ActivateInStasis(int tag)

{

    int		i;

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

	if (activeplats[i]

	    && (activeplats[i])->tag == tag

	    && (activeplats[i])->status == in_stasis)

	{

	    (activeplats[i])->status = (activeplats[i])->oldstatus;

	    (activeplats[i])->thinker.function.acp1

	      = (actionf_p1) T_PlatRaise;

	}

}

void EV_StopPlat(line_t* line)

{

    int		j;

    for (j = 0;j < MAXPLATS;j++)

	if (activeplats[j]

	    && ((activeplats[j])->status != in_stasis)

	    && ((activeplats[j])->tag == line->tag))

	{

	    (activeplats[j])->oldstatus = (activeplats[j])->status;

	    (activeplats[j])->status = in_stasis;

	    (activeplats[j])->thinker.function.acv = (actionf_v)NULL;

	}

}

void P_AddActivePlat(plat_t* plat)

{

    int		i;

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

	if (activeplats[i] == NULL)

	{

	    activeplats[i] = plat;

	    return;

	}

    I_Error ("P_AddActivePlat: no more plats!");

}

void P_RemoveActivePlat(plat_t* plat)

{

    int		i;

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

	if (plat == activeplats[i])

	{

	    (activeplats[i])->sector->specialdata = NULL;

	    P_RemoveThinker(&(activeplats[i])->thinker);

	    activeplats[i] = NULL;

	    return;

	}

    I_Error ("P_RemoveActivePlat: can't find plat!");

}