;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%500) + 600) / satcom_count)) set Treplywaiting 1 end :TouristRequest02AI if human = 0 TouristRequest > 0 Treplywaiting > 0 turn > Treplywait then set TouristAccept (rnd%3) 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