Jump to content

User:Kaysakado/Lua special sets

From SRB2 Wiki

< User:Kaysakado

anything that isn't just assigning a value or simple error-handling

`lua_mobjlib.c`

Code – mobj_set

case mobj_z:
{
	// z doesn't cross sector bounds so it's okay.
	mobj_t *ptmthing = tmthing;
	mo->z = luaL_checkfixed(L, 3);
	P_CheckPosition(mo, mo->x, mo->y);
	mo->floorz = tmfloorz;
	mo->ceilingz = tmceilingz;
	mo->floorrover = tmfloorrover;
	mo->ceilingrover = tmceilingrover;
	P_SetTarget(&tmthing, ptmthing);
	break;
}
case mobj_angle:
	mo->angle = luaL_checkangle(L, 3);
	if (mo->player == &players[consoleplayer])
		localangle = mo->angle;
	else if (mo->player == &players[secondarydisplayplayer])
		localangle2 = mo->angle;
	break;
case mobj_radius:
{
	mobj_t *ptmthing = tmthing;
	mo->radius = luaL_checkfixed(L, 3);
	if (mo->radius < 0)
		mo->radius = 0;
	P_CheckPosition(mo, mo->x, mo->y);
	mo->floorz = tmfloorz;
	mo->ceilingz = tmceilingz;
	mo->floorrover = tmfloorrover;
	mo->ceilingrover = tmceilingrover;
	P_SetTarget(&tmthing, ptmthing);
	break;
}
case mobj_height:
{
	mobj_t *ptmthing = tmthing;
	mo->height = luaL_checkfixed(L, 3);
	if (mo->height < 0)
		mo->height = 0;
	P_CheckPosition(mo, mo->x, mo->y);
	mo->floorz = tmfloorz;
	mo->ceilingz = tmceilingz;
	mo->floorrover = tmfloorrover;
	mo->ceilingrover = tmceilingrover;
	P_SetTarget(&tmthing, ptmthing);
	break;
}
case mobj_pmomz:
	mo->pmomz = luaL_checkfixed(L, 3);
	mo->eflags |= MFE_APPLYPMOMZ;
	break;
case mobj_state: // set state by enum
	if (mo->player)
		P_SetPlayerMobjState(mo, luaL_checkinteger(L, 3));
	else
		P_SetMobjState(mo, luaL_checkinteger(L, 3));
	break;
case mobj_flags: // special handling for MF_NOBLOCKMAP and MF_NOSECTOR
{
	UINT32 flags = luaL_checkinteger(L, 3);
	if ((flags & (MF_NOBLOCKMAP|MF_NOSECTOR)) != (mo->flags & (MF_NOBLOCKMAP|MF_NOSECTOR)))
	{
		P_UnsetThingPosition(mo);
		mo->flags = flags;
		if (flags & MF_NOSECTOR && sector_list)
		{
			P_DelSeclist(sector_list);
			sector_list = NULL;
		}
		mo->snext = NULL, mo->sprev = NULL;
		mo->bnext = NULL, mo->bprev = NULL;
		P_SetThingPosition(mo);
	}
	else
		mo->flags = flags;
	break;
}
case mobj_skin: // set skin by name
{
	INT32 i;
	char skin[SKINNAMESIZE+1]; // all skin names are limited to this length
	strlcpy(skin, luaL_checkstring(L, 3), sizeof skin);
	strlwr(skin); // all skin names are lowercase
	for (i = 0; i < numskins; i++)
		if (fastcmp(skins[i].name, skin))
		{
			if (!mo->player || R_SkinUsable(mo->player-players, i))
				mo->skin = &skins[i];
			return 0;
		}
	return luaL_error(L, "mobj.skin '%s' not found!", skin);
}
case mobj_type: // yeah sure, we'll let you change the mobj's type.
{
	mobjtype_t newtype = luaL_checkinteger(L, 3);
	if (newtype >= NUMMOBJTYPES)
		return luaL_error(L, "mobj.type %d out of range (0 - %d).", newtype, NUMMOBJTYPES-1);
	mo->type = newtype;
	mo->info = &mobjinfo[newtype];
	P_SetScale(mo, mo->scale);
	break;
}
case mobj_scale:
{
	fixed_t scale = luaL_checkfixed(L, 3);
	if (scale < FRACUNIT/100)
		scale = FRACUNIT/100;
	mo->destscale = scale;
	P_SetScale(mo, scale);
	break;
}
case mobj_destscale:
{
	fixed_t scale = luaL_checkfixed(L, 3);
	if (scale < FRACUNIT/100)
		scale = FRACUNIT/100;
	mo->destscale = scale;
	break;
}

`lua_playerlib.c`

Code – player_set

