IMMUNE HERO

Soobok
/
IMMUNE HERO
about 19 hours ago
2
8
1
0
9977
game.m
function g=game
% IMMUNE HERO - one-button immune-system roguelite.
g.init=@ini;g.update=@upd;g.render=@ren;
end

function s=ini(ax)
set(ax,'Color','#1a0008','DefaultPatchEdgeC','none','DefaultRectangleEdgeC','none','DefaultTextColor','w','DefaultTextFontW','bold','DefaultTextHoriz','center');
% static vessel: gradient lumen + walls
mk(@patch,ax,'XData',[0 800 800 0;0 800 800 0]','YData',[0 0 110 110;490 490 600 600]','FaceC','#400812');
% scrolling decor: one transform, two seamless copies
g.B=hgtransform(ax);B=g.B;
x=0:8:1600;b=10*abs(sin(x*pi/50));
mk(@line,B,'XData',[x nan x],'YData',[490+b nan 110-b],'Color','#a13','LineW',3);
x=rand(7,1)*800;x=[x;x+800];y=[1;1]*(135+rand(1,7)*330);y=y(:);a=(0:15)*pi/8;
mk(@patch,B,'XData',(x+22*cos(a))','YData',(y+9*sin(a))','FaceC','#801020','FaceA',.5);
% T cell: zone, body, nucleus, slash, cooldown bar
g.P=hgtransform(ax);P=g.P;
g.zone=mk(@patch,P,'Faces',1:4,'Verti',zeros(4,2),'FaceC','#0cf','FaceA',.2);
a=(0:23)*pi/12;r=26-3*mod(0:23,2);
g.body=mk(@patch,P,'XData',r.*cos(a),'YData',r.*sin(a),'EdgeC','w','LineW',1.5);
mk(@patch,P,'XData',12*cos(a)-4,'YData',12*sin(a)+3,'FaceC','#14d');
g.fx=mk(@patch,P,'Faces',1:18,'Verti',zeros(18,2),'FaceA',.8);
g.cd=mk(@rectangle,P,'FaceC','#5f8');
% pathogens (12 x 16-vertex blobs in one patch) and XP orbs
g.E=mk(@patch,ax,'Faces',reshape(1:192,16,12)','Verti',nan(192,2),'FaceVertexC',zeros(12,3),'FaceC','flat','EdgeC','w','EdgeA',.35);
g.O=mk(@line,ax,'XData',nan,'YData',nan,'LineS','none','Marker','o','MarkerS',7,'MarkerF','#8ff','MarkerE','w');
% HUD
mk(@rectangle,ax,'Pos',[18 564 204 18],'FaceC','#226');
g.hp=mk(@rectangle,ax,'FaceC','#f46');
mk(@rectangle,ax,'Pos',[18 546 204 10],'FaceC','#226');
g.xp=mk(@rectangle,ax,'FaceC','#6ff');
g.st=mk(@text,ax,'Pos',[235 572],'Horiz','left','FontSi',13);
g.bb=mk(@rectangle,ax,'FaceC','#f35');
% overlay + level-up cards (each group slid off-screen when unused)
g.ov=hgtransform(ax);
mk(@patch,g.ov,'XData',[0 800 800 0],'YData',[0 0 600 600],'FaceA',.7);
g.L=hgtransform(ax);
for k=1:3
g.c(k)=mk(@rectangle,g.L,'Pos',[220*k-125 180 170 220],'Curv',.1);
g.ct(k)=mk(@text,g.L,'Pos',[220*k-40 290],'FontSi',12);
end
g.hl=mk(@rectangle,g.L,'EdgeC','w','LineW',4,'Curv',.1);
g.fl=mk(@rectangle,g.L,'FaceC','w');
g.msg=mk(@text,ax,'FontSi',22);
% pathogen types (virus, bacterium, parasite, boss): hp speed radius dmg xp spin spike stretch
s=struct('g',g,'t',0,'d',0,'best',0,'TT',[1 150 16 1 1 2 .55 1;2 100 24 1 2 0 .9 1.5;3 70 32 2 3 .8 .75 1;12 45 70 3 12 .5 .7 1.1],'TC',[.3 1 .4;1 .8 .1;.85 .35 1;1 .2 .3], ...
'UN',{{'Antibody','Membrane','Cytokine','Interferon','Complement','Memory cell'}},'UD',{{'+50% damage','+3 max HP, heal 6','attack 15% faster','50% splash in zone','+1 target, +range','1 extra life'}}, ...
'UI',{{'Y','\oplus','\Rightarrow','\ast','\rightarrow','\heartsuit'}},'UC',[1 .4 .4;.35 .7 1;1 .85 .2;.4 1 .6;1 .5 1;.95 .95 .95]);
s=rst(s);s.m=0;
end

function s=rst(s)
[s.m,s.hp,s.lv,s.cdM,s.sel,s.card,s.k,s.E,s.u,s.O]=deal(1,10,1,1,1,1:3,[0 0 0 0],zeros(12,10),zeros(1,6),zeros(0,3));
[s.w,s.xp,s.fh,s.tmr,s.goT]=deal(0);
s=nw(s);
end

function s=nw(s)
s.w=s.w+1;w=s.w;s.best=max(s.best,w);n=2+w;
q=1+(rand(1,n)<min(.55,.1+.05*w));q(rand(1,n)<min(.35,.03*w))=3;
s.bm=sprintf('WAVE %d',w);
if ~mod(w,5),q=[q(1:2) 4 q(3:end)];s.bm=['BOSS ' s.bm];end
s.Q=q;s.spT=1.5;s.k(4)=1.5;
end

function s=upd(s,dt,p)
s.t=s.t+dt;s.goT=s.goT+dt;
if s.m==1
s=play(s,dt,p);
elseif s.m==2
s.tmr=s.tmr+dt;
% 0.5 s tap lock (tmr<0); first tap lights a card; confirm 2 s after last tap
if p&&s.tmr>0,s.sel=mod(s.sel,3)+1;s.tmr=0;end
if s.sel&&s.tmr>=2
c=s.card(s.sel);s.u(c)=s.u(c)+1;s.m=1;s.hp=min(s.hp+6*(c==2),10+3*s.u(2));
end
elseif p&&s.goT>.8
s=rst(s);
end
end

function s=play(s,dt,p)
s.d=s.d+70*dt;
s.k=max(0,s.k-dt);s.spT=s.spT-dt;
E=s.E;T=s.TT;w=s.w;i=find(~E(:,1),1);
% spawn
if ~isempty(s.Q)&&s.spT<=0&&any(i)
t=s.Q(1);s.Q(1)=[];h=T(t,1)*1.12^(w-1);
E(i,:)=[1 830+T(t,3) h h T(t,2)*min(1.6,1+.04*(w-1)) t T(t,3) 0 6.3*rand T(t,4)+fix(w/6)];
s.spT=max(.35,1.5-.07*w)*(.5+rand);
end
a=E(:,1)>0;E(a,2)=E(a,2)-E(a,5)*dt;E(:,8)=max(0,E(:,8)-dt);
% attack: nearest k targets in zone, others take splash
if p&&~s.k(1)
j=find(a&E(:,2)-E(:,7)<172+120+15*s.u(5)&E(:,2)>130);[~,o]=sort(E(j,2));j=j(o);
s.k(2)=.12;s.fh=any(j);s.cdM=.4*.85^s.u(3)*(1.6-.6*s.fh);s.k(1)=s.cdM;
k=min(numel(j),1+s.u(5));m=[ones(k,1);zeros(numel(j)-k,1)+.5*s.u(4)];
E(j,3)=E(j,3)-(1+.5*s.u(1))*m;E(j,8)=.1*(m>0);E(j,2)=E(j,2)+(m>0).*(40-30*(E(j,6)==4));
end
% contact: damage player, boss bounces back
for i=find(a&E(:,2)-E(:,7)<172)'
s.hp=s.hp-E(i,10);s.k(3)=.3;E(i,2)=E(i,2)+220;E(i,1)=E(i,6)==4;
end
% kills drop XP orbs that fly to the player
k=find(E(:,1)&E(:,3)<=0);s.O=[s.O;E(k,2) k*0+300 T(E(k,6),5)];E(k,1)=0;s.E=E;
v=[150 300]-s.O(:,1:2);m=sqrt(sum(v.^2,2));s.O(:,1:2)=s.O(:,1:2)+v.*min(1,600*dt./max(m,1));
k=m<20;s.xp=s.xp+sum(s.O(k,3));s.O(k,:)=[];
if s.hp<=0&&s.u(6)
s.u(6)=s.u(6)-1;s.hp=10+3*s.u(2);s.E(:,2)=s.E(:,2)+300;s.k(4)=1.5;s.bm='REVIVED!';
elseif s.hp<=0
s.m=3;s.goT=0;
elseif s.xp>=2+2*s.lv
s.xp=s.xp-2-2*s.lv;s.lv=s.lv+1;s.m=2;s.card=randperm(6,3);s.sel=0;s.tmr=-.5;
elseif isempty(s.Q)&&~any(s.E(:,1))&&isempty(s.O)
s=nw(s);
end
end

function ren(~,s)
g=s.g;E=s.E;T=s.TT;m=s.m;R=120+15*s.u(5);M=10+3*s.u(2);t=max(E(:,6),1);
r=E(:,7).*(1-(1-T(t,7))*mod(0:15,2));a=(0:15)*pi/8+s.t*T(t,6)+E(:,9);
X=E(:,2)+T(t,8).*r.*cos(a);X(~E(:,1),:)=nan;C=s.TC(t,:);C(E(:,8)>0,:)=1;
Y=(300+22*sin(1.7*s.t+E(:,9)).*(t<4)+r.*sin(a))';X=X';
sp(g.E,'Verti',[X(:) Y(:)],'FaceVertexC',C);
sp(g.B,'Matrix',makehgtform('translate',[-mod(s.d,800) 0 0]));
sp(g.P,'Matrix',makehgtform('translate',[150 300+4*sin(4*s.t) 0]));
sp(g.body,'FaceC',[.4 .85 1]+[.6 -.65 -.7]*(s.k(3)>0));
sp(g.zone,'Verti',[22 -60;22+R -60;22+R 60;22 60]);
b=(-4:4)'*pi/8;
sp(g.fx,'Verti',[22+R*(.5+.5*cos(b)) 58*sin(b);flipud([22+R*(.5+.2*cos(b)) 40*sin(b)])]+0/(s.k(2)>0),'FaceC',[1 1 .3]-[.5 .5 -.2]*~s.fh);
sp(g.cd,'Pos',[-25 -45 50-50*s.k(1)/s.cdM 5]);
sp(g.hp,'Pos',[20 566 200*max(s.hp,0)/M 14]);
sp(g.xp,'Pos',[20 548 200*s.xp/(2+2*s.lv) 6]);
q='';
for k=find(s.u)
q=[q sprintf('{\\color[rgb]{%g %g %g}%s}%d   ',s.UC(k,:),s.UI{k},s.u(k))];
end
sp(g.st,'Str',{sprintf('HP %d/%d    LV %d    WAVE %d    BEST %d',max(s.hp,0),M,s.lv,s.w,s.best),q});
b=E(:,1)&E(:,6)==4;
sp(g.bb,'Pos',[250 45 300*sum(E(b,3)./E(b,4)) 12]);
q=[s.O;nan(1,3)]';
sp(g.O,'XData',q(1,:),'YData',q(2,:));
sp(g.ov,'Matrix',makehgtform('translate',[0 2000*(m==1) 0]));
sp(g.L,'Matrix',makehgtform('translate',[0 2000*(m~=2) 0]));
for k=1:3
c=s.card(k);d=s.tmr<0;sp(g.c(k),'FaceC',s.UC(c,:)*(.35-.25*d));
sp(g.ct(k),'Color',[1 1 1]-.6*d,'Str',{sprintf('\\fontsize{34}{\\color[rgb]{%g %g %g}%s}',s.UC(c,:),s.UI{c}),['\fontsize{16}' s.UN{c}],'',['\fontsize{14}' s.UD{c}],sprintf('have %d',s.u(c))});
end
% highlight + 2 s confirm bar (off-screen until first tap)
x=220*s.sel-129+999*~s.sel;sp(g.hl,'Pos',[x 176 178 228]);
sp(g.fl,'Pos',[x+4 160 85*max(0,s.tmr) 8]);
z={'tap to pick a card','tap: next card   wait 2 s: confirm'};
q={{'\fontsize{44}\color{cyan}IMMUNE HERO','\fontsize{14}T cell: TAP when a pathogen is in your blue zone','','\fontsize{20}TAP TO START'},s.bm(1:end*(s.k(4)>0)), ...
{'\fontsize{28}LEVEL UP!',['\fontsize{14}' z{1+(s.sel>0)}]},{'\fontsize{44}\color{red}INFECTED',sprintf('\\fontsize{18}Wave %d    Best %d',s.w,s.best),'TAP TO RESTART'}};
sp(g.msg,'Str',q{m+1},'Pos',[400 330+90*(m==1)+140*(m==2) 0]);
end



function sp(h,varargin)
% set only properties whose value changed -> minimal graphics traffic
for k=1:2:nargin-1
if ~isequaln(get(h,varargin{k}),varargin{k+1}),set(h,varargin{k:k+1});end
end
end

function h=mk(f,p,varargin)
h=f('Parent',p,'HitT','off','Pick','none',varargin{:});
end
Play Game
Preview

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