MoonCar

Said BOUREZG
/
MoonCar
on 2 Nov 2026
3
46
6
1
9037
game.m
function g=game
 g.init=@in;g.update=@up;g.render=@rn;
end
function s=in(ax)
set(ax,'YDir','normal','XLim',[0 800],'YLim',[0 600],'Color',[.015 .01 .04]);
X=0:10:800;s.X=X;
strip(ax,[0 800],[.01 .01 .05],[.18 .12 .25]);
n=100;s.sx=800*rand(1,n);s.sy=180+400*rand(1,n);s.sz=1+8*rand(1,n);
s.h.st=scatter(ax,s.sx,s.sy,s.sz,[.8 .85 1],'filled','MarkerEdgeColor','none');
t=linspace(0,2*pi,40)';s.h.moon=patch(ax,610+34*cos(t),470+34*sin(t),[.96 .94 .82],'EdgeColor','none');
s.R={};s.rs=[.12;.3;.55];L=[230 220 1.7 1;160 190 1.5 .6;100 170 1.3 .3];
for k=1:3
 s.R{k}=L(k,1)+L(k,2)*nz(4096,L(k,3),12);
 s.h.r(k)=strip(ax,X,[.2 .16 .33]*L(k,4),[.13 .11 .25]*L(k,4));
end
s.T=75+190*nz(8192,1.7,80);s.X2=0:5:800;s.h.tr=strip(ax,s.X2,[.03 .03 .07],[0 0 .01]);
s.h.rim=line(ax,s.X2,zeros(size(s.X2)),'Color',[.5 .55 .85],'LineWidth',1.4);
z=zeros(1,8);[s.ot,s.ox,s.oy,s.ov,s.oh,s.oa,s.os]=deal(z);
for i=1:8,s.h.o(i)=patch(ax,'Vertices',zeros(9,2),'Faces',1:9,'FaceColor',[.18 .12 .2],'EdgeColor',[.65 .65 .9],'LineWidth',1.2);end
z=zeros(1,24);[s.dx,s.dy,s.dv,s.dw,s.dl]=deal(z);
s.h.du=scatter(ax,z,z,z+1,[.8 .85 1],'filled','MarkerFaceAlpha',.45,'MarkerEdgeColor','none');
E={'EdgeColor','none'};
s.h.body=patch(ax,'Vertices',zeros(8,2),'Faces',1:8,'FaceColor',[.22 .4 .62],'EdgeColor',[.65 .75 1],'LineWidth',1.4);
s.h.glass=patch(ax,'Vertices',zeros(4,2),'Faces',1:4,'FaceColor',[.45 .72 .9],'FaceAlpha',.85,E{:});
s.h.beam=patch(ax,'Vertices',zeros(3,2),'Faces',1:3,'FaceColor',[1 .95 .65],'FaceAlpha',.16,E{:});
for i=1:2,s.h.w(i)=patch(ax,'Vertices',zeros(16,2),'Faces',1:16,'FaceColor',[.12 .12 .2],'EdgeColor',[.7 .75 .95],'LineWidth',1.2);end
s.h.flash=patch(ax,[0 800 800 0],[0 0 600 600],'w','FaceAlpha',0,E{:});
T={'HorizontalAlignment','center','FontWeight','bold'};
s.h.sc=text(ax,20,575,'','Color',[.85 .9 1],'FontSize',15,T{3:4});
s.h.t1=text(ax,400,380,'','Color',[1 .95 .85],'FontSize',38,T{:});
s.h.t2=text(ax,400,325,'','Color',[.8 .85 1],'FontSize',14,T{1:2});
set(ax.Children,'HitTest','off','PickableParts','none');
s.t=0;s.cam=0;s.best=0;s.fa=0;s=reset(s);s.m=0;
end
function s=up(s,dt,p)
s.t=s.t+dt;s.fa=max(0,s.fa-1.6*dt);
if p&&s.m~=1,s=reset(s);p=0;end
if s.m==1,s.rt=s.rt+dt;s.sp=min(560,260+7*s.rt);s.scr=s.scr+s.sp*dt/10;
elseif s.m>1,s.sp=s.sp*exp(-2.8*dt);s.m=3-(s.t<s.td);end
s.cam=s.cam+s.sp*dt;w=24;x=s.cam+200;
y1=ground(s,x-w);y2=ground(s,x+w);gy=(y1+y2)/2+10;ang=atan2(y2-y1,2*w);
s.vy=s.vy-1850*dt;
if s.m<2
 if p&&s.j<2,s.j=s.j+1;s.vy=720-70*s.j;s.on=0;s=dust(s,-w);end
 s.y=s.y+s.vy*dt;
 if s.y<=gy||(s.on&&s.y-gy<12&&s.vy<=0)
  if ~s.on&&s.vy<-350,s=dust(s,-w);s=dust(s,w);end
  s.y=gy;s.vy=0;s.on=1;s.j=0;s.pitch=ang;
 else,s.on=0;s.pitch=s.pitch+(-.15-s.pitch)*min(1,4*dt);end
 s.rot=s.rot-s.sp*dt/9;
 if s.on&&rand<.3,s=dust(s,-w);end
else
 s.y=s.y+s.vy*dt;s.pitch=s.pitch+8*dt;
 if s.y<gy,s.y=gy;s.vy=.35*abs(s.vy);end