if (fastcmp(field,"mo") || fastcmp(field,"realmo")) {
	mobj_t *newmo = *((mobj_t **)luaL_checkudata(L, 3, META_MOBJ));
	plr->mo->player = NULL; // remove player pointer from old mobj
	(newmo->player = plr)->mo = newmo; // set player pointer for new mobj, and set new mobj as the player's mobj
}
else if (fastcmp(field,"aiming")) {
	plr->aiming = luaL_checkangle(L, 3);
	if (plr == &players[consoleplayer])
		localaiming = plr->aiming;
	else if (plr == &players[secondarydisplayplayer])
		localaiming2 = plr->aiming;
}
else if (fastcmp(field,"awayviewtics"))
{
	plr->awayviewtics = (INT32)luaL_checkinteger(L, 3);
	if (plr->awayviewtics && !plr->awayviewmobj) // awayviewtics must ALWAYS have an awayviewmobj set!!
		P_SetTarget(&plr->awayviewmobj, plr->mo); // but since the script might set awayviewmobj immediately AFTER setting awayviewtics, use player mobj as filler for now.
}

`lua_maplib.c`

Code – sector_set

case sector_floorheight: { // floorheight
	boolean flag;
	mobj_t *ptmthing = tmthing;
	fixed_t lastpos = sector->floorheight;
	sector->floorheight = luaL_checkfixed(L, 3);
	flag = P_CheckSector(sector, true);
	if (flag && sector->numattached)
	{
		sector->floorheight = lastpos;
		P_CheckSector(sector, true);
	}
	P_SetTarget(&tmthing, ptmthing);
	break;
}
case sector_ceilingheight: { // ceilingheight
	boolean flag;
	mobj_t *ptmthing = tmthing;
	fixed_t lastpos = sector->ceilingheight;
	sector->ceilingheight = luaL_checkfixed(L, 3);
	flag = P_CheckSector(sector, true);
	if (flag && sector->numattached)
	{
		sector->ceilingheight = lastpos;
		P_CheckSector(sector, true);
	}
	P_SetTarget(&tmthing, ptmthing);
	break;
}
case sector_floorpic:
	sector->floorpic = P_AddLevelFlatRuntime(luaL_checkstring(L, 3));
	break;
case sector_ceilingpic:
	sector->ceilingpic = P_AddLevelFlatRuntime(luaL_checkstring(L, 3));
	break;
case sector_tag:
	P_ChangeSectorTag((UINT32)(sector - sectors), (INT16)luaL_checkinteger(L, 3));
	break;

Code – ffloor_set

case ffloor_topheight: { // topheight
	boolean flag;
	fixed_t lastpos = *ffloor->topheight;
	mobj_t *ptmthing = tmthing;
	sector_t *sector = &sectors[ffloor->secnum];
	sector->ceilingheight = luaL_checkfixed(L, 3);
	flag = P_CheckSector(sector, true);
	if (flag && sector->numattached)
	{
		*ffloor->topheight = lastpos;
		P_CheckSector(sector, true);
	}
	P_SetTarget(&tmthing, ptmthing);
	break;
}
case ffloor_toppic:
	*ffloor->toppic = P_AddLevelFlatRuntime(luaL_checkstring(L, 3));
	break;
case ffloor_bottompic:
	*ffloor->bottompic = P_AddLevelFlatRuntime(luaL_checkstring(L, 3));
	break;
case ffloor_bottomheight: { // bottomheight
	boolean flag;
	fixed_t lastpos = *ffloor->bottomheight;
	mobj_t *ptmthing = tmthing;
	sector_t *sector = &sectors[ffloor->secnum];
	sector->floorheight = luaL_checkfixed(L, 3);
	flag = P_CheckSector(sector, true);
	if (flag && sector->numattached)
	{
		*ffloor->bottomheight = lastpos;
		P_CheckSector(sector, true);
	}
	P_SetTarget(&tmthing, ptmthing);
	break;
}
case ffloor_flags: {
	ffloortype_e oldflags = ffloor->flags; // store FOF's old flags
	ffloor->flags = luaL_checkinteger(L, 3);
	if (ffloor->flags != oldflags)
		ffloor->target->moved = true; // reset target sector's lightlist
	break;
}

Code – slope_set

case slope_zdelta: { // zdelta, this is temp until i figure out wtf to do
	slope->zdelta = luaL_checkfixed(L, 3);
	slope->zangle = R_PointToAngle2(0, 0, FRACUNIT, -slope->zdelta);
	P_CalculateSlopeNormal(slope);
	break;
}
case slope_zangle: { // zangle
	angle_t zangle = luaL_checkangle(L, 3);
	if (zangle == ANGLE_90 || zangle == ANGLE_270)
		return luaL_error(L, "invalid zangle for slope!");
	slope->zangle = zangle;
	slope->zdelta = -FINETANGENT(((slope->zangle+ANGLE_90)>>ANGLETOFINESHIFT) & 4095);
	P_CalculateSlopeNormal(slope);
	break;
}
case slope_xydirection: // xydirection
	slope->xydirection = luaL_checkangle(L, 3);
	slope->d.x = -FINECOSINE((slope->xydirection>>ANGLETOFINESHIFT) & FINEMASK);
	slope->d.y = -FINESINE((slope->xydirection>>ANGLETOFINESHIFT) & FINEMASK);
	P_CalculateSlopeNormal(slope);
	break;
}

Retrieved from "https://wiki.srb2.org/w/index.php?title=User:Kaysakado/Lua_special_sets&oldid=108467"

Pages using deprecated source tags