431 lines
8.4 KiB
C
431 lines
8.4 KiB
C
|
/*
|
||
|
* swar -- jerq space war
|
||
|
* td&rob 84.01.01
|
||
|
*
|
||
|
* ported to 9front on 31jul2021
|
||
|
*/
|
||
|
#include <u.h>
|
||
|
#include <libc.h>
|
||
|
#include <draw.h>
|
||
|
#include <event.h>
|
||
|
int xc, yc;
|
||
|
#define NOBJ (1+2+6*2)
|
||
|
#define MSPEED (V/32) /* speed of missile relative to ship */
|
||
|
#define SZ 512 /* maximum scaled coordinate */
|
||
|
#define V 256 /* velocity scale factor */
|
||
|
#define G (V*11585) /* 11585 is SZ**(3./2.) */
|
||
|
#define ALIVE 1
|
||
|
#define DEAD 2
|
||
|
#define SUN 3
|
||
|
#define BOOM 4
|
||
|
#define HYPER 5
|
||
|
#define SLEEP 40 /* ms per iteration */
|
||
|
#define TUBA (2000/SLEEP) /* iterations until born again */
|
||
|
#define HYTIME ((600+rand()%600)/SLEEP) /* iterations in hyperspace */
|
||
|
char *starbits[]={
|
||
|
#include "deathstar.icon"
|
||
|
};
|
||
|
Image *stardwg;
|
||
|
Rectangle starrect={0, 0, 16, 16};
|
||
|
char *p0bits[]={
|
||
|
#include "player0.icon"
|
||
|
};
|
||
|
Image *p0dwg;
|
||
|
Rectangle p0rect={0, 0, 44, 44};
|
||
|
char *p1bits[]={
|
||
|
#include "player1.icon"
|
||
|
};
|
||
|
Image *p1dwg;
|
||
|
Rectangle p1rect={0, 0, 44, 44};
|
||
|
char *misbits[]={
|
||
|
#include "missile.icon"
|
||
|
};
|
||
|
Image *misdwg;
|
||
|
Rectangle misrect={0, 0, 32, 32};
|
||
|
char *boombits[]={
|
||
|
#include "boom.icon"
|
||
|
};
|
||
|
Image *boomdwg;
|
||
|
Rectangle boomrect={0, 0, 64, 64};
|
||
|
struct obj{
|
||
|
int x, y;
|
||
|
int vx, vy; /* scaled by V */
|
||
|
int orientation;
|
||
|
int state;
|
||
|
int diameter;
|
||
|
Image *bp;
|
||
|
int curdwg;
|
||
|
#define wrapped timer
|
||
|
int timer;
|
||
|
}obj[NOBJ], iobj[]={
|
||
|
{0, 0, 0, 0, 0, SUN, 16},
|
||
|
{ 300, 0, 0, 5*V, 8, ALIVE, 11, 0, 0, TUBA},
|
||
|
{-300, 0, 0, -5*V, 0, ALIVE, 11, 0, 0, TUBA},
|
||
|
{0, 0, 0, 0, 0, ALIVE, 8},
|
||
|
};
|
||
|
#define ATT (&obj[0])
|
||
|
#define P0 (&obj[1])
|
||
|
#define P1 (&obj[2])
|
||
|
int score[3];
|
||
|
#define NORIENTATION 16
|
||
|
struct dv{
|
||
|
int x, y;
|
||
|
}dv[NORIENTATION]={
|
||
|
#include "accel.h"
|
||
|
};
|
||
|
|
||
|
int xc, yc, size;
|
||
|
void kbdplayer(int c);
|
||
|
void hyper(struct obj *o);
|
||
|
void right(struct obj *o);
|
||
|
void left(struct obj *o);
|
||
|
void jerk(struct obj *o);
|
||
|
int isqrt(int x);
|
||
|
void fire(struct obj *o);
|
||
|
void initobj(struct obj *o);
|
||
|
void deathto(struct obj *o, int doboom);
|
||
|
void boom(struct obj *o);
|
||
|
void shards(struct obj *o);
|
||
|
void move(struct obj *o);
|
||
|
void blot(struct obj *o, int dwg);
|
||
|
void collide(struct obj *o, struct obj *p);
|
||
|
void newscore(struct obj *o, struct obj *p);
|
||
|
void drawscore(char *str, int sc, int where);
|
||
|
void doscore(void);
|
||
|
Image *initbitmap(char *bits[], Rectangle r);
|
||
|
|
||
|
#define sq(x) ((x)*(x))
|
||
|
#define muldiv(a, b, c) ((a)*(b)/(c))
|
||
|
|
||
|
int
|
||
|
min(int a, int b)
|
||
|
{
|
||
|
return a<b? a: b;
|
||
|
}
|
||
|
|
||
|
int
|
||
|
abs(int a)
|
||
|
{
|
||
|
return a<0? -a: a;
|
||
|
}
|
||
|
|
||
|
void
|
||
|
redraw(void)
|
||
|
{
|
||
|
draw(screen, screen->r, display->black, nil, ZP);
|
||
|
blot(ATT, ATT->orientation);
|
||
|
doscore();
|
||
|
}
|
||
|
|
||
|
void
|
||
|
eresized(int)
|
||
|
{
|
||
|
if(getwindow(display, Refnone) < 0)
|
||
|
sysfatal("resized");
|
||
|
xc=(screen->r.min.x+screen->r.max.x)/2;
|
||
|
yc=(screen->r.min.y+screen->r.max.y)/2;
|
||
|
size=min(screen->r.max.x-screen->r.min.x,
|
||
|
screen->r.max.y-screen->r.min.y)/2;
|
||
|
redraw();
|
||
|
}
|
||
|
|
||
|
void
|
||
|
main(void)
|
||
|
{
|
||
|
struct obj *o, *p;
|
||
|
|
||
|
initdraw(nil,nil,nil);
|
||
|
einit(Ekeyboard|Emouse);
|
||
|
|
||
|
iobj[0].bp = stardwg = initbitmap(starbits, starrect);
|
||
|
iobj[1].bp = p0dwg = initbitmap(p0bits, p0rect);
|
||
|
iobj[2].bp = p1dwg = initbitmap(p1bits, p1rect);
|
||
|
iobj[3].bp = misdwg = initbitmap(misbits, misrect);
|
||
|
boomdwg = initbitmap(boombits, boomrect);
|
||
|
|
||
|
xc=(screen->r.min.x+screen->r.max.x)/2;
|
||
|
yc=(screen->r.min.y+screen->r.max.y)/2;
|
||
|
size=min(screen->r.max.x-screen->r.min.x,
|
||
|
screen->r.max.y-screen->r.min.y)/2;
|
||
|
|
||
|
for(o=obj;o<=P1;o++)
|
||
|
initobj(o);
|
||
|
|
||
|
for(;o!=&obj[NOBJ];o++)
|
||
|
o->state=DEAD;
|
||
|
|
||
|
for(;;){
|
||
|
redraw();
|
||
|
for(o=obj;o!=&obj[NOBJ];o++){
|
||
|
switch(o->state){
|
||
|
case ALIVE:
|
||
|
case SUN:
|
||
|
for(p=o+1;p!=&obj[NOBJ];p++)
|
||
|
if(p->state!=DEAD)
|
||
|
collide(o, p);
|
||
|
if(o>P1)
|
||
|
left(o);
|
||
|
move(o);
|
||
|
break;
|
||
|
case HYPER:
|
||
|
if(--o->timer==0){
|
||
|
blot(o, o->curdwg);
|
||
|
o->state=ALIVE;
|
||
|
if(rand()%4==0){
|
||
|
deathto(o, 1);
|
||
|
newscore(ATT, o);
|
||
|
}
|
||
|
}else
|
||
|
move(o);
|
||
|
break;
|
||
|
case DEAD:
|
||
|
if((o==P0 || o==P1) && --o->timer==0)
|
||
|
initobj(o);
|
||
|
break;
|
||
|
case BOOM:
|
||
|
shards(o);
|
||
|
move(o);
|
||
|
break;
|
||
|
}
|
||
|
}
|
||
|
flushimage(display, 1);
|
||
|
while(ecanmouse()) emouse();
|
||
|
if(ecankbd()) kbdplayer(ekbd());
|
||
|
sleep(SLEEP);
|
||
|
}
|
||
|
}
|
||
|
void kbdplayer(int c){
|
||
|
switch(c){
|
||
|
case 'k': left(P0); break;
|
||
|
case 'o': jerk(P0); break;
|
||
|
case ';': right(P0); break;
|
||
|
case 'l': fire(P0); break;
|
||
|
case '.':
|
||
|
case ',': hyper(P0); break;
|
||
|
case 'a': left(P1); break;
|
||
|
case 'w': jerk(P1); break;
|
||
|
case 'd': right(P1); break;
|
||
|
case 's': fire(P1); break;
|
||
|
case 'z':
|
||
|
case 'x': hyper(P1); break;
|
||
|
case 'Q': exits(""); break;
|
||
|
}
|
||
|
}
|
||
|
void hyper(struct obj *o){
|
||
|
if(o->state!=ALIVE)
|
||
|
return;
|
||
|
o->state=HYPER;
|
||
|
o->timer=HYTIME;
|
||
|
blot(o, o->curdwg);
|
||
|
}
|
||
|
void right(struct obj *o){
|
||
|
if(++o->orientation==NORIENTATION)
|
||
|
o->orientation=0;
|
||
|
}
|
||
|
void left(struct obj *o){
|
||
|
if(--o->orientation<0)
|
||
|
o->orientation=NORIENTATION-1;
|
||
|
}
|
||
|
void jerk(struct obj *o){
|
||
|
o->vx+=dv[o->orientation].x/2;
|
||
|
o->vy+=dv[o->orientation].y/2;
|
||
|
}
|
||
|
int isqrt(int x){
|
||
|
int s, u;
|
||
|
if(x<=0)
|
||
|
return(0);
|
||
|
if(x>=32768L*(32768L/4))
|
||
|
return(2*isqrt(x/4)); /* avoid overflow */
|
||
|
for(s=2, u=4;u<x;s+=s, u*=4);
|
||
|
while((u=((x+s*s)/s)>>1)<s)
|
||
|
s=u;
|
||
|
return(s);
|
||
|
}
|
||
|
void fire(struct obj *o){
|
||
|
struct obj *m;
|
||
|
int vx, vy, vl;
|
||
|
if(o->state!=ALIVE)
|
||
|
return;
|
||
|
for(m=o+2;m<&obj[NOBJ];m+=2)
|
||
|
if(m->state==DEAD){
|
||
|
initobj(m);
|
||
|
m->state=ALIVE;
|
||
|
vl=isqrt(sq(o->vx)+sq(o->vy));
|
||
|
if(vl==0)
|
||
|
vl=V;
|
||
|
vx=muldiv(vl, dv[o->orientation].x, V);
|
||
|
vy=muldiv(vl, dv[o->orientation].y, V);
|
||
|
m->x=o->x+muldiv(vx, (o->diameter+m->diameter), vl);
|
||
|
m->y=o->y+muldiv(vy, (o->diameter+m->diameter), vl);
|
||
|
m->vx=o->vx+MSPEED*dv[o->orientation].x;
|
||
|
m->vy=o->vy+MSPEED*dv[o->orientation].y;
|
||
|
blot(m, m->orientation);
|
||
|
return;
|
||
|
}
|
||
|
}
|
||
|
void initobj(struct obj *o){
|
||
|
*o=(o>P1)?iobj[P1-obj+1]:iobj[o-obj];
|
||
|
if(o<=P1)
|
||
|
blot(o, o->orientation);
|
||
|
}
|
||
|
void deathto(struct obj *o, int doboom){
|
||
|
o->state=DEAD;
|
||
|
blot(o, o->curdwg);
|
||
|
if(doboom)
|
||
|
boom(o);
|
||
|
}
|
||
|
void boom(struct obj *o){
|
||
|
o->state=BOOM;
|
||
|
o->bp=boomdwg;
|
||
|
o->diameter=boomdwg->r.max.x/4;
|
||
|
blot(o, o->orientation=0);
|
||
|
}
|
||
|
void shards(struct obj *o){
|
||
|
if(++o->orientation==16){
|
||
|
blot(o, o->curdwg);
|
||
|
o->state=DEAD;
|
||
|
o->timer=TUBA;
|
||
|
}
|
||
|
}
|
||
|
void move(struct obj *o){
|
||
|
int r32;
|
||
|
int x, y;
|
||
|
if(o->state==DEAD || o->state==SUN)
|
||
|
return;
|
||
|
r32=o->x*o->x+o->y*o->y;
|
||
|
if(r32!=0){
|
||
|
r32*=isqrt(r32); /* pow(r, 3./2.) */
|
||
|
if(r32!=0){
|
||
|
o->vx-=G*o->x/r32;
|
||
|
o->vy-=G*o->y/r32;
|
||
|
}
|
||
|
}
|
||
|
x=o->x+o->vx/V;
|
||
|
y=o->y+o->vy/V;
|
||
|
if(x<-SZ || SZ<x){
|
||
|
if(o>P1 && o->wrapped){
|
||
|
Death:
|
||
|
deathto(o, 0);
|
||
|
return;
|
||
|
}
|
||
|
if(x<-SZ) x+=2*SZ; else x-=2*SZ;
|
||
|
o->wrapped++;
|
||
|
}
|
||
|
if(y<-SZ || SZ<y){
|
||
|
if(o>P1 && o->wrapped)
|
||
|
goto Death;
|
||
|
if(y<-SZ) y+=2*SZ; else y-=2*SZ;
|
||
|
o->wrapped++;
|
||
|
}
|
||
|
if(o->state!=HYPER)
|
||
|
blot(o, o->curdwg);
|
||
|
o->x=x, o->y=y;
|
||
|
if(o->state!=HYPER)
|
||
|
blot(o, o->orientation);
|
||
|
}
|
||
|
|
||
|
#define BLOTSIZE 5
|
||
|
#define rescale(x) muldiv(x, size, SZ)
|
||
|
|
||
|
void
|
||
|
blot(struct obj *o, int dwg)
|
||
|
{
|
||
|
Point p;
|
||
|
int dx = dwg % 4*o->diameter, dy = dwg / 4*o->diameter;
|
||
|
|
||
|
p = Pt(rescale(o->x)+xc-o->diameter/2, rescale(o->y)+yc-o->diameter/2);
|
||
|
|
||
|
draw(screen, rectaddpt(Rect(dx,dy,dx+o->diameter,dy+o->diameter),p), o->bp, nil, Pt(dx, dy));
|
||
|
o->curdwg = dwg;
|
||
|
}
|
||
|
|
||
|
void
|
||
|
collide(struct obj *o, struct obj *p)
|
||
|
{
|
||
|
int doneboom;
|
||
|
/* o<p always */
|
||
|
if(o->state!=HYPER && p->state!=HYPER
|
||
|
&& sq(rescale(o->x-p->x))+sq(rescale(o->y-p->y))<
|
||
|
sq(o->diameter+p->diameter)/4){
|
||
|
newscore(o, p);
|
||
|
if(doneboom=o->state==ALIVE)
|
||
|
deathto(o, 1);
|
||
|
if(p->state==ALIVE)
|
||
|
deathto(p, !doneboom || (o==P0 && p==P1));
|
||
|
}
|
||
|
}
|
||
|
|
||
|
void
|
||
|
newscore(struct obj *o, struct obj *p)
|
||
|
{
|
||
|
doscore();
|
||
|
/* o<p always */
|
||
|
score[2]++;
|
||
|
if(o==P0 || p==P0)
|
||
|
score[1]++;
|
||
|
if(o==P1 || p==P1)
|
||
|
score[0]++;
|
||
|
doscore();
|
||
|
}
|
||
|
|
||
|
void
|
||
|
drawscore(char *str, int sc, int where)
|
||
|
{
|
||
|
static char buf[16];
|
||
|
char *p = buf+6;
|
||
|
int s;
|
||
|
|
||
|
while(*p++=*str++)
|
||
|
;
|
||
|
|
||
|
p = buf+6;
|
||
|
s = abs(sc);
|
||
|
do{
|
||
|
*--p = s%10 + '0';
|
||
|
s /= 10;
|
||
|
}while(s);
|
||
|
|
||
|
if(sc < 0)
|
||
|
*--p = '-';
|
||
|
|
||
|
if(where == 2)
|
||
|
s = screen->r.min.x + 20;
|
||
|
else if(where == 1)
|
||
|
s = (screen->r.min.x + screen->r.max.x - stringwidth(font, p))/2;
|
||
|
else
|
||
|
s = screen->r.max.x - stringwidth(font, p) - 20;
|
||
|
|
||
|
draw(screen, Rpt(Pt(s, screen->r.min.y+5),Pt(s+stringwidth(font, p), screen->r.min.y+5+font->height)), display->black, nil, ZP);
|
||
|
string(screen, Pt(s, screen->r.min.y+5), display->white, ZP, font, p);
|
||
|
}
|
||
|
|
||
|
void
|
||
|
doscore(void)
|
||
|
{
|
||
|
drawscore(" MCI", score[0], 0);
|
||
|
drawscore(" AT&T", score[2], 1);
|
||
|
drawscore(" SPRINT", score[1], 2);
|
||
|
}
|
||
|
|
||
|
Image *
|
||
|
initbitmap(char *bits[], Rectangle r)
|
||
|
{
|
||
|
Point p;
|
||
|
char *bit;
|
||
|
Image *b=allocimage(display, r, screen->chan, 0, DTransparent);
|
||
|
|
||
|
if(b==0)
|
||
|
sysfatal("allocimage: %r");
|
||
|
|
||
|
for(p.y = r.min.y; p.y != r.max.y; p.y++){
|
||
|
bit = bits[p.y-r.min.y];
|
||
|
for(p.x = r.min.x; p.x != r.max.x; p.x++){
|
||
|
while(*bit==' ')
|
||
|
bit++;
|
||
|
if(*bit++=='x')
|
||
|
draw(b, Rpt(p,addpt(p,Pt(1,1))), display->white, nil, ZP);
|
||
|
}
|
||
|
}
|
||
|
return b;
|
||
|
}
|