;PILGRIMS********************************************************************** :PilgrimMain if turn > pilgrimship then multitrigger :pilgrimrequest set pilgrimship ((turn + 15000) + (rnd%5000)) end :PilgrimRequest if 0 then set PilgrimAccept 3 set PilgrimRequest 1 set PilgrimTaken 0 disable end :PilgrimRequest01 if 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 :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