home *** CD-ROM | disk | FTP | other *** search
/ PC World Plus! (NZ) 2001 October / PCW1001.iso / Games / startopiademo1.exe / missions / 00 / losenocollector.txt < prev    next >
Encoding:
Text File  |  2001-03-24  |  864 b   |  33 lines
  1. ; make the player lose if he has no collector, collector crates, no energy (so couldn't build from technology anyway)
  2.  
  3. ; First we make sure we only do the test every now and then
  4. :losenocollector0
  5. if
  6.     turn > 240
  7.     turn > losenocollector_counter
  8. then
  9.     set losenocollector_counter (turn + 240)
  10.     set losenocollector_test 1
  11. end
  12.  
  13. ; This is the actual test
  14. :losenocollector1
  15. if
  16.     losenocollector_test = 1
  17.     (cargoexists hard_plan_crate collector) = 0
  18.     not_destroyed_collector_count = 0
  19.     energy = 0
  20. then
  21.     say "Out of energy, and you have no collectors"
  22.     lose
  23.     disable
  24. end
  25.  
  26. ; and if the test above fails, we need to make sure it doesn't keep trying until after the original delay
  27. :losenocollector2
  28. if
  29.     losenocollector_test = 1
  30.     ((cargoexists hard_plan_crate collector) + not_destroyed_collector_count)  > 0
  31. then
  32.     set losenocollector_test 0
  33. end