# spawn.cog
#
# A spawn cog for fuel barrels. Do not let JED make your ghost
# template the first template in your JKL or cogs will not be able
# to use it.
#
# [SM]
#==============================================================#
symbols

message	startup
message	removed
message	timer

template	barrel
template	ghost

flex		spawnDelay=10

thing		barrel0=-1
thing		barrel1=-1
thing		barrel2=-1
thing		barrel3=-1
thing		barrel4=-1

thing		ghost0	local
thing		ghost1	local
thing		ghost2	local
thing		ghost3	local
thing		ghost4	local

int		i		local

end
#==============================================================#
code
#------------------------------------------------------
startup:
	// create a ghost for each barrel - we're counting on
	// unused barrel variables being set to -1.
	for(i=0; i < 5 && barrel0 > -1; i=i+1)
	ghost0=CreateThingAtPos(ghost, GetThingSector(barrel0), GetThingPos(barrel0), '0 0 0');

Return;
#------------------------------------------------------
removed:
	// find the exploded barrel and set a thing timer for its ghost
	for(i=0; i < 5 && barrel0 != GetSenderRef(); i=i+1);
	SetTimerEx(spawnDelay, i, 0, 0);

Return;
#------------------------------------------------------
timer:
	// create our barrel at the pos of its ghost
	i = GetSenderID();
	barrel0=CreateThingAtPos(barrel, GetThingSector(ghost0), GetThingPos(ghost0), '0 0 0');
	// reset the barrels pos because CTAP puts the barrel
	// slightly above where it should be
	SetThingPos(barrel0, GetThingPos(ghost0));
	// capture our new barrel so we'll get its removed event
	CaptureThing(barrel0);

Return;
#------------------------------------------------------
end

# xtank1.cog
#
# Class cog for xtanks. Respawns destroyed tanks.
#
# [LEC + SM]
#==============================================================#
flags=0x80
#==============================================================#
symbols

message   created
message   damaged
message   timer

template  barrel_exp=+xtank1_exp   local

thing     barrel                   local

flex      barrelhealth             local
flex      damage                   local
flex      spawnDelay=10            local

end
#==============================================================#
code
#------------------------------------------------------
created:
	SetThingUserData(GetSenderRef(), 30);

Return;
#------------------------------------------------------
damaged:
	barrel = GetSenderRef();
	damage = GetParam(0);
	barrelhealth = GetThingUserData(barrel);
	if(GetParam(1) == 1) Return;
	if(barrelhealth <= damage)
	{
		SetTimerEx(0.5, barrel, 0, 0);
		Return;
	}
	SetThingUserData(barrel, barrelhealth - damage);

Return;
#------------------------------------------------------
timer:
	barrel = GetSenderID();
	KillTimerEx(barrel);
	if(GetThingFlags(barrel) & 0x10)
	{
		ClearThingFlags(barrel, 0x10);
		SetCollideType(barrel, 3);
	}
	else
	{
		CreateThing(barrel_exp, barrel);
		SetThingFlags(barrel, 0x10);
		SetCollideType(barrel, 0);
		SetTimerEx(spawnDelay, barrel, 0, 0);
	}

Return;
#------------------------------------------------------
end

if(GetThingFlags(barrel) & 0x80000)
{
	ClearThingFlags(barrel, 0x80000);
}
else
{
	CreateThing(barrel_exp, barrel);
	SetThingFlags(barrel, 0x80000);
	SetTimerEx(spawnDelay, barrel, 0, 0);
}