⟦5a14c3aba⟧

TextFile


/*******************************************************************************
********************************************************************************
********************************************************************************

PERMISSION TO COPY THIS SOFTWARE IS HEREBY GIVEN BY THE AUTHOR PROVIDED THAT
THIS LEADING MESSAGE IS INCLUDED IN ALL OF THE RELEVANT SOURCE FILES.

		P. SCHMITZ, UNIVERSITY OF KEELE, MAY 1988.


********************************************************************************
********************************************************************************
*******************************************************************************/
#include <signal.h>
#include "files.h"
#include "header.h"

checkmasterpidfile()
{
int rpid,masterpid;
char string[15];
FILE *ff,*fopen();

masterpid=getpid();
sprintf(string,"%d",masterpid);
if ((ff=fopen(MASTERPIDFILE,"r"))==NULL) 
	{
	/*fprintf(stdout,"main.c: Can't read masterpidfile\n");*/
	die();
	} else
	{
	fgets(string,15,ff); /*get pid*/
	fclose(ff);
	}
sscanf(string,"%d\n",&rpid);
if (rpid!=masterpid) 
	{
	/*fprintf(stdout,"main.c: pids not equal!!! %d %d\n",rpid,masterpid);*/
	die();
	}
signal(SIGALRM,checkmasterpidfile);
alarm(180);
}


/*the only normal way out of the program*/
die()
{
register struct player *hh;
/*fprintf(stderr,"DIE WAS CALLED.\n");*/

	hh=startlist;
	while (hh!=NULL) {
			if ((hh->id!=ROMID)&&(hh->id!=KLINGID)) kill(hh->pid,9);
			hh=hh->next;
			}
/*the only normal way out of the program*/
	exit(0);
/*the only normal way out of the program*/
}
/*the only normal way out of the program*/

handler()
{
 noofsignals++;
}

killcontrol()
{
int f;
/*return(0); THIS MUST BE PUT IN DURING THE DEVELOPMENTAL PHASE*/

if ((f=open("/dev/tty",2))!= -1)
		{
		ioctl(f,TIOCNOTTY,0);
		}
}

