Home | History | Annotate | Line # | Download | only in warp 
      1 /* Header: play.c,v 7.0.1.1 86/10/16 10:52:39 lwall Exp */
      2 
      3 /* Log:	play.c,v
      4  * Revision 7.0.1.1  86/10/16  10:52:39  lwall
      5  * Added Damage.  Fixed random bugs.
      6  *
      7  * Revision 7.0  86/10/08  15:13:09  lwall
      8  * Split into separate files.  Added amoebas and pirates.
      9  *
     10  */
     11 
     12 #include "EXTERN.h"
     13 #include "warp.h"
     14 #include "bang.h"
     15 #include "score.h"
     16 #include "object.h"
     17 #include "move.h"
     18 #include "term.h"
     19 #include "them.h"
     20 #include "us.h"
     21 #include "util.h"
     22 #include "weapon.h"
     23 #include "INTERN.h"
     24 #include "play.h"
     25 
     26 void
     27 play_init(void)
     28 {
     29     ;
     30 }
     31 
     32 void
     33 play(void)
     34 {
     35     bool done = false;
     36     OBJECT *curobj;
     37     OBJECT *to;
     38     int i;
     39     int x;
     40     int y;
     41 
     42     display_status();
     43 #ifdef TIOCOUTQ
     44     while (output_pending() > charsperhalfsec)
     45 	sleep(1);			 /* allow buffers to empty */
     46 #endif
     47     sleep(3);
     48     do {
     49 	timer++;
     50 	nxtbang = 0;
     51 	banging = false;
     52 	display_status();
     53 #ifdef TIOCOUTQ
     54 	while (output_pending() > charsperhalfsec)
     55 	    sleep(1);
     56 #endif
     57 	if (lowspeed)
     58 	    roundsleep(2);
     59 	else
     60 	    roundsleep(1);
     61 	if (ent) {
     62 	    evely = ent->vely;
     63 	    evelx = ent->velx;
     64 	    if (cloaking && ent->energy >= 250 && !damflag[NOCLOAKING]) {
     65 		if (!rand_mod(300)) {
     66 		    damage++;
     67 		    damflag[NOCLOAKING] = rand_mod(smarts+1)+2;
     68 		}
     69 		ent->energy -= ent->energy/40;
     70 	    }
     71 	    else
     72 		cloaking = false;
     73 	    cloaked = cloaking;
     74 	}
     75 	if (base) {
     76 	    bvely = base->vely;
     77 	    bvelx = base->velx;
     78 	}
     79 	get_commands(&done);
     80 	if (done)
     81 	    break;
     82 	their_smarts();
     83 	apolloflag = 0;
     84 	if (ent) {
     85 	    if (numapollos) {
     86 		if (numstars) {
     87 		    if (realapollo) {
     88 			if (lookfor(realapollo->posy,realapollo->posx,
     89 			    Enterprise)) {
     90 			    apolloflag = 1;
     91 			}
     92 		    }
     93 		    else if (lookfor(root.next->posy,root.next->posx,
     94 			Enterprise)) {
     95 			apolloflag = 1;
     96 			realapollo = root.next;
     97 			mvaddch(realapollo->posy+1,realapollo->posx*2,
     98 			    'A');
     99 			realapollo->image = 'A';
    100 			realapollo->mass = 6000;
    101 			inumapollos = 1;
    102 			numenemies++;
    103 			inumenemies++;
    104 			possiblescore += 5000;
    105 		    }
    106 		    if (apolloflag) {
    107 			if (blast[realapollo->posy][realapollo->posx] <= 32000)
    108 			    evely = evelx = 0;
    109 			realapollo->energy = 32000;
    110 		    }
    111 		}
    112 		else
    113 		    numapollos = 0;
    114 	    }
    115 	    ent->vely = evely;
    116 	    ent->velx = evelx;
    117 	}
    118 	if (base) {
    119 	    if (numapollos) {
    120 		if (numstars) {
    121 		    if (realapollo) {
    122 			if (lookfor(realapollo->posy,realapollo->posx,
    123 			    Base)) {
    124 			    apolloflag |= 2;
    125 			}
    126 		    }
    127 		    else if (lookfor(root.next->posy,root.next->posx,
    128 			Base)) {
    129 			apolloflag |= 2;
    130 			realapollo = root.next;
    131 			mvaddch(realapollo->posy+1,realapollo->posx*2,
    132 			    'A');
    133 			realapollo->image = 'A';
    134 			realapollo->mass = 6000;
    135 			inumapollos = 1;
    136 			numenemies++;
    137 			inumenemies++;
    138 			possiblescore += 5000;
    139 		    }
    140 		    if (apolloflag & 2) {
    141 			if (blast[realapollo->posy][realapollo->posx] <= 32000)
    142 			    bvely = bvelx = 0;
    143 			realapollo->energy = 32000;
    144 		    }
    145 		}
    146 		else
    147 		    numapollos = 0;
    148 	    }
    149 	    base->vely = bvely;
    150 	    base->velx = bvelx;
    151 	}
    152 	if (aretorps) {
    153 	    aretorps = 0;
    154 	    for (i=0;i<2;i++) for (y=0;y<3;y++) for (x=0;x<3;x++) {
    155 		if ((curobj = isatorp[i][y][x]) != NULL) {
    156 		    to = occupant[(curobj->posy+curobj->vely+YSIZE00)%YSIZE]
    157 				 [(curobj->posx+curobj->velx+XSIZE00)%XSIZE];
    158 		    if (to && !to->vely && !to->velx) {
    159 			unmake_object(curobj);
    160 			if (i)
    161 			    btorp++;
    162 			else
    163 			    etorp++;
    164 		    }
    165 		    isatorp[i][y][x]=0;
    166 		}
    167 	    }
    168 	}
    169 	move_universe();
    170 	if (finish) {
    171 	    finish--;
    172 	    if (!finish && (!(numenemies || numos) || (!ent && !base))) {
    173 		done = true;
    174 		timer -= 5;
    175 	    }
    176 	}
    177 	else if (!banging && (!(numenemies || numos) || (!ent && !base)))
    178 	    finish = 5;
    179     } while (!done);
    180 }
    181