;PILGRIMS**********************************************************************
:PilgrimRequest
if
	0
then
	set PilgrimAccept 3
	set PilgrimRequest 1
	set PilgrimTaken 0
	disable
end

:PilgrimRequest01AI
if
	IAMALOSER < 1
	human = 0
	temple_count > 0
	satcom_count > 0
	PilgrimRequest > 0
	Preplywaiting < 1
then
	set Preplywait (turn + (((rnd%500) + 600) / satcom_count))
	set Preplywaiting 1
end

:PilgrimRequest02AI
if
	human = 0
	PilgrimRequest > 0
	Preplywaiting > 0
	turn > Preplywait
then
	set PilgrimAccept (rnd%3)
	set PilgrimRequest 0
	set Preplywaiting 0
end

:PilgrimRequest01Human
if
	human = 1
	temple_count > 0
	PilgrimRequest > 0
then
	incoming ship_comms respond PilgrimAccept within 1440 skill ((rnd%10000) + 100) "events_pilgrimship01"
	set PilgrimRequest 0
;	status_message "DEBUG ** Pilgrims have been created ** DEBUG"
end

:PilgrimRequest02
if
	temple_count < 1
	PilgrimRequest > 0
then
	set PilgrimRequest 0
end

:PilgrimRequest03
if
	satcom_count < 1
	PilgrimRequest > 0
then
	set PilgrimRequest 0
end

:PilgrimAccept
if
	PilgrimTaken = 0
	PilgrimAccept = 2
then
	set PilgrimArrive 0
	set PilgrimMax ((rnd%9) + 4)
	set PilgrimAccept 3
	multitrigger :PilgrimTaken
end

:PilgrimAcceptLate
if
	PilgrimTaken = 1
	PilgrimAccept = 2
then
	incoming ship_comms within 720 "events_pdocking01"
	set PilgrimAccept 3
end

:PilgrimIgnoreDecline
if
	PilgrimAccept < 2
then
	set PilgrimAccept 3
end

:PilgrimTaken
if
	0
then
	set PilgrimTaken 1
	disable
end

:PilgrimGenerator
if
	pilgrimarrive < pilgrimmax
then
	place_peep ((rnd%9) + 5) mood soul ((rnd%500) + 1000)
	set pilgrimarrive (pilgrimarrive + 1)
end
