Light Garden: One-Button Bloom

臻
/
Light Garden: One-Button Bloom
about 7 hours ago
0
1
0
0
9995
game.m
function g=game()
% One-button Light Garden.
g.init=@init; g.update=@step; g.render=@drawFrame;
end

function s=init(ax)
ax.YDir='reverse';
ax.Color=[0.91 0.95 0.91];
s.lv=1; s.v=0;
s=stage(s,1); s.md=0;
hp={'HitTest','off','PickableParts','none'};
h=struct(); xs=zeros(1,25); ys=xs;
h.mk=gobjects(5,5);
for c=1:5
    for r=1:5
        i=r+5*(c-1); [xs(i),ys(i)]=xy(r,c);
    end
end
h.c=scatter(ax,xs,ys,3000, ...
    [0.96 0.97 0.92],'s','filled', ...
    'MarkerEdgeColor',[0.80 0.86 0.81],hp{:});
h.gl=gobjects(1,7); h.r=gobjects(1,7);
for k=1:7
    h.gl(k)=line(ax,nan,nan,'LineWidth',12,hp{:});
    h.r(k)=line(ax,nan,nan,'LineWidth',3,hp{:});
end
h.mir=gobjects(1,6);
for k=1:6
    h.mir(k)=line(ax,nan,nan,'Color',[0.31 0.48 0.46], ...
        'LineWidth',5,hp{:});
end
for c=1:5
    for r=1:5
        [x,y]=xy(r,c);
        h.mk(r,c)=text(ax,x,y,'','HorizontalAlignment','center', ...
            'VerticalAlignment','middle', ...
            'FontSize',27,'Interpreter','none', ...
            'Color',[0.31 0.48 0.46],hp{:});
    end
end
h.pet=scatter(ax,nan(1,18),nan(1,18), ...
    100,[0.7 0.8 0.9], ...
    'filled','MarkerEdgeColor','none',hp{:});
h.t=scatter(ax,nan,nan,4600,'s', ...
    'MarkerEdgeColor',[0.86 0.42 0.26], ...
    'LineWidth',2.2,hp{:});
h.f=rectangle(ax,'Position',[0 0 76 76], ...
    'Curvature',0.14,'EdgeColor',[0.96 0.34 0.24], ...
    'LineWidth',4,'Visible','off',hp{:});
h.hd=text(ax,400,38,'LIGHT GARDEN', ...
    'HorizontalAlignment','center', ...
    'FontSize',25,'Color',[0.26 0.40 0.38],hp{:});
text(ax,400,590,'TAP AGAIN: SAME TILE  |  WAIT 1 SEC: NEXT TILE', ...
    'HorizontalAlignment','center','FontSize',13, ...
    'Color',[0.42 0.54 0.50],hp{:});
h.b=image(ax,[0 800],[0 600],ones(2,2,3), ...
    'Visible','off',hp{:});
h.o=text(ax,400,287,'', ...
    'HorizontalAlignment','center','FontSize',48, ...
    'FontWeight','bold','Color',[0.25 0.43 0.38],hp{:});
s.h=h;
end

function [x,y]=xy(r,c)
x=205+95*(c-1); y=136+95*(r-1);
end

function s=stage(s,n)
s.lv=n; s.md=1; s.i=1; s.t=0; s.w=0;
s.k=zeros(5); s.r=zeros(5); s.m=zeros(5);
s.bl=zeros(1,3);
L={ ...
 [31606 33110 13506], ...
 [11601 51604 13100 53110 33505], ...
 [31607 32310 34501 12502 52504], ...
 [31606 33210 35506 13506 53400], ...
 [51604 52110 22110 25504], ...
 [11601 51602 14100 54110 34503], ...
 [31607 33110 13110 15100 55507], ...
 [31607 33310 34110 24110 23100 43110 25501 21502 41504], ...
 [11606 14100 44110 42100 22110 25506], ...
 [11601 13100 43100 45100 51604 52110 22110 25110 55501 15504], ...
 [31607 32320 34110 14100 22110 52100 54110 11501 25502 44504], ...
 [31607 33320 34110 24110 13100 12110 53100 54110 22502 44504 25501]};
for v=L{n}
    r=floor(v/10000); c=mod(floor(v/1000),10);
    s.k(r,c)=mod(floor(v/100),10);
    s.r(r,c)=mod(floor(v/10),10);
    s.m(r,c)=mod(v,10);
end
s.fc=find(s.k==1 | s.k==2 | s.k==3);
s.fl=find(s.k==5);
s.v=s.v+1; s=trace(s);
end

function s=trace(s)
s.g=zeros(5); s.n=0; s.sg=zeros(5,100);
stack=zeros(4,300); top=0;
sources=find(s.k==6);
for id=sources'
    [r,c]=ind2sub([5 5],id);
    top=top+1; stack(:,top)=[r;c;0;s.m(id)];
