Matlamb Escape!

Anirudh
/
Matlamb Escape!
about 2 hours ago
0
13
2
0
9998
game.m
function g=game
g.init=@I;g.update=@U;g.render=@R;
end
function s=I(a)
a.XLim=[0 800];a.YLim=[0 600];a.YDir='reverse';a.Color=[.15 .23 .31];
s.O=0;s=Z(s);c=800*(0:9)'+[190 400 650];c(4,2)=NaN;s.V=c(~isnan(c))';
s.nm=strsplit('FIELD WATCH DOGS FOG LIGHT CHASE MUD WIND BARK GATE');
s.B={'Tap: walk/stop','Look-backs','Fast dogs','Fog: short sight','Two-way sight','Fast pursuit','Mud slows you','Wind pushes sheep','Bark alerts','Steps ring bell'};
p=reshape(sscanf('faf5de2e3340de6347527a9ce8ad73476e5c7a9e6efcc25c7347455e8a6ea39e75bfb082a359522b474fd4bf8f','%2x'),3,[])'/255;
m=[0 460 8000 140 6;0 460 8000 48 11;0 460 8000 7 12;25 330 145 130 13;50 310 95 20 9;5 328 185 9 9;74 391 47 69 2;7950 370 12 90 15];
m=[m;A([0 399 7 61 15;0 415 60 5 15],200:60:7960);A([0 535 60 18 9;10 526 10 16 8;8 521 15 6 7;37 526 10 16 8;35 521 15 6 7],320:180:7960);A([-58 431 116 29 6;-44 418 88 42 10;-24 410 48 50 10;-35 422 24 5 7],s.V)];
m=[A([30 250 14 210 9;0 210 74 75 6;12 191 50 20 6],(1:63)*130-90);m;5080 463 165 14 7;5380 463 115 14 7;(5700:80:6320)' repmat([480 34 5 15],8,1)];
s.bg=P(a,m,p);s.bx=s.bg.XData;
s.lt=P(a,[-247 415 494 95 8],p);s.lt.FaceAlpha=.2;
w=reshape('00011111100000001111111100000111111111122011111111112222111111111122121111111111222201111111112220001111111133000002111122000000022000220000',14,[])';
f=reshape('000888888000008888888800008999999800888888888888005555555000005555525500005555555550005555555000000055500000003344333000033344333300053344443500053348443500054444444500054444444500004444444000004444444000004440444000002220222000022220222200',12,[])';
d=reshape('0000000000999900000000000099555500990000000995525000990055559955552200995555599551122000555555995111100005555555333300000055555555550000000055555555000000000550005500000000001100011000000',17,[])';
s.u=cell(1,3);s.v=s.u;s.h=gobjects(1,21);sp={w f d};
for k=1:21
j=1+(k>1)+(k>11);m=sp{j};[y,x]=find(m~='0');
r=[3*(x-size(m,2)/2) 3*(y-size(m,1)) 3*ones(numel(x),2) double(m(m~='0'))-48];
s.h(k)=P(a,r,p);s.u{j}=s.h(k).XData;s.v{j}=s.h(k).YData;
end
s.lf=P(a,A([-58 451 116 15 6;-44 445 88 15 10;20 441 23 15 7],s.V),p);s.lx=s.lf.XData;
s.fr=copyobj(s.h(1),a);uistack(s.h(2:21),'top');
s.b=T(a,0,0,'',11);s.e=T(a,0,0,'',11);
s.tg=T(a,0,0,'HIDDEN',11);
s.hd=T(a,20,23,'',17);s.in=T(a,20,55,'',11);
P(a,[555 45 220 9 6],p);s.br=P(a,[555 45 1 9 3],p);
s.hp=T(a,20,580,'',12);
s.ms=T(a,400,310,'',16);s.ms.HorizontalAlignment='center';R([],s);
end
function h=P(a,m,p)
x=m(:,1)'+[0;1;1;0]*m(:,3)';y=m(:,2)'+[0;0;1;1]*m(:,4)';
h=patch(a,x,y,reshape(p(m(:,5),:),1,[],3),'EdgeColor','none','HitTest','off','PickableParts','none');
end
function h=T(a,x,y,t,n)
h=text(a,x,y,t,'FontSize',n,'FontName','Consolas','Color',[.98 .96 .87],'BackgroundColor',[.15 .23 .31],'Margin',4,'Interpreter','none','HitTest','off','PickableParts','none');
end
function s=Z(s)
b=800*(0:9);
n=strsplit('m t G C a lk q Q I T U E A H');
for j=1:numel(n),s.(n{j})=0;end
s.x=90;
s.F=b+500;s.J=-ones(1,10);s.D=s.J;
s.lo=b+110;s.hi=b+740;
s.N=2.5+2*rand(1,10);s.N(2)=1.4;s.K=false(1,10);
s.X=b;s.Z=.7*ones(1,10);
s.S=false(1,10);
n=strsplit('W M Y L');for j=1:numel(n),s.(n{j})=zeros(1,10);end
s.R='';
end
function s=U(s,dt,p)
if s.m~=1
s.lk=max(0,s.lk-dt);
if p && s.lk==0
c=0;if s.m==2,c=s.Q;end
s=Z(s);s.m=1;s.x=max(90,c+90);s.C=max(0,s.x-250);s.Q=c;
end
return
end
s.t=s.t+dt;
if p,s.G=~s.G;end
z=min(10,1+floor(s.x/800));o=mod(s.x,800);
s.U=z==7 && ((o>=280 && o<=445) || (o>=580 && o<=695));
w=mod(s.t,8);s.T=(z==8)*((w<2)-(w>=4&w<6));v0=95-33*s.U;
s.x=max(0,min(7900,s.x+dt*((v0+55*s.T)*s.G+18*s.T*(~s.G))));
s.H=~s.G && (s.x<140 || min(abs(s.x-s.V))<=38);
if s.G || s.T~=0,s.C=s.C+(min(7200,max(0,s.x-250))-s.C)*(1-exp(-8*dt));end
z=min(10,1+floor(s.x/800));
s.I=mod(s.t,7)<2.7;s.E=z==10 && mod(s.x,800)>610 && s.G;
k=1:10;v=50+5*min(3,floor((k-1)/3));
s.L=s.L&~s.H;s.W=max(0,s.W-dt);s.N=s.N-dt;
r=s.N<=0&~s.L;s.W(r)=.95;s.K(r)=true;
s.N(r)=3.45+2*rand(1,sum(r))-(k(r)==2)*1.6;
s.K=s.K&s.W>0;s.D=s.J.*(1-2*s.K);
f=sign(s.x-s.F);r=s.L&f~=0&(f==s.D|abs(s.x-s.F)>60);s.D(r)=f(r);s.J(s.L)=s.D(s.L);
s.F=min(s.hi,max(s.lo,s.F+s.D.*v.*(1+.75*(k==6&s.L))*dt.*(s.W==0|s.L)));
r=(s.F==s.lo|s.F==s.hi)&s.W==0&~s.L;
s.J(r)=-s.J(r);s.D(r)=s.J(r);s.W(r)=.7;s.K(r)=false;
d0=235+12*min(3,floor((k-1)/3));d0(4)=175;
s.Y=~s.H&(z==k|s.L)&abs(s.x-s.F)<d0&((s.x-s.F).*s.D>0|(k==5&s.I));
s.L(s.Y)=true;s.W(s.Y)=0;s.K(s.Y)=false;
b=800*(k-1);r=s.x>=b;
q=r&s.Z>0;s.Z(q)=max(0,s.Z(q)-dt);r=r&~q;
v=65+5*min(3,floor((k-1)/3));v(3)=95;
s.X(r)=min(min(s.x,b(r)+800),s.X(r)+v(r)*dt);
s.S=s.H&s.x>140&z==k&abs(s.X-s.x)<80;
s.M=max(0,min(4,s.M+dt*(2.3*s.S-1.5)));
s.A=z==9 && s.G && abs(s.X(9)-s.x)<110;
for k=find([s.A s.E])+8
s.L(k)=true;f=sign(s.x-s.F(k));if f~=0,s.D(k)=f;end
end
s.a=max(0,min(100,s.a+dt*(any(s.Y)*(30+2.5*min(3,floor((z-1)/3)))-32*(~any(s.Y)))));
s.Q=max(s.Q,2400*min(2,floor((z-1)/3)));
s.q=floor(s.x-90);
if s.a>=100,s.m=2;s.R='Farmer saw you';end
if any(s.M>=4),s.m=2;s.R='Dog found you';end
if s.x>=7900 && s.m==1
s.m=3;s.q=s.q+max(100,1900-floor(9*s.t));end
s.O=max(s.O,s.q);if s.m~=1,s.lk=.5;end
end
function R(~,s)
s.bg.XData=s.bx-s.C;
s.lf.XData=s.lx-s.C;
x=[s.x s.F s.X]-s.C;
s.lt.XData=s.F(5)-s.C+[-247;247;247;-247];s.lt.Visible=V(s.I);
z=[1-.35*s.H ones(1,10) 1-.2*s.S];
f=[1 s.D ones(1,10)];y=[457 480*ones(1,10) 496*ones(1,10)];
bob=[2*sin(s.t*14)*s.G 2*sin(s.t*10)*(s.W==0) sin(s.t*14)*ones(1,10)];
for k=1:21
j=1+(k>1)+(k>11);
s.h(k).XData=x(k)+f(k)*s.u{j};s.h(k).YData=y(k)+z(k)*s.v{j}+bob(k);
end
s.fr.XData=s.h(1).XData;s.fr.YData=s.h(1).YData;
s.fr.Visible=V(~s.H);s.h(1).Visible=V(s.H);
z=min(10,1+floor(s.x/800));k=z;
if any(s.Y),k=find(s.Y,1);end
b={'','Turning','Look-back','Watching','I see you','Lantern on','Gate bell'};
i=1+(s.W(k)>0)+s.K(k);if s.L(k),i=4;end
if s.Y(k),i=5;end
if k==5&&s.I&&~s.Y(k),i=6;end
if k==10&&s.E,i=7;end
Q(s.b,x(k+1)-36,390,b{i});
k=z;e={'','sniff...','A trail','WOOF','BARK'};
i=1+s.S(k)+(s.M(k)>1.6)+(s.M(k)>2.5);if s.A,i=5;end
Q(s.e,x(k+11)-30,443,e{i});
s.tg.Position=[x(1)-22 403 0];s.tg.Visible=V(s.H);
s.br.XData=555+[0;1;1;0]*max(1,2.2*s.a);
z=min(10,1+floor(s.x/800));
s.hd.String=sprintf('MATLAMB    SCORE %04d',s.q);
s.in.String=sprintf('%d/10 %s  DOG %.0f%%  ALERT',z,s.nm{z},25*s.M(z));
t={'WALKING','STOPPED','HIDDEN'};i=1+~s.G+s.H;
s.hp.String=sprintf('%s | %s',t{i},s.B{z});
if z==8,s.hp.String=sprintf('WIND %+d | %s',s.T,s.B{8});end
s.ms.Visible=V(s.m~=1);
s.ms.String=sprintf('MATLAMB\nTap: walk/stop. Bushes hide.\nDogs track. Every Farm is unique.\nSaves: farms 3/6.\nTAP TO BEGIN');
if s.m==2,s.ms.String=sprintf('CAUGHT\n%s\nScore %d / Best %d\nTAP: FARM %d',s.R,s.q,s.O,1+s.Q/800);end
if s.m==3,s.ms.String=sprintf('FREE\nScore %d / Best %d\nTAP TO REPLAY',s.q,s.O);end
end
function t=V(b)
if b,t='on';else,t='off';end
end
  
function Q(h,x,y,t)
h.Position=[x y 0];h.String=t;h.Visible=V(~isempty(t));
end

function m=A(m,x)
n=size(m,1);m=repmat(m,numel(x),1);m(:,1)=m(:,1)+repelem(x(:),n);
end
Play Game
Preview

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