home *** CD-ROM | disk | FTP | other *** search
/ Hacker 70 / HACKER70.ISO / Igre / Startopia / startopiademo.exe / missions / 00 / spiesX001.txt < prev    next >
Text File  |  2001-05-15  |  2KB  |  119 lines
  1. ;SPIES********************************************************************
  2. :Spies100
  3. if
  4.     human = 1
  5.     spymessage = 0
  6.     spytype = 0
  7.     turn > spytime
  8.     energy > 10000
  9.     enemy_count > 0
  10. then
  11.     incoming local_comms respond spy_wanted within 1000 "general_assassin01"
  12.     set spymessage 1
  13. end
  14.  
  15. :Spies100AI
  16. if
  17.     human = 0
  18.     spymessage = 0
  19.     spytype = 0
  20.     turn > spytime
  21.     energy > 10000
  22.     enemy_count > 0
  23. then
  24.     set spy_wanted (rnd%3)
  25.     set spymessage 1
  26. end
  27.  
  28. :Spies101
  29. if
  30.     spy_wanted = YES
  31.     spytype = 0
  32. then
  33.     place_peep spy assasin enemies
  34.     addenergy (0-(3000*enemy_count))
  35.     set spy_wanted 3
  36.     set spytype (rnd%2)
  37.     set spytime ((turn + 30000) + (rnd%10000))
  38.     set spymessage 0
  39. end
  40.  
  41.  
  42. :Spies102
  43. if
  44.     human = 1
  45.     spymessage = 0
  46.     spytype = 1
  47.     turn > spytime
  48.     energy > 10000
  49.     enemy_count > 0
  50. then
  51.     incoming local_comms respond spy_wanted within 1000 "general_bomber01"
  52.     set spymessage 1
  53. end
  54.  
  55. :Spies102AI
  56. if
  57.     human = 0
  58.     spymessage = 0
  59.     spytype = 1
  60.     turn > spytime
  61.     energy > 10000
  62.     enemy_count > 0
  63. then
  64.     set spy_wanted (rnd%3)
  65.     set spymessage 1
  66. end
  67.  
  68. :Spies103
  69. if
  70.     spy_wanted = YES
  71.     spytype = 1
  72. then
  73.     place_peep spy saboteur enemies
  74.     addenergy (0-(3000*enemy_count))
  75.     set spy_wanted 3
  76.     set spytype (rnd%2)
  77.     set spytime ((turn + 30000) + (rnd%10000))
  78.     set spymessage 0
  79. end
  80.  
  81. :spies104
  82. if
  83.     spy_wanted < 2
  84. then
  85.     set spy_wanted 3
  86.     set spytime ((turn + 30000) + (rnd%10000))
  87.     set spytype (rnd%2)
  88.     set spymessage 0
  89. end
  90.  
  91. :spies105
  92. if
  93.     spymessage = 0
  94.     turn > spytime
  95.     enemy_count < 1
  96. then
  97.     set spytime ((turn + 3000) + (rnd%1000))
  98. end
  99.  
  100. ;PEEPSPIES
  101. :AlienSpies
  102. if
  103.     turn > 40000
  104.     turn > alienspy
  105. then
  106.     place_peep ((rnd%10)+ 5) skill 1 saboteur
  107.     set alienspy ((turn + 30000) + (rnd%10000))
  108. end
  109.  
  110. ;PEEPASSASSINS
  111. :AlienKiller
  112. if
  113.     turn > 40000
  114.     turn > alienkiller
  115. then
  116.     place_peep ((rnd%4)+ 5) assasin
  117.     set alienkiller ((turn + 30000) + (rnd%10000))
  118. end
  119.