home *** CD-ROM | disk | FTP | other *** search
/ Hacker 70 / HACKER70.ISO / Igre / Startopia / startopiademo.exe / missions / 00 / warpeeps00.txt < prev    next >
Text File  |  2001-05-09  |  930b  |  53 lines

  1. :wargors
  2. if
  3.     port_count > 0
  4.     turn > warwait
  5.     enemy_count > 0
  6.     human = 0
  7.     (peepstat race gor allset resident roger) < segmentdecks
  8. then
  9.     addenergy (0-500)
  10.     place_peep gor resident
  11.     set warwait (turn + 3600)
  12. end
  13.  
  14. :wargreys
  15. if
  16.     port_count > 0
  17.     turn > warwait
  18.     enemy_count > 0
  19.     human = 0
  20.     (peepstat race grey allset resident roger) < (segmentdecks / 4)
  21. then
  22.     addenergy (0-500)
  23.     place_peep grey resident
  24.     set warwait (turn + 3600)
  25. end
  26.  
  27. :wartargs
  28. if
  29.     port_count > 0
  30.     turn > warwait
  31.     enemy_count > 0
  32.     human = 0
  33.     (peepstat race targ allset resident roger) < (segmentdecks / 2)
  34. then
  35.     addenergy (0-500)
  36.     place_peep targ resident
  37.     set warwait (turn + 3600)
  38. end
  39.  
  40. :warhogs
  41. if
  42.     port_count > 0
  43.     turn > warwait
  44.     enemy_count > 0
  45.     human = 0
  46.     (peepstat race salt_hog allset resident roger) < (segmentdecks / 3)
  47. then
  48.     addenergy (0-500)
  49.     place_peep salt_hog resident
  50.     set warwait (turn + 3600)
  51. end
  52.  
  53.