end
steps=0;
dr=[0 1 0 -1]; dc=[1 0 -1 0];
while top>0 && steps<300
    a=stack(:,top); top=top-1; steps=steps+1;
    r=a(1); c=a(2); d=a(3); m=a(4);
    rr=r+dr(d+1); cc=c+dc(d+1);
    if rr<1 || rr>5 || cc<1 || cc>5, continue; end
    s.n=s.n+1;
    [x1,y1]=xy(r,c); [x2,y2]=xy(rr,cc);
    s.sg(:,s.n)=[x1;y1;x2;y2;m];
    q=s.k(rr,cc);
    if q==4, continue; end
    if q==5
        s.g(rr,cc)=bitor(s.g(rr,cc),m);
        continue
    end
    if q==1 || q==2
        if s.r(rr,cc)==0, reflected=mod(3-d,4);
        else, reflected=mod(1-d,4); end
        if q==2
            top=top+1; stack(:,top)=[rr;cc;d;m];
        end
        d=reflected;
    elseif q==3
        bits=circshift([1 2 4],[0 s.r(rr,cc)]);
        dirs=[d mod(d+3,4) mod(d+1,4)];
        for j=1:3
            b=bitand(m,bits(j));
            if b>0
                top=top+1; stack(:,top)=[rr;cc;dirs(j);b];
            end
        end
        continue
    end
    top=top+1; stack(:,top)=[rr;cc;d;m];
end
s.lit=false(1,numel(s.fl));
for j=1:numel(s.fl)
    id=s.fl(j);
    s.lit(j)=s.g(id)==s.m(id);
end
end

function s=step(s,dt,pressed)
if s.md==0
    if pressed, s.md=1; end
    return
elseif s.md==3
    if pressed, s=stage(s,1); end
    return
elseif s.md==2
    s.w=s.w+dt;
    s.bl=min(1,s.bl+dt*1.5);
    if s.w>2.3
        if s.lv<12, s=stage(s,s.lv+1);
        else
            s.md=3;
            a=getframe(s.h.hd.Parent); a=double(a.cdata);
            v=ones(19,1)/19;
            for j=1:3
                a(:,:,j)=conv2(v,v',a(:,:,j),'same');
            end
            s.h.b.CData=uint8(a);
        end
    end
    return
end
if pressed
    s.t=0;
    id=s.fc(s.i);
    if s.k(id)==3, s.r(id)=mod(s.r(id)+1,3);
    else, s.r(id)=1-s.r(id); end
    s.v=s.v+1; s=trace(s);
    if all(s.lit), s.md=2; end
else
    s.t=s.t+dt;
    if s.t>=1
        s.t=0; s.i=mod(s.i,numel(s.fc))+1;
    end
end
for j=1:numel(s.fl)
    if s.lit(j), s.bl(j)=min(1,s.bl(j)+dt*2);
    else, s.bl(j)=max(0,s.bl(j)-dt*3); end
end
end

function col=colr(m)
colors=[0.92 0.55 0.52;0.36 0.70 0.55; ...
    0.89 0.75 0.43;0.51 0.59 0.84; ...
    0.77 0.54 0.75;0.36 0.70 0.74;0.79 0.75 0.58];
col=colors(m,:);
end

function drawFrame(~,s)
h=s.h;
if isempty(h.hd.UserData) || h.hd.UserData~=s.v
    v=s.sg(:,1:s.n);
    for k=1:7
        w=v(:,v(5,:)==k); n=size(w,2);
        xx=reshape([w(1,:);w(3,:);nan(1,n)],1,[]);
        yy=reshape([w(2,:);w(4,:);nan(1,n)],1,[]);
        col=colr(k);
        set(h.gl(k),'XData',xx,'YData',yy,'Color',col*0.55+0.38);
        set(h.r(k),'XData',xx,'YData',yy,'Color',col);
    end
    for id=1:25
        q=s.k(id); mark='';
        if q==2
            mark='+';
        elseif q==3
            mark='△';
        elseif q==4
            mark='X';
        elseif q==6
            mark='*';
        end
        set(h.mk(id),'String',mark,'FontSize',27+33*(q==3));
    end
    ids=find(s.k==1);
    for k=1:6
        if k<=numel(ids)
            id=ids(k); [r,c]=ind2sub([5 5],id);
            [x,y]=xy(r,c);
            if s.r(id)==0, yy=[y+27 y-27];
            else, yy=[y-27 y+27]; end
            set(h.mir(k),'XData',[x-27 x+27], ...
                'YData',yy,'Visible','on');
        else
            set(h.mir(k),'Visible','off');
        end
    end
    set(h.t,'XData',h.c.XData(s.fc), ...
        'YData',h.c.YData(s.fc));
    h.hd.String=sprintf('LIGHT GARDEN   %d / 12',s.lv);
    h.hd.UserData=s.v;
end
if s.md==1
    id=s.fc(s.i); [r,c]=ind2sub([5 5],id);
    [x,y]=xy(r,c);
    set(h.f,'Position',[x-40 y-40 80 80], ...
        'Visible','on');
else
    set(h.f,'Visible','off');
end
px=nan(1,18); py=px; pc=zeros(18,3); ps=100*ones(1,18);
for f=1:numel(s.fl)
    [r,c]=ind2sub([5 5],s.fl(f));
    [x,y]=xy(r,c); b=s.bl(f);
    col=colr(s.m(r,c));
    if s.lit(f)
        for j=1:5
            k=(f-1)*6+j; a=2*pi*(j-1)/5-pi/2;
            px(k)=x+(14+6*b)*cos(a);
            py(k)=y+(14+6*b)*sin(a);
            pc(k,:)=col; ps(k)=40+60*b;
        end
    end
    k=f*6; px(k)=x; py(k)=y;
    if s.lit(f), pc(k,:)=[0.98 0.84 0.48]; ps(k)=70;
    else, pc(k,:)=col; ps(k)=35; end
end
set(h.pet,'XData',px,'YData',py,'CData',pc,'SizeData',ps);
if s.md==3
    h.o.String='ALL FLOWERS LIT';
    h.b.Visible='on';
else
    h.o.String='';
    h.b.Visible='off';
end
end
Play Game
Preview

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