Tongue Tap

KARUPPASAMYPANDIYAN M
/
Tongue Tap
about 6 hours ago
0
3
1
0
9600
game.m
function g=game()
g.init=@initGame;g.update=@step;g.render=@draw;
end
function p=A(t),p=[400+260*sinpi(t(:)) 315+520*sinpi(t(:)).*cospi(t(:))];end
function S=initGame(ax)
global Q
B=[.6 1.2];u=linspace(1,18,54);R=14*[1 1.1 .6 1 1 1 1:-.1:.2 .2 .2 .1];z=@(r)(1.5*r(:)).^2;e=nan(6,1);
Q=struct('A',ax,'FR',20*B('122222211111111111'-'0')','BR',R,'u',u,'hi',0,'tm',0,'lc',-9,'go',0);
ax.Color=[.45 .56 .32];tx={'Color','w','FontWeight','bold'};p=A(linspace(0,2,200));r=interp1(1:18,R,u);
scatter(ax,800*rand(400,1),600*rand(400,1),9,[.36 .47 .25],'filled');
line(ax,p(:,1),p(:,2),'Color',[.5 .4 .26],'LineWidth',46);line(ax,p(:,1),p(:,2),'Color',[.68 .58 .4],'LineWidth',38);
Q.ai=line(ax,0,0,'Color','w','LineStyle',':');
Q.bs=scatter(ax,e,e,260,'k','filled','MarkerFaceAlpha',.22);Q.lb=line(ax,0,0,'Color',[.1 .07 .04],'LineWidth',1.5);
Q.bg=scatter(ax,nan(18,1),nan(18,1),60,zeros(18,3),'filled','MarkerEdgeColor',[.1 .1 .1]);
Q.hl=scatter(ax,nan(18,1),nan(18,1),20,'w','filled','MarkerFaceAlpha',.55);Q.wg=scatter(ax,nan(12,1),nan(12,1),130,[.85 .93 1],'filled','MarkerFaceAlpha',.45);
Q.sh=scatter(ax,u',u',z(r),'k','filled','MarkerFaceAlpha',.2);
Q.lg=line(ax,0,0,'Color',[.1 .55 .15],'LineWidth',7);Q.fo=scatter(ax,nan(4,1),nan(4,1),70,[.1 .55 .15],'*','LineWidth',2);
Q.bo=scatter(ax,u',u',z(r+3),[.01 .35 .06],'filled');Q.bd=scatter(ax,u',u',z(r),[.14 .4 .12],'filled');
Q.ey=scatter(ax,zeros(4,1),zeros(4,1),[50;50;14;14],[.95 .8 .1;.95 .8 .1;0 0 0;0 0 0],'filled');
Q.tn=line(ax,0,0,'Color',[1 .4 .5],'LineWidth',5);Q.tp=scatter(ax,0,0,70,[1 .4 .5],'filled');
rectangle(ax,'Position',[0 0 800 30],'FaceColor',[.05 .08 .22]);
Q.Hu=text(ax,14,15,'','FontSize',11,tx{:});Q.Hm=text(ax,400,520,'','FontSize',18,tx{:},'HorizontalAlignment','center');
text(ax,795,15,'Click = tongue. Avoid wasps! Green beetle = FRENZY','FontSize',8,tx{:},'HorizontalAlignment','right');
set(ax.Children,'HitTest','off','PickableParts','none');rs();S=0;
end
function rs()
global Q
Q.J=1;Q.t=0;Q.sc=0;Q.n=0;Q.cb=0;Q.lv=3;Q.tl=30;Q.sp=320;Q.cd=0;Q.tg=0;Q.ft=3;Q.ns=1;Q.fz=0;Q.mp=[400 520];Q.msg='Catch bugs! Avoid wasps';
Q.bt=nan(6,1);Q.bv=zeros(6,1);Q.vl=ones(6,1);Q.bl=zeros(6,1);Q.by=ones(6,1);
Q.S=A(-[0;cumsum(Q.FR(1:17))]/1200);Q.FV=zeros(18,2);df();Q.LH=tg();
end
function df()
global Q
S=Q.S;F=Q.FV;
for k=2:18
d=S(k,:)-S(k-1,:);F(k,:)=d/max(norm(d),1e-3);S(k,:)=S(k-1,:)+F(k,:)*Q.FR(k-1);
end
F(1,:)=F(2,:);Q.S=S;Q.FV=F;
end
function T=tg()
global Q
s=[3 3 6 6];n=[Q.FV(s,2) -Q.FV(s,1)];T=Q.S(s,:)+[1;-1;1;-1].*n.*Q.BR(s)'.*[4;4;2;2];
end
function B=bp()
global Q
B=A(Q.bt)+[0*Q.bt (Q.by==2).*14.*sin(5*Q.tm+9*Q.bt)];
end
function S=step(S,dt,p)
global Q
dt=min(dt,.05);Q.tm=Q.tm+dt;go=p&&Q.tm-Q.lc>.2;if go,Q.lc=Q.tm;end
if Q.J==2
if go&&Q.tm-Q.go>.8,rs();end
return
end
Q.t=Q.t+dt*Q.sp/(817*sqrt(cospi(Q.t)^2+4*cospi(2*Q.t)^2));
Q.S(1,:)=A(Q.t);df();
T=tg();H=vecnorm(Q.LH-Q.S([4 4 7 7],:),2,2)<62;T(H,:)=Q.LH(H,:);Q.LH=T;
Q.tl=Q.tl-dt;Q.cd=Q.cd-dt;Q.tg=max(Q.tg-dt,0);Q.ft=Q.ft-dt;Q.fz=Q.fz-dt;Q.ns=Q.ns-dt;Q.sp=min(320+10*Q.n,560);
d=Q.bt-Q.t;Q.vl=Q.bv+.07*((Q.by~=3)&d>0&d<.3);Q.bt=Q.bt+Q.vl*dt;Q.bl=Q.bl-dt;Q.bt(Q.bl<=0)=NaN;
if Q.ns<0
i=find(isnan(Q.bt),1);r=rand;y=1+(r>=.45)+(r>=.72)+(r>=.92);v=[.004 .07 .025 .03];
if ~isempty(i),Q.by(i)=y;Q.bt(i)=Q.t+.2+.3*rand;Q.bv(i)=v(y)*sign(rand-.5);Q.bl(i)=7;end
Q.ns=max(.3,.9-.03*Q.n);
end
if go&&Q.cd<=0
B=bp();h=-Q.FV(2,:);d=B-Q.S(1,:);r=vecnorm(d,2,2);r(~(r>10&r<220+90*(Q.fz>0)&d*h'./r>.82))=Inf;[m,i]=min(r);Q.tg=.3;Q.cd=.6*(Q.fz<=0);Q.ft=.9;Q.mp=Q.S(1,:)+h*120;
if isinf(m),Q.cb=0;Q.msg='MISS';
elseif Q.by(i)==3,Q.cb=0;Q.lv=Q.lv-1;Q.msg='STUNG!';Q.mp=B(i,:);Q.bt(i)=NaN;
else
P=[1 3 0 5];k=P(Q.by(i))*(1+floor(Q.cb/3))*(1+(Q.fz>0));Q.tl=min(Q.tl+1,45);Q.sc=Q.sc+k;Q.cb=Q.cb+1;Q.n=Q.n+1;Q.msg=sprintf('+%d',k);Q.mp=B(i,:);Q.bt(i)=NaN;Q.cd=.2*(Q.fz<=0);
if Q.by(i)==4,Q.fz=6;Q.msg='FRENZY! +5';end
if mod(Q.cb,8)==0,Q.lv=min(Q.lv+1,5);Q.msg='+1 LIFE';end
end
end
if Q.tl<=0||Q.lv<=0
Q.J=2;Q.go=Q.tm;Q.hi=max(Q.hi,Q.sc);Q.msg=sprintf('GAME OVER  Score %d\nclick to replay',Q.sc);Q.ft=99;
end
end
function V=IK(A,D,s)
X=D-A;c=min(max((norm(X)^2-2000)/1600,-1),1);q=s*acos(c);r=atan2(X(2),X(1))-atan2(20*sin(q),40+20*cos(q));P=40*[cos(r) sin(r)];
V=[A;A+P;A+P+20*[cos(r+q) sin(r+q)]];
end
function draw(~,~)
global Q
S=Q.S;F=Q.FV;V=[];D=[-1;1;1;-1];s4=[4 4 7 7];h=-F(2,:);
for j=1:4,V=[V;NaN NaN;IK(S(s4(j),:),Q.LH(j,:),D(j))];end
set(Q.lg,'XData',V(:,1),'YData',V(:,2));set(Q.fo,'XData',V(4:4:end,1),'YData',V(4:4:end,2));
x=interp1(1:18,S(:,1),Q.u)';y=interp1(1:18,S(:,2),Q.u)';
set(Q.sh,'XData',x+8,'YData',y-10);set(Q.bo,'XData',x,'YData',y);set(Q.bd,'XData',x,'YData',y,'CData',[.14 .4 .12]+(Q.fz>0)*[.8 .45 -.05]);
E=S(2,:)+[1;-1].*[F(2,2) -F(2,1)]*12;E=[E;E+h*3];set(Q.ey,'XData',E(:,1),'YData',E(:,2));
o=S(1,:)+h*8;e=o+h*230*sin(pi*(1-Q.tg/.3));if Q.tg<=0,e=[NaN NaN];end
set(Q.tn,'XData',[o(1) e(1)],'YData',[o(2) e(2)]);set(Q.tp,'XData',e(1),'YData',e(2));
B=bp();ty=Q.by;t=A(Q.bt+.01)-A(Q.bt);hd=t./vecnorm(t,2,2).*sign(Q.vl+1e-9);nn=[-hd(:,2) hd(:,1)];
C=[.25 .15 .1 .3 .18 .12 .4 .24 .15;.15 .15 .2 .2 .3 .5 .15 .4 .6;.1 .1 .1 .95 .7 .05 .98 .85 .1;.1 .3 .15 .1 .6 .4 .2 .85 .5];
Z=[70 120 220;60 100 170;70 110 200;90 180 300];Cd=zeros(18,3);Sz=zeros(18,1);
for j=1:3,i=6*j-5:6*j;Cd(i,:)=C(ty,3*j-2:3*j);Sz(i)=Z(ty,j);end
P=[B+hd*14;B;B-hd*16];w=repmat(ty>1,2,1);W=[B+nn*10-hd*4;B-nn*10-hd*4];W(~w,:)=NaN;xs=[];ys=[];
for j=-1:1,for s=[-1 1],a=B+hd*j*7;b=a+nn*s*22+hd*(j*9+4*sin(12*Q.tm+3*j+s));xs=[xs a(:,1) b(:,1) NaN(6,1)];ys=[ys a(:,2) b(:,2) NaN(6,1)];end,end
set(Q.bs,'XData',B(:,1)+7,'YData',B(:,2)-12);set(Q.lb,'XData',reshape(xs',[],1),'YData',reshape(ys',[],1));
set(Q.bg,'XData',P(:,1),'YData',P(:,2),'CData',Cd,'SizeData',Sz);set(Q.hl,'XData',P(:,1)-3,'YData',P(:,2)+4,'SizeData',Sz*.18);
set(Q.wg,'XData',W(:,1),'YData',W(:,2),'SizeData',130*(1+.3*sin(35*Q.tm)));
set(Q.ai,'XData',S(1,1)+[0 230*h(1)],'YData',S(1,2)+[0 230*h(2)]);
set(Q.Hu,'String',sprintf('Score %d  Best %d  Time %d  Lives %d  Combo x%d',Q.sc,Q.hi,ceil(max(Q.tl,0)),Q.lv,Q.cb));
m=Q.msg;if Q.ft<=0,m='';end
p=Q.mp+[0 28*(1-min(Q.ft,.9)/.9)];if Q.J==2,p=[400 315];end
set(Q.Hm,'String',m,'Position',[p 0]);
end
Play Game
Preview

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