home *** CD-ROM | disk | FTP | other *** search
/ Hacker 70 / HACKER70.ISO / Igre / Startopia / startopiademo.exe / missions / 00 / pilgrimsX00.txt < prev    next >
Text File  |  2001-05-14  |  2KB  |  97 lines
  1. ;PILGRIMS**********************************************************************
  2. :PilgrimRequest
  3. if
  4.     0
  5. then
  6.     set PilgrimAccept 3
  7.     set PilgrimRequest 1
  8.     set PilgrimTaken 0
  9.     disable
  10. end
  11.  
  12. :PilgrimRequest01AI
  13. if
  14.     IAMALOSER < 1
  15.     human = 0
  16.     temple_count > 0
  17.     PilgrimRequest > 0
  18.     Preplywaiting < 1
  19. then
  20.     set Preplywait (turn + (((rnd%500) + 600) / satcom_count))
  21.     set Preplywaiting 1
  22. end
  23.  
  24. :PilgrimRequest02AI
  25. if
  26.     human = 0
  27.     PilgrimRequest > 0
  28.     Preplywaiting > 0
  29.     turn > Preplywait
  30. then
  31.     set PilgrimAccept (rnd%3)
  32.     set PilgrimRequest 0
  33.     set Preplywaiting 0
  34. end
  35.  
  36. :PilgrimRequest01Human
  37. if
  38.     human = 1
  39.     temple_count > 0
  40.     PilgrimRequest > 0
  41. then
  42.     incoming ship_comms respond PilgrimAccept within 1440 skill ((rnd%10000) + 100) "events_pilgrimship01"
  43.     set PilgrimRequest 0
  44. ;    status_message "DEBUG ** Pilgrims have been created ** DEBUG"
  45. end
  46.  
  47. :PilgrimRequest02
  48. if
  49.     temple_count < 1
  50.     PilgrimRequest > 0
  51. then
  52.     set PilgrimRequest 0
  53. end
  54.  
  55. :PilgrimAccept
  56. if
  57.     PilgrimTaken = 0
  58.     PilgrimAccept = 2
  59. then
  60.     set PilgrimArrive 0
  61.     set PilgrimMax ((rnd%9) + 4)
  62.     set PilgrimAccept 3
  63.     multitrigger :PilgrimTaken
  64. end
  65.  
  66. :PilgrimAcceptLate
  67. if
  68.     PilgrimTaken = 1
  69.     PilgrimAccept = 2
  70. then
  71.     incoming ship_comms within 720 "events_pdocking01"
  72.     set PilgrimAccept 3
  73. end
  74.  
  75. :PilgrimIgnoreDecline
  76. if
  77.     PilgrimAccept < 2
  78. then
  79.     set PilgrimAccept 3
  80. end
  81.  
  82. :PilgrimTaken
  83. if
  84.     0
  85. then
  86.     set PilgrimTaken 1
  87.     disable
  88. end
  89.  
  90. :PilgrimGenerator
  91. if
  92.     pilgrimarrive < pilgrimmax
  93. then
  94.     place_peep ((rnd%9) + 5) mood soul ((rnd%500) + 1000)
  95.     set pilgrimarrive (pilgrimarrive + 1)
  96. end
  97.