home *** CD-ROM | disk | FTP | other *** search
/ Hacker 70 / HACKER70.ISO / Igre / Startopia / startopiademo.exe / missions / 00 / AIFacilityHelp00.txt < prev    next >
Text File  |  2001-05-10  |  1KB  |  46 lines
  1. ;LOVENESTS
  2. :AILoveNestHelp
  3. if
  4.     turn > 10000
  5.     human = 0
  6.     turn > AIstuff
  7.     energy > 5000
  8.     love_nest_count < (segmentdecks / 3)
  9.     cargoexists hard_plan_crate love_nest < 1
  10. then
  11.     set AIstuff (turn + 5000)
  12.     placeportable hard_plan_crate 5 13 mid_deck 600 love_nest
  13.     addenergy (0 - 2000)
  14. end
  15.  
  16. ;LOVECHAIRS
  17. :AILoveChairHelp
  18. if
  19.     turn > 20000
  20.     human = 0
  21.     turn > AIstuff
  22.     energy > 5000
  23.     love_chair_count < (love_nest_count * 3)
  24.     cargoexists furniture_plan_crate love_chair < 1
  25. then
  26.     placeportable furniture_plan_crate 5 13 mid_deck 600 love_chair
  27.     placeportable furniture_plan_crate 5 14 mid_deck 600 love_bench
  28.     placeportable furniture_plan_crate 6 13 mid_deck 600 love_bench
  29.     set AIstuff (turn + 5000)
  30.     addenergy (0 - 1000)
  31. end
  32.  
  33. ;STARMOTELS
  34. :AIStarMotelHelp
  35. if
  36.     turn > 5000
  37.     human = 0
  38.     turn > AIstuff
  39.     energy > 10000
  40.     ((one_star_hotel_count) + 1) < (segmentdecks / 3)
  41.     cargoexists hard_plan_crate one_star_hotel < 1
  42. then
  43.     set AIstuff (turn + 5000)
  44.     placeportable hard_plan_crate 5 13 mid_deck 600 one_star_hotel
  45.     addenergy (0 - 4000)
  46. end