;TOURISTS**********************************************************************
:TouristRequest
if
	0
then
	set TouristAccept 3
	set TouristRequest 1
	set TouristTaken 0
	disable
end

:TouristRequest01AI
if
	IAMALOSER < 1
	human = 0
	TouristRequest > 0
	Treplywaiting < 1
then
	set Treplywait (turn + (((rnd%1000) + 600) / (satcom_count + 1)))
	set Treplywaiting 1
end

:TouristRequest02AI
if
	satcom_count > 0
	human = 0
	TouristRequest > 0
	Treplywaiting > 0
	turn > Treplywait
then
	set TouristAccept (rnd%3)
	set TouristRequest 0
	set Treplywaiting 0
end

:TouristRequest03AI
if
	satcom_count < 1
	human = 0
	TouristRequest > 0
	Treplywaiting > 0
	turn > Treplywait
then
	set TouristAccept 1
	set TouristRequest 0
	set Treplywaiting 0
end

:TouristRequest01Human
if
	human = 1
	TouristRequest > 0
then
	incoming ship_comms respond TouristAccept within 1440 skill ((rnd%10000) + 100) "events_touristship01"
	set TouristRequest 0
;	status_message "DEBUG ** Tourists have been created ** DEBUG"
end

:TouristAccept
if
	TouristTaken = 0
	TouristAccept = 2
then
	set TouristArrive 0
	set TouristMax ((rnd%segmentdecks) + segmentdecks)
	set TouristAccept 3
	multitrigger :TouristTaken
end

:TouristAcceptLate
if
	TouristTaken = 1
	TouristAccept = 2
then
	incoming ship_comms within 720 "events_edocking01"
	set TouristAccept 3
end

:TouristIgnoreDecline
if
	TouristAccept < 2
then
	set TouristAccept 3
end

:TouristTaken
if
	0
then
	set TouristTaken 1
	disable
end

:TouristGenerator
if
	TouristArrive < TouristMax
then
	place_peep ((rnd%9) + 5) mood fun ((rnd%1000) + 3000)
	set TouristArrive (TouristArrive + 1)
end

