home *** CD-ROM | disk | FTP | other *** search
/ Hacker 70 / HACKER70.ISO / Igre / Startopia / startopiademo.exe / missions / 00 / Win00.txt < prev    next >
Text File  |  2001-05-12  |  757b  |  51 lines
  1. ; no >= operator, so i've had to use (option + 1) everywhere
  2. ; this is so that the un-set options default to permitting a win
  3.  
  4. :WINCRITERIA
  5. if
  6.     ((((opt_winenergy) + (opt_winterritory)) + (opt_winresearch)) + (opt_winscore)) > 0
  7.     (energy + 1) > opt_winenergy
  8.     (segmentdecks + 1) > opt_winterritory
  9.     (discovery_count + 1) > opt_winresearch
  10.     (sandbox_score + 1) > opt_winscore
  11. then
  12.     multitrigger :LOSETRIGGER
  13.     set winola 1
  14.     win
  15. end
  16.  
  17. :LOSETRIGGER
  18. if
  19.     0
  20. then
  21.     set loser 1
  22.     disable
  23. end
  24.  
  25. :LOSECRITERIA
  26. if
  27.     winola = 0
  28.     loser = 1
  29. then
  30.     set IAMALOSER 1
  31.     lose
  32.     disable
  33. end
  34.  
  35. :WINPLAYER
  36. if
  37.     players > 1
  38. then
  39.     set winplayer 1
  40.     disable
  41. end
  42.  
  43. :IAMAWINNER
  44. if
  45.     winplayer > 0
  46.     IAMALOSER < 1
  47.     players < 2
  48. then
  49.     win
  50.     disable
  51. end