Message	Startup
Message	Activated
Message	Timer

Thing	Door0=-1
Thing	Door1=-1
Thing	Door2=-1
Thing	Door3=-1

flex	openspeed=2
flex	destroydelay=0

int	numdoors=-1	local
int	i		local

Startup:
	For(i=0; i<=3; i=i+1)
		if(Door0 > -1) NumDoors=NumDoors+1;
	for(i=0; i<=NumDoors; i=i+1;
		SetSectorAdjoins(GetThingSector(Door0));
	if(DestroyDelay < 0) DestroyDelay = 0;  // syntax checking.
	if(openSpeed < 0) OpenSpeed = 2;
	Return;

Activated:
	for(i=0; i<=NumDoors; i=i+1)
		MoveToFrame(Door01, openspeed);
	// Wait for doors to stop AFTER all doors have been told to move.
	for(i=0; i<=NumDoors; i=i+1)
		WaitForStop(Door0);
	if(DestroyDelay == 0)
		for(i=0; i<=NumDoors; i=i+1)
		DestroyThing(Door0);
	else SetTimer(DestroyDelay);
	Return;

Timer:
	for(i=0; i<=NumDoors; i=i+1)
	DestroyThing(Door0);
	Return;

# open_doors.cog
#
# Open two doors and them remove them with a sound.
#
# [Dogsrool + SM]
#==============================================================#
symbols

message   startup
message   activated
message   timer

thing     door=-1
thing     door1=-1
thing     door2=-1
thing     door3=-1

flex      openSpeed=2
flex      destroyDelay=0

int       numDoors=-1      local
int       i                local

sound     removal

end
#==============================================================#
code
#------------------------------------------------------
startup:
	// find out how many doors we're working with.
	for(i = 0; i < 4 && door > -1; i = i + 1) numDoors = numDoors + 1;

	// go through all of our doors and turn their sectors' adjoins off.
	// this saves JK from trying to render through the door into sectors
	// you can't see.
	for(i = 0; i < numDoors; i = i + 1) SetSectorAdjoins(GetThingSector(door), 0);

Return;
#------------------------------------------------------
activated:
	// tell all of our doors to move to their second frame.
	for(i = 0; i < numDoors; i = i + 1)
	{
		// give the move command.
		MoveToFrame(door, 1, openSpeed);

		// since the door's sector's adjoin is off, we need
		// to turn it back on so you can see through.
		SetSectorAdjoins(GetThingSector(door), 0);
	}

	// wait for the last door to stop moving.
	WaitForStop(door);

	// because SetTimer(0) will kill a timer instead of setting it,
	// we'll use SetTimerEx() because timerEx's are killed with KillTimerEx().
	SetTimerEx(destroyDelay, 0, 0, 0);

Return;
#------------------------------------------------------
timer:
	// destroy all of our doors.
	for(i = 0; i < numDoors; i = i + 1)
	{
		// play the removal sound.
		PlaySoundThing(removal, door, 1, 10, 30, 0x100);

		// then remove the door.
		DestroyThing(door);
	}

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