freeslot(
	"MT_TUNNEL_SHINE",
	"S_TUNNEL_SHINE1",
	"S_TUNNEL_SHINE2",
	"S_TUNNEL_SHINE3",
	"S_TUNNEL_SHINE4"
)

addHook("MapThingSpawn", function(mo, mthing)
	if not (mo and mo.valid
	and mthing and mthing.valid)
		return
	end
	
	if mthing.args == 1
		mo.state = S_TUNNEL_SHINE2
		
	if mthing.args == 2
		mo.state = S_TUNNEL_SHINE3
		
	if mthing.args == 3
		mo.state = S_TUNNEL_SHINE4
		
			end
		end
	end 
end, MT_TUNNEL_SHINE)

mobjinfo[MT_TUNNEL_SHINE] = {
	//$Name Tunnel Shine
	//$Sprite SSPKA0
	//$Category Endless' Stuff
	//$Arg0 Start Frame?
	//$Arg0Type 11
	//$Arg0Enum {0="First"; 1="Second"; 2="Third"; 3="Fourth";}
	doomednum = 890,
	spawnstate = S_TUNNEL_SHINE1,
	spawnhealth = 100,
	seestate = S_TUNNEL_SHINE1,
	seestate = S_NULL,
	reactiontime = 8,
	painchance = 0,
	deathstate = S_SPRK1,
	deathsound = sfx_s3k2b,
	SPEED = 1,
	RADIUS = 16*FRACUNIT,
	HEIGHT = 16*FRACUNIT,
	MASS = 100,
	damage = 0,
	raisestate = S_NULL,
	flags = MF_NOGRAVITY|MF_SCENERY
}

states[S_TUNNEL_SHINE1] =	{SPR_SSPK,	FF_FULLBRIGHT|TR_TRANS30|FF_ADD|A,	10,	A_None,	0,	0,	S_TUNNEL_SHINE2}
states[S_TUNNEL_SHINE2] =	{SPR_SSPK,	FF_FULLBRIGHT|TR_TRANS40|FF_ADD|B,	10,	A_None,	0,	0,	S_TUNNEL_SHINE3}
states[S_TUNNEL_SHINE3] =	{SPR_SSPK,	FF_FULLBRIGHT|TR_TRANS50|FF_ADD|C,	10,	A_None,	0,	0,	S_TUNNEL_SHINE4}
states[S_TUNNEL_SHINE4] =	{SPR_SSPK,	FF_FULLBRIGHT|TR_TRANS40|FF_ADD|B,	10,	A_None,	0,	0,	S_TUNNEL_SHINE1}
