indexing
	description	: "Class representing a spectator"
	author		: "Martino Trosi & Matteo Cortonesi"
	date		: "Spring 2009"
	reviewer	: "Mohammad Seyed Alavi"
	revision	: "1.0.1"

class
	SPECTATOR

inherit
	ACTOR

create
	make_with_hall

feature {NONE} -- Implementation

	type: STRING is "Spectator"
			-- What's the type?

	step is
			-- Do a process step.
		do
			enter (hall)
			spectate
			leave (hall)
			over := True
		end

	enter (a_hall: separate HALL) is
			-- Enter the hall.
		require
			not a_hall.judge_present
		do
			io.put_string (out + " entering%N")
		end

	spectate is
			-- Spectate.
		do
			random.forth;
			(create {EXECUTION_ENVIRONMENT}).sleep (1000000 * random_integer (500, 1000))
			io.put_string (out + " spectating%N")
			random.forth;
			(create {EXECUTION_ENVIRONMENT}).sleep (1000000 * random_integer (500, 1000))
		end

	leave (a_hall: separate HALL) is
			-- Leave.
		do
			io.put_string (out + " leaving%N")
		end

end