int EV_OpenPillar(Line * /*line*/, byte *args)
{
iterlist_t *list = P_GetSectorIterListForTag((int) args[0], false);
if(!list) return 0;
int rtn = 0;
IterList_SetIteratorDirection(list, ITERLIST_FORWARD);
IterList_RewindIterator(list);
Sector *sec;
while((sec = (Sector *)IterList_MoveIterator(list)))
{
// If already moving keep going...
if(P_ToXSector(sec)->specialData)
continue;
if(!FEQUAL(P_GetDoublep(sec, DMU_FLOOR_HEIGHT),
P_GetDoublep(sec, DMU_CEILING_HEIGHT)))
continue; // Pillar isn't closed.
rtn = 1;
pillar_t *pillar = (pillar_t *)Z_Calloc(sizeof(*pillar), PU_MAP, 0);
pillar->thinker.function = (thinkfunc_t) T_BuildPillar;
Thinker_Add(&pillar->thinker);
P_ToXSector(sec)->specialData = pillar;
pillar->sector = sec;
if(!args[2])
{
P_FindSectorSurroundingLowestFloor(sec,
P_GetDoublep(sec, DMU_FLOOR_HEIGHT), &pillar->floorDest);
}
else
{
pillar->floorDest =
P_GetDoublep(sec, DMU_FLOOR_HEIGHT) - (coord_t) args[2];
}
if(!args[3])
{
P_FindSectorSurroundingHighestCeiling(sec, 0, &pillar->ceilingDest);
}
else
{
pillar->ceilingDest =
P_GetDoublep(sec, DMU_CEILING_HEIGHT) + (coord_t) args[3];
}
if(P_GetDoublep(sec, DMU_FLOOR_HEIGHT) - pillar->floorDest >=
pillar->ceilingDest - P_GetDoublep(sec, DMU_CEILING_HEIGHT))
{
pillar->floorSpeed = (float) args[1] * (1.0f / 8);
pillar->ceilingSpeed =
(P_GetDoublep(sec, DMU_CEILING_HEIGHT) - pillar->ceilingDest) *
(pillar->floorSpeed / (pillar->floorDest - P_GetDoublep(sec, DMU_FLOOR_HEIGHT)));
}
else
{
pillar->ceilingSpeed = (float) args[1] * (1.0f / 8);
pillar->floorSpeed =
(pillar->floorDest - P_GetDoublep(sec, DMU_FLOOR_HEIGHT)) *
(pillar->ceilingSpeed / (P_GetDoublep(sec, DMU_CEILING_HEIGHT) - pillar->ceilingDest));
}
pillar->direction = -1; // Open the pillar.
SN_StartSequence((mobj_t *)P_GetPtrp(pillar->sector, DMU_EMITTER),
SEQ_PLATFORM + P_ToXSector(pillar->sector)->seqType);
}
return rtn;
}
static int doPlat(Line *line, int tag, plattype_e type, int amount)
#endif
{
#if !__JHEXEN__
Sector *frontSector = (Sector *)P_GetPtrp(line, DMU_FRONT_SECTOR);
#endif
iterlist_t *list = P_GetSectorIterListForTag(tag, false);
if(!list) return 0;
int rtn = 0;
IterList_SetIteratorDirection(list, ITERLIST_FORWARD);
IterList_RewindIterator(list);
Sector *sec;
while((sec = (Sector *)IterList_MoveIterator(list)))
{
xsector_t *xsec = P_ToXSector(sec);
if(xsec->specialData)
continue;
// Find lowest & highest floors around sector
rtn = 1;
plat_t *plat = (plat_t *) Z_Calloc(sizeof(*plat), PU_MAP, 0);
plat->thinker.function = T_PlatRaise;
Thinker_Add(&plat->thinker);
xsec->specialData = plat;
plat->type = type;
plat->sector = sec;
plat->crush = false;
plat->tag = tag;
#if __JHEXEN__
plat->speed = (float) args[1] * (1.0 / 8);
#endif
coord_t floorHeight = P_GetDoublep(sec, DMU_FLOOR_HEIGHT);
switch(type)
{
#if !__JHEXEN__
case PT_RAISETONEARESTANDCHANGE:
plat->speed = PLATSPEED * .5;
P_SetPtrp(sec, DMU_FLOOR_MATERIAL,
P_GetPtrp(frontSector, DMU_FLOOR_MATERIAL));
{
coord_t nextFloor;
if(P_FindSectorSurroundingNextHighestFloor(sec, floorHeight, &nextFloor))
plat->high = nextFloor;
else
plat->high = floorHeight;
}
plat->wait = 0;
plat->state = PS_UP;
// No more damage if applicable.
xsec->special = 0;
S_PlaneSound((Plane *)P_GetPtrp(sec, DMU_FLOOR_PLANE), SFX_PLATFORMMOVE);
break;
case PT_RAISEANDCHANGE:
plat->speed = PLATSPEED * .5;
P_SetPtrp(sec, DMU_FLOOR_MATERIAL,
P_GetPtrp(frontSector, DMU_FLOOR_MATERIAL));
plat->high = floorHeight + amount;
plat->wait = 0;
plat->state = PS_UP;
S_PlaneSound((Plane *)P_GetPtrp(sec, DMU_FLOOR_PLANE), SFX_PLATFORMMOVE);
break;
#endif
case PT_DOWNWAITUPSTAY:
P_FindSectorSurroundingLowestFloor(sec,
P_GetDoublep(sec, DMU_FLOOR_HEIGHT), &plat->low);
#if __JHEXEN__
plat->low += 8;
#else
plat->speed = PLATSPEED * 4;
#endif
if(plat->low > floorHeight)
plat->low = floorHeight;
plat->high = floorHeight;
plat->state = PS_DOWN;
#if __JHEXEN__
plat->wait = (int) args[2];
#else
plat->wait = PLATWAIT * TICSPERSEC;
#endif
#if !__JHEXEN__
S_PlaneSound((Plane *)P_GetPtrp(sec, DMU_FLOOR_PLANE), SFX_PLATFORMSTART);
#endif
break;
#if __JDOOM64__ || __JHEXEN__
case PT_UPWAITDOWNSTAY:
P_FindSectorSurroundingHighestFloor(sec, -500, &plat->high);
if(plat->high < floorHeight)
plat->high = floorHeight;
plat->low = floorHeight;
plat->state = PS_UP;
# if __JHEXEN__
plat->wait = (int) args[2];
# else
plat->wait = PLATWAIT * TICSPERSEC;
# endif
# if __JDOOM64__
plat->speed = PLATSPEED * 8;
S_PlaneSound((Plane *)P_GetPtrp(sec, DMU_FLOOR_PLANE), SFX_PLATFORMSTART);
# endif
break;
#endif
#if __JDOOM64__
case PT_DOWNWAITUPDOOR: // jd64
plat->speed = PLATSPEED * 8;
P_FindSectorSurroundingLowestFloor(sec,
P_GetDoublep(sec, DMU_FLOOR_HEIGHT), &plat->low);
if(plat->low > floorHeight)
plat->low = floorHeight;
if(plat->low != floorHeight)
plat->low += 6;
plat->high = floorHeight;
plat->wait = 50 * PLATWAIT;
plat->state = PS_DOWN;
break;
#endif
#if __JHEXEN__
case PT_DOWNBYVALUEWAITUPSTAY:
plat->low = floorHeight - (coord_t) args[3] * 8;
if(plat->low > floorHeight)
plat->low = floorHeight;
plat->high = floorHeight;
plat->wait = (int) args[2];
plat->state = PS_DOWN;
break;
case PT_UPBYVALUEWAITDOWNSTAY:
plat->high = floorHeight + (coord_t) args[3] * 8;
if(plat->high < floorHeight)
plat->high = floorHeight;
plat->low = floorHeight;
plat->wait = (int) args[2];
plat->state = PS_UP;
break;
#endif
#if __JDOOM__ || __JDOOM64__
case PT_DOWNWAITUPSTAYBLAZE:
plat->speed = PLATSPEED * 8;
P_FindSectorSurroundingLowestFloor(sec,
P_GetDoublep(sec, DMU_FLOOR_HEIGHT), &plat->low);
if(plat->low > floorHeight)
plat->low = floorHeight;
plat->high = floorHeight;
plat->wait = PLATWAIT * TICSPERSEC;
plat->state = PS_DOWN;
S_PlaneSound((Plane *)P_GetPtrp(sec, DMU_FLOOR_PLANE), SFX_PLATFORMSTART);
break;
#endif
case PT_PERPETUALRAISE:
P_FindSectorSurroundingLowestFloor(sec,
P_GetDoublep(sec, DMU_FLOOR_HEIGHT), &plat->low);
#if __JHEXEN__
plat->low += 8;
#else
plat->speed = PLATSPEED;
#endif
if(plat->low > floorHeight)
plat->low = floorHeight;
P_FindSectorSurroundingHighestFloor(sec, -500, &plat->high);
if(plat->high < floorHeight)
plat->high = floorHeight;
plat->state = platstate_e(P_Random() & 1);
#if __JHEXEN__
plat->wait = (int) args[2];
#else
plat->wait = PLATWAIT * TICSPERSEC;
#endif
#if !__JHEXEN__
S_PlaneSound((Plane *)P_GetPtrp(sec, DMU_FLOOR_PLANE), SFX_PLATFORMSTART);
#endif
break;
default:
break;
}
#if __JHEXEN__
SN_StartSequenceInSec(plat->sector, SEQ_PLATFORM);
#endif
}
return rtn;
}
