Purrfect Fit

孙
/
Purrfect Fit
about 23 hours ago
1
7
2
1
8933
game.m
% Purrfect Fit: tap to stop; tap again to retry. Art is embedded.
% Author: SunHuilin
function g=game()
g.init=@I;
g.update=@U;
g.render=@R;
end
function s=I(ax)
ax.XLim=[0 800]; ax.YLim=[0 600]; ax.YDir='reverse';
ax.Color=[1 .96 .91]; ax.SortMethod='childorder';
s.i=[.27 .20 .28];
s.f=[1 .76 .48];
s.b=repmat(reshape([1 .96 .91],1,1,3),150,200);
s.b=B(s.b,22,30,160,97,[.91 .84 .83]);
s.b=B(s.b,19,27,162,98,s.i);
s.b=B(s.b,20,28,160,96,[1 .91 .85]);
s.b=B(s.b,22,30,156,92,[1 .94 .88]);
s.b=B(s.b,82,119,43,2,[.95 .86 .73]);
s.b=P(s.b,'ŕŜųŜųŤŹŤŹŴŏŴŏŤŕŤ',[],s.i);
s.b=B(s.b,86,98,28,16,s.f);
s.b=B(s.b,81,103,38,11,s.f);
s.b=P(s.b,'ŞŤũŤũŧūŧūŬŨŬŨŰŠŰŠŭŝŭŝŧŞŧ',[],[1 .89 .70]);
for x=[83 113]
 s.b=B(s.b,x,104,3,7,[.94 .66 .40]);
 s.b=B(s.b,x+3,108,1,4,[.87 .49 .30]);
end
for x=[79 103]
 s.b=B(s.b,x,112,18,6,s.i);
 s.b=B(s.b,x+2,112,14,4,[1 .85 .63]);
 s.b=B(s.b,x+3,112,11,1,[1 .91 .76]);
end
for x=[85 90 109 114]
 s.b=B(s.b,x,114,1,2,[.78 .49 .36]);
end
s.b=P(s.b,'ľńŃńŃĬňĬňĮōĮōĳŖĸŲĸŻĳŻĮƀĮƀĬƅĬƅńƊńƊŗƅŗƅşŽşŽŤŋŤŋşŃşŃŗľŗ',[],s.i);
s.b=P(s.b,'ŀņŅņŅİŊİŔĺŴĺžİƃİƃņƈņƈŕƃŕƃŝŻŝŻŢōŢōŝŅŝŅŕŀŕ',[],s.f);
s.b=P(s.b,'ňĳňĿŐĻ',[],[.95 .53 .56]);
s.b=P(s.b,'ƀĳƀĿŸĻ',[],[.95 .53 .56]);
for x=[93 99 105]
 s.b=B(s.b,x,58,3,7,[.87 .49 .30]);
end
c=[.99 .60 .53;1 .89 .70;s.i];
for p=reshape(double('ŅŖĊĄāŹŖĊĄāŗŘĚćĂśŝĒĄĂšŘĆĂăţŚĂăăŞŝąĂăťŝąĂăĹŕĉāăĺŚĉāăƆŕĉāăƅŚĉāă')-256,5,[])
 s.b=B(s.b,p(1),p(2),p(3),p(4),c(p(5),:));
end
[s.e,s.r]=E(s.f,s.i);
s.x=reshape(double('ĔĪĪĀĜľĜĘĐľĄĈĐĐľĄĈĐĠľĀĈĈĜſĜĈĈľŁŝŕŗŀĿļłĂČĈĀĈĶſſľĜĈĀĎĊĈĈĸĸĐ')-256,7,8);
s.c=[.91 .46 .54;.94 .64 .21;.65 .53 .76;.93 .70 .25; ...
 .88 .53 .31;.36 .66 .64;.91 .38 .52;.42 .68 .49];
s.w={'Who ordered this much cute?','Those eyes? Instant cuddles.','Okay, you win. One more treat!'; ...
 'Tiny paws. Big boss energy.','Rawr! Did I scare you?','Your sofa has a new ruler.'; ...
 'Five more minutes, human.','Wake me when snacks arrive.','Shh... dreaming of tuna.'; ...
 'Did someone wish for a kitty?','Sparkles? I woke up like this.','One purr. A little magic.'; ...
 'Are we sure these are mine?','Oops. Still cute though!','Who put my eyes on shuffle?'; ...
 'Wait... was that a snack?','What is behind that door?','Nine lives. So many questions!'; ...
 'You had me at meow.','My heart goes purr for you.','Can I keep you, human?'; ...
 'Best. Day. Ever!','More of this, please!','Look! My whole face is smiling.'};
