$SP,"<1>",1$ $SP,"<2>",2$ $SP,"<3>",3$ $SP,"<4>",4$ AcctRegSetDftEntry("TempleOS/Varoom","F64 best_score=9999;\n"); AcctRegExeBranch("TempleOS/Varoom"); I64 vx,vy,vz; F64 é,speed,distance,t0,tf; #define NUM_BUSHES 512 class Bush { I32 x,y,z; Bool sym,pad[3]; U8 *img; } b[NUM_BUSHES]; #define TRACK_INNER 16000 #define TRACK_OUTER 18000 #define SHOULDER 200 #define SLICES 500 #define D_é (2*ã/SLICES) #define TRACK_POLYS (3*SLICES) #define DIPS 5 #define DIP_DEPTH 100 class TrackPoly { CColorROPU16 c,pad[3]; CD3I32 p[4]; } track[TRACK_POLYS]; I64 DipY(I64 x,I64 z) { F64 m,a; R2P(&m,&a,x,z); return DIP_DEPTH*m*Cos(DIPS*a)/((TRACK_INNER+TRACK_OUTER)/2); } #define CAR_LENGTH 400 F64 Dipé(I64 x,I64 z) { F64 y_front,y_back; y_front=DipY(x-CAR_LENGTH/2*Cos(é),z-CAR_LENGTH/2*Sin(é)); y_back =DipY(x+CAR_LENGTH/2*Cos(é),z+CAR_LENGTH/2*Sin(é)); return ASin((y_front-y_back)/CAR_LENGTH); } U0 InitTrackPoly(TrackPoly *tempt,CColorROPU16 c, I64 inner,I64 outer,F64 é1,F64 é2) { tempt->c=c; tempt->p[0].x=inner*Cos(é1); tempt->p[0].z=inner*Sin(é1); tempt->p[0].y=DipY(tempt->p[0].x,tempt->p[0].z); tempt->p[1].x=outer*Cos(é1); tempt->p[1].z=outer*Sin(é1); tempt->p[1].y=DipY(tempt->p[1].x,tempt->p[1].z); tempt->p[2].x=outer*Cos(é2); tempt->p[2].z=outer*Sin(é2); tempt->p[2].y=DipY(tempt->p[2].x,tempt->p[2].z); tempt->p[3].x=inner*Cos(é2); tempt->p[3].z=inner*Sin(é2); tempt->p[3].y=DipY(tempt->p[3].x,tempt->p[3].z); } U0 InitTrack() { TrackPoly *tempt=track; I64 i; for (i=0;iwin_task; I64 i,j,x,y,z,lo,hi, w=task->win_pixel_width, h=task->win_pixel_height,r[16], cx=w>>1; F64 s,dip_é=Dipé(vx,vz); CD3I32 poly[4]; TrackPoly *tempt; CDC *dc=DCAlias(gr_dc2,task); GrIdentEqu(r); GrRotYEqu(r,-é); GrRotXEqu(r,75*ã/180-dip_é); dc->depth_buf=dc2->depth_buf; //Track lo=Gs->num*TRACK_POLYS/mp_cnt; hi=(Gs->num+1)*TRACK_POLYS/mp_cnt; for (i=lo,tempt=&track[lo];icolor=tempt->c; for (j=0;j<4;j++) { x=tempt->p[j].x+vx; y=tempt->p[j].y+vy; z=tempt->p[j].z+vz; GrRot(r,&x,&y,&z); s=100.0/(AbsI64(z)+50); poly[j].x=s*x+cx; poly[j].y=s*y+h; poly[j].z=z; } if (-hnum;ir); GrScaleMatEqu(dc->r,s*2); GrSetRotMat(dc,dc->r); dc->flags|=DCF_TRANSFORMATION; if (b[i].sym) { dc->flags|=DCF_SYMMETRY|DCF_JUST_MIRROR; GrSetSymmetry(dc,s*x+cx,s*y+h,s*x+cx,s*y+h+10); } SpritePlot3B(dc,s*x+cx,s*y+h,z,b[i].img); dc->flags&=~(DCF_SYMMETRY|DCF_JUST_MIRROR); } } dc->depth_buf=NULL; DCDel(dc); LBtr(&mp_not_done_flags,Gs->num); } U0 DrawIt(CTask *task,CDC *dc) { I64 i,x,y,z, w=task->win_pixel_width, h=task->win_pixel_height,r[16], cx=w>>1; F64 s,dip_é=Dipé(vx,vz); dc->color=LTCYAN; GrRect(dc,0,0,w,HORIZON_DIP*Sin(dip_é)+FONT_HEIGHT*4.5); GrIdentEqu(r); GrRotYEqu(r,-é); GrRotXEqu(r,75*ã/180-dip_é); DCAllocDepthBuf(dc); //Sun x=vx; y=0; z=1000000+vz; GrRot(r,&x,&y,&z); s=100.0/(AbsI64(z)+50); if (y<0) { dc->color=BROWN; GrCircle(dc,s*x+cx,15+HORIZON_DIP*Sin(dip_é),15); dc->color=YELLOW; GrFloodFill(dc,s*x+cx,15+HORIZON_DIP*Sin(dip_é)); } mp_not_done_flags=1<color=LTGRAY; GrRect(dc,w-64,h-64,64,64); dc->color=LTGREEN; for (i=0;icolor=WHITE; GrPlot(dc,w-64+64*(-vx+0x5000)/0xA000,h-64*(-vz+0x5000)/0xA000); if (tf) { s=tf-t0; dc->color=LTRED; if (Blink) GrPrint(dc,(w-FONT_WIDTH*14)/2,(h-FONT_HEIGHT)/2,"Game Completed"); } else s=tT-t0; dc->color=BLACK; GrPrint(dc,0,0,"é:%5.1f Time:%3.2f Best:%3.2f",180+180/ã*Arg(vx,vz),s,best_score); } U0 AnimateTask(I64) { F64 m,a; while (TRUE) { Snd(speed*3+10); vx-=speed*Sin(é); vz-=speed*Cos(é); vy=DipY(vx,vz); R2P(&m,&a,vx,vz); if (!tf && TRACK_INNER<=m<=TRACK_OUTER) { distance+=speed; if (distance>2*ã*TRACK_INNER && a>0.0) { tf=tT; if (tf-t0",1$,$IB,"<1>",1$,$IB,"<2>",2$,$IB,"<2>",2$,$IB,"<3>",3$,$IB,"<4>",4$,$IB,"<4>",4$,$IB,"<4>",4$}; U0 Init() { Bush *tempb; I64 i; for (i=0;ix=RandU32&0x7FFF-0x4000; tempb->z=RandU32&0x7FFF-0x4000; } while (TRACK_INNER-SHOULDER<=Sqrt(SqrI64(tempb->x)+SqrI64(tempb->z))<=TRACK_OUTER+SHOULDER); tempb->y=DipY(tempb->x,tempb->z); tempb->sym=RandU16&1; tempb->img=imgs[i&7]; } InitTrack; vx=-(TRACK_INNER+TRACK_OUTER)/2; vz=0; vy=DipY(vx,vz); é=0; speed=0; distance=0; tf=0; t0=tT; } U0 Varoom() { I64 ch,sc; MenuPush( "File {" " Abort(,CH_SHIFT_ESC);" " Exit(,CH_ESC);" "}" "Play {" " Restart(,'\n');" " Accelerator(,,SC_CURSOR_UP);" " Break(,,SC_CURSOR_DOWN);" " Left(,,SC_CURSOR_LEFT);" " Right(,,SC_CURSOR_RIGHT);" "}" ); SettingsPush(Fs,TSF_SAME_SONG); //See $LK,"SettingsPush","MN:SettingsPush"$ try { Fs->text_attr=YELLOW<<4+BLUE; Fs->win_inhibit=WIF_ALL-WIF_GRAB_SCROLL-WIF_MENU; WordStat; WinMax; WinBorder; Preempt(OFF); Init; DocCursor; DocClear; Fs->draw_it=&DrawIt; Fs->animate_task=Spawn(&AnimateTask,NULL,"Animate",,Fs); while (TRUE) { while (ScanKey(&ch,&sc)) switch (ch) { case 0: switch (sc.u8[0]) { case SC_CURSOR_LEFT: é-=ã/100; break; case SC_CURSOR_RIGHT: é+=ã/100; break; case SC_CURSOR_UP: speed+=3; break; case SC_CURSOR_DOWN: speed-=3; break; } break; case '\n': Init; break; case CH_SHIFT_ESC: case CH_ESC: goto vr_done; } WinMgrSync; } vr_done: //Don't goto out of try } catch Fs->catch_except=TRUE; SettingsPop(Fs,TSF_SAME_SONG); MenuPop; AcctRegWriteBranch("TempleOS/Varoom","F64 best_score=%5.4f;\n",best_score); } Varoom; ö þÿÿÿèÿÿÿ ôÿÿÿêÿÿÿ þÿÿÿîÿÿÿúÿÿÿèÿÿÿ øÿÿÿúÿÿÿôÿÿÿ ôÿÿÿìÿÿÿ âÿÿÿúÿÿÿèÿÿÿ àÿÿÿ ìÿÿÿ îÿÿÿàÿÿÿ üÿÿÿîÿÿÿ øÿÿÿâÿÿÿ øÿÿÿ öÿÿÿúÿÿÿþÿÿÿ úÿÿÿüÿÿÿÜÿÿÿ úÿÿÿðÿÿÿúÿÿÿäÿÿÿã æÿÿÿöÿÿÿäÿÿÿ ìÿÿÿìÿÿÿæÿÿÿüÿÿÿ äÿÿÿÖÿÿÿ Öÿÿÿæÿÿÿ æÿÿÿ"àÿÿÿ êÿÿÿ$äÿÿÿ ìÿÿÿ$æÿÿÿ äÿÿÿúÿÿÿäÿÿÿúÿÿÿ æÿÿÿüÿÿÿæÿÿÿüÿÿÿ îÿÿÿúÿÿÿ êÿÿÿ "Üÿÿÿ&æÿÿÿ äÿÿÿ àÿÿÿ þÿÿÿ üÿÿÿ üÿÿÿðÿÿÿ êÿÿÿ øÿÿÿ øÿÿÿèÿÿÿ èÿÿÿþÿÿÿ þÿÿÿîÿÿÿ ìÿÿÿþÿÿÿ þÿÿÿîÿÿÿ öÿÿÿ ìÿÿÿ êÿÿÿðÿÿÿ ðÿÿÿäÿÿÿ âÿÿÿðÿÿÿ ðÿÿÿêÿÿÿ êÿÿÿúÿÿÿ  öÿÿÿ” úÿÿÿÄÿÿÿ úÿÿÿÄÿÿÿøÿÿÿúÿÿÿ üÿÿÿÂÿÿÿüÿÿÿ úÿÿÿÄÿÿÿæÿÿÿ¤ÿÿÿ üÿÿÿÂÿÿÿäÿÿÿ¤ÿÿÿ øÿÿÿ¼ÿÿÿúÿÿÿ†ÿÿÿ Äÿÿÿüÿÿÿ„ÿÿÿ þÿÿÿºÿÿÿ Œÿÿÿ Œÿÿÿüÿÿÿ¸ÿÿÿ ¦ÿÿÿšÿÿÿ šÿÿÿzÿÿÿ zÿÿÿ„ÿÿÿ †ÿÿÿžÿÿÿ žÿÿÿvÿÿÿ vÿÿÿþÿÿÿ`ÿÿÿ þÿÿÿ`ÿÿÿìÿÿÿ„ÿÿÿ ìÿÿÿ„ÿÿÿöÿÿÿ¬ÿÿÿ öÿÿÿ¬ÿÿÿâÿÿÿžÿÿÿ âÿÿÿžÿÿÿØÿÿÿ¨ÿÿÿ Øÿÿÿ¨ÿÿÿîÿÿÿºÿÿÿ îÿÿÿºÿÿÿòÿÿÿºÿÿÿ ôÿÿÿ¸ÿÿÿúÿÿÿ¸ÿÿÿ –ÿÿÿˆÿÿÿ „ÿÿÿŠÿÿÿ þÿÿÿŽÿÿÿþÿÿÿjÿÿÿ þÿÿÿjÿÿÿôÿÿÿ‚ÿÿÿ ôÿÿÿ‚ÿÿÿøÿÿÿœÿÿÿ ôÿÿÿ´ÿÿÿîÿÿÿ¦ÿÿÿ èÿÿÿ²ÿÿÿÞÿÿÿ¦ÿÿÿ œÿÿÿ–ÿÿÿ øÿÿÿ€ÿÿÿhÿÿÿ ˆÿÿÿ€ÿÿÿ þÿÿÿ~ÿÿÿnÿÿÿ ~ÿÿÿ’ÿÿÿ œÿÿÿ¨ÿÿÿ öÿÿÿ²ÿÿÿðÿÿÿ‚ÿÿÿ ðÿÿÿ‚ÿÿÿúÿÿÿjÿÿÿ êÿÿÿ´ÿÿÿÞÿÿÿ ÿÿÿ