VOID SLING: One Button, Real Gravity

Marc
/
VOID SLING: One Button, Real Gravity
on 5 Nov 2026
6
27
6
0
7473
game.m
% VOID SLING
function g=game()
g.init=@A;g.update=@B;g.render=@C;
end
function s=A(a)
a.Color=[.02 .02 .06];a.YDir='normal';
q={'HitTest','off','PickableParts','none'};
s.fx=800*rand(1,60);
G.f=line(a,s.fx,600*rand(1,60),'LineStyle','none','Marker','.','Color',[.5 .5 .8],q{:});
G.v=patch(a,'XData',[0 0 0],'YData',[0 0 0],'FaceColor',[.3 .02 .2],'EdgeColor',[1 .4 .7],'LineWidth',3,q{:});
G.p=gobjects(3,6);G.x=gobjects(1,6);
for k=1:6
for j=1:3
G.p(j,k)=rectangle(a,'Curvature',[1 1],'FaceColor','none','EdgeColor','none',q{:});
end
G.x(k)=patch(a,'XData',zeros(1,16),'YData',zeros(1,16),'FaceColor',[.9 .2 .1],'EdgeColor',[1 .8 .5],q{:});
end
G.t=line(a,0,0,'Color',[.3 .9 1],'LineWidth',3,q{:});
G.k=line(a,0,0,'LineStyle','none','Marker','.','MarkerSize',13,'Color',[1 .8 .3],q{:});
G.s=patch(a,'XData',[0 0 0 0],'YData',[0 0 0 0],'FaceColor','w','EdgeColor',[.4 1 1],'LineWidth',1.5,q{:});
G.a=text(a,20,570,'','Color','w','FontSize',22,'FontWeight','bold',q{:});
G.i=text(a,400,330,'','Color',[.5 .95 1],'FontSize',22,'FontWeight','bold','HorizontalAlignment','center',q{:});
s.G=G;s.bs=0;
s=F(s);
end
function s=F(s)
s.t=0;s.c=0;s.z=-300;s.sc=0;s.ph=0;s.dd=0;s.lx=0;s.ly=300;s.ni=1;
s.P=zeros(6,3);s.pc=ones(6,1);s.pv=false(6,1);
s.mx=-1e3*ones(1,6);s.mb=zeros(1,6);s.ma=s.mb;s.mp=s.mb;s.my=s.mb;
s.qx=zeros(1,40);s.qy=s.qx;s.qvx=s.qx;s.qvy=s.qx;s.ql=s.qx;
for k=1:6
s=N(s,k,k==1);
end
s.m=1;s.k=1;s.d=1;s.a=pi/2;s.q=0;s.ro=60;s.v=[-260 0];s.x=260;s.y=360;
s.tx=nan(1,30);s.ty=s.tx;
end
function s=N(s,k,f)
if f,x=260;y=300;r=34;
else
d=240+90*rand;x=s.lx+d;y=min(max(s.ly+(2*rand-1)*230,130),470);r=22+16*rand;
[v,j]=min(s.mx);
if s.ni>2&&v<s.c-100&&rand<min(.85,.35+.04*s.sc)
s.mx(j)=s.lx+d/2+(2*rand-1)*40;s.mb(j)=150+300*rand;s.ma(j)=20+60*rand;s.mp(j)=6*rand;
end
end
s.P(k,:)=[x y r];s.pc(k)=1+floor(5*rand);s.pv(k)=f;s.lx=x;s.ly=y;s.ni=s.ni+1;
end
function s=K(s)
w=2*pi*rand(1,40);u=320*rand(1,40);
s.ph=2;s.dd=0;s.bs=max(s.bs,s.sc);
s.qx(:)=s.x;s.qy(:)=s.y;s.qvx=u.*cos(w);s.qvy=u.*sin(w);s.ql=.5+.7*rand(1,40);
end
%chahwan
function s=Q(s,i)
rx=s.x-s.P(i,1);ry=s.y-s.P(i,2);
s.m=1;s.k=i;s.a=atan2(ry,rx);s.ro=hypot(rx,ry);s.d=1-2*(rx*s.v(2)<ry*s.v(1));
if ~s.pv(i),s.pv(i)=true;s.sc=s.sc+1;end
end
function s=B(s,t,p)
s.t=s.t+t;
s.qx=s.qx+s.qvx*t;s.qy=s.qy+s.qvy*t;s.qvy=s.qvy-200*t;s.ql=s.ql-t;
s.my=s.mb+s.ma.*sin(2*s.t+s.mp);
if s.ph==2
s.dd=s.dd+t;
if p&&s.dd>.6,s=F(s);end
return
end
sp=min(380,260+4*s.sc);P=s.P;
if p&&(s.ph==0||s.m),s.ph=1;s.m=0;s.q=s.k;end
if s.m
s.ro=s.ro+(P(s.k,3)+26-s.ro)*min(1,8*t);
s.a=s.a+s.d*sp/s.ro*t;
s.x=P(s.k,1)+s.ro*cos(s.a);s.y=P(s.k,2)+s.ro*sin(s.a);
s.v=sp*s.d*[-sin(s.a) cos(s.a)];
else
s.x=s.x+s.v(1)*t;s.y=s.y+s.v(2)*t;
gx=0;gy=0;cp=0;
for i=1:6
dx=P(i,1)-s.x;dy=P(i,2)-s.y;d=hypot(dx,dy);r=P(i,3);
if i==s.q
if d>r+60,s.q=0;end
elseif d<r+2
s=K(s);return
elseif d<r+40
cp=i;break
elseif d<r+130
w=800*(1-d/(r+130))/d;gx=gx+w*dx;gy=gy+w*dy;
end
end
if cp
s=Q(s,cp);
else
s.v=s.v+[gx gy]*t;s.v=s.v/max(norm(s.v),1e-6)*sp;
end
end
if s.ph==1
tg=s.x-280;
if tg>s.c,s.c=s.c+(tg-s.c)*min(1,6*t);end
s.z=max(s.z+min(150,38+3.5*s.sc)*t,s.c-70);
if s.x<s.z||s.y<0||s.y>600||any(hypot(s.mx-s.x,s.my-s.y)<19),s=K(s);end
end
if s.ph~=2
s.tx=[s.tx(2:end) s.x];s.ty=[s.ty(2:end) s.y];
for k=1:6
if s.P(k,1)<s.c-150&&~(s.m&&s.k==k),s=N(s,k,false);end
end
end
end
function C(~,s)
G=s.G;cx=s.c;
pal=[.25 .65 1;.3 .95 .6;1 .6 .2;.8 .45 1;1 .85 .3];
O=@(x,y,R)[x-R y-R 2*R 2*R];
G.f.XData=mod(s.fx-cx*.2,800);
y=0:30:600;e=s.z-cx+16*sin(y*.05+s.t*6)+7*sin(y*.13-s.t*9);
set(G.v,'XData',[-300 e -300],'YData',[0 y 600]);
%morcass121
for k=1:6
r=s.P(k,3);x=s.P(k,1)-cx;y=s.P(k,2);c=pal(s.pc(k),:);
if s.m&&s.k==k,w=2;else,w=.5;end
set(G.p(1,k),'Position',O(x,y,r+70),'FaceColor',[.02 .02 .06]+c*.1);
set(G.p(2,k),'Position',O(x,y,r+40),'EdgeColor',c,'LineWidth',w);
set(G.p(3,k),'Position',O(x,y,r),'FaceColor',c*(.45+.55*~s.pv(k)));
end
A0=(0:15)*pi/8;R=repmat([16 7],1,8);
for j=1:6
set(G.x(j),'XData',s.mx(j)-cx+R.*cos(A0+s.t*2+j),'YData',s.my(j)+R.*sin(A0+s.t*2+j));
end
set(G.t,'XData',s.tx-cx,'YData',s.ty);
l=s.ql>0;
set(G.k,'XData',s.qx(l)-cx,'YData',s.qy(l));
an=atan2(s.v(2),s.v(1));X=[14 -9 -5 -9];Y=[0 7 0 -7];
if s.ph==2,vs='off';else,vs='on';end
set(G.s,'XData',s.x-cx+X*cos(an)-Y*sin(an),'YData',s.y+X*sin(an)+Y*cos(an),'Visible',vs);
Z(G.a,sprintf('%d  (best %d)',s.sc,s.bs));
if s.ph==0
Z(G.i,{'VOID SLING','SPACE / click = let go of the orbit','catch the next planet, dodge mines, escape the void'});
elseif s.ph==2
Z(G.i,{'DESTROYED','press to retry'});
else
Z(G.i,'');
end
end
function Z(h,v)
if ~isequal(h.String,v),h.String=v;end
%marc
end
Play Game
Preview

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