s.l={'Almost! Kitty believes in you.','Oops! Let''s blame the whiskers.', ...
 'Deep breath. Find your purr.','Close! Give those paws a retry.', ...
 'No rush. Nine lives, remember?','One more tap? I''ll cheer you on.'};
s.t=0;
s=N(s);
n={'HitTest','off','PickableParts','none'};
s.b=T(s.b,[1 2 3 3 4 5 6 7 0 4 8 7],13,6,2,[.69 .36 .27]);
s.b=T(s.b,[9 5 10 11 0 11 12 13 7 14],140,10,1,[.55 .47 .42]);
s.h=repmat(any(s.b~=reshape([1 .94 .88],1,1,3),3),1,1,3);
s.g.c=image(ax,[2 798],[2 598],s.b,n{:});
t=[{'HorizontalAlignment','center','FontName','Menlo', ...
 'Interpreter','none'} n];
text(ax,400,138,'Tap or press SPACE to meet another kitty',t{:}, ...
 'FontSize',11,'Color',[.55 .44 .36]);
s.g.m=text(ax,400,554,'',t{:},'FontSize',21, ...
 'FontWeight','bold','Color',s.i);
R([],s);
end
function s=N(s)
s.o=randperm(8);
s.p=6 + 12*rand;
s.v=180;
s.m=0;
s.a=0;
s.k=1;
s.j=1;
end
function s=U(s,dt,p)
s.t=s.t + dt;
s.a=s.a + dt;
if s.m ~= 0
 if p && s.a >= .55
  s=N(s);
 end
 return
end
if p
 n=round(s.p/24);
 s.k=s.o(mod(n,8)+1);
 v=s.r(s.k,:)-floor(s.p+2.5)+24*n;
 s.a=0;
 if v(1)>=1 && v(2)<=19
  s.m=1;
  s.p=n*24;
  s.j=randi(3);
 else
  s.m=2;
  s.j=randi(numel(s.l));
 end
else
 s.p=mod(s.p + s.v*dt,192);
end
end
function R(~,s)
f=s.b;
d=3*sin(s.t*3);
f=L(f,'ŵŬƂŬƂšƋšƋŧƐŧƐűƉűƉŶŽŶŽųŵų',d,s.i);
f=L(f,'žŮƅŮƅťƈťƈŮƌŮƌŲžŲ',d,s.f);
f=L(f,'ƅŨƈŨƈũƅũ',d,[.87 .49 .30]);
f(s.h)=s.b(s.h);
b=[.55 .36 .26];
m='';
c=s.i;
if s.m == 1
 b=[.37 .61 .45];
 c=[.27 .47 .34];
 m=s.w{s.k,s.j};
 if s.a<.1
  b=[1 .97 .76];
  m='';
 end
 for j=1:4
  x=[46 148 51 149]; y=[65 64 92 96];
  yy=y(j)-min(4,floor(s.a*4))+round(sin(s.t*3+j));
  for r=1:7
   for q=1:7
    if bitget(s.x(r,s.k),8-q)
     f=B(f,x(j)+q-1,yy+r-1,1,1,s.c(s.k,:));
    end
   end
  end
 end
elseif s.m == 2
 b=[.76 .40 .48];
 c=[.58 .40 .29];
 m=s.l{s.j};
 f=P(f,'őŗŏśŏŞœŞœś',[],[.45 .72 .87]);
 f=P(f,'ŷŗŵśŵŞŹŞŹś',[],[.45 .72 .87]);
end
for r=1:19
 q=floor(s.p+r+1.5);
 k=s.o(mod(floor(q/24),8)+1);
 u=mod(q,24)+1;
 f(67+r,75:124,:)=s.e(u,:,:,k);
end
a=f;
for p=reshape(double('ōŃĕāōŗĕāōńāēšńāēŧŃĕāŧŗĕāŧńāēŻńāēŢŌąāńŌĉāżŌĉā')-256,4,[])
 f=B(f,p(1),p(2),p(3),p(4),b);
end
v=f~=a;
f(v)=.6*f(v)+.4*a(v);
if ~isempty(m)
 b=[.48 .66 .53];
 if s.m==2, b=[.76 .67 .56]; end
 f=P(f,'ĒƆĔƄşƄŤƀũƄƴƄƶƆƶƏƴƑĔƑĒƏ',[],b);
 f=B(f,20,134,160,9,[1 .99 .95]);
end
s.g.c.CData=f;
s.g.m.String=m;
s.g.m.Color=c;
end
function [b,r]=E(f,i)
% Each BMP char packs (palette-1)*26+run-1+256. Eyes decode to 16-by-13 pixels.
c=[f;i;1 .98 .87;.40 .68 .45;1 .90 .40;.88 .57 .46;.78 .47 .38; ...
 .67 .48 .76;1 .91 .48;1 .88 .49;.47 .66 .77;.91 .35 .48;.99 .60 .53;.68 .30 .40;1 .80 .84];
