home *** CD-ROM | disk | FTP | other *** search
/ Hacker 70 / HACKER70.ISO / Igre / Startopia / startopiademo.exe / missions / 00 / losenocollector00.txt < prev    next >
Text File  |  2001-05-12  |  851b  |  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 > 12000
  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.     set IAMALOSER 1
  22.     lose "general_lose01"
  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