DECOY — Deceive to Survive - MATLAB One-Button Game Mini Hack

Roatis
/
DECOY — Deceive to Survive
about 16 hours ago
0
7
2
0
9828
game.m
function g=game()
g.init=@init;
g.update=@update;
g.render=@render;
end

function s=init(ax)
ax.Color=[.035 .018 .075];
ax.XLim=[0 800];
ax.YLim=[0 600];
ax.DataAspectRatio=[1 1 1];
s.best=0;
s=reset(s);
s.mode=0;
s.clock=0;
a=linspace(0,2*pi,181);
c=[1 .76 .32];
b=[.2 .7 1];
ink(ax,[60 740 nan 60 740],[91 91 nan 515 515],[.25 .16 .34]);
h=(0:6)*pi/3;
for r=[45 76 110]
    ink(ax,400+r*cos(h),305+.7*r*sin(h),[.17 .085 .25]);
end
for k=1:6
    v=(k-1)*pi/3;
    ink(ax,400+[120 150 170]*cos(v),305+[84 84 115]*sin(v),[.12 .065 .2]);
end
label(ax,400,305,'RELAY / 07',10,[.3 .19 .38],'center');
s.g.scan=ink(ax,nan,nan,[.24 .14 .32]);
ink(ax,400+270*cos(a),305+175*sin(a),[.16 .09 .23],'LineWidth',11);
ink(ax,400+270*cos(a),305+175*sin(a),[.5 .33 .2],'LineWidth',1.5);
ink(ax,400+256*cos(a),305+161*sin(a),[.18 .10 .27]);
a=(0:47)*pi/24;
ink(ax,400+284*cos(a),305+189*sin(a),[.3 .19 .28],'Marker','.','LineStyle','none');
label(ax,60,555,'D E C O Y',25,c,'left');
s.g.hud=label(ax,740,554,'',13,c,'right');
s.g.info=label(ax,400,110,'',10,[.62 .52 .73],'center');
label(ax,60,58,'HOLOGRAM',10,[.62 .52 .73],'left');
label(ax,740,58,'SPACE / CLICK',10,[.62 .52 .73],'right');
for k=1:3
    s.g.pip(k)=dot(ax,b,'s',11);
    place(s.g.pip(k),185+25*k,58);
    s.g.holo(k)=ink(ax,nan,nan,b,'LineWidth',1.5);
    s.g.core(k)=dot(ax,b,'h',11);
end
s.g.pack=dot(ax,c,'s',9);
s.g.pack.LineWidth=1.5;
for k=1:12
    s.g.drone(k)=dot(ax,[1 .34 .12],'d',9);
end
s.g.trail=ink(ax,nan,nan,[.6 .39 .18],'LineWidth',3);
s.g.glow=dot(ax,[.33 .19 .13],'o',23);
s.g.glow.LineWidth=3;
s.g.player=patch(ax,nan,nan,[1 .94 .72],'EdgeColor',c,'LineWidth',1.5);
s.g.panel=patch(ax,[135 665 665 135],[205 205 410 410],[.055 .027 .105],'EdgeColor',[.35 .22 .42]);
s.g.title=label(ax,400,370,'',26,c,'center');
s.g.body=label(ax,400,302,'',12,[.85 .79 .91],'center');
s.g.prompt=label(ax,400,235,'',13,b,'center');
set(ax.Children,'HitTest','off','PickableParts','none');
end

function h=ink(ax,x,y,c,varargin)
h=line(ax,x,y,'Color',c,varargin{:});
end

function h=dot(ax,c,m,z)
h=ink(ax,nan,nan,c,'Marker',m,'MarkerSize',z,'LineStyle','none');
end

function place(h,x,y,varargin)
set(h,'XData',x,'YData',y,varargin{:});
end

function h=label(ax,x,y,str,n,c,align)
h=text(ax,x,y,str,'FontSize',n,'Color',c,'HorizontalAlignment',align,'FontName','Consolas','Interpreter','none');
end

function s=reset(s)
s.mode=1;
s.t=0;
s.theta=0;
s.dir=1;
s.charges=3;
s.score=0;
s.caught=0;
s.packs=0;
s.spawn=2;
s.over=0;
s.d=zeros(12,4);
s.h=zeros(3,4);
s.package=[pi/2 pi 3*pi/2];
s.wait=zeros(1,3);
s.trail=nan(8,2);
s.fx=zeros(12,3);
end

function p=position(a)
p=[400+270*cos(a),305+175*sin(a)];
end

function s=update(s,dt,pressed)
s.clock=s.clock+dt;
if s.mode==0
    if pressed, s=reset(s); end
    return
end
if s.mode==2
    s.over=s.over+dt;
    if pressed && s.over>.6, s=reset(s); end
    return
end
p=position(s.theta);
if pressed
    s.dir=-s.dir;
    if s.charges>0
        [~,k]=min(s.h(:,3));
        s.h(k,:)=[p 2.8 0];
        s.charges=s.charges-1;
    end
end
n=ceil(dt/.01);
step=dt/n;
for j=1:n
    s=advance(s,step);
    if s.mode==2, break; end
end
s.trail=[position(s.theta);s.trail(1:7,:)];
s.best=max(s.best,floor(s.score));
end

function s=advance(s,dt)
s.t=s.t+dt;
s.fx(:,3)=max(0,s.fx(:,3)-dt);
s.score=s.score+2*dt;
s.theta=mod(s.theta+s.dir*.78*dt,2*pi);
p=position(s.theta);
s.h(:,3)=max(0,s.h(:,3)-dt);
s.wait=max(0,s.wait-dt);
for k=1:3
    q=position(s.package(k));
    if s.wait(k)==0 && sum((p-q).^2)<20^2
        s.wait(k)=5;
        s.charges=min(3,s.charges+1);
        s.score=s.score+30;
        s.packs=s.packs+1;
    end
