forked from KolibriOS/kolibrios
315 lines
6.5 KiB
C
Executable File
315 lines
6.5 KiB
C
Executable File
// 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 <type> 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!");
|
|
}
|