d={'ăģąģăěĽěāěĽěāěĶœĴěāěĶğĴěāěĴŎĠĴěāěĴŎĠĴěāěĴŕĴěāěĽěăģąģđ'; ...
 'ĜāĚĊěāĝćěĀěŨğăĞŬěăĝŭěĄĝŬěĄĥăĥăĝŮĚĄĜŭĜăĜŬĜĄģąĢă'; ...
 'ĂĜČğĉĜŨğąĜŬěĄĜŭěĄĝŬěĄĥăĥĂĜĀĚŮĚĂěāĚŭĜāěāĚŬĜĂěāġĂĜāĠă'; ...
 'ćěĈƜāƃěƂćƜāƃěƂćƜāƅěĆƜāƅěĆƜāƅěĆƜāƅěĆƜāƅěĆƜāƅěĆƜāƃěƂĊƃěƂČěĕ'; ...
 'ĄġąĝǐĠăĚƸǑƺĚăĚƸǒƹǐăĚƸǖĚăĚƸǕƶĚăĚǘƶĚăĚƸǕƶĚăĚƸǖĚăĚƸǒƹǐăĝǑğąěǐĞĒ'; ...
 'ĄġąĥăĠĶěăěĵĜĶěăěĵĜĶěăĠĶěăěĻěăěĻěăěĻěăěĻěăĥąġĒ'; ...
 'ĄġąĥăěĻěăěĻěăěĻěăěĶĠăěĶĠăěĶĠăěĶĠăěĻěăĥąġĒ'; ...
 'ăģăĨĀěǳĜĀěĶȉǪĜĀěĶĞȄǪĜĀěĶĞȄǪĜĀěǪȄğȄǪĜĀěǪȄğȄǪĜĀěǪȋǪĜĀěǳěāħăģđ'; ...
 'ăɔċɒȠɒĉɒȞɭȟɒĈɒȞɬȡɒćɒȤɒćɒȤɒćɒȤɒąɒȤɒąɒȤɒĆɒȣɒćɒȢɒĉɒȠɒċɔĈ'; ...
 'ćĝċĝĈĠāȹĄĝĄȹĂğĄȹĂĜćȹĂĜćȹĂğĄȹĄĝĄȹĄĠāȹćĝċĝē'};
h=[1 1;2 3;4 4;5 5;6 7;8 8;9 9;10 10];
b=zeros(24,50,3,8);
r=zeros(8,2);
for k=1:8
 a=repmat(reshape(f,1,1,3),24,50);
 for j=1:2
  z=double(d{h(k,j)})-256;
  v=repelem(floor(z/26)+1,mod(z,26)+1);
  x=7+(j-1)*26;
  a(4:19,x:x+12,:)=reshape(c(v,:),16,13,3);
 end
 b(:,:,:,k)=a;
 v=find(any(any(a~=reshape(f,1,1,3),3),2));
 r(k,:)=[min(v) max(v)];
end
end
function a=B(a,x,y,w,h,c)
for z=1:3
 a(y:y+h-1,x:x+w-1,z)=c(z);
end
end
function a=P(a,x,y,c)
if ischar(x)
 y=double(x)-256; x=y(1:2:end); y=y(2:2:end);
end
u=max(1,floor(min(x))):min(size(a,2),ceil(max(x)));
v=max(1,floor(min(y))):min(size(a,1),ceil(max(y)));
[xx,yy]=meshgrid(u,v);
m=inpolygon(xx,yy,x,y);
for z=1:3
 p=a(v,u,z);
 p(m)=c(z);
 a(v,u,z)=p;
end
end
function a=T(a,v,x,y,z,c)
% Four-by-seven pixel letters: PURFECTIMOWHA?. Zero is a space.
h=reshape(double('OJJOIIIJJJJJJGOJJOKJJPIIOIIIPIIOIIPHIIIIIHPGGGGGGPGGGGGPJPPJJJJGJJJJJGJJJJPPJJJJPJJJGJJPJJJGJBCEAE')-65,7,14);
for j=1:numel(v)
 for r=1:7
  for q=1:4
   if v(j)>0 && bitget(h(r,v(j)),5-q)
    a=B(a,x+(5*(j-1)+q-1)*z,y+(r-1)*z,z,z,c);
   end
  end
 end
end
end
function a=L(a,v,d,c)
v=double(v)-256;
y=v(2:2:end);
a=P(a,v(1:2:end)+round(d*(118-y)/21),y,c);
end
Play Game
Preview

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