main()
{
register struct player *cp;
int f,o;
register int x,y,x1,x2,y1,y2,xx1,xx2,yy1,yy2,xold,yold,xnew,ynew;
register char c;
register struct torpedo *torpedo;
register int xx,test;
	
test=1;
f=umask(000);
killcontrol();
noofsignals=0;
signal(SIGINT,SIG_IGN);
signal(29,handler); 
signal(SIGALRM,checkmasterpidfile); 
setupuniverse();
storm=OFF;
noofaliens=0;
noofplayers=0;
debug=OFF;
startlist=NULL; 
taillist=NULL; 
tstartlist=NULL; 
ttaillist=NULL;
cp=NULL;
putmasterpidintofile();
alarm(10);
for (;;)
{
/*main iteration loop*/
	while  (cp!=NULL)
	{
	if ((cp->id==ROMID)||(cp->id==KLINGID)) 
			{
			 servicealien(cp);
			 x=cp->xpos; y=cp->ypos;
			 if ((x<58)||(x>899)||(y<19)||(y>899))
				{
				if (x<58) cp->xvel=1;
				if (x>899) cp->xvel= -1;
				if (y<19) cp->yvel=1;
				if (y>899) cp->yvel= -1;
				}
			 goto goonlabel;
			 }
	cp->clflg=OFF;
	ioctl(cp->fd,FIONREAD,&noofchars);
	if (noofchars>0) processinput(cp,&noofchars);
	if ((cp->stat==5)&&(cp->flyto>=0)&&(cp->flyto<4)) auto_pilot(cp);
	if (cp->stat>=9) goto goonlabel;

	/*****************PLOTTING OBJECT STARTS HERE!!!******************/

	f=cp->xvel;
	o=cp->yvel;
	test=1;
	x=cp->xpos;
	y=cp->ypos;
	cp->oldxpos=x; cp->oldypos=y;
	xx1=x-28; xx2=xx1+57;
	yy1=y-9; yy2=yy1+19;
	x+=f; y+=o;
	x1=x-28; x2=x1+57;
	y1=y-9; y2=y1+19;
	cp->xpos=x; cp->ypos=y;
	
	if ((cp->stat>5)||((f==0)&&(o==0))) goto plotmoving;
	
	cp->chflg=FLAG;
	
	for (i=yy1; i<yy2; ++i)
	{
	if ((xp=univ[i])==NULL) continue;
	do
	{
	if ((xx=xp->x)>=xx1)
		{
	l=19-(i-yy1);
	if(((k=20+(xx-xx1))>19)&&(k<77)&&(l>0)&&(l<20))
			{
			test=0;
			poscurs(cp,k,l);
     			write(cp->fd,
			((l==10)&&((k<47)||(k>49)))?
					"-":((k==48)&&(l!=10))?"|":" ",1);
			}
	l+=o;
	if(((k-=f)>19)&&(l>0)&&(k<77)&&(l<20))
			{
			poscurs(cp,k,l);
			test=0;
			write(cp->fd,&(xp->c),1);
			}
		} 
	
	if (xx>x2) 
		xp=NULL;
	        else 
		xp=xp->next_thing;

	}  while (xp!=NULL);
} 

if (test) plotposition(cp);

/*****************************************************************************
           Player plotting starts here!!!!
*****************************************************************************/
	
plotmoving:

player=startlist;

while (player!=NULL)
{
if ((cp==player)||((cp->chflg==0)&&(player->chflg==0)))
		{
		player=player->next;
		continue;
		}
xold=player->oldxpos;
yold=player->oldypos;
xnew=player->xpos;
ynew=player->ypos;
if (inuniv(xold+f,yold+o)<36)
 	{
if ((player->cloakingdevice==OFF)||(player->clflg))
		{
		l=19-(yold-yy1);
		if(((k=20+(xold-xx1))>19)&&(k<77)&&(l>0)&&(l<20))
			{
			poscurs(cp,k,l);
			write(cp->fd,((l==10)&&((k<47)||(k>49)))?"-":((k==48)&&(l!=10))?"|":" ",1);
			}
		}
	}
if (inuniv(xnew,ynew)<36)
	{
	if (player->cloakingdevice==OFF)
		{
    if (player->stat<12)
			{
			l=19-(ynew-y1);
			if(((k=20+(xnew-x1))>19)&&(l>0)&&(k<77)&&(l<20))
				{
				poscurs(cp,k,l);
				write(cp->fd,&(player->id),1);
				}
			}
		}
	}
	player=player->next;
}

/**************************************************************************
		Torpedo plotting starts here!!
***************************************************************************/

torpedo=tstartlist;

while (torpedo!=NULL)
{
xold=torpedo->oldxpos;
yold=torpedo->oldypos;
xnew=torpedo->xpos;
ynew=torpedo->ypos;
player=torpedo->whofrom;
if (((player!=NULL)&&(cp!=player)&&(xold==player->oldxpos)&&
   (yold==player->oldypos)) || ((inuniv(xold,yold)!=NULL)))
	{
	torpedo=torpedo->next;
	continue;
	}
	k=20+(xold-xx1);
	l=19-(yold-yy1);
	if((k>19)&&(k<77)&&(l>0)&&(l<20))
			{
			poscurs(cp,k,l);
write(cp->fd,((l==10)&&((k<47)||(k>49)))?"-":((k==48)&&(l!=10))?"|":" ",1);
			}
      if (torpedo->life>0)
		{
		l=19-(ynew-y1);
		if(((k=20+(xnew-x1))>19)&&(l>0)&&(k<77)&&(l<20))
			{
			poscurs(cp,k,l);
			write(cp->fd,&(torpedo->weapon),1);
			}
		}
	torpedo=torpedo->next;
	}
        /*****************PLOTTING OBJECTS STOPS HERE!!!******************/

if ((x<58)||(x>899)||(y<19)||(y>899))
	{
	if (x<58) cp->xvel=1;
	if (x>899) cp->xvel= -1;
	if (y<19) cp->yvel=1;
	if (y>899) cp->yvel= -1;
	} else 
	{
	if ((c=inuniv(x,y))!=NULL) collision(cp,c);
	if (((f!=0)||(o!=0))&&((x==450)||(y==450)))
	{
	j=which_sector(cp->xpos,cp->ypos,f,o);
	switch (j)
	{
	case 1:
	{
	plot1(cp,"    You have just entered Federation space again.        ");
	plot2(cp,"              It's nice to be home.                      ");
	break;
	}
	case 2: 
	{
	plot1(cp,"You have just entered Klingon Space. Remember the klingon");
	plot2(cp,"proverb : Revenge is a dish that is best served cold.....");
	break;
	}
	case 3:
	{
	plot1(cp,"          You have just entered the Mutara Nebula.       ");
	plot2(cp,"  Here, Shields and  Cloaking Devices will not function! ");
	cp->cloakingdevice=OFF;
	if (cp->shields)
		{
		cp->id=(char)(cp->id+32);
		cp->shields=OFF;
		}
	plotshields(cp);
	plotcloakingdevice(cp);
	if (cp->stat<12) cp->chflg=FLAG;
	break;
	}
	case 4:
	{
	plot1(cp,"          You have just entered the Neutral Zone.        ");
	plot2(cp,"        We are now in violation of treaty Captain!!      ");
	break;
	}
	default :
	break;
	} /*switch*/
	}
	}
	
	if ((storm)&&(f==-1)) storm=OFF;
	/*ENERGY CALCULATION*/
	i=cp->cloakingdevice;
	i+=cp->shields;
	j=(abs(f)>abs(o))?abs(f):abs(o);

	if (j==0)
		{
		if ((i==0)&&(cp->energy<cp->maxenergy)) ++cp->energy;
			else goto skipenergy;
		} else
		{
		if ((j==1) && (i==0)) goto skipenergy;
		cp->energy -= (i+j);
		}

	skipenergy:
	
	if ((cp->energy==75)&&(storm==OFF)) flare();
	if (cp->energy<100) plotenergy(cp);
	/*ENERGY CALCULATION*/
goonlabel:
	if (cp->impulsemove>0) {
				cp->impulsemove=0;
				cp->xvel=0;
				cp->yvel=0;
				}
 	if (cp->chflg>0) --(cp->chflg);
	cp=cp->next;
	} /*while cp!=NULL*/
remove_finished_players();
if (tstartlist!=NULL) move_torpedos();
if (noofsignals>0) { 
			makenewplayerandjoinhimin();
		        --noofsignals;
		   }
if ((noofplayers==1)&&(noofaliens<MAXALIENS)) makealien();
cp=startlist;
/*main iteration loop*/
}
}

remove_finished_players()
{
struct player *y;

y=startlist;
while (y!=NULL)
	{
	if ((y->stat==12)&&(y->chflg<1)) 
				remove_player_from_list(y);
	y=y->next;
	}
}

flare()
{
register struct player *x;

broadcast("Galactic ion storm commencing. Cloaking devices are off. ");
storm=ON;
x=startlist;
while (x!=NULL)
	{
	x->cloakingdevice=OFF;
	plotcloakingdevice(x);
	x->chflg=FLAG;
	x=x->next;
	}
}
DataMuseum.dk

DKUUG/EUUG Conference tapes

⟦5a14c3aba⟧ TextFile

Derivation

TextFile