end
s.spawn=s.spawn-dt;
if s.spawn<=0
    k=find(s.d(:,3)<=0,1);
    if ~isempty(k)
        a=rand*2*pi;
        s.d(k,:)=[400+95*cos(a),305+65*sin(a),14,1.1];
    end
    s.spawn=max(.85,2.5-.018*s.t)*(1+.12*sin(s.t*.7));
end
speed=min(142,90+s.t*.48);
for k=1:12
    if s.d(k,3)<=0, continue; end
    s.d(k,3)=max(0,s.d(k,3)-dt);
    if s.d(k,3)==0, continue; end
    if s.d(k,4)>0
        s.d(k,4)=max(0,s.d(k,4)-dt);
        continue
    end
    q=s.d(k,1:2);
    dist=sum((s.h(:,1:2)-q).^2,2);
    dist(s.h(:,3)<=0)=inf;
    [near,h]=min(dist);
    target=position(s.theta+s.dir*.78*min(1.4,norm(p-q)/speed));
    if near<235^2, target=s.h(h,1:2); end
    delta=target-q;
    q=q+delta/max(norm(delta),.001)*min(norm(delta),speed*dt);
    s.d(k,1:2)=q;
    dist=sum((s.h(:,1:2)-q).^2,2);
    dist(s.h(:,3)<=0)=inf;
    [near,h]=min(dist);
    if near<19^2
        s.d(k,3)=0;
        s.fx(k,:)=[q .45];
        s.h(h,4)=s.h(h,4)+1;
        s.score=s.score+100+25*(s.h(h,4)-1);
        s.caught=s.caught+1;
    elseif sum((q-p).^2)<16^2
        s.mode=2;
        break
    end
end
end

function render(~,s)
g=s.g;
b=[.2 .7 1];
p=position(s.theta);
v=s.dir*[-270*sin(s.theta) 175*cos(s.theta)];
v=v/norm(v);
w=[-v(2) v(1)];
q=p+[12*v;-8*v+6*w;-4*v;-8*v-6*w];
place(g.player,q(:,1),q(:,2));
place(g.glow,p(1),p(2),'MarkerSize',22+2*sin(s.clock*4));
place(g.trail,s.trail(:,1),s.trail(:,2));
a=linspace(0,.6,18)+s.clock*.3;
place(g.scan,400+92*cos(a),305+64*sin(a));
x=400+270*cos(s.package);
y=305+175*sin(s.package);
x(s.wait>0)=nan;
place(g.pack,x,y,'MarkerSize',8+sin(s.clock*5));
for k=1:3
    c=[.16 .10 .23];
    if k<=s.charges, c=b; end
    set(g.pip(k),'Color',c,'MarkerFaceColor',c);
    if s.h(k,3)>0
        a=linspace(pi/2,pi/2+2*pi*s.h(k,3)/2.8,40);
        r=15+2*sin(s.clock*8);
        place(g.holo(k),s.h(k,1)+[23*cos(a) nan r*cos(a)],s.h(k,2)+[23*sin(a) nan r*sin(a)]);
        place(g.core(k),s.h(k,1),s.h(k,2),'MarkerSize',10+sin(s.clock*12));
    else
        place(g.holo(k),nan,nan);
        place(g.core(k),nan,nan);
    end
end
for k=1:12
    x=nan; y=nan; m='d'; c=[1 .34 .12]; z=9;
    if s.d(k,3)>0
        x=s.d(k,1); y=s.d(k,2);
        if s.d(k,4)>0
            m='o'; z=15+5*sin(s.clock*14); c=[.55 .24 .18];
        end
    elseif s.fx(k,3)>0
        f=s.fx(k,3)/.45;
        a=(0:5)*pi/3;
        r=(1-f)*35+8;
        x=s.fx(k,1)+r*[.6;1;nan]*cos(a);
        y=s.fx(k,2)+r*[.6;1;nan]*sin(a);
        x=x(:); y=y(:); m='none'; c=b*f;
    end
    place(g.drone(k),x,y,'Marker',m,'MarkerSize',z,'Color',c,'MarkerFaceColor',c,'LineStyle','-');
end
g.hud.String=sprintf('%05d   BEST %05d',floor(s.score),s.best);
g.info.String=sprintf('SECTOR %02d   /   PACKAGES %d   /   DECOYS %d',1+floor(s.t/20),s.packs,s.caught);
if s.charges==0 && s.mode==1
    g.info.String='EMPTY / TAP STILL REVERSES / GOLD PACKAGES RECHARGE';
end
v='off';
if s.mode~=1, v='on'; end
set([g.panel g.title g.body g.prompt],'Visible',v);
if s.mode==0
    g.title.String='DECEIVE TO SURVIVE';
    g.body.String={'Tap: reverse + drop a blue hologram';'Lure orange drones into it. Collect gold packages.';'3 charges. Empty? You can still reverse.'};
    g.prompt.String='SPACE / CLICK TO ENTER';
elseif s.mode==2
    g.title.String='S I G N A L   L O S T';
    g.body.String={sprintf('SCORE %05d     BEST %05d',floor(s.score),s.best);sprintf('%d PACKAGES     %d DRONES FOOLED',s.packs,s.caught);'A better lie. One more run.'};
    g.prompt.String='SPACE / CLICK TO RESTART';
end
end
Play Game
Preview

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