MATminton

KARUPPASAMYPANDIYAN M
/
MATminton
about 7 hours ago
1
11
4
1
9814
game.m
function g=game()
g.init=@initGame;g.update=@step;g.render=@draw;
end
function s=X(x,z),s=400+380*x./(z+4.5);end
function s=Y(y,z),s=440+380*(y-3.8)./(z+4.5);end
function pt(h,x,y,w),set(h,'XData',x,'YData',y,'LineWidth',w);end
function S=initGame(ax)
global Q
Q=struct('A',ax,'sc',[0 0],'J',1,'t',0,'tm',0,'lc',-9,'ph',[0 0],'srv',1);
ax.Color=[.22 .27 .42];tx={'Color','w','FontWeight','bold'};
L=@(c,w)line(ax,0,0,'Color',c,'LineWidth',w);
P=@(x,z,c)patch(ax,X(x,z),Y(0*x,z),c,'EdgeColor','none');
rectangle(ax,'Position',[0 0 800 371],'FaceColor',[.72 .52 .3],'EdgeColor','none');
scatter(ax,800*rand(600,1),380+160*rand(600,1),14,rand(600,3),'s','filled');
P([-4 4 4 -4],[-1 -1 14.4 14.4],[.08 .32 .3]);P([-3.05 3.05 3.05 -3.05],[0 0 13.4 13.4],[.12 .5 .4]);
lx=[-3.05 3.05 3.05 -3.05 -3.05 NaN -2.57 -2.57 NaN 2.57 2.57 NaN -3.05 3.05 NaN -3.05 3.05 NaN -3.05 3.05 NaN -3.05 3.05 NaN 0 0 NaN 0 0];
lz=[0 0 13.4 13.4 0 NaN 0 13.4 NaN 0 13.4 NaN 4.72 4.72 NaN 8.68 8.68 NaN .76 .76 NaN 12.64 12.64 NaN 0 4.72 NaN 8.68 13.4];
line(ax,X(lx,lz),Y(0*lx,lz),'Color','w','LineWidth',2);
c=[.1 .4 .95;.9 .15 .15];h=[.12 .08 .06;.85 .65 .5];sk=[.85 .65 .5];
for i=[2 1]
Q.lg(i)=L(sk,3);Q.fo(i)=scatter(ax,[0 0],[0 0],50,'w','s','filled');Q.st(i)=L([.1 .1 .15],9);Q.tr(i)=L(c(i,:),9);
Q.ar(i)=L(sk,3);Q.rk(i)=L([.2 .2 .2],2);Q.rh(i)=L('w',2);Q.hd(i)=scatter(ax,0,0,50,h(i,:),'filled');
if i==2,net(ax);end
end
Q.fe=patch(ax,[0 0 0],[0 0 0],'w','EdgeColor',[.6 .6 .6]);Q.cr=scatter(ax,0,0,30,[1 .95 .8],'filled','MarkerEdgeColor','k');
rectangle(ax,'Position',[0 0 800 30],'FaceColor',[.05 .08 .22]);
Q.Hu=text(ax,14,15,'','FontSize',13,tx{:});
Q.Hm=text(ax,400,250,'','FontSize',15,tx{:},'HorizontalAlignment','center','BackgroundColor',[.05 .08 .22]);
text(ax,795,15,'Click: hit  Double-click: jump smash','FontSize',9,tx{:},'HorizontalAlignment','right');
set(ax.Children,'HitTest','off','PickableParts','none');rs();S=0;
end
function net(ax)
g=-3.05:.25:3.05;n=NaN*g;x=reshape([g;g;n],1,[]);y=reshape([0*g+.8;0*g+1.55;n],1,[]);k=6.7+0*x;
patch(ax,X([-3.05 3.05 3.05 -3.05],k(1:4)),Y([.8 .8 1.55 1.55],k(1:4)),[.1 .05 .08],'FaceAlpha',.55,'EdgeColor','none');
line(ax,X(x,k),Y(y,k),'Color',[.5 .2 .25],'LineWidth',.5);
line(ax,X([-3.05 -3.05 NaN 3.05 3.05 NaN -3.05 3.05 NaN -3.05 3.05],6.7+0*(1:11)),Y([0 1.6 NaN 0 1.6 NaN 1.55 1.55 NaN .8 .8],6.7+0*(1:11)),'Color',[.9 .9 .9],'LineWidth',3);
end
function rs()
global Q
Q.pp=[0 3.4;0 9.8];Q.vv=zeros(2);Q.ho=Q.srv;Q.lh=0;Q.sw=[0 0];Q.hh=[1 1];Q.v=[0 0 0];Q.b=[0 1 3.4];
Q.w=1+rand;Q.er=.3*randn(1,2);Q.qt=0;Q.jp=0;Q.jh=0;Q.nt=0;Q.msg='';
if Q.srv==1,Q.msg='Your serve: click';end
end
function S=step(S,dt,p)
global Q
dt=min(dt,.05);Q.t=Q.t+dt;Q.tm=Q.tm+dt;
if Q.J~=1
if Q.J==2&&Q.t>2.5||Q.J==3&&p&&Q.t>.8
if Q.J==3,Q.sc=[0 0];Q.srv=1;end
rs();Q.J=1;
end
return
end
if p&&Q.tm-Q.lc>.08
C=min(max(Q.A.CurrentPoint(1,1:2),0),[800 600]);Q.aim=[(C(1)-400)/160 7.4+5.6*C(2)/600];
if Q.tm-Q.lc<.4,Q.jp=.6;end
Q.lc=Q.tm;Q.qt=.6;
end
Q.jp=max(Q.jp-dt,0);Q.jh=.7*sin(pi*Q.jp/.6);
b=Q.b;U=Q.pp(1,:);O=Q.pp(2,:);T=[0 3.6;0 10.2];
if Q.qt>0
Q.qt=Q.qt-dt;
if Q.ho==1||Q.ho==0&&Q.lh~=1&&b(3)<6.9&&norm(b-[U(1) 1.5+Q.jh U(2)+.35])<2+.4*(Q.jp>0)
hit(1,Q.aim,Q.jp>0&&b(2)>1.6);Q.qt=0;
elseif Q.qt<=0,Q.sw(1)=.3;end
end
if Q.ho==2
Q.w=Q.w-dt;if Q.w<0,hit(2,[3*(rand-.5) 1+3.5*rand],0);end
elseif Q.lh>0&&abs(Q.ld(1))<2.6&&Q.ld(2)>0&&Q.ld(2)<13.6
T(3-Q.lh,:)=Q.ld+(Q.lh==1)*Q.er;
if Q.lh==1&&b(3)>6.8&&norm(b-[O(1) 1.5 O(2)-.35])<1.7&&rand<12*dt
r=rand;q=[-sign(U(1)+1e-3)*(.5+2*rand) 1+4*rand];if r<.08,q(1)=q(1)*2.5;end
hit(2,q,b(2)>2.2&&r>.4);
end
end
T(:,1)=min(max(T(:,1),-3.3),3.3);T(:,2)=min(max(T(:,2),[.3;7.2]),[6.2;13.2]);
D=T-Q.pp;n=max(vecnorm(D,2,2),1e-3);
Q.vv=Q.vv+(D./n.*([6;5.5].*min(n/.4,1))-Q.vv).*min(1,10*dt);Q.pp=Q.pp+Q.vv*dt;
Q.ph=Q.ph+vecnorm(Q.vv,2,2)'*2*dt;Q.sw=max(Q.sw-dt,0);
if Q.ho>0
k=3-2*Q.ho;Q.b=[Q.pp(Q.ho,1)+.35*k 1 Q.pp(Q.ho,2)+.45*k];
else
v=Q.v;v(2)=v(2)-9.8*dt;b=Q.b+v*dt;
if (b(3)-6.7)*(Q.b(3)-6.7)<0&&b(2)<1.58
Q.nt=1;b=[b(1) b(2) Q.b(3)];v=[0 -1 -.8*sign(v(3))];
end
Q.b=b;Q.v=v;
if b(2)<=0
h=Q.lh;m='OUT!';if Q.nt,m='NET!';end
if abs(b(1))<=2.57&&b(3)>0&&b(3)<=13.4&&(b(3)>6.7)==(h==1),sco(h,'IN!');else,sco(3-h,m);end
end
end
end
function hit(i,q,m)
global Q
b=Q.b;q=q+(.1+.25*norm(b-[Q.pp(i,1) 1.5 Q.pp(i,2)+.35*(3-2*i)]))*randn(1,2);d=q-b([1 3]);f=max((6.7-b(3))/(d(2)+1e-3),0);T=(.5+.07*norm(d))*(1-.5*m);
for T=T:.1:3
y=(4.9*T^2-b(2))/T;if f==0||b(2)+y*f*T-4.9*(f*T)^2>1.7,break,end
end
Q.v=[d(1)/T y d(2)/T];Q.ld=q;Q.sw(i)=.3;Q.hh(i)=min(max(b(2),.9),2.8);Q.ho=0;Q.lh=i;Q.msg='';
end
function sco(w,m)
global Q
Q.sc(w)=Q.sc(w)+1;Q.srv=w;Q.J=2;Q.t=0;Q.qt=0;r={'YOU','MATLAB'};
if max(Q.sc)>=11
Q.J=3;r={'YOU WIN!','MATLAB WINS!'};Q.msg=sprintf('%s\n%d - %d\n(click to replay)',r{w},Q.sc);
else
Q.msg=sprintf('%s  %s score\n%d - %d',m,r{w},Q.sc);
end
end
function draw(~,~)
global Q
th=linspace(0,6.3,12);
for i=1:2
x=Q.pp(i,1);z=Q.pp(i,2);s=380/(z+4.5);d=3-2*i;w=@(m)max(1,.75*s*m);sw=Q.sw(i);u=(sw>0)*(1-sw/.3);j=Q.jh*(i==1);V=@(y,z)Y(y+j,z);
a=sin(Q.ph(i))*min(norm(Q.vv(i,:))/3,1);f=z+.25*a*d*[1 -1];g=.2*max(a*[1 -1],0)+j;
pt(Q.lg(i),[X(x-.12,f(1)) X(x-.1,z) NaN X(x+.12,f(2)) X(x+.1,z)],[Y(g(1),f(1)) V(.75,z) NaN Y(g(2),f(2)) V(.75,z)],w(.11));
set(Q.fo(i),'XData',[X(x-.12,f(1)) X(x+.12,f(2))],'YData',[Y(g(1)+.03,f(1)) Y(g(2)+.03,f(2))],'SizeData',(.15*s)^2);
pt(Q.st(i),X(x,z)*[1 1],V([.65 1],z),w(.3));pt(Q.tr(i),X(x,z)*[1 1],V([1 1.5],z),w(.36));
hy=1.15+(Q.hh(i)-1.6-j)*sin(pi*min(u,1));hz=z+d*(.1+.8*u);hx=x+.45*d;s2=380/(hz+4.5);
pt(Q.ar(i),[X(x+.2*d,z) X(hx,hz)],[V(1.45,z) V(hy,hz)],w(.09));pt(Q.rk(i),X(hx,hz)*[1 1],V(hy+[0 .3],hz),w(.025));
set(Q.rh(i),'XData',X(hx,hz)+.1*s2*cos(th),'YData',V(hy+.45,hz)+.15*s2*sin(th),'LineWidth',max(1,.75*s2*.03));
set(Q.hd(i),'XData',X(x,z),'YData',V(1.67,z),'SizeData',(.17*s)^2);
end
b=Q.b;e=Q.v/max(norm(Q.v),1e-3);if Q.ho>0,e=[0 -1 0];end
t=b-.3*e;s=380/(b(3)+4.5);hx=X(b(1),b(3));hy=Y(b(2),b(3));tx=X(t(1),t(3));ty=Y(t(2),t(3));q=[hy-ty tx-hx];q=q/(norm(q)+1e-3)*.1*s;
set(Q.fe,'XData',[hx tx+q(1) tx-q(1)],'YData',[hy ty+q(2) ty-q(2)]);set(Q.cr,'XData',hx,'YData',hy,'SizeData',max(12,(.1*s)^2));
set(Q.Hu,'String',sprintf('MATminton  YOU %d - %d MATLAB',Q.sc));set(Q.Hm,'String',Q.msg);
end
Play Game
Preview

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