--<<<-


-- Class ActionConductor handles notifying things that other things have
-- perpetrated an action.
class ActionConductor (RootObject)
	instance variables
		enabled
end


method init self {class ActionConductor} #rest args #key \
	room:(undefined) ->
(
	apply nextMethod self args
	self.enabled := true
)


-- Method handleAction tells other perpetrators in the current room
-- to react to the specified action.
method handleAction self {class ActionConductor} act ->
(
	if ((not self.enabled) or (theRoom == undefined)) do (
		return
	)
	local perp := act.perpetrator
	for p in theRoom do
	(
		if ((p <> perp) and isAKindOf p Perpetrator) do
		(
			react p act
		)
	)
)


-->>>