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