home *** CD-ROM | disk | FTP | other *** search
- ; no >= operator, so i've had to use (option + 1) everywhere
- ; this is so that the un-set options default to permitting a win
-
- :WINCRITERIA
- if
- ((((opt_winenergy) + (opt_winterritory)) + (opt_winresearch)) + (opt_winscore)) > 0
- (energy + 1) > opt_winenergy
- (segmentdecks + 1) > opt_winterritory
- (discovery_count + 1) > opt_winresearch
- (sandbox_score + 1) > opt_winscore
- then
- multitrigger :LOSETRIGGER
- set winola 1
- win
- end
-
- :LOSETRIGGER
- if
- 0
- then
- set loser 1
- disable
- end
-
- :LOSECRITERIA
- if
- winola = 0
- loser = 1
- then
- set IAMALOSER 1
- lose
- disable
- end
-
- :WINPLAYER
- if
- players > 1
- then
- set winplayer 1
- disable
- end
-
- :IAMAWINNER
- if
- winplayer > 0
- IAMALOSER < 1
- players < 2
- then
- win
- disable
- end