334 lines
109 KiB
HolyC
334 lines
109 KiB
HolyC
RegDft("TempleOS/ZoneOut","F64 best_score=9999;\n");
|
|
RegExe("TempleOS/ZoneOut");
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
$SP,"<1>",BI=1$
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
$SP,"<2>",BI=2$
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
$SP,"<3>",BI=3$
|
|
|
|
$SP,"",BI=4$
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
#define THEM_NUM 10
|
|
|
|
class Obj
|
|
{
|
|
Obj *next,*last;
|
|
F64 t0,é;
|
|
I64 x,y,z;
|
|
Bool hit,pad[7];
|
|
} us,them[THEM_NUM],shots;
|
|
I64 num_them;
|
|
F64 t0,tf;
|
|
|
|
#define SCRN_SCALE 512
|
|
#define TANK_HEIGHT 32
|
|
|
|
U0 ZOTransform(CDC *dc,I64 *x,I64 *y,I64 *z)
|
|
{
|
|
I64 zz;
|
|
Mat4x4MulXYZ(dc->r,x,y,z);
|
|
zz=*z;
|
|
if (zz<1) zz=1;
|
|
*x=SCRN_SCALE/2* *x/zz;
|
|
*y=SCRN_SCALE/2* (*y+TANK_HEIGHT)/zz;
|
|
*x+=dc->x;
|
|
*y+=dc->y;
|
|
*z+=dc->z;
|
|
}
|
|
|
|
U0 DrawIt(CTask *task,CDC *dc)
|
|
{
|
|
Obj *tmpo;
|
|
I64 i,dd,y,w=task->pix_width,h=task->pix_height,cx=w>>1,cy=h>>1;
|
|
U8 *img;
|
|
F64 tt,é;
|
|
|
|
é=640*Wrap(2*us.é)/ã;
|
|
Sprite3(dc,é-1280,90,0,$IB,"<4>",BI=4$);
|
|
Sprite3(dc,é ,90,0,$IB,"<4>",BI=4$);
|
|
Sprite3(dc,é+1280,90,0,$IB,"<4>",BI=4$);
|
|
|
|
DCDepthBufAlloc(dc);
|
|
dc->transform=&ZOTransform;
|
|
dc->x=cx;
|
|
dc->y=cy;
|
|
Mat4x4TranslationEqu(dc->r,-us.x,-us.y,-us.z);
|
|
Mat4x4RotY(dc->r,us.é-ã/2);
|
|
Mat4x4RotX(dc->r,ã/16);
|
|
|
|
dc->flags|=DCF_TRANSFORMATION;
|
|
for (i=0;i<THEM_NUM;i++) {
|
|
y=them[i].y;
|
|
tmpo=shots.next;
|
|
while (tmpo!=&shots) {
|
|
dd=SqrI64(them[i].x-tmpo->x)+SqrI64(them[i].z-tmpo->z);
|
|
if (dd<SCRN_SCALE/2*SCRN_SCALE/2) {
|
|
y-=Sqrt(dd);
|
|
if (!them[i].hit) {
|
|
them[i].hit=TRUE;
|
|
if (!--num_them) {
|
|
tf=tS;
|
|
if (tf-t0<best_score)
|
|
best_score=tf-t0;
|
|
}
|
|
}
|
|
}
|
|
tmpo=tmpo->next;
|
|
}
|
|
if (them[i].hit)
|
|
img=$IB,"<2>",BI=2$;
|
|
else
|
|
img=$IB,"<1>",BI=1$;
|
|
Sprite3YB(dc,them[i].x,y,them[i].z,img,-them[i].é);
|
|
}
|
|
tmpo=shots.next;
|
|
while (tmpo!=&shots) {
|
|
Sprite3YB(dc,tmpo->x,tmpo->y,tmpo->z,$IB,"<3>",BI=3$,-tmpo->é);
|
|
tmpo=tmpo->next;
|
|
}
|
|
dc->flags&=~DCF_TRANSFORMATION;
|
|
dc->color=LTGREEN;
|
|
GrLine(dc,cx-5,cy,cx+5,cy);
|
|
GrLine(dc,cx,cy-5,cx,cy+5);
|
|
if (tf) {
|
|
dc->color=RED;
|
|
if (Blink)
|
|
GrPrint(dc,cx-(FONT_WIDTH*14)/2,cy-FONT_HEIGHT/2,"Game Completed");
|
|
tt=tf;
|
|
} else {
|
|
dc->color=BLACK;
|
|
GrLine(dc,cx-5,cy,cx+5,cy);
|
|
GrLine(dc,cx,cy-5,cx,cy+5);
|
|
tt=tS;
|
|
}
|
|
dc->color=BLACK;
|
|
GrPrint(dc,0,0,"Enemy:%d Time:%3.2f Best:%3.2f",num_them,tt-t0,best_score);
|
|
}
|
|
|
|
U0 Fire()
|
|
{
|
|
Obj *tmpo=MAlloc(sizeof(Obj));
|
|
tmpo->x=us.x;
|
|
tmpo->y=TANK_HEIGHT;
|
|
tmpo->z=us.z;
|
|
tmpo->é=us.é;
|
|
tmpo->t0=tS;
|
|
QueIns(tmpo,shots.last);
|
|
}
|
|
|
|
U0 MoveUs(F64 é)
|
|
{
|
|
us.x+=0.1*SCRN_SCALE*Cos(é);
|
|
us.z+=0.1*SCRN_SCALE*Sin(é);
|
|
}
|
|
|
|
U0 AnimateTask(I64)
|
|
{
|
|
I64 i;
|
|
Obj *tmpo,*tmpo1;
|
|
while (TRUE) {
|
|
for (i=0;i<THEM_NUM;i++) {
|
|
them[i].x+=SCRN_SCALE/32*Cos(them[i].é);
|
|
them[i].z+=SCRN_SCALE/32*Sin(them[i].é);
|
|
them[i].é+=Rand/100.0;
|
|
}
|
|
tmpo=shots.next;
|
|
while (tmpo!=&shots) {
|
|
tmpo1=tmpo->next;
|
|
if (tS-tmpo->t0>1.0) {
|
|
QueRem(tmpo);
|
|
Free(tmpo);
|
|
} else {
|
|
tmpo->x+=0.25*SCRN_SCALE*Cos(tmpo->é);
|
|
tmpo->z+=0.25*SCRN_SCALE*Sin(tmpo->é);
|
|
}
|
|
tmpo=tmpo1;
|
|
}
|
|
Sleep(20);
|
|
}
|
|
}
|
|
|
|
U0 Init()
|
|
{
|
|
I64 i;
|
|
DocClear;
|
|
"$$BG,LTCYAN$$%h12c",'\n';
|
|
QueInit(&shots);
|
|
MemSet(&us,0,sizeof(us));
|
|
MemSet(them,0,sizeof(them));
|
|
num_them=THEM_NUM;
|
|
for (i=0;i<THEM_NUM;i++) {
|
|
them[i].x=10000*Rand-5000;
|
|
them[i].z=10000*Rand-5000;
|
|
them[i].é=2*ã*Rand;
|
|
them[i].hit=FALSE;
|
|
}
|
|
tf=0;
|
|
t0=tS;
|
|
}
|
|
|
|
U0 CleanUp()
|
|
{
|
|
QueDel(&shots,TRUE);
|
|
}
|
|
|
|
U0 SongTask(I64)
|
|
{//Randomly generate (by God :-)
|
|
Fs->task_end_cb=&SndTaskEndCB;
|
|
MusicSettingsRst;
|
|
while (TRUE) {
|
|
Play("5sD4B5D4B5qEsG4B5G4B5eD4GsB5F4B5FeD4A5qFG");
|
|
Play("5sD4B5D4B5qEsG4B5G4B5eD4GsB5F4B5FeD4A5qFG");
|
|
Play("5eGDsFGFGqDE4eB5E4sG5D4G5DqF4sGAGA");
|
|
Play("5eGDsFGFGqDE4eB5E4sG5D4G5DqF4sGAGA");
|
|
}
|
|
}
|
|
|
|
U0 ZoneOut()
|
|
{
|
|
I64 sc;
|
|
|
|
PopUpOk(
|
|
"I refuse to rip-off the original\n"
|
|
"so this is intentionally crappy\n"
|
|
"and included for demonstration\n"
|
|
"purposes.\n\n"
|
|
"Write games, don't play them.\n");
|
|
|
|
MenuPush(
|
|
"File {"
|
|
" Abort(,CH_SHIFT_ESC);"
|
|
" Exit(,CH_ESC);"
|
|
"}"
|
|
"Play {"
|
|
" Restart(,'\n');"
|
|
" Fwd(,,SC_CURSOR_UP);"
|
|
" Bwd(,,SC_CURSOR_DOWN);"
|
|
" Left(,,SC_CURSOR_LEFT);"
|
|
" Right(,,SC_CURSOR_RIGHT);"
|
|
" Fire(,CH_SPACE);"
|
|
"}"
|
|
);
|
|
|
|
SettingsPush; //See $LK,"SettingsPush",A="MN:SettingsPush"$
|
|
Fs->text_attr=YELLOW<<4+WHITE;
|
|
AutoComplete;
|
|
WinBorder;
|
|
WinMax;
|
|
DocCursor;
|
|
Init;
|
|
Fs->animate_task=Spawn(&AnimateTask,NULL,"Animate",,Fs);
|
|
Fs->song_task=Spawn(&SongTask,NULL,"Song",,Fs);
|
|
Fs->draw_it=&DrawIt;
|
|
try {
|
|
while (TRUE) {
|
|
switch (GetKey(&sc)) {
|
|
case CH_SPACE:
|
|
Fire;
|
|
break;
|
|
case '\n':
|
|
CleanUp;
|
|
Init;
|
|
break;
|
|
case CH_ESC:
|
|
case CH_SHIFT_ESC:
|
|
goto zo_done;
|
|
case 0:
|
|
switch (sc.u8[0]) {
|
|
case SC_CURSOR_RIGHT:
|
|
us.é-=ã/256;
|
|
break;
|
|
case SC_CURSOR_LEFT:
|
|
us.é+=ã/256;
|
|
break;
|
|
case SC_CURSOR_UP:
|
|
MoveUs(us.é);
|
|
break;
|
|
case SC_CURSOR_DOWN:
|
|
MoveUs(us.é+ã);
|
|
break;
|
|
}
|
|
break;
|
|
}
|
|
}
|
|
zo_done:
|
|
} catch
|
|
PutExcept;
|
|
CleanUp;
|
|
DocClear;
|
|
SettingsPop;
|
|
MenuPop;
|
|
RegWrite("TempleOS/ZoneOut","F64 best_score=%5.4f;\n",best_score);
|
|
}
|
|
|
|
ZoneOut;
|
|
² 6 R F Øÿÿÿ# ºÿÿÿØÿÿÿ# ºÿÿÿ( # F ( # d ìÿÿÿ# d # œÿÿÿ # œÿÿÿìÿÿÿ# F Øÿÿÿ2 ºÿÿÿØÿÿÿ2 œÿÿÿìÿÿÿ2 œÿÿÿ 2 ºÿÿÿ( 2 F ( 2 d 2 d ìÿÿÿ2 P
|
|
# P ìÿÿÿ# ºÿÿÿ# Øÿÿÿºÿÿÿ# Éÿÿÿìÿÿÿ# A # F ØÿÿÿÝÿÿÿºÿÿÿØÿÿÿÝÿÿÿºÿÿÿ( ÝÿÿÿF ( Ýÿÿÿd Ýÿÿÿœÿÿÿ ÝÿÿÿœÿÿÿìÿÿÿÝÿÿÿF ØÿÿÿÎÿÿÿºÿÿÿØÿÿÿÎÿÿÿœÿÿÿìÿÿÿÎÿÿÿœÿÿÿ Îÿÿÿºÿÿÿ( ÎÿÿÿF ( Îÿÿÿd Îÿÿÿd ìÿÿÿÎÿÿÿP
|
|
ÝÿÿÿP ìÿÿÿÝÿÿÿ ºÿÿÿÝÿÿÿØÿÿÿºÿÿÿÝÿÿÿÉÿÿÿìÿÿÿÝÿÿÿÉÿÿÿ ÝÿÿÿA ÝÿÿÿÉÿÿÿ # d ìÿÿÿÝÿÿÿ Îÿÿÿûÿÿÿ Îÿÿÿ Øÿÿÿ Øÿÿÿûÿÿÿ– Îÿÿÿûÿÿÿ– Îÿÿÿ – Øÿÿÿ – Øÿÿÿûÿÿÿ
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
$ " $ # " ! ! " ! # " $ # ! ! " ! " % + + & % % ' & & ( ' ' ( ( ) ) , ) , * * , * + - $ $ - $ ' ( ) ' ) & 3 / . . 2 3 2 . 1 1 5 2 3 4 0 0 / 3 4 5 1 1 0 4 - " Ò
|
|
|
|
öÿÿÿ öÿÿÿ öÿÿÿ
|
|
² 6 R F Øÿÿÿ# ºÿÿÿØÿÿÿ# ºÿÿÿ( # F ( # d ìÿÿÿ# d # œÿÿÿ # œÿÿÿìÿÿÿ# F Øÿÿÿ2 ºÿÿÿØÿÿÿ2 œÿÿÿìÿÿÿ2 œÿÿÿ 2 ºÿÿÿ( 2 F ( 2 d 2 d ìÿÿÿ2 P
|
|
# P ìÿÿÿ# ºÿÿÿ# Øÿÿÿºÿÿÿ# Éÿÿÿìÿÿÿ# A # F ØÿÿÿÝÿÿÿºÿÿÿØÿÿÿÝÿÿÿºÿÿÿ( ÝÿÿÿF ( Ýÿÿÿd Ýÿÿÿœÿÿÿ ÝÿÿÿœÿÿÿìÿÿÿÝÿÿÿF ØÿÿÿÎÿÿÿºÿÿÿØÿÿÿÎÿÿÿœÿÿÿìÿÿÿÎÿÿÿœÿÿÿ Îÿÿÿºÿÿÿ( ÎÿÿÿF ( Îÿÿÿd Îÿÿÿd ìÿÿÿÎÿÿÿP
|
|
ÝÿÿÿP ìÿÿÿÝÿÿÿ ºÿÿÿÝÿÿÿØÿÿÿºÿÿÿÝÿÿÿÉÿÿÿìÿÿÿÝÿÿÿÉÿÿÿ ÝÿÿÿA ÝÿÿÿÉÿÿÿ # d ìÿÿÿÝÿÿÿ Îÿÿÿûÿÿÿ Îÿÿÿ Øÿÿÿ Øÿÿÿûÿÿÿ– Îÿÿÿûÿÿÿ– Îÿÿÿ – Øÿÿÿ – Øÿÿÿûÿÿÿ
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
$ " $ # " ! ! " ! # " $ # ! ! " ! " % + + & % % ' & & ( ' ' ( ( ) ) , ) , * * , * + - $ $ - $ ' ( ) ' ) & 3 / . . 2 3 2 . 1 1 5 2 3 4 0 0 / 3 4 5 1 1 0 4 - " � P |