1461 lines
35 KiB
HolyC
1461 lines
35 KiB
HolyC
/* I did not limit myself to real physics. It's a game.
|
|
I suppose the gun shoots plazma blobs that have a delayed
|
|
explosion due to a chemical reaction timer.
|
|
|
|
The caliber of the gun is adjustible.
|
|
|
|
I did a simple anti-spin controller when you press cursor-down.
|
|
It's intentionally not very good. It needs to take into
|
|
account flexing of the struts. You'll notice when you
|
|
try to shoot the laser.
|
|
|
|
If you are interested in control theory, you might download
|
|
SimStructure, a program I wrote.
|
|
|
|
http://www.templeos.org/files/SimStrSetUp.zip
|
|
|
|
There's not sound in space and explosions
|
|
don't make shock waves, or something like that.
|
|
In X-Caliber, ships are destroyed by
|
|
causing springs to break due to acceleration
|
|
differences on different masses in a ship.
|
|
|
|
A real game would be dull with guided
|
|
missiles that always hit and lasers
|
|
that never miss.
|
|
|
|
Don't be anal. If you aspire to making
|
|
games, do like Hollywood. They know the
|
|
public isn't interested in realism.
|
|
*/
|
|
|
|
#define XMSGF_ANTISPIN 0
|
|
RegSetDftEntry("TempleOS/XCaliber",
|
|
"I64 best_score=0;\n"
|
|
"I64 msg_flags=0;\n"
|
|
);
|
|
RegExeBranch("TempleOS/XCaliber");
|
|
|
|
class MyMass:CMass
|
|
{
|
|
F64 temperature;
|
|
F64 radius;
|
|
I64 color;
|
|
Bool no_overlap;
|
|
};
|
|
|
|
class MySpring:CSpring
|
|
{
|
|
F64 strength;
|
|
I64 color;
|
|
};
|
|
|
|
#define SPIN_GAIN 0.25
|
|
#define MAX_MASSES 8
|
|
#define MAX_SPRINGS 16
|
|
#define MAX_MISSILES 2
|
|
#define ST_HUMAN1 0
|
|
#define ST_ENEMY1 1
|
|
#define ST_ENEMY2 2
|
|
extern class Ship;
|
|
|
|
#define MISSILE_LEN 5
|
|
class Missile
|
|
{
|
|
Missile *next,*last;
|
|
F64 explosion_radius;
|
|
F64 fuse_time,die_timeout;
|
|
MyMass p_front,p_back;
|
|
MySpring s[5];
|
|
U8 *img;
|
|
Ship *owner,*target;
|
|
Bool active,launched,exploding;
|
|
U8 label[5];
|
|
} missile_head;
|
|
|
|
class Ship
|
|
{
|
|
Ship *next,*last;
|
|
I64 type,masses,springs;
|
|
MyMass p[MAX_MASSES];
|
|
MySpring s[MAX_SPRINGS];
|
|
F64 fire_rate;
|
|
F64 reload_timeout,spacewalk_timeout;
|
|
F64 die_time,die_timeout;
|
|
I64 spacewalk_side;
|
|
F64 laser_temperature;
|
|
Missile missiles[MAX_MISSILES];
|
|
Bool lasering,exploding,laser_overheat;
|
|
} ship_head,*human;
|
|
|
|
F64 human_t_left,human_t_right,human_antispin;
|
|
|
|
class Shot
|
|
{
|
|
Shot *next,*last;
|
|
F64 radius,explosion_radius;
|
|
F64 fuse_time,die_timeout;
|
|
MyMass p;
|
|
Bool exploding;
|
|
} shot_head;
|
|
|
|
#define MAX_THRUST 200.0
|
|
#define MAX_ANTISPIN 25.0
|
|
#define SPACEWALK_TIME 7.5
|
|
|
|
#define CMD_NULL 0
|
|
#define CMD_SPIN_LEFT 1
|
|
#define CMD_SPIN_RIGHT 2
|
|
#define CMD_THRUST 3
|
|
#define CMD_FIRE 4
|
|
#define CMD_EXIT 5
|
|
Bool game_over,show_level_msg;
|
|
|
|
#define NUM_STARS 100
|
|
I64 stars_x[NUM_STARS],stars_y[NUM_STARS];
|
|
|
|
CMathODE *ode=NULL;
|
|
I64 level,score,remaining;
|
|
|
|
$BG,0$
|
|
$SP,"<1>",BI=1$
|
|
|
|
$SP,"<2>",BI=2$
|
|
|
|
$SP,"<3>",BI=3$
|
|
|
|
$SP,"<4>",BI=4$
|
|
|
|
|
|
$SP,"<5>",BI=5$
|
|
|
|
$SP,"<6>",BI=6$
|
|
|
|
$SP,"<7>",BI=7$
|
|
|
|
$SP,"<8>",BI=8$
|
|
|
|
$BG$
|
|
//********************************** Ship
|
|
Bool CheckOverlap()
|
|
{
|
|
CD3 p;
|
|
MyMass *tempm,*tempm1;
|
|
tempm=ode->next_mass;
|
|
while (tempm!=&ode->next_mass) {
|
|
tempm1=ode->next_mass;
|
|
while (tempm1!=&ode->next_mass) {
|
|
if (tempm!=tempm1 && !tempm->no_overlap && !tempm1->no_overlap) {
|
|
D3Sub(&p,&tempm->x,&tempm1->x);
|
|
if (D3NormSqr(&p)<=Sqr(tempm->radius+tempm1->radius))
|
|
return TRUE;
|
|
}
|
|
tempm1=tempm1->next;
|
|
}
|
|
tempm=tempm->next;
|
|
}
|
|
return FALSE;
|
|
}
|
|
|
|
U0 MissileNew(Ship *tempsp,I64 n)
|
|
{
|
|
I64 i;
|
|
CD3 p,p1,p2;
|
|
Missile *tempmi=&tempsp->missiles[n];
|
|
MemSet(tempmi,0,sizeof(Missile));
|
|
|
|
D3Equ(&tempmi->p_front.x,
|
|
(tempsp->p[n+1].x+tempsp->p[n+3].x)/2,
|
|
(tempsp->p[n+1].y+tempsp->p[n+3].y)/2,0);
|
|
D3Copy(&tempmi->p_back.x,&tempmi->p_front.x);
|
|
|
|
if (n&1)
|
|
StrCpy(tempmi->label,"L");
|
|
else
|
|
StrCpy(tempmi->label,"R");
|
|
tempmi->owner=tempsp;
|
|
tempmi->explosion_radius=5;
|
|
tempmi->p_front.mass=0.1;
|
|
tempmi->p_back.mass =0.1;
|
|
tempmi->p_front.radius=2;
|
|
tempmi->p_back.radius =2;
|
|
tempmi->p_front.no_overlap=TRUE;
|
|
tempmi->p_back.no_overlap =TRUE;
|
|
D3Sub(&p1,&tempsp->p[0].x,&tempsp->p[1].x);
|
|
D3Sub(&p2,&tempsp->p[0].x,&tempsp->p[2].x);
|
|
D3Unit(D3Add(&p,&p1,&p2));
|
|
D3AddEqu(&tempmi->p_front.x,D3MulEqu(D3Copy(&p1,&p),MISSILE_LEN/2+1));
|
|
D3SubEqu(&tempmi->p_back.x ,D3MulEqu(D3Copy(&p1,&p),MISSILE_LEN/2-1));
|
|
D3Copy(&tempmi->p_front.DxDt,&tempsp->p[n].DxDt);
|
|
D3Copy(&tempmi->p_back.DxDt,&tempsp->p[n].DxDt);
|
|
QueIns(&tempmi->p_front,ode->last_mass);
|
|
QueIns(&tempmi->p_back, ode->last_mass);
|
|
|
|
tempmi->s[0].end1=&tempmi->p_front;
|
|
tempmi->s[0].end2=&tempmi->p_back;
|
|
tempmi->s[1].end1=&tempmi->p_front;
|
|
tempmi->s[1].end2=&tempsp->p[n+1];
|
|
tempmi->s[2].end1=&tempmi->p_back;
|
|
tempmi->s[2].end2=&tempsp->p[n+1];
|
|
tempmi->s[3].end1=&tempmi->p_front;
|
|
tempmi->s[3].end2=&tempsp->p[n+3];
|
|
tempmi->s[4].end1=&tempmi->p_back;
|
|
tempmi->s[4].end2=&tempsp->p[n+3];
|
|
|
|
for (i=0;i<5;i++) {
|
|
tempmi->s[i].const=10000;
|
|
tempmi->s[i].strength =20000;
|
|
tempmi->s[i].color=BLACK;
|
|
tempmi->s[i].rest_len=D3Dist(&tempmi->s[i].end1->x,&tempmi->s[i].end2->x);
|
|
QueIns(&tempmi->s[i],ode->last_spring);
|
|
}
|
|
tempmi->img=$IB,"<7>",BI=7$;
|
|
tempmi->active=TRUE;
|
|
QueIns(tempmi,missile_head.last);
|
|
}
|
|
|
|
Ship *ShipNew(I64 x,I64 y,I64 type)
|
|
{
|
|
I64 i;
|
|
Ship *tempsp=CAlloc(sizeof(Ship));
|
|
|
|
switch (tempsp->type=type) {
|
|
case ST_HUMAN1:
|
|
tempsp->fire_rate=25;
|
|
tempsp->masses=5;
|
|
tempsp->p[0].x=x;
|
|
tempsp->p[0].y=y;
|
|
tempsp->p[1].x=x+3;
|
|
tempsp->p[1].y=y+10;
|
|
tempsp->p[2].x=x-3;
|
|
tempsp->p[2].y=y+10;
|
|
tempsp->p[3].x=x+20;
|
|
tempsp->p[3].y=y+20;
|
|
tempsp->p[4].x=x-20;
|
|
tempsp->p[4].y=y+20;
|
|
|
|
for (i=0;i<tempsp->masses;i++) {
|
|
tempsp->p[i].mass=1;
|
|
if (i<3)
|
|
tempsp->p[i].radius=2.5;
|
|
else
|
|
tempsp->p[i].radius=4;
|
|
tempsp->p[i].drag_profile_factor=3;
|
|
QueIns(&tempsp->p[i],ode->last_mass);
|
|
}
|
|
tempsp->p[3].mass/=10.0;
|
|
tempsp->p[4].mass/=10.0;
|
|
|
|
tempsp->springs=7;
|
|
tempsp->s[0].end1=&tempsp->p[0];
|
|
tempsp->s[0].end2=&tempsp->p[1];
|
|
tempsp->s[1].end1=&tempsp->p[2];
|
|
tempsp->s[1].end2=&tempsp->p[0];
|
|
tempsp->s[2].end1=&tempsp->p[1];
|
|
tempsp->s[2].end2=&tempsp->p[2];
|
|
tempsp->s[3].end1=&tempsp->p[1];
|
|
tempsp->s[3].end2=&tempsp->p[3];
|
|
tempsp->s[4].end1=&tempsp->p[0];
|
|
tempsp->s[4].end2=&tempsp->p[3];
|
|
tempsp->s[5].end1=&tempsp->p[2];
|
|
tempsp->s[5].end2=&tempsp->p[4];
|
|
tempsp->s[6].end1=&tempsp->p[0];
|
|
tempsp->s[6].end2=&tempsp->p[4];
|
|
|
|
for (i=0;i<tempsp->springs;i++) {
|
|
tempsp->s[i].rest_len=
|
|
D3Dist(&tempsp->s[i].end1->x,&tempsp->s[i].end2->x);
|
|
tempsp->s[i].const=10000;
|
|
tempsp->s[i].strength =30000;
|
|
if (i<=2)
|
|
tempsp->s[i].color=LTCYAN;
|
|
else
|
|
tempsp->s[i].color=LTGRAY;
|
|
QueIns(&tempsp->s[i],ode->last_spring);
|
|
}
|
|
MissileNew(tempsp,0);
|
|
MissileNew(tempsp,1);
|
|
remaining=0;
|
|
|
|
break;
|
|
case ST_ENEMY1:
|
|
tempsp->fire_rate=2.5;
|
|
tempsp->masses=3;
|
|
tempsp->p[0].x=x;
|
|
tempsp->p[0].y=y;
|
|
tempsp->p[1].x=x+15;
|
|
tempsp->p[1].y=y;
|
|
tempsp->p[2].x=x;
|
|
tempsp->p[2].y=y+15;
|
|
|
|
for (i=0;i<tempsp->masses;i++) {
|
|
tempsp->p[i].mass=1;
|
|
tempsp->p[i].radius=7;
|
|
tempsp->p[i].drag_profile_factor=3;
|
|
QueIns(&tempsp->p[i],ode->last_mass);
|
|
}
|
|
|
|
tempsp->springs=3;
|
|
tempsp->s[0].end1=&tempsp->p[0];
|
|
tempsp->s[0].end2=&tempsp->p[1];
|
|
tempsp->s[1].end1=&tempsp->p[1];
|
|
tempsp->s[1].end2=&tempsp->p[2];
|
|
tempsp->s[2].end1=&tempsp->p[2];
|
|
tempsp->s[2].end2=&tempsp->p[0];
|
|
|
|
for (i=0;i<tempsp->springs;i++) {
|
|
tempsp->s[i].rest_len=
|
|
D3Dist(&tempsp->s[i].end1->x,&tempsp->s[i].end2->x);
|
|
tempsp->s[i].const=10000;
|
|
tempsp->s[i].strength =20000;
|
|
tempsp->s[i].color=BLACK;
|
|
QueIns(&tempsp->s[i],ode->last_spring);
|
|
}
|
|
remaining++;
|
|
break;
|
|
case ST_ENEMY2:
|
|
tempsp->fire_rate=5.0;
|
|
tempsp->masses=5;
|
|
tempsp->p[0].x=x;
|
|
tempsp->p[0].y=y;
|
|
tempsp->p[1].x=x-7;
|
|
tempsp->p[1].y=y+10;
|
|
tempsp->p[2].x=x+7;
|
|
tempsp->p[2].y=y+10;
|
|
tempsp->p[3].x=x-14;
|
|
tempsp->p[3].y=y+20;
|
|
tempsp->p[4].x=x+14;
|
|
tempsp->p[4].y=y+20;
|
|
|
|
for (i=0;i<tempsp->masses;i++) {
|
|
tempsp->p[i].mass=1;
|
|
tempsp->p[i].radius=6;
|
|
tempsp->p[i].drag_profile_factor=5;
|
|
tempsp->p[i].color=PURPLE;
|
|
QueIns(&tempsp->p[i],ode->last_mass);
|
|
}
|
|
|
|
tempsp->springs=7;
|
|
tempsp->s[0].end1=&tempsp->p[0];
|
|
tempsp->s[0].end2=&tempsp->p[1];
|
|
tempsp->s[1].end1=&tempsp->p[0];
|
|
tempsp->s[1].end2=&tempsp->p[2];
|
|
tempsp->s[2].end1=&tempsp->p[1];
|
|
tempsp->s[2].end2=&tempsp->p[2];
|
|
tempsp->s[3].end1=&tempsp->p[1];
|
|
tempsp->s[3].end2=&tempsp->p[3];
|
|
tempsp->s[4].end1=&tempsp->p[2];
|
|
tempsp->s[4].end2=&tempsp->p[4];
|
|
tempsp->s[5].end1=&tempsp->p[2];
|
|
tempsp->s[5].end2=&tempsp->p[3];
|
|
tempsp->s[6].end1=&tempsp->p[1];
|
|
tempsp->s[6].end2=&tempsp->p[4];
|
|
|
|
for (i=0;i<tempsp->springs;i++) {
|
|
tempsp->s[i].rest_len=
|
|
D3Dist(&tempsp->s[i].end1->x,&tempsp->s[i].end2->x);
|
|
tempsp->s[i].const= 40000;
|
|
tempsp->s[i].strength =75000;
|
|
if (i>=3)
|
|
tempsp->s[i].color=LTPURPLE;
|
|
else
|
|
tempsp->s[i].color=BLACK;
|
|
QueIns(&tempsp->s[i],ode->last_spring);
|
|
}
|
|
remaining++;
|
|
break;
|
|
}
|
|
QueIns(tempsp,ship_head.last);
|
|
return tempsp;
|
|
}
|
|
|
|
U0 MissileDel(Missile *tempmi)
|
|
{
|
|
I64 i;
|
|
if (tempmi->active) {
|
|
QueRem(tempmi);
|
|
for(i=0;i<5;i++)
|
|
QueRem(&tempmi->s[i]);
|
|
QueRem(&tempmi->p_front);
|
|
QueRem(&tempmi->p_back);
|
|
tempmi->active=FALSE;
|
|
}
|
|
}
|
|
|
|
U0 ShipDel(Ship *tempsp)
|
|
{
|
|
I64 i;
|
|
if (!tempsp) return;
|
|
for (i=0;i<tempsp->masses;i++)
|
|
QueRem(&tempsp->p[i]);
|
|
for (i=0;i<tempsp->springs;i++)
|
|
QueRem(&tempsp->s[i]);
|
|
for (i=0;i<2;i++)
|
|
MissileDel(&tempsp->missiles[i]);
|
|
QueRem(tempsp);
|
|
Free(tempsp);
|
|
remaining--;
|
|
}
|
|
|
|
U0 PlaceShip(I64 type)
|
|
{
|
|
Ship *tempsp;
|
|
if (CheckOverlap)
|
|
return;
|
|
while (TRUE) {
|
|
tempsp=ShipNew(RandU16%(Fs->pix_width-20)+10,
|
|
RandU16%(Fs->pix_height-20)+10,type);
|
|
if (CheckOverlap)
|
|
ShipDel(tempsp);
|
|
else
|
|
break;
|
|
}
|
|
}
|
|
|
|
//********************************** Human Ship
|
|
|
|
I64 Tweaked()
|
|
{
|
|
CD3 p,p1,p2;
|
|
if (human) {
|
|
D3Sub(&p1,&human->p[0].x,&human->p[1].x);
|
|
D3Sub(&p2,&human->p[0].x,&human->p[2].x);
|
|
D3Add(&p,&p1,&p2);
|
|
D3Unit(&p);
|
|
D3Sub(&p1,&human->p[0].x,&human->p[3].x);
|
|
D3Sub(&p2,&human->p[0].x,&human->p[4].x);
|
|
D3Unit(&p1);
|
|
D3Unit(&p2);
|
|
if (!(human->s[3].flags&SSF_INACTIVE) && D3Dot(&p,&p1)>Cos(20*ã/180))
|
|
return 3;
|
|
if (!(human->s[5].flags&SSF_INACTIVE) && D3Dot(&p,&p2)>Cos(20*ã/180))
|
|
return 4;
|
|
return 0;
|
|
}
|
|
}
|
|
|
|
U0 AllDel(CMathODE *ode)
|
|
{
|
|
Ship *tempsp,*tempsp1;
|
|
QueRem(ode);
|
|
tempsp=ship_head.next;
|
|
while (tempsp!=&ship_head) {
|
|
tempsp1=tempsp->next;
|
|
ShipDel(tempsp);
|
|
tempsp=tempsp1;
|
|
}
|
|
human=NULL;
|
|
QueDel(&shot_head,TRUE);
|
|
ODEDel(ode);
|
|
}
|
|
|
|
Bool LaserPlot(CDC *dc,I64 x,I64 y,I64)
|
|
{
|
|
I64 c;
|
|
c=GrPeek(dc,x,y);
|
|
if (c!=BLACK && c!=WHITE)
|
|
return FALSE;
|
|
else {
|
|
GrPlot(dc,x,y);
|
|
return TRUE;
|
|
}
|
|
}
|
|
|
|
//**********************************
|
|
U0 DrawIt(CTask *task,CDC *dc)
|
|
{
|
|
I64 i,j;
|
|
F64 arg;
|
|
Ship *tempsp;
|
|
Shot *temps;
|
|
Missile *tempmi;
|
|
CD3 p,p1,p2;
|
|
F64 t_left,t_right,spin,d,x,y;
|
|
MySpring *tempsps;
|
|
U8 *img;
|
|
Bool draw_laser_line=FALSE;
|
|
|
|
if (ode!=task->last_ode) return;
|
|
|
|
dc->color=WHITE;
|
|
GrPrint(dc,0,0,"Level:%d Score:%d High Score:%d",level,score,best_score);
|
|
if (game_over) {
|
|
if (Blink)
|
|
GrPrint(dc,(task->pix_width-9*FONT_WIDTH)/2,
|
|
(task->pix_height-FONT_HEIGHT)/2,"Game Over");
|
|
} else if (show_level_msg) {
|
|
if (Blink)
|
|
GrPrint(dc,(task->pix_width-8*FONT_WIDTH)/2,
|
|
(task->pix_height-FONT_HEIGHT)/2+50,"Level %d",level);
|
|
}
|
|
|
|
for (i=0;i<NUM_STARS;i++)
|
|
GrPlot(dc,stars_x[i],stars_y[i]);
|
|
|
|
tempsps=ode->next_spring;
|
|
while (tempsps!=&ode->next_spring) {
|
|
if (!(tempsps->flags&SSF_INACTIVE) && tempsps->color) {
|
|
dc->color=tempsps->color;
|
|
GrLine(dc,tempsps->end1->x,tempsps->end1->y,
|
|
tempsps->end2->x,tempsps->end2->y);
|
|
}
|
|
tempsps=tempsps->next;
|
|
}
|
|
|
|
tempmi=missile_head.next;
|
|
while (tempmi!=&missile_head) {
|
|
if (tempmi->active) {
|
|
if (tempmi->launched && tempmi->exploding) {
|
|
d=(tS-tempmi->fuse_time)/(tempmi->die_timeout-tempmi->fuse_time);
|
|
d=7*Sin(ã*d)*tempmi->explosion_radius+1;
|
|
for (i=1;i<d;i++) {
|
|
if (i&1)
|
|
dc->color=YELLOW;
|
|
else
|
|
dc->color=LTRED;
|
|
GrCircle(dc,tempmi->p_front.x,tempmi->p_front.y,i);
|
|
}
|
|
} else
|
|
SpriteZ3B(dc,(tempmi->p_front.x+tempmi->p_back.x)/2,
|
|
(tempmi->p_front.y+tempmi->p_back.y)/2,0,tempmi->img,
|
|
Arg(tempmi->p_front.x-tempmi->p_back.x,
|
|
tempmi->p_front.y-tempmi->p_back.y));
|
|
}
|
|
tempmi=tempmi->next;
|
|
}
|
|
|
|
tempsp=ship_head.next;
|
|
while (tempsp!=&ship_head) {
|
|
if (!tempsp->exploding)
|
|
switch (tempsp->type) {
|
|
case ST_HUMAN1:
|
|
if (tempsp->spacewalk_side) {
|
|
t_left=0;
|
|
t_right=0;
|
|
} else {
|
|
if (d=D3Norm(D3Sub(&p1,&tempsp->p[0].x,&tempsp->p[1].x))) {
|
|
D3Sub(&p2,&tempsp->p[0].DxDt,&tempsp->p[1].DxDt);
|
|
D3Cross(&p,&p1,&p2);
|
|
spin=p.z/d;
|
|
} else
|
|
spin=0;
|
|
t_left =Clamp(human_t_left+SPIN_GAIN*spin*human_antispin,
|
|
0,MAX_THRUST);
|
|
|
|
if (d=D3Norm(D3Sub(&p1,&tempsp->p[0].x,&tempsp->p[2].x))) {
|
|
D3Sub(&p2,&tempsp->p[0].DxDt,&tempsp->p[2].DxDt);
|
|
D3Cross(&p,&p1,&p2);
|
|
spin=p.z/d;
|
|
} else
|
|
spin=0;
|
|
t_right=Clamp(human_t_right-SPIN_GAIN*spin*human_antispin,
|
|
0,MAX_THRUST);
|
|
}
|
|
|
|
D3Sub(&p1,&tempsp->p[1].x,&tempsp->p[0].x);
|
|
D3Sub(&p2,&tempsp->p[2].x,&tempsp->p[0].x);
|
|
D3Unit(D3Add(&p,&p1,&p2));
|
|
|
|
if (!(tempsp->s[3].flags&SSF_INACTIVE)) {
|
|
dc->color=YELLOW;
|
|
D3AddEqu(D3Mul(&p1,t_left/25,&p),&tempsp->p[3].x);
|
|
GrLine(dc,tempsp->p[1].x,tempsp->p[1].y,p1.x,p1.y);
|
|
arg=Arg(p.x,p.y);
|
|
SpriteZ3B(dc,tempsp->p[3].x,tempsp->p[3].y,0,$IB,"<thruster>",BI=1$,arg);
|
|
}
|
|
|
|
if (!(tempsp->s[5].flags&SSF_INACTIVE)) {
|
|
dc->color=YELLOW;
|
|
D3AddEqu(D3Mul(&p2,t_right/25,&p),&tempsp->p[4].x);
|
|
GrLine(dc,tempsp->p[2].x,tempsp->p[2].y,p2.x,p2.y);
|
|
arg=Arg(p.x,p.y);
|
|
SpriteZ3B(dc,tempsp->p[4].x,tempsp->p[4].y,0,$IB,"<thruster>",BI=1$,arg);
|
|
}
|
|
|
|
if (tS>tempsp->reload_timeout)
|
|
img=$IB,"<gun_ready>",BI=2$;
|
|
else
|
|
img=$IB,"<gun_busy>",BI=3$;
|
|
arg=Arg(p.x,p.y);
|
|
switch (level) {
|
|
case 3:
|
|
if (!(tempsp->s[3].flags&SSF_INACTIVE))
|
|
SpriteZ3B(dc,tempsp->p[3].x,tempsp->p[3].y,0,img,arg);
|
|
if (!(tempsp->s[5].flags&SSF_INACTIVE))
|
|
SpriteZ3B(dc,tempsp->p[4].x,tempsp->p[4].y,0,img,arg);
|
|
case 2:
|
|
if (!(tempsp->s[1].flags&SSF_INACTIVE))
|
|
SpriteZ3B(dc,tempsp->p[1].x,tempsp->p[1].y,0,img,arg);
|
|
if (!(tempsp->s[2].flags&SSF_INACTIVE))
|
|
SpriteZ3B(dc,tempsp->p[2].x,tempsp->p[2].y,0,img,arg);
|
|
case 1:
|
|
SpriteZ3B(dc,tempsp->p[0].x,tempsp->p[0].y,0,img,arg);
|
|
break;
|
|
default:
|
|
SpriteZ3B(dc,tempsp->p[0].x,tempsp->p[0].y,0,$IB,"<Laser>",BI=6$,arg);
|
|
if (tempsp->lasering && !tempsp->laser_overheat) {
|
|
draw_laser_line=TRUE;
|
|
Snd(1000);
|
|
}
|
|
}
|
|
|
|
ctrl_panel.laser_temperature=tempsp->laser_temperature;
|
|
|
|
if (tempsp->spacewalk_side) {
|
|
d=1.0-(tempsp->spacewalk_timeout-tS)/SPACEWALK_TIME;
|
|
if (d>1.0) {
|
|
tempsp->spacewalk_side=0;
|
|
ctrl_panel.spacewalk=FALSE;
|
|
} else {
|
|
if (d<0.5) {
|
|
d=d*2;
|
|
x=tempsp->p[0].x*(1.0-d)+
|
|
tempsp->p[tempsp->spacewalk_side].x*(d);
|
|
y=tempsp->p[0].y*(1.0-d)+
|
|
tempsp->p[tempsp->spacewalk_side].y*(d);
|
|
} else {
|
|
d=(d-0.5)*2;
|
|
x=tempsp->p[tempsp->spacewalk_side].x*(1.0-d)+
|
|
tempsp->p[0].x*(d);
|
|
y=tempsp->p[tempsp->spacewalk_side].y*(1.0-d)+
|
|
tempsp->p[0].y*(d);
|
|
}
|
|
SpriteZ3B(dc,x,y,0,$IB,"<spacewalk>",BI=4$,arg+0.75*Sin(tS*2));
|
|
}
|
|
} else {
|
|
if (ctrl_panel.spacewalk) {
|
|
if (tempsp->spacewalk_side=Tweaked)
|
|
tempsp->spacewalk_timeout=tS+SPACEWALK_TIME;
|
|
else
|
|
ctrl_panel.spacewalk=FALSE;
|
|
}
|
|
}
|
|
break;
|
|
case ST_ENEMY2:
|
|
for (i=3;i<tempsp->masses;i++) {
|
|
dc->color=tempsp->p[i].color;
|
|
GrCircle(dc,tempsp->p[i].x,tempsp->p[i].y,tempsp->p[i].radius);
|
|
GrFloodFill(dc,tempsp->p[i].x,tempsp->p[i].y+2,TRUE);
|
|
dc->color=WHITE;
|
|
GrCircle(dc,tempsp->p[i].x,tempsp->p[i].y,tempsp->p[i].radius);
|
|
}
|
|
case ST_ENEMY1:
|
|
D3DivEqu(D3Sub(&p1,&tempsp->p[1].x,&tempsp->p[0].x),2.0);
|
|
D3DivEqu(D3Sub(&p2,&tempsp->p[2].x,&tempsp->p[0].x),2.0);
|
|
D3Unit(D3Add(&p,&p1,&p2));
|
|
if (tS>tempsp->reload_timeout)
|
|
img=$IB,"<gun_ready>",BI=2$;
|
|
else
|
|
img=$IB,"<gun_busy>",BI=3$;
|
|
arg=Arg(p.x,p.y);
|
|
SpriteZ3B(dc,tempsp->p[0].x,tempsp->p[0].y,0,img,arg);
|
|
arg=Arg(p1.x,p1.y);
|
|
SpriteZ3B(dc,tempsp->p[0].x+p1.x,tempsp->p[0].y+p1.y,0,
|
|
$IB,"<EnemySide>",BI=5$,arg);
|
|
arg=Arg(p2.x,p2.y);
|
|
SpriteZ3B(dc,tempsp->p[0].x+p2.x,tempsp->p[0].y+p2.y,0,
|
|
$IB,"<EnemySide>",BI=5$,arg);
|
|
for (i=0;i<tempsp->masses;i++) {
|
|
dc->color=YELLOW;
|
|
if (tempsp->p[i].temperature>=1.0)
|
|
GrCircle(dc,tempsp->p[i].x,tempsp->p[i].y,
|
|
tempsp->p[i].temperature);
|
|
}
|
|
break;
|
|
}
|
|
else if (tempsp->die_time<=tS<=tempsp->die_timeout)
|
|
for (j=0;j<tempsp->masses;j++) {
|
|
d=(tS-tempsp->die_time)/(tempsp->die_timeout-tempsp->die_time);
|
|
d=7*Sin(ã*d)*(6+j)+1;
|
|
for (i=1;i<d;i++) {
|
|
if (i&1)
|
|
dc->color=YELLOW;
|
|
else
|
|
dc->color=LTRED;
|
|
GrCircle(dc,tempsp->p[j].x,tempsp->p[j].y,i);
|
|
}
|
|
}
|
|
tempsp=tempsp->next;
|
|
}
|
|
|
|
temps=shot_head.next;
|
|
while (temps!=&shot_head) {
|
|
if (temps->exploding) {
|
|
d=(tS-temps->fuse_time)/(temps->die_timeout-temps->fuse_time);
|
|
d=7*Sin(ã*d)*temps->explosion_radius+1;
|
|
for (i=1;i<d;i++) {
|
|
if (i&1)
|
|
dc->color=YELLOW;
|
|
else
|
|
dc->color=LTRED;
|
|
GrCircle(dc,temps->p.x,temps->p.y,i);
|
|
}
|
|
} else {
|
|
if (temps->radius<1.0) {
|
|
dc->color=LTGREEN;
|
|
GrPlot(dc,temps->p.x,temps->p.y);
|
|
} else {
|
|
dc->color=YELLOW;
|
|
GrCircle(dc,temps->p.x,temps->p.y,temps->radius);
|
|
if (temps->radius>=2.0)
|
|
GrFloodFill(dc,temps->p.x,temps->p.y,TRUE);
|
|
dc->color=LTGREEN;
|
|
GrCircle(dc,temps->p.x,temps->p.y,temps->radius);
|
|
}
|
|
}
|
|
temps=temps->next;
|
|
}
|
|
|
|
if (human && draw_laser_line) {
|
|
D3Sub(&p1,&human->p[1].x,&human->p[0].x);
|
|
D3Sub(&p2,&human->p[2].x,&human->p[0].x);
|
|
D3Unit(D3Add(&p,&p1,&p2));
|
|
dc->color=LTBLUE;
|
|
Line(dc,human->p[0].x-10*p.x,human->p[0].y-10*p.y,0,
|
|
human->p[0].x-800*p.x,human->p[0].y-800*p.y,0,&LaserPlot);
|
|
}
|
|
|
|
tempmi=missile_head.next;
|
|
while (tempmi!=&missile_head) {
|
|
if (tempsp=tempmi->target) {
|
|
dc->color=LTRED;
|
|
GrCircle(dc,tempsp->p[0].x,tempsp->p[0].y,10);
|
|
GrPrint(dc,tempsp->p[0].x+12,tempsp->p[0].y-4,tempmi->label);
|
|
}
|
|
tempmi=tempmi->next;
|
|
}
|
|
}
|
|
|
|
U0 Explosion(MyMass *tempm1,MyMass *tempm2,F64 r)
|
|
{
|
|
MyMass *tempm;
|
|
CD3 p1;
|
|
F64 d;
|
|
|
|
tempm=ode->next_mass;
|
|
while (tempm!=&ode->next_mass) {
|
|
if (tempm!=tempm1 && tempm!=tempm2) {
|
|
D3Sub(&p1,&tempm->state->x,&tempm1->state->x);
|
|
d=D3NormSqr(&p1)-tempm->radius*tempm->radius;
|
|
if (d<100.0*100.0) {
|
|
if (d<1)
|
|
d=1;
|
|
else
|
|
d=Sqrt(d);
|
|
d=2e8*r`7/d`6;
|
|
if (d>1e5) d=1e5;
|
|
D3MulEqu(&p1,d);
|
|
D3AddEqu(&tempm->DstateDt->DxDt,&p1);
|
|
}
|
|
}
|
|
tempm=tempm->next;
|
|
}
|
|
}
|
|
|
|
Ship TargetGet(Missile *tempmi)
|
|
{
|
|
Ship *tempsp,*res=NULL;
|
|
F64 dd,best_dd=MAX_F64;
|
|
I64 i;
|
|
CD3 p,p1,p2;
|
|
D3Unit(D3Sub(&p,&tempmi->p_front.state->x,&tempmi->p_back.state->x));
|
|
tempsp=ship_head.next;
|
|
while (tempsp!=&ship_head) {
|
|
if (!tempsp->exploding && tempsp!=tempmi->owner)
|
|
for (i=0;i<tempsp->masses;i++) {
|
|
D3Sub(&p1,&tempsp->p[i].state->x,&tempmi->p_front.state->x);
|
|
D3Unit(D3Copy(&p2,&p1));
|
|
D3Cross(&p1,&p,&p2);
|
|
if (D3Dot(&p,&p2)>0 && D3Norm(&p1)<=ã/16) {
|
|
dd=D3NormSqr(&p1);
|
|
if (dd<best_dd) {
|
|
best_dd=dd;
|
|
res=tempsp;
|
|
}
|
|
}
|
|
}
|
|
tempsp=tempsp->next;
|
|
}
|
|
return res;
|
|
}
|
|
|
|
U0 MyDerivative(CMathODE *ode,F64,COrder2D3 *,COrder2D3 *)
|
|
{
|
|
I64 i;
|
|
F64 d,dd,dd2,spin,t_left,t_right,é_err,é_thrust,DéDt;
|
|
CTask *task=ode->win_task;
|
|
CD3 p,p1,p2;
|
|
Ship *tempsp;
|
|
Shot *temps;
|
|
Missile *tempmi;
|
|
MyMass *tempm,*tempm1;
|
|
|
|
tempm=ode->next_mass;
|
|
while (tempm!=&ode->next_mass) {
|
|
d=tempm->state->x;
|
|
if (d-tempm->radius<0)
|
|
tempm->DstateDt->DxDt+=Sqr(Sqr(Sqr(d-tempm->radius)));
|
|
if (d+tempm->radius>task->pix_width)
|
|
tempm->DstateDt->DxDt-=Sqr(Sqr(Sqr((d+tempm->radius)-task->pix_width)));
|
|
|
|
d=tempm->state->y;
|
|
if (d-tempm->radius<0)
|
|
tempm->DstateDt->DyDt+=Sqr(Sqr(Sqr(d-tempm->radius)));
|
|
if (d+tempm->radius>task->pix_height)
|
|
tempm->DstateDt->DyDt-=Sqr(Sqr(Sqr((d+tempm->radius)-task->pix_height)));
|
|
tempm1=ode->next_mass;
|
|
while (tempm1!=&ode->next_mass) {
|
|
if (tempm!=tempm1) {
|
|
D3Sub(&p,&tempm->state->x,&tempm1->state->x);
|
|
dd=D3NormSqr(&p);
|
|
dd2=Sqr(tempm->radius+tempm1->radius);
|
|
if (dd<=dd2) {
|
|
d=Sqrt(dd)+0.0001;
|
|
D3MulEqu(&p,Sqr(Sqr(dd2-dd))/d);
|
|
D3AddEqu(&tempm ->DstateDt->DxDt,&p);
|
|
D3SubEqu(&tempm1->DstateDt->DxDt,&p);
|
|
}
|
|
}
|
|
tempm1=tempm1->next;
|
|
}
|
|
tempm=tempm->next;
|
|
}
|
|
|
|
tempsp=ship_head.next;
|
|
while (tempsp!=&ship_head) {
|
|
if (tempsp->exploding && tempsp->die_time<=tS<=tempsp->die_timeout)
|
|
for (i=0;i<tempsp->masses;i++)
|
|
Explosion(&tempsp->p[i],NULL,tempsp->p[i].radius/3.0);
|
|
switch (tempsp->type) {
|
|
case ST_HUMAN1:
|
|
if (!tempsp->exploding) {
|
|
if (tempsp->spacewalk_side) {
|
|
t_left=0;
|
|
t_right=0;
|
|
d=1.0-(tempsp->spacewalk_timeout-tS)/SPACEWALK_TIME;
|
|
if (0.485<d<0.515) {
|
|
D3Unit(D3Sub(&p,&tempsp->p[2].state->x,&tempsp->p[1].state->x));
|
|
if (tempsp->spacewalk_side==3) {
|
|
tempsp->p[3].DstateDt->DxDt-=10*MAX_THRUST*p.x;
|
|
tempsp->p[3].DstateDt->DyDt-=10*MAX_THRUST*p.y;
|
|
tempsp->p[1].DstateDt->DxDt+=10*MAX_THRUST*p.x;
|
|
tempsp->p[1].DstateDt->DyDt+=10*MAX_THRUST*p.y;
|
|
} else {
|
|
tempsp->p[4].DstateDt->DxDt+=10*MAX_THRUST*p.x;
|
|
tempsp->p[4].DstateDt->DyDt+=10*MAX_THRUST*p.y;
|
|
tempsp->p[2].DstateDt->DxDt-=10*MAX_THRUST*p.x;
|
|
tempsp->p[2].DstateDt->DyDt-=10*MAX_THRUST*p.y;
|
|
}
|
|
}
|
|
} else {
|
|
if (d=D3Norm(D3Sub(&p1,&tempsp->p[0].state->x,
|
|
&tempsp->p[1].state->x))) {
|
|
D3Sub(&p2,&tempsp->p[0].state->DxDt,&tempsp->p[1].state->DxDt);
|
|
D3Cross(&p,&p1,&p2);
|
|
spin=p.z/d;
|
|
} else
|
|
spin=0;
|
|
t_left =Clamp(human_t_left+SPIN_GAIN*spin*human_antispin,
|
|
0,MAX_THRUST);
|
|
|
|
if (d=D3Norm(D3Sub(&p1,&tempsp->p[0].state->x,
|
|
&tempsp->p[2].state->x))) {
|
|
D3Sub(&p2,&tempsp->p[0].state->DxDt,&tempsp->p[2].state->DxDt);
|
|
D3Cross(&p,&p1,&p2);
|
|
spin=p.z/d;
|
|
} else
|
|
spin=0;
|
|
t_right=Clamp(human_t_right-SPIN_GAIN*spin*human_antispin,
|
|
0,MAX_THRUST);
|
|
|
|
D3Sub(&p1,&tempsp->p[0].state->x,&tempsp->p[1].state->x);
|
|
D3Sub(&p2,&tempsp->p[0].state->x,&tempsp->p[2].state->x);
|
|
D3Unit(D3Add(&p,&p1,&p2));
|
|
if (!(tempsp->s[3].flags&SSF_INACTIVE)) {
|
|
D3Mul(&p1,t_left,&p);
|
|
D3AddEqu(&tempsp->p[3].DstateDt->DxDt,&p1);
|
|
}
|
|
if (!(tempsp->s[5].flags&SSF_INACTIVE)) {
|
|
D3Mul(&p2,t_right,&p);
|
|
D3AddEqu(&tempsp->p[4].DstateDt->DxDt,&p2);
|
|
}
|
|
}
|
|
}
|
|
break;
|
|
}
|
|
tempsp=tempsp->next;
|
|
}
|
|
|
|
temps=shot_head.next;
|
|
while (temps!=&shot_head) {
|
|
if (temps->exploding)
|
|
Explosion(&temps->p,NULL,temps->explosion_radius);
|
|
temps=temps->next;
|
|
}
|
|
|
|
tempmi=missile_head.next;
|
|
while (tempmi!=&missile_head) {
|
|
if (tempmi->active) {
|
|
if (tempmi->launched) {
|
|
if (tempmi->exploding)
|
|
Explosion(&tempmi->p_front,&tempmi->p_back,tempmi->explosion_radius);
|
|
else {
|
|
//Guide missile
|
|
if (tempsp=tempmi->target) {
|
|
D3Unit(D3Sub(&p,&tempmi->p_front.state->x,
|
|
&tempmi->p_back.state->x));
|
|
D3Sub(&p1,&tempsp->p[0].state->x,&tempmi->p_front.state->x);
|
|
d=D3Norm(&p1);
|
|
D3Unit(&p1);
|
|
é_err=D3Dot(&p,&p1);
|
|
D3Sub(&p1,&tempmi->p_front.state->DxDt,&tempmi->p_back.state->DxDt);
|
|
D3Cross(&p2,&p,&p1);
|
|
DéDt=D3Norm(&p2);
|
|
if (p2.z<0)
|
|
DéDt=-DéDt;
|
|
é_thrust=Clamp(200*(é_err+2*DéDt)/(d+200),-ã/8,ã/8);
|
|
p2.x=p.x*Cos(é_thrust)-p.y*Sin(é_thrust);
|
|
p2.y=p.y*Cos(é_thrust)+p.x*Sin(é_thrust);
|
|
p2.z=0;
|
|
D3AddEqu(&tempmi->p_back.DstateDt->DxDt,D3MulEqu(&p2,MAX_THRUST));
|
|
}
|
|
}
|
|
} else
|
|
tempmi->target=TargetGet(tempmi);
|
|
} else
|
|
tempmi->target=NULL;
|
|
tempmi=tempmi->next;
|
|
}
|
|
}
|
|
|
|
U0 CheckDamage()
|
|
{
|
|
I64 i,j,k;
|
|
Ship *tempsp,*tempsp1;
|
|
MyMass *tempm,*best_mass;
|
|
CD3 p,p1,p2;
|
|
F64 d,best_distance;
|
|
|
|
tempm=ode->next_mass;
|
|
while (tempm!=&ode->next_mass) {
|
|
tempm->temperature*=0.9;
|
|
tempm=tempm->next;
|
|
}
|
|
if (human) {
|
|
human->laser_temperature*=0.975;
|
|
|
|
if (human->laser_overheat) {
|
|
if (human->laser_temperature<LASER_THRESHOLD_TEMP)
|
|
human->laser_overheat=FALSE;
|
|
}
|
|
if (!human->laser_overheat && human->lasering) {
|
|
if (human->laser_temperature>=LASER_MAX_TEMP) {
|
|
human->laser_overheat=TRUE;
|
|
Snd(0);
|
|
} else {
|
|
human->laser_temperature+=1.0;
|
|
D3Sub(&p1,&human->p[0].x,&human->p[1].x);
|
|
D3Sub(&p2,&human->p[0].x,&human->p[2].x);
|
|
D3Unit(D3Add(&p,&p1,&p2));
|
|
p2.x=p.y;
|
|
p2.y=-p.x;
|
|
p2.z=0;
|
|
best_mass=NULL;
|
|
best_distance=MAX_F64;
|
|
tempm=ode->next_mass;
|
|
while (tempm!=&ode->next_mass) {
|
|
D3Sub(&p1,&human->p[0].x,&tempm->x);
|
|
if (Abs(D3Dot(&p1,&p2))<tempm->radius &&
|
|
D3Dot(&p1,&p)<0.0) {
|
|
d=D3NormSqr(&p1);
|
|
if (d<best_distance) {
|
|
best_distance=d;
|
|
best_mass=tempm;
|
|
}
|
|
}
|
|
tempm=tempm->next;
|
|
}
|
|
if (best_mass)
|
|
best_mass->temperature+=1.0;
|
|
}
|
|
}
|
|
}
|
|
|
|
tempsp=ship_head.next;
|
|
while (tempsp!=&ship_head) {
|
|
tempsp1=tempsp->next;
|
|
switch (tempsp->type) {
|
|
case ST_HUMAN1:
|
|
if (tempsp->exploding) {
|
|
if (tS>tempsp->die_timeout) {
|
|
ShipDel(tempsp);
|
|
human=NULL;
|
|
}
|
|
} else
|
|
for (i=0;i<tempsp->springs;i++) {
|
|
if (Abs(tempsp->s[i].f)>tempsp->s[i].strength) {
|
|
tempsp->s[i].flags|=SSF_INACTIVE;
|
|
if (i==4)
|
|
MissileDel(&tempsp->missiles[0]);
|
|
else if (i==5)
|
|
MissileDel(&tempsp->missiles[1]);
|
|
}
|
|
if (tempsp->s[i].flags&SSF_INACTIVE) {
|
|
if (i<3) {
|
|
if (!tempsp->exploding) {
|
|
tempsp->exploding=TRUE;
|
|
tempsp->die_time=tS;
|
|
tempsp->die_timeout=tS+0.75;
|
|
game_over=TRUE;
|
|
Noise(750,1000,2000);
|
|
break;
|
|
}
|
|
}
|
|
}
|
|
}
|
|
break;
|
|
default:
|
|
if (tempsp->exploding) {
|
|
if (tS>tempsp->die_timeout) {
|
|
ShipDel(tempsp);
|
|
score+=level;
|
|
if (score>best_score)
|
|
best_score=score;
|
|
}
|
|
} else {
|
|
j=0;
|
|
for (i=0;i<tempsp->springs;i++) {
|
|
if (tempsp->s[i].flags&SSF_INACTIVE)
|
|
j++;
|
|
else if (Abs(tempsp->s[i].f)>tempsp->s[i].strength) {
|
|
tempsp->s[i].flags|=SSF_INACTIVE;
|
|
j++;
|
|
}
|
|
}
|
|
k=0;
|
|
for (i=0;i<tempsp->masses;i++) {
|
|
if (tempsp->p[i].temperature>MASS_MAX_TEMP)
|
|
k++;
|
|
}
|
|
if (j>1 || k) {
|
|
tempsp->exploding=TRUE;
|
|
tempsp->die_time=tS;
|
|
tempsp->die_timeout=tS+0.75;
|
|
Noise(750,1000,3000);
|
|
}
|
|
}
|
|
}
|
|
tempsp=tempsp1;
|
|
}
|
|
}
|
|
|
|
//********************************** Shots
|
|
|
|
U0 FireOneGun(Ship *tempsp,I64 n,F64 r,F64 fuse_time)
|
|
{
|
|
CD3 p,p1,p2;
|
|
Shot *temps;
|
|
|
|
temps=CAlloc(sizeof(Shot));
|
|
D3Copy(&temps->p.x,&tempsp->p[n].x);
|
|
temps->explosion_radius=temps->radius=r;
|
|
temps->fuse_time=tS+1.5*fuse_time;
|
|
temps->die_timeout=temps->fuse_time+0.125;
|
|
temps->p.mass=0.3*r*r*r;
|
|
D3Sub(&p1,&tempsp->p[0].x,&tempsp->p[1].x);
|
|
D3Sub(&p2,&tempsp->p[0].x,&tempsp->p[2].x);
|
|
D3Unit(D3Add(&p,&p1,&p2));
|
|
D3AddEqu(&temps->p.x,D3MulEqu(D3Copy(&p1,&p),r+tempsp->p[0].radius+5));
|
|
D3AddEqu(D3MulEqu(&p,1000/(r+1)),&tempsp->p[n].DxDt);
|
|
D3Copy(&temps->p.DxDt,&p);
|
|
D3MulEqu(&p,temps->p.mass/tempsp->p[n].mass/100.0);
|
|
D3SubEqu(&tempsp->p[n].DxDt,&p);
|
|
QueIns(&temps->p,ode->last_mass);
|
|
QueIns(temps,shot_head.last);
|
|
tempsp->reload_timeout=tS+r/tempsp->fire_rate;
|
|
Noise(100,r*200,r*400);
|
|
}
|
|
|
|
U0 FireOneMissile(Ship *tempsp,I64 n)
|
|
{
|
|
I64 i;
|
|
Missile *tempmi=&tempsp->missiles[n];
|
|
if (!tempmi->launched && tempmi->target) {
|
|
tempmi->fuse_time=tS+1.0;
|
|
tempmi->die_timeout=tempmi->fuse_time+0.125;
|
|
tempmi->img=$IB,"<8>",BI=8$;
|
|
for (i=1;i<5;i++)
|
|
tempmi->s[i].flags|=SSF_INACTIVE;
|
|
tempmi->launched=TRUE;
|
|
Sweep(250,300,350);
|
|
}
|
|
}
|
|
|
|
U0 HumanFireGunBegin()
|
|
{
|
|
F64 r=3.0*ctrl_panel.shot_radius/CTRL_PANEL_RANGE+0.5,
|
|
fuse_time=ToF64(ctrl_panel.fuse_time+1)/CTRL_PANEL_RANGE;
|
|
if (human) {
|
|
if (!human->exploding && !human->spacewalk_side && tS>human->reload_timeout)
|
|
switch (level) {
|
|
case 3:
|
|
if (!(human->s[3].flags&SSF_INACTIVE))
|
|
FireOneGun(human,3,r,fuse_time);
|
|
if (!(human->s[5].flags&SSF_INACTIVE))
|
|
FireOneGun(human,4,r,fuse_time);
|
|
case 2:
|
|
if (!(human->s[1].flags&SSF_INACTIVE))
|
|
FireOneGun(human,1,r,fuse_time);
|
|
if (!(human->s[2].flags&SSF_INACTIVE))
|
|
FireOneGun(human,2,r,fuse_time);
|
|
case 1:
|
|
FireOneGun(human,0,r,fuse_time);
|
|
break;
|
|
}
|
|
}
|
|
}
|
|
|
|
U0 HumanFireMissileBegin(I64 n)
|
|
{
|
|
if (human && !human->exploding &&
|
|
!human->spacewalk_side && tS>human->reload_timeout)
|
|
FireOneMissile(human,n);
|
|
}
|
|
|
|
U0 HumanFireLaserBegin()
|
|
{
|
|
if (human && !human->exploding &&
|
|
!human->spacewalk_side && tS>human->reload_timeout)
|
|
human->lasering=TRUE;
|
|
}
|
|
U0 HumanFireLaserEnd()
|
|
{
|
|
if (human && !human->exploding) {
|
|
human->lasering=FALSE;
|
|
Snd(0);
|
|
}
|
|
}
|
|
|
|
U0 ExpireShots()
|
|
{
|
|
Shot *temps=shot_head.next,*temps1;
|
|
while (temps!=&shot_head) {
|
|
temps1=temps->next;
|
|
if (!temps->exploding && tS>temps->fuse_time) {
|
|
temps->exploding=TRUE;
|
|
Noise(50,3000,6000);
|
|
} else if (tS>temps->die_timeout) {
|
|
QueRem(temps);
|
|
QueRem(&temps->p);
|
|
Free(temps);
|
|
}
|
|
temps=temps1;
|
|
}
|
|
}
|
|
|
|
U0 ExpireMissiles()
|
|
{
|
|
I64 i;
|
|
F64 dd,best_dd;
|
|
Missile *tempmi=missile_head.next,*tempm1;
|
|
while (tempmi!=&missile_head) {
|
|
tempm1=tempmi->next;
|
|
if (tempmi->launched) {
|
|
best_dd=MAX_F64;
|
|
if (tempmi->target)
|
|
for (i=0;i<tempmi->target->masses;i++) {
|
|
dd=D3DistSqr(&tempmi->p_front.x,&tempmi->target->p[i].x);
|
|
if (dd<best_dd)
|
|
best_dd=dd;
|
|
}
|
|
if (!tempmi->exploding && (best_dd<30*30 || tS>tempmi->fuse_time)) {
|
|
tempmi->p_front.mass=10.0; //They go flying, if too light.
|
|
tempmi->p_back.mass =10.0;
|
|
tempmi->exploding=TRUE;
|
|
Noise(50,3000,6000);
|
|
} else if (tS>tempmi->die_timeout)
|
|
MissileDel(tempmi);
|
|
}
|
|
tempmi=tempm1;
|
|
}
|
|
}
|
|
|
|
//********************************** AI
|
|
|
|
U0 AI()
|
|
{
|
|
CD3 p,p1,p2;
|
|
Ship *tempsp=ship_head.next;
|
|
if (human && !human->exploding) {
|
|
while (tempsp!=&ship_head) {
|
|
D3Sub(&p1,&tempsp->p[0].x,&tempsp->p[1].x);
|
|
D3Sub(&p2,&tempsp->p[0].x,&tempsp->p[2].x);
|
|
D3Add(&p,&p1,&p2);
|
|
D3Sub(&p1,&human->p[0].x,&tempsp->p[0].x);
|
|
if (D3Dot(D3Unit(&p),D3Unit(&p1))>0.995 &&
|
|
tS>tempsp->reload_timeout) {
|
|
FireOneGun(tempsp,0,1.5+.5,.4);
|
|
}
|
|
tempsp=tempsp->next;
|
|
}
|
|
}
|
|
}
|
|
|
|
//********************************** Init
|
|
U0 InitLevel()
|
|
{
|
|
I64 i;
|
|
if (level==4)
|
|
OneTimePopUp(&msg_flags,XMSGF_ANTISPIN,
|
|
"Press $$GREEN$$<CURSOR-DOWN>$$FG$$ for anti-spin stabilizer.\n");
|
|
human=ShipNew(Fs->pix_width/2,Fs->pix_height/2,ST_HUMAN1);
|
|
for (i=0;i<level+2;i++)
|
|
PlaceShip(ST_ENEMY1);
|
|
PlaceShip(ST_ENEMY2);
|
|
show_level_msg=TRUE;
|
|
ode->flags|=ODEF_PAUSED;
|
|
}
|
|
|
|
U0 Init()
|
|
{
|
|
I64 i;
|
|
game_over=FALSE;
|
|
score=0;
|
|
level=1;
|
|
|
|
QueInit(&ship_head);
|
|
QueInit(&shot_head);
|
|
QueInit(&missile_head);
|
|
|
|
for (i=0;i<NUM_STARS;i++) {
|
|
stars_x[i]=RandU16%GR_WIDTH;
|
|
stars_y[i]=RandU16%GR_HEIGHT;
|
|
}
|
|
|
|
human_t_left=0;
|
|
human_t_right=0;
|
|
human_antispin=0;
|
|
|
|
InitLevel;
|
|
}
|
|
|
|
//********************************** Main
|
|
U0 XCaliber()
|
|
{
|
|
I64 ch,msg_code,a1,a2,sc;
|
|
CCtrl *cp=CtrlPanelNew;
|
|
|
|
SettingsPush; //See $LK,"SettingsPush",A="MN:SettingsPush"$
|
|
Fs->text_attr=BLACK<<4+WHITE;
|
|
MenuPush(
|
|
"File {"
|
|
" Abort(,CH_SHIFT_ESC);"
|
|
" Exit(,CH_ESC);"
|
|
"}"
|
|
"Game {"
|
|
" Restart(,'\n');"
|
|
" LevelUp(,'+');"
|
|
" LevelDown(,'-');"
|
|
"}"
|
|
"Play {"
|
|
" Fire(,CH_SPACE);"
|
|
" Thrust(,,SC_CURSOR_UP);"
|
|
" StopSpin(,,SC_CURSOR_DOWN);"
|
|
" Left(,,SC_CURSOR_LEFT);"
|
|
" Right(,,SC_CURSOR_RIGHT);"
|
|
" LeftMissile(,,SC_CURSOR_LEFT|SCF_CTRL);"
|
|
" RightMissile(,,SC_CURSOR_RIGHT|SCF_CTRL);"
|
|
" Spackwalk(,'w');"
|
|
" LongerFuse(,,SC_CURSOR_RIGHT|SCF_SHIFT);"
|
|
" ShorterFuse(,,SC_CURSOR_LEFT|SCF_SHIFT);"
|
|
" LargerShot(,,SC_CURSOR_UP|SCF_SHIFT);"
|
|
" SmallerShot(,,SC_CURSOR_DOWN|SCF_SHIFT);"
|
|
"}"
|
|
);
|
|
AutoComplete;
|
|
WinBorder;
|
|
WinMax;
|
|
DocCursor;
|
|
DocClear;
|
|
Fs->win_inhibit=WIG_TASK_DFT-WIF_SELF_FOCUS
|
|
-WIF_SELF_BORDER-WIF_FOCUS_TASK_MENU-WIF_SELF_CTRLS;
|
|
Fs->draw_it=&DrawIt;
|
|
do {
|
|
ode=ODENew(0,0.01,ODEF_HAS_MASSES);
|
|
ode->derivative=&MyDerivative;
|
|
ode->min_tolerance=1e-9;
|
|
ode->drag_v3=0.00001;
|
|
Init;
|
|
QueIns(ode,Fs->last_ode);
|
|
ch=0;
|
|
do {
|
|
while (!game_over && !show_level_msg &&
|
|
(msg_code=ScanMsg(&a1,&a2,1<<MSG_KEY_DOWN|1<<MSG_KEY_UP))) {
|
|
switch (msg_code) {
|
|
case MSG_KEY_DOWN:
|
|
ch=a1; sc=a2;
|
|
switch (ch) {
|
|
case 0:
|
|
switch (sc.u8[0]) {
|
|
case SC_CURSOR_RIGHT:
|
|
if (sc&SCF_CTRL)
|
|
HumanFireMissileBegin(0);
|
|
if (sc&SCF_SHIFT)
|
|
ctrl_panel.fuse_time+=2;
|
|
else
|
|
human_t_right=MAX_THRUST;
|
|
break;
|
|
case SC_CURSOR_LEFT:
|
|
if (sc&SCF_CTRL)
|
|
HumanFireMissileBegin(1);
|
|
if (sc&SCF_SHIFT)
|
|
ctrl_panel.fuse_time-=2;
|
|
else
|
|
human_t_left =MAX_THRUST;
|
|
break;
|
|
case SC_CURSOR_UP:
|
|
if (sc&SCF_SHIFT)
|
|
ctrl_panel.shot_radius+=2;
|
|
else {
|
|
human_t_right=MAX_THRUST;
|
|
human_t_left =MAX_THRUST;
|
|
}
|
|
break;
|
|
case SC_CURSOR_DOWN:
|
|
if (sc&SCF_SHIFT)
|
|
ctrl_panel.shot_radius-=2;
|
|
else
|
|
human_antispin=MAX_ANTISPIN;
|
|
break;
|
|
}
|
|
break;
|
|
case CH_SPACE:
|
|
if (level<4)
|
|
HumanFireGunBegin;
|
|
else
|
|
HumanFireLaserBegin;
|
|
break;
|
|
case 'w':
|
|
ctrl_panel.spacewalk=TRUE;
|
|
break;
|
|
case '+':
|
|
level++;
|
|
break;
|
|
case '-':
|
|
level--;
|
|
break;
|
|
}
|
|
break;
|
|
case MSG_KEY_UP:
|
|
ch=a1; sc=a2;
|
|
switch (ch) {
|
|
case 0:
|
|
switch (sc.u8[0]) {
|
|
case SC_CURSOR_RIGHT:
|
|
human_t_right=0;
|
|
break;
|
|
case SC_CURSOR_LEFT:
|
|
human_t_left =0;
|
|
break;
|
|
case SC_CURSOR_UP:
|
|
human_t_right=0;
|
|
human_t_left =0;
|
|
break;
|
|
case SC_CURSOR_DOWN:
|
|
human_antispin=0;
|
|
break;
|
|
}
|
|
break;
|
|
case '\n':
|
|
ch=0;
|
|
break;
|
|
case CH_SPACE:
|
|
if (level>=4)
|
|
HumanFireLaserEnd;
|
|
break;
|
|
}
|
|
break;
|
|
}
|
|
}
|
|
AI;
|
|
ExpireShots;
|
|
ExpireMissiles;
|
|
CheckDamage;
|
|
WinMgrSync; //msgs are only qued by winmngr
|
|
if (show_level_msg) {
|
|
ch=GetKey(&sc);
|
|
if (ch=='\n')
|
|
ch=0;
|
|
ode->flags&=~ODEF_PAUSED;
|
|
show_level_msg=FALSE;
|
|
} else if (game_over) {
|
|
ch=ScanChar;
|
|
} else {
|
|
if (!remaining) {
|
|
level++;
|
|
ShipDel(human);
|
|
human=NULL;
|
|
InitLevel;
|
|
}
|
|
}
|
|
} while (ch!=CH_ESC && ch!='\n' && ch!=CH_SHIFT_ESC);
|
|
AllDel(ode);
|
|
} while (ch!=CH_ESC && ch!=CH_SHIFT_ESC);
|
|
SettingsPop;
|
|
CtrlPanelDel(cp);
|
|
MenuPop;
|
|
RegWriteBranch("TempleOS/XCaliber",
|
|
"I64 best_score=%d;\n"
|
|
"I64 msg_flags=%d;\n",best_score,msg_flags);
|
|
}
|
|
ž
|
|
ÿÿÿÿ ÿÿÿÿ
|
|
|
|
|
|
ÿÿÿÿ ýÿÿÿ
|
|
ÿÿÿÿ
|
|
|
|
ÿÿÿÿ
|
|
þÿÿÿ þÿÿÿ
|
|
‚ øÿÿÿýÿÿÿ ÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿ
|
|
ÿÿÿÿÿÿÿÿ
|
|
|
|
|
|
|
|
ÿÿÿÿÿÿÿ
|
|
|
|
|
|
|
|
ÿÿÿÿÿÿÿÿÿÿ
|
|
ÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿ ‚ øÿÿÿýÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ À
|
|
ýÿÿÿüÿÿÿýÿÿÿ
|
|
þÿÿÿ ÿÿÿÿüÿÿÿ
|
|
þÿÿÿ ýÿÿÿ
|
|
þÿÿÿýÿÿÿ ÿÿÿÿ
|
|
ÿÿÿÿ ýÿÿÿ
|
|
ýÿÿÿ
|
|
ÿÿÿÿ
|
|
ÿÿÿÿ ýÿÿÿ
|
|
üÿÿÿ ûÿÿÿ
|
|
|
|
ÿÿÿÿüÿÿÿ úÿÿÿ â
|
|
ýÿÿÿ
|
|
÷ÿÿÿ ÿÿÿÿ
|
|
|
|
ùÿÿÿ
|
|
|
|
|
|
ýÿÿÿþÿÿÿÿÿÿÿ
|
|
ÿÿÿÿýÿÿÿ ÷ÿÿÿ
|
|
ÿÿÿÿþÿÿÿ
|
|
úÿÿÿÿÿÿÿ
|
|
|
|
|
|
|
|
õÿÿÿ
|
|
|
|
õÿÿÿúÿÿÿ
|
|
þÿÿÿ
|
|
|
|
|
|
ùÿÿÿ
|
|
ùÿÿÿ þÿÿÿ – úÿÿÿûÿÿÿ ÿÿÿÿÿÿÿÿ ÿÿÿÿ úÿÿÿ úÿÿÿüÿÿÿ þÿÿÿ úÿÿÿ
|
|
ýÿÿÿ ùÿÿÿ
|
|
ùÿÿÿ ùÿÿÿÿÿÿÿ
|
|
ùÿÿÿÿÿÿÿýÿÿÿÿÿÿÿ b üÿÿÿþÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ b ÷ÿÿÿþÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ |