SNAKE vs RAT (THE GREAT CHASE!)

KARUPPASAMYPANDIYAN M
/
SNAKE vs RAT (THE GREAT CHASE!)
on 7 Nov 2026
2
21
6
1
9703
game.m
function g=game
g.init=@IS;g.update=@US;g.render=@RF;
end
function s=IS(ax)
ax.XLim=[0 800];ax.YLim=[0 600];ax.Color=[.045 .06 .1];ax.YDir='normal';
s.d=[0 1;-1 0;0 -1;1 0];s.sp=[.09 .055 .042];s.nm={'NORMAL +1','MEDIUM +2','HIGH +3'};s.se=1;s.bs=0;
n={'HitTest','off','PickableParts','none'};hn=[{'HorizontalAlignment','center'},n];
h0=plot(ax,NaN,NaN,'Visible','off','UserData',0,n{:});s.h0=h0;
s=RG(s);
ax.XTick=0:50:800;ax.YTick=0:50:550;ax.XTickLabel={};ax.YTickLabel={};ax.XGrid='on';ax.YGrid='on';ax.GridColor=[.4 .6 .8];ax.GridAlpha=.12;
rectangle(ax,'Position',[0 0 800 550],'EdgeColor',[.1 .75 .85],'LineWidth',3,n{:});
M=70;t=linspace(0,1,M)';s.M=M;s.hw=2+12*(1-t).^ .8.*min(1,.55+3*t);
b=(1-t)*[.38 .82 .32]+t*[.12 .45 .2];e=b*.55;i=(1:M-1)';
s.tg=LN(ax,[1 .2 .25],2,n);
s.bd=patch(ax,'Vertices',zeros(3*M,2),'Faces',[i i+1 M+i+1 M+i;M+i M+i+1 2*M+i+1 2*M+i],'FaceVertexCData',[e;min(b*1.15,1);e],'FaceColor','interp','EdgeColor','none',n{:});
s.ol=LN(ax,[.05 .25 .1],1.5,n);
s.si=round(linspace(6,52,10));s.sps=mk(ax,n,'d',8,[.08 .3 .15],'none');
a=linspace(0,2*pi,40)';s.hu=19*cos(a)+4;s.hv=14*sin(a).*(.5+.5*(1-cos(a))/2);
c=linspace(0,2*pi,20)';s.cu=cos(c);s.cv=sin(c);
s.hd=PT(ax,a*0,[.42 .86 .34],[.05 .25 .1],1.5,n);
s.ew=mk(ax,n,'o',9,[1 .9 .3],[.1 .3 .1]);s.ep=mk(ax,n,'o',4,'k','k');
r.tl=LN(ax,[.95 .48 .52],3,n);
fc=[.85 .55 .42;.85 .55 .42;.65 .38 .2;.95 .5 .62;.95 .5 .62;.78 .49 .29;.02 .02 .02;1 .2 .38];
ec={'none','none',[.32 .16 .08],[.55 .25 .3],[.55 .25 .3],[.35 .18 .08],'none','none'};r.h=gobjects(1,8);
for k=1:8
r.h(k)=PT(ax,c*0,fc(k,:),ec{k},1.2,n);
end
r.w=LN(ax,[.95 .88 .78],1.2,n);s.rat=r;
s.rE=[-9.5 -10 4.5 3;8.5 -10 4.5 3;-4.5 1.5 15.5 10.5;8 14 6 7;18.5 10 4.5 6;12.5 3 10.5 10;19.5 6.5 2.5 2.5;23.5 -.5 2.5 2.5];
rectangle(ax,'Position',[2 551 796 47],'FaceColor',[.07 .12 .2],'EdgeColor',[.1 .7 .85],'LineWidth',2,n{:});
s.hud=TX(ax,15,575,'',[.3 1 .8],12,n{:});
s.ti=TX(ax,400,465,'SNAKE vs RAT',[.3 1 .75],30,hn{:});
s.sub=TX(ax,400,425,'THE GREAT CHASE!',[1 .75 .25],17,hn{:});
s.bt=gobjects(1,3);
for k=1:3
s.bt(k)=TX(ax,390+105*(k-1),575,s.nm{k},'w',9,'HorizontalAlignment','center','EdgeColor',[.3 1 .8],'Margin',5,'ButtonDownFcn',@(~,~)set(h0,'UserData',k));
end
s.ins=TX(ax,400,330,sprintf('HOW TO PLAY\n\nSELECT A SPEED TO START\nSNAKE MOVES AUTOMATICALLY\nTAP ONCE TO TURN CLOCKWISE\nCATCH THE RAT TO EARN POINTS\nAVOID WALLS AND YOUR OWN BODY\n\nCHANGE SPEED ANYTIME USING THE TOP BUTTONS'),[.85 .93 1],13,hn{:});
s.ov=TX(ax,400,275,'',[1 .4 .4],22,hn{:},'BackgroundColor',[.08 .09 .15],'Margin',10);
end
function h=mk(ax,n,m,ms,fc,ec)
h=plot(ax,NaN,NaN,m,'MarkerSize',ms,'MarkerFaceColor',fc,'MarkerEdgeColor',ec,'LineStyle','none',n{:});
end
function h=LN(ax,c,w,n)
h=plot(ax,NaN,NaN,'Color',c,'LineWidth',w,n{:});
end
function h=PT(ax,z,fc,ec,w,n)
h=patch(ax,'XData',z,'YData',z,'FaceColor',fc,'EdgeColor',ec,'LineWidth',w,n{:});
end
function h=TX(ax,x,y,t,c,f,varargin)
h=text(ax,x,y,t,'Color',c,'FontSize',f,'FontWeight','bold',varargin{:});
end
function v=OF(b)
v='off';if b,v='on';end
end
function a=AN(s)
a=atan2(s.d(s.rd,1),s.d(s.rd,2));
end
function s=US(s,dt,p)
k=s.h0.UserData;
if k>0
s.h0.UserData=0;s.se=k;s.st=s.sp(k);s.rs=3*s.st;s.mn=0;s.q=0;p=0;
end
if s.go
s.ot=s.ot+dt;
if p&&s.ot>.8,s=RG(s);end
return;
end
if s.mn,return;end
s.q=min(s.q+p,2);s.ac=s.ac+dt;
while s.ac>=s.st
s.ac=s.ac-s.st;s=SS(s);
if s.go,return;end
end
s.rt=s.rt+dt;
if s.rt>=s.rs,s=MR(s);end
end
function s=SS(s)
if s.q>0,s.dr=mod(s.dr,4)+1;s.q=s.q-1;end
nh=s.sn(1,:)+s.d(s.dr,:);a=all(nh==s.fd);l=size(s.sn,1)-~a;
if any(nh<1)||nh(1)>11||nh(2)>16||any(all(s.sn(1:l,:)==nh,2))
s.go=1;s.ot=0;return;
end
s.sn=[nh;s.sn];
if a
s.sc=s.sc+s.se;s.bs=max(s.bs,s.sc);s=PF(s);
else
s.sn(end,:)=[];
end
end
function s=MR(s)
s.rp=s.fd;s.rt=0;s.pa=AN(s);o=[0 1 3];
if rand<.5,o=[0 3 1];end
if rand<.12,o=o([2 1 3]);end
for m=[o 2]
k=mod(s.rd+m-1,4)+1;c=s.fd+s.d(k,:);
if ~(any(c<1)||c(1)>11||c(2)>16||any(all(s.sn==c,2)))
s.rd=k;s.fd=c;break;
end
end
end
function s=PF(s)
o=false(11,16);o(sub2ind([11 16],s.sn(:,1),s.sn(:,2)))=true;f=find(~o);
if isempty(f),s.go=1;s.ot=0;return;end
[a,b]=ind2sub([11 16],f(randi(numel(f))));s.fd=[a b];s.rp=s.fd;s.rt=0;s.rd=randi(4);s.pa=AN(s);
end
function s=RG(s)
s.sn=[6 4;6 3;6 2];s.dr=1;s.q=0;s.ac=0;s.sc=0;s.go=0;s.ot=0;s.mn=1;s.st=s.sp(s.se);s.rs=3*s.st;s=PF(s);
end
function RF(~,s)
RS(s);RR(s);s.hud.String=sprintf('SCORE: %d | BEST: %d',s.sc,s.bs);
for k=1:3,a=k==s.se;set(s.bt(k),'BackgroundColor',[.1 .3 .45]+a*[-.05 .25 -.2],'Color',[1 1 1]-a*[0 0 .7]);end
set([s.ins s.ti s.sub],'Visible',OF(s.mn));
s.ov.Visible=OF(s.go);s.ov.String=sprintf('GAME OVER\nSCORE: %d   BEST: %d\n\nTAP to continue',s.sc,s.bs);
end
function RS(s)
M=s.M;n=size(s.sn,1);d=s.d(s.dr,:);v=[d(2) d(1)];C=(fliplr(s.sn)-.5)*50;t=0;
if ~s.go&&~s.mn,t=min(max(s.ac/s.st,0),.98);end
P=[C(1,:)+t*50*v;C];
if ~all(s.sn(1,:)+d==s.fd)&&n>=2,P(end,:)=C(end,:)+t*(C(end-1,:)-C(end,:));end
for k=1:3
A=P(1:end-1,:);B=P(2:end,:);S=zeros(2*size(A,1),2);S(1:2:end,:)=.75*A+.25*B;S(2:2:end,:)=.25*A+.75*B;P=[P(1,:);S;P(end,:)];
end
sg=sqrt(sum(diff(P).^2,2));kp=[true;sg>1e-6];P=P(kp,:);sc=[0;cumsum(sg(kp(2:end)))];u=linspace(0,sc(end),M)';
X=interp1(sc,P(:,1),u);Y=interp1(sc,P(:,2),u);dx=gradient(X);dy=gradient(Y);q=hypot(dx,dy)+1e-9;tx=dx./q;ty=dy./q;w=s.hw;
Lx=X-ty.*w;Ly=Y+tx.*w;Rx=X+ty.*w;Ry=Y-tx.*w;s.bd.Vertices=[Lx Ly;X Y;Rx Ry];
h=[-tx(1) -ty(1)];hp=[-h(2) h(1)];F=@(x,y)deal(X(1)+x*h(1)+y*hp(1),Y(1)+x*h(2)+y*hp(2));
[a,b]=F(s.hu,s.hv);s.hd.XData=a;s.hd.YData=b;
ph=mod(now*86400,1.6);e=(ph<.45)*sin(pi*ph/.45)*~s.go;
a=19+[12;18]*e;lu=[19;a;NaN;a];lv=[0;0;5*e;NaN;0;-5*e];
s.ol.XData=[Lx;NaN;Rx];s.ol.YData=[Ly;NaN;Ry];s.sps.XData=X(s.si)';s.sps.YData=Y(s.si)';
[a,b]=F(lu,lv);s.tg.XData=a;s.tg.YData=b;
ev=[7;-7];[a,b]=F(6,ev);s.ew.XData=a;s.ew.YData=b;[a,b]=F(7.5,ev);s.ep.XData=a;s.ep.YData=b;
end
function RR(s)
r=s.rat;set([r.tl r.h r.w],'Visible',OF(~s.go));if s.go,return;end
u=min(s.rt/s.rs,1);p=s.rp+u*(s.fd-s.rp);
a=s.pa+(mod(AN(s)-s.pa+pi,2*pi)-pi)*min(3*u,1);
m=cos(a)<-1e-6;if m,a=a-pi;end
co=cos(a);si=sin(a);k=1-2*m;cx=(p(2)-.5)*50;cy=(p(1)-.5)*50;
T=@(x,y)deal(cx+k*x*co-y*si,cy+k*x*si+y*co);
for j=1:8
e=s.rE(j,:);[X,Y]=T(e(1)+e(3)*s.cu,e(2)+e(4)*s.cv);r.h(j).XData=X;r.h(j).YData=Y;
end
[X,Y]=T([-18 -26 -33 -36],[0 4 1 -6]);r.tl.XData=X;r.tl.YData=Y;
[X,Y]=T([18 25 NaN 18 25 NaN 18 24],[0 5 NaN -2 -2 NaN -4 -8]);r.w.XData=X;r.w.YData=Y;
end
Play Game
Preview

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