home *** CD-ROM | disk | FTP | other *** search
/ Hacker 70 / HACKER70.ISO / Igre / Startopia / startopiademo.exe / missions / 00 / touristsX00.txt < prev    next >
Text File  |  2001-05-14  |  1KB  |  88 lines
  1. ;TOURISTS**********************************************************************
  2. :TouristRequest
  3. if
  4.     0
  5. then
  6.     set TouristAccept 3
  7.     set TouristRequest 1
  8.     set TouristTaken 0
  9.     disable
  10. end
  11.  
  12. :TouristRequest01AI
  13. if
  14.     IAMALOSER < 1
  15.     human = 0
  16.     TouristRequest > 0
  17.     Treplywaiting < 1
  18. then
  19.     set Treplywait (turn + (((rnd%500) + 600) / satcom_count))
  20.     set Treplywaiting 1
  21. end
  22.  
  23. :TouristRequest02AI
  24. if
  25.     human = 0
  26.     TouristRequest > 0
  27.     Treplywaiting > 0
  28.     turn > Treplywait
  29. then
  30.     set TouristAccept (rnd%3)
  31.     set TouristRequest 0
  32.     set Treplywaiting 0
  33. end
  34.  
  35. :TouristRequest01Human
  36. if
  37.     human = 1
  38.     TouristRequest > 0
  39. then
  40.     incoming ship_comms respond TouristAccept within 1440 skill ((rnd%10000) + 100) "events_touristship01"
  41.     set TouristRequest 0
  42. ;    status_message "DEBUG ** Tourists have been created ** DEBUG"
  43. end
  44.  
  45. :TouristAccept
  46. if
  47.     TouristTaken = 0
  48.     TouristAccept = 2
  49. then
  50.     set TouristArrive 0
  51.     set TouristMax ((rnd%segmentdecks) + segmentdecks)
  52.     set TouristAccept 3
  53.     multitrigger :TouristTaken
  54. end
  55.  
  56. :TouristAcceptLate
  57. if
  58.     TouristTaken = 1
  59.     TouristAccept = 2
  60. then
  61.     incoming ship_comms within 720 "events_edocking01"
  62.     set TouristAccept 3
  63. end
  64.  
  65. :TouristIgnoreDecline
  66. if
  67.     TouristAccept < 2
  68. then
  69.     set TouristAccept 3
  70. end
  71.  
  72. :TouristTaken
  73. if
  74.     0
  75. then
  76.     set TouristTaken 1
  77.     disable
  78. end
  79.  
  80. :TouristGenerator
  81. if
  82.     TouristArrive < TouristMax
  83. then
  84.     place_peep ((rnd%9) + 5) mood fun ((rnd%1000) + 3000)
  85.     set TouristArrive (TouristArrive + 1)
  86. end
  87.  
  88.