end
s.st=s.st-dt;i=find(~s.ot,1);
if s.m==1&&s.st<=0&&~isempty(i)
 r=rand;l=min(1,s.rt/45);k=1+(r>.5-.2*l)+(r>.82-.1*l);v=[0 150+90*rand 110];
 s.ot(i)=k;s.ov(i)=v(k);s.oa(i)=0;s.os(i)=1+1.8*l*rand;
 s.ox(i)=s.cam+200+680*(s.sp+v(k))/s.sp;s.oh(i)=28+55*(rand<.42);
 s.st=max(.75,1.45-s.rt/60)+.85*rand;
end
s.ox=s.ox-s.ov*dt;s.oa=s.oa+s.ov*dt./(15*s.os);s.ot(s.ox<s.cam-60)=0;
for i=find(s.ot)
 k=s.ot(i);v=[0 15*s.os(i) s.oh(i)+5*sin(4*s.t+i)];s.oy(i)=ground(s,s.ox(i))+v(k);
 P=[-26 4;-10 18;10 18;28 6;0 6];R=[cos(s.pitch) -sin(s.pitch);sin(s.pitch) cos(s.pitch)];P=P*R'+[x s.y];
 V=.85*shape(k,s.oa(i),14*s.t+i,s.os(i));
 if s.m==1&&any(inpolygon(P(:,1),P(:,2),V(:,1)+s.ox(i),V(:,2)+s.oy(i)))
  s.m=2;s.td=s.t+1.1;s.vy=520;s.on=0;s.fa=.55;s.best=max(s.best,s.scr);s=dust(s,-w);s=dust(s,w);
 end
end
s.dx=s.dx+(s.dv-s.sp)*dt;s.dy=s.dy+s.dw*dt;s.dw=s.dw-160*dt;s.dl=s.dl-dt;
end
function rn(~,s)
h=s.h;
for k=1:3,h.r(k).Vertices=poly(s.X, sample(s.R{k},s.cam*s.rs(k)+s.X,4));end
y=ground(s,s.cam+s.X2);h.tr.Vertices=poly(s.X2,y);h.rim.YData=y;
set(h.st,'XData',mod(s.sx-.02*s.cam,800),'YData',s.sy,'SizeData',s.sz.*(.6+.4*sin(s.t*2+s.sx)));
for i=1:8
 k=s.ot(i);h.o(i).Visible=k>0;
 if k,h.o(i).Vertices=shape(k,s.oa(i),14*s.t+i,s.os(i))+[s.ox(i)-s.cam s.oy(i)];end
end
p=[200 s.y];R=[cos(s.pitch) -sin(s.pitch);sin(s.pitch) cos(s.pitch)];
h.body.Vertices=[-28 2;-28 10;-15 13;-7 21;13 20;24 11;30 6;30 2]*R'+p;
h.glass.Vertices=[-5 13;-3 19;10 19;18 13]*R'+p;
h.beam.Vertices=[29 5;150 28;150 -12]*R'+p;
r=8.5;t=linspace(0,2*pi,16)';C=r*[cos(t) sin(t)];
h.w(1).Vertices=C+[-18 0]*R'+p;h.w(2).Vertices=C+[18 0]*R'+p;
yd=s.dy;yd(s.dl<=0)=NaN;set(h.du,'XData',s.dx,'YData',yd,'SizeData',max(s.dl,.01)*75);
h.flash.FaceAlpha=s.fa;
set(h.sc,'Visible',s.m>0,'String',sprintf('%d m   best %d m',floor(s.scr),floor(s.best)));
q={'MOONROVER','SPACE to jump / double jump';'','';'','';'MISSION OVER',sprintf('%d m | SPACE to restart',floor(s.scr))};
h.t1.String=q{s.m+1,1};h.t2.String=q{s.m+1,2};
end
function s=reset(s)
s.m=1;s.ot(:)=0;s.dl(:)=0;s.rt=0;s.scr=0;s.st=1.2;s.sp=160;
s.y=ground(s,s.cam+200)+10;s.vy=0;s.on=1;[s.j,s.pitch,s.rot]=deal(0);
end
function s=dust(s,o)
i=find(s.dl<=0,3);if isempty(i),return,end;k=numel(i);
s.dx(i)=200+o+4*randn(1,k);s.dy(i)=s.y-2;s.dv(i)=-40+50*randn(1,k);
s.dw(i)=25+50*rand(1,k);s.dl(i)=.4+.3*rand(1,k);
end
function V=shape(k,a,f,q)
t=linspace(0,2*pi,9)'+a;w=13*sin(f);
V={[-1 0;-.7 .9;-.45 .35;-.1 1.5;.25 .45;.55 1.05;.8 .3;1 0;1 0].*[13*q 17*q^1.5],16*q*[cos(t) sin(t)].*(1+.1*sin(3*t-a)),[-20 w;-8 4;0 8;8 4;20 w;10 -4;0 -3;-10 -4;-20 w]};V=V{k};
end
function v=nz(n,a,k)
f=min(0:n-1,n:-1:1);v=rescale(real(ifft(fft(randn(1,n)).*max(f,1).^-a.*(f>=k))));
end
function y=sample(v,x,d)
n=numel(v);u=x/d;i=floor(u);t=u-i;y=v(mod(i,n)+1).*(1-t)+v(mod(i+1,n)+1).*t;
end
function y=ground(s,x),y=sample(s.T,x,12);end
function V=poly(x,y),V=[x(:) y(:);x(:) zeros(numel(x),1)];end
function h=strip(ax,x,t,b)
n=numel(x);h=patch(ax,'Vertices',poly(x,600+0*x),'Faces',[1:n-1;2:n;n+2:2*n;n+1:2*n-1]','FaceVertexCData',[repmat(t,n,1);repmat(b,n,1)],'FaceColor','interp','EdgeColor','none');
end
Play Game
Preview

Play Game opens this in MATLAB Drive. Click Run this app there to play.