void C_DECL A_FogMove(mobj_t* actor)
{
coord_t speed = (coord_t) actor->args[0];
uint an;
if(!(actor->args[4]))
return;
if(actor->args[3]-- <= 0)
{
P_MobjChangeStateNoAction(actor, P_GetState(actor->type, SN_DEATH));
return;
}
// Move the fog slightly/slowly up and down. Some fog patches are supposed
// to move higher and some are supposed to stay close to the ground.
// Unlike in the original Hexen, the move is done by applying momentum
// to the cloud so that the movement is smooth.
if((actor->args[3] % 4) == 0)
{
uint weaveindex = actor->special2;
actor->mom[VZ] = FLOATBOBOFFSET(weaveindex) / TICSPERSEC;
actor->special2 = (weaveindex + 1) & 63;
}
an = actor->angle >> ANGLETOFINESHIFT;
actor->mom[MX] = speed * FIX2FLT(finecosine[an]);
actor->mom[MY] = speed * FIX2FLT(finesine[an]);
}
void C_DECL A_PoisonBagDamage(mobj_t* actor)
{
int bobIndex;
coord_t z;
A_Explode(actor);
bobIndex = actor->special2;
z = FLOATBOBOFFSET(bobIndex);
actor->origin[VZ] += z / 16;
actor->special2 = (bobIndex + 1) & 63;
}
void T_FloorWaggle(waggle_t *waggle)
{
DENG_ASSERT(waggle != 0);
switch(waggle->state)
{
default:
case WS_STABLE:
if(waggle->ticker != -1)
{
if(!--waggle->ticker)
{
waggle->state = WS_REDUCE;
}
}
break;
case WS_EXPAND:
if((waggle->scale += waggle->scaleDelta) >= waggle->targetScale)
{
waggle->scale = waggle->targetScale;
waggle->state = WS_STABLE;
}
break;
case WS_REDUCE:
if((waggle->scale -= waggle->scaleDelta) <= 0)
{
// Remove.
P_SetDoublep(waggle->sector, DMU_FLOOR_HEIGHT, waggle->originalHeight);
P_ChangeSector(waggle->sector, 1 /*crush damage*/);
P_ToXSector(waggle->sector)->specialData = nullptr;
P_NotifySectorFinished(P_ToXSector(waggle->sector)->tag);
Thinker_Remove(&waggle->thinker);
return;
}
break;
}
waggle->accumulator += waggle->accDelta;
coord_t fh = waggle->originalHeight +
FLOATBOBOFFSET(((int) waggle->accumulator) & 63) * waggle->scale;
P_SetDoublep(waggle->sector, DMU_FLOOR_HEIGHT, fh);
P_SetDoublep(waggle->sector, DMU_FLOOR_TARGET_HEIGHT, fh);
P_SetFloatp(waggle->sector, DMU_FLOOR_SPEED, 0);
P_ChangeSector(waggle->sector, 1 /*crush damage*/);
}
