123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316 |
- #include "funcs.h"
- #include "vars.h"
- #include "parse.h"
- static logical thisit_ P((integer, integer, integer, integer));
- integer getobj_(oidx, aidx, spcobj)
- integer oidx;
- integer aidx;
- integer spcobj;
- {
-
- integer ret_val, i__1;
-
- integer i, av;
- integer obj;
- integer nobj;
- logical chomp;
- chomp = FALSE_;
- av = advs_1.avehic[play_1.winner - 1];
- obj = 0;
- if (! lit_(play_1.here)) {
- goto L200;
- }
- obj = schlst_(oidx, aidx, play_1.here, 0, 0, spcobj);
- if (obj < 0) {
- goto L1000;
- } else if (obj == 0) {
- goto L200;
- } else {
- goto L100;
- }
- L100:
- if (av == 0 || av == obj || (objcts_1.oflag2[obj - 1] & FINDBT)
- != 0) {
- goto L200;
- }
- if (objcts_1.ocan[obj - 1] == av) {
- goto L200;
- }
- chomp = TRUE_;
- L200:
- if (av == 0) {
- goto L400;
- }
- nobj = schlst_(oidx, aidx, 0, av, 0, spcobj);
- if (nobj < 0) {
- goto L1100;
- } else if (nobj == 0) {
- goto L400;
- } else {
- goto L300;
- }
- L300:
- chomp = FALSE_;
- if (obj == nobj) {
- goto L400;
- }
- if (obj != 0) {
- nobj = -nobj;
- }
- obj = nobj;
- L400:
- nobj = schlst_(oidx, aidx, 0, 0, play_1.winner, spcobj);
- if (nobj < 0) {
- goto L1100;
- } else if (nobj == 0) {
- goto L600;
- } else {
- goto L500;
- }
- L500:
- if (obj != 0) {
- nobj = -nobj;
- }
- L1100:
- obj = nobj;
- L600:
- if (chomp) {
- obj = -10000;
- }
- L1000:
- ret_val = obj;
- if (ret_val != 0) {
- goto L1500;
- }
- i__1 = objcts_1.olnt;
- for (i = star_1.strbit + 1; i <= i__1; ++i) {
- if (! thisit_(oidx, aidx, i, spcobj)) {
- goto L1200;
- }
- if (! ghere_(i, play_1.here)) {
- goto L1200;
- }
- if (ret_val != 0) {
- ret_val = -i;
- }
- if (ret_val == 0) {
- ret_val = i;
- }
- L1200:
- ;
- }
- L1500:
- return ret_val;
- }
- integer schlst_(oidx, aidx, rm, cn, ad, spcobj)
- integer oidx;
- integer aidx;
- integer rm;
- integer cn;
- integer ad;
- integer spcobj;
- {
-
- integer ret_val, i__1, i__2;
-
- integer i, j, x;
- ret_val = 0;
- i__1 = objcts_1.olnt;
- for (i = 1; i <= i__1; ++i) {
- if ((objcts_1.oflag1[i - 1] & VISIBT) == 0 || (rm == 0 || !
- qhere_(i, rm)) && (cn == 0 || objcts_1.ocan[i - 1] != cn)
- && (ad == 0 || objcts_1.oadv[i - 1] != ad)) {
- goto L1000;
- }
- if (! thisit_(oidx, aidx, i, spcobj)) {
- goto L200;
- }
- if (ret_val != 0) {
- goto L2000;
- }
- ret_val = i;
- L200:
- if ((objcts_1.oflag1[i - 1] & TRANBT) == 0 && (
- objcts_1.oflag2[i - 1] & OPENBT) == 0) {
- goto L1000;
- }
- i__2 = objcts_1.olnt;
- for (j = 1; j <= i__2; ++j) {
- if ((objcts_1.oflag1[j - 1] & VISIBT) == 0 || ! thisit_(
- oidx, aidx, j, spcobj)) {
- goto L500;
- }
- x = objcts_1.ocan[j - 1];
- L300:
- if (x == i) {
- goto L400;
- }
- if (x == 0) {
- goto L500;
- }
- if ((objcts_1.oflag1[x - 1] & VISIBT) == 0 || (
- objcts_1.oflag1[x - 1] & TRANBT) == 0 && (
- objcts_1.oflag2[x - 1] & OPENBT) == 0 || (
- objcts_1.oflag2[x - 1] & SCHBT) == 0) {
- goto L500;
- }
- x = objcts_1.ocan[x - 1];
- goto L300;
- L400:
- if (ret_val != 0) {
- goto L2000;
- }
- ret_val = j;
- L500:
- ;
- }
- L1000:
- ;
- }
- return ret_val;
- L2000:
- ret_val = -ret_val;
- return ret_val;
- }
- static logical thisit_(oidx, aidx, obj, spcobj)
- integer oidx;
- integer aidx;
- integer obj;
- integer spcobj;
- {
-
- const integer r50min = 1600;
-
- logical ret_val;
-
- integer i;
- ret_val = FALSE_;
- if (spcobj != 0 && obj == spcobj) {
- goto L500;
- }
- i = oidx + 1;
- L100:
- ++i;
- if (ovoc[i - 1] <= 0 || ovoc[i - 1] >= r50min) {
- return ret_val;
- }
- if (ovoc[i - 1] != obj) {
- goto L100;
- }
- if (aidx == 0) {
- goto L500;
- }
- i = aidx + 1;
- L200:
- ++i;
- if (avoc[i - 1] <= 0 || avoc[i - 1] >= r50min) {
- return ret_val;
- }
- if (avoc[i - 1] != obj) {
- goto L200;
- }
- L500:
- ret_val = TRUE_;
- return ret_val;
- }
|