Ni Vu, Ni Lupin

Siddharth Vaghela
/
Ni Vu, Ni Lupin
about 6 hours ago
1
6
1
0
9991
game.m
function g = game
%game Ghost Ticket -- a one-button hidden-movement chase.
%   You are Lupin, fleeing detectives across a city transit map.
%   A cursor sweeps your exits: TAP to ride the highlighted route,
%   DOUBLE-TAP to ride on a black ticket (they never learn how you
%   travelled). Right after a move lands, TAP once more for a double
%   move. Survive 24 moves; moves 3/8/13/18/24 reveal your position.
%
%   Phases (s.ph): 1 choose, 2 black-ticket window, 3 reveal,
%   4 double-move window, 5 detectives moving, 0 round over.
%   Screens (s.sc): 0 title, 1 playing, 2 round-over card.
%   Map graphics are static per round, so gm() lays them out once when
%   a round starts; renderFrame only touches the moving parts.
g.init = @ini;
g.update = @upd;
g.render = @ren;
end

function s = ini(ax)
set(ax,'YDir','reverse','Color',[.96 .93 .85]);
P = {'HitTest','off','PickableParts','none'};
C = tc; K = C(5,:);
L = @(w,c) line(ax,nan,nan,'LineWidth',w,'Color',c,P{:});
Q = @(z,f,e) line(ax,nan,nan,'Marker','o','LineStyle','none','MarkerSize',z, ...
    'MarkerFaceColor',f,'MarkerEdgeColor',e,'LineWidth',2.5,P{:});
X = @(y,f) text(ax,400,y,'','FontSize',f,'Color',K,'HorizontalAlignment','center', ...
    'FontWeight','bold',P{:});

% Map: river, then routes stacked tube < bus < taxi < ferry, then the
% suspicion cloud, highlighted route, exit rings and stations.
q = -10:8:810;
set(L(24,[.74 .85 .93]),'XData',q,'YData',332+5*sin(q/38)+2*sin(q/17));
W = [2 4.5 8 2.5];
for k = [3 2 1 4], h.e(k) = L(W(k),C(k,:)); end
h.e(4).LineStyle = ':';
h.cl = scatter(ax,1,1,900,C(3,:),'filled','MarkerEdgeColor','none',P{:});
h.hl = L(5,K);
h.op = scatter(ax,1,1,440,[.5 .5 .5],P{:});
h.st = scatter(ax,1,1,180,K,'MarkerFaceColor',ax.Color,'LineWidth',2,P{:});

% Pieces: target ring, detectives (one multi-point line), Lupin.
h.tr = Q(26,'none',K);
h.d = Q(24,[.16 .3 .68],'w');
h.x = Q(27,K,C(1,:));

% HUD line, travel log (reveal slots outlined), turn timer, hint.
h.tu = X(18,13);
q = 35+(0:23)*31.7;
h.lg = scatter(ax,q,q*0+40,150,zeros(24,3),'s','filled',P{:});
h.tf = L(5,K); h.tf.YData = [60 60];
h.hi = X(588,12);

% Title / round-over card.
h.ov = patch(ax,[0 800 800 0],[0 0 600 600],ax.Color,'FaceAlpha',.93,'EdgeColor','none',P{:});
h.ot = X(150,48);
h.ob = X(340,13);

s.h = h; s.lv = 1; s.t = 0; s.ot = 0; s.sc = 0;
s.rt = 'LUPIN! RUN!'; s.rc = K;
s.rb = {'Tu es Lupin! Survive 24 moves.','', ...
    'TAP: ride the lit exit. DOUBLE-TAP: ride on a black ticket.', ...
    'Red haze: stops they suspect. Moves 3, 8, 13, 18, 24 reveal you.', ...
    'Right after a move, TAP to move again (2×).','','TAP TO START'};
s = ng(s);
end

function s = upd(s,dt,p)
s.t = s.t+dt; s.ot = s.ot+dt; s.pt = s.pt-dt;
if s.sc ~= 1
    if p && s.ot > .5
        if s.sc, s = ng(s); end
        s.sc = 1;
    end
elseif s.ph == 1
    s.cu = s.cu+s.sp*dt;
    s.tl = s.tl-dt;
    if p && s.bk > 0
        % First tap locks the route; a second tap soon after = black.
        s.pk = ci(s); s.ph = 2; s.pt = .3;
    elseif p || s.tl <= 0
        s = cm(s,s.op(ci(s),:),0);
    end
elseif s.ph == 2 && (p || s.pt <= 0)
    s = cm(s,s.op(s.pk,:),p);
elseif s.ph == 3 && s.pt <= 0
    s = af(s);
elseif s.ph == 4 && p && s.pt < 2.4
    s.db = s.db-1; s.id = 1; s = tu(s);
elseif s.ph == 4 && s.pt <= 0
    s.id = 1; s = af(s);
elseif s.ph == 5
    s = ct(s);
end
end

function ren(~,s)
h = s.h; x = s.m.x; y = s.m.y; C = tc; K = C(5,:);
u = .5+.5*sin(s.t*5.5);

% Suspicion cloud: every stop the detectives think you could be at.
c = find(s.cl); n = numel(c);
set(h.cl,'XData',x(c),'YData',y(c),'MarkerFaceAlpha',.2+.2*(n<9)*u);
p = s.sc == 1; i = p && s.ph < 3;
R = [3 8 13 18 24]; v = [R(R>s.mv) 24]; v = v(1)-s.mv;
set([h.op h.hl h.tr],'Visible',i);
l = '';
if i
    j = ci(s); if s.ph > 1, j = s.pk; end
    w = s.op(j,:); a = s.m.E(w(3),1:2); k = C(w(2),:);
    N = {'TAXI','BUS','TUBE','FERRY'}; l = [N{w(2)} ' · '];
    set(h.op,'XData',x(s.op(:,1)),'YData',y(s.op(:,1)));
    set(h.hl,'XData',x(a),'YData',y(a),'Color',.7*k);
    set(h.tr,'XData',x(w(1)),'YData',y(w(1)),'MarkerSize',25+4*u,'MarkerEdgeColor',k);
end
set(h.d,'XData',x(s.dp),'YData',y(s.dp));
r = i && v < 2;
set(h.x,'XData',x(s.xp),'YData',y(s.xp),'MarkerEdgeColor',C(1+2*r,:)*(1-r*u/2));

% HUD.
t = sprintf('REVEAL IN %d',v);
if r, t = 'THIS MOVE REVEALS YOU'; end
set(h.tu,'String',sprintf('MOVE %d/24 · %s · %d SUSPECTS · BLACK %d · 2× %d', ...
    min(s.mv+i,24),t,n,s.bk,s.db),'Color',K+r*(C(3,:)-K));
G = [.88 .84 .74; C];
h.lg.CData = G(s.lg+1,:);
f = max(0,i*s.tl/s.tt+(s.ph==4)*s.pt/2.5);
set(h.tf,'XData',[20 20+760*f],'Color',C(3-(f>.3),:));
H = {[l 'TAP ride · DOUBLE-TAP black'],[l 'TAP AGAIN: black'], ...
    'THEY SEE YOU','TAP anywhere: move again (2×)','Detectives move'};
t = ''; if p && s.ph, t = H{s.ph}; end
set(h.hi,'String',t,'Color',K+(s.ph>1 && s.ph<5)*(C(1,:)-K));

% Title / round-over card.
set([h.ov h.ot h.ob],'Visible',~p);
set(h.ot,'String',s.rt,'Color',s.rc);
h.ob.String = s.rb;
end

% ---------------------------------------------------------------- rules

function s = ng(s)
% New round at the current level.
m = gm(s.h); s.m = m; l = s.lv-1;
s.nd = 3+(l>1)+(l>3);
s.no = max(.2,2-.3*l);
s.bl = max(0,.3-.06*l);
s.sb = min(.7,.4+.04*l);
s.tt = max(20,30-1.5*l);
% Detectives start far from Lupin; the distance bar relaxes over the
% tries so placement always finishes.
x = randi(54); d = [];
for k = 1:1e3
    p = randi(54);
    if numel(d) < s.nd && m.D(x,p) > 4-k/250 && ~any(d==p), d(end+1) = p; end %#ok<AGROW>
end
s.xp = x; s.dp = d;
s.bk = s.nd; s.db = 2; s.mv = 0; s.lg = zeros(1,24);
s.id = 0; s.pt = 0; s.pk = 1;
s.cl = true(54,1); s.cl(d) = 0;
s = tu(s);
end

function o = lm(s,f)
% Legal exits from stop f, sorted clockwise from north: [to type edge].
E = s.m.E; i = find(any(E(:,1:2)==f,2));
t = E(i,3); o = E(i,1)+E(i,2)-f;
k = ~ismember(o,s.dp) & (t<4 | s.bk>0);
o = o(k); t = t(k); i = i(k);
[~,q] = sortrows([atan2(s.m.y(o)'-s.m.y(f),s.m.x(o)'-s.m.x(f)) t]);
o = [o(q) t(q) i(q)];
end

function s = tu(s)
s.op = lm(s,s.xp); s.cu = 0; s.sp = s.sb*(1+.01*s.mv); s.tl = s.tt; s.ph = 1;
if isempty(s.op), s = ov(s,2); end
end

function j = ci(s)
j = mod(floor(s.cu),size(s.op,1))+1;
end

function s = cm(s,o,u)
% Commit a move. Ferries always burn a black ticket.
u = (u || o(2)==4) && s.bk > 0;
s.bk = s.bk-u; k = o(2)+u*(5-o(2));
s.xp = o(1); s.mv = s.mv+1;
% Spread the cloud along every route matching the ticket shown.
E = s.m.E; if k < 5, E = E(E(:,3)==k,:); end
c = s.cl; n = 0*c;
n(E(c(E(:,1)),2)) = 1; n(E(c(E(:,2)),1)) = 1; n(s.dp) = 0;
s.cl = n > 0;
r = any(s.mv==[3 8 13 18 24]);
if r, s.cl = c & 0; s.cl(s.xp) = 1; end
s.lg(s.mv) = k;
if r, s.ph = 3; s.pt = .75; else, s = af(s); end
end

function s = af(s)
% Offer a double move, otherwise hand over to the detectives.
if ~s.id && s.db > 0 && s.mv < 24 && numel(lm(s,s.xp))
    s.ph = 4; s.pt = 2.5;
else
    s.id = 0; s.ph = 5; s.ci = 1; s.pc = 0; s.pt = .3;
end
end

function s = ct(s)
% Detectives move one at a time.
if s.pt > 0, return; end
if s.pc, s = ov(s,1); return; end
if s.ci > s.nd
    if s.mv > 23, s = ov(s,3); else, s = tu(s); end
    return
end
d = s.ci; s.ci = d+1;
[s,k] = md(s,d);
s.pt = .08+.34*k;
if k && s.dp(d) == s.xp, s.pc = d; end
end

function [s,k] = md(s,d)
% Detective AI: chase the nearest suspect stop while hugging the
% cloud and spreading out, with level-scaled noise and blunders.
E = s.m.E; D = s.m.D; p = s.dp(d);
i = find(any(E(:,1:2)==p,2));
t = E(i,3); o = E(i,1)+E(i,2)-p; r = s.dp; r(d) = [];
k = t<4 & ~ismember(o,r);
o = o(k); t = t(k); k = any(k);
if ~k, return; end
c = find(s.cl)'; j = randi(numel(o));
if rand > s.bl
    [~,q] = min(D(p,c)); g = c(q);
    w = [0;.15;.4];
    [~,j] = min(.45*mean(D(o,c),2)+.55*D(o,g)-1.5*s.cl(o)+.7*sum(D(o,r)<=1,2) ...
        +w(t)+(rand(numel(o),1)-.5)*s.no);
end
n = o(j); s.dp(d) = n;
s.cl(n) = s.cl(n) && n == s.xp;
end

function s = ov(s,w)
% End of round. w: 1 caught, 2 cornered, 3 escaped.
e = w > 2;
z = s.mv*100+e*1500+s.bk*100+s.db*50;
s.lv = min(8,s.lv+e);
T = {'CAUGHT','CORNERED','ESCAPED'};
A = {'TAP TO RETRY','TAP: NEXT LEVEL'};
C = tc;
s.rt = T{w}; s.rc = C(3-e,:);
s.rb = {sprintf('%d MOVES · SCORE %d',s.mv,z),'',A{1+e},'',sprintf('LEVEL %d',s.lv)};
s.ph = 0; s.sc = 2; s.ot = 0;
end

% ------------------------------------------------------------------ map

function m = gm(h)
% 9x6 jittered grid; river between rows 2 and 3 crossed by two bridges.
% Edge list E = [stopA stopB type], type 1 taxi 2 bus 3 tube 4 ferry.
c = repmat(0:8,1,6); r = repelem(0:5,9); N = 54;
x = 60+c*85+rand(1,N)*24-12;
y = 112+r*88+rand(1,N)*16-8;
b = randi(5)+[-1 3];
% Taxi: grid streets (bridges only) plus random diagonals.
i = find(c<8); j = find(r<5 & (r~=2 | ismember(c,b)));
d = find(c<8 & r<5 & r~=2 & rand(1,N)<.34); f = rand(size(d)) < .5;
E = [i j d+f; i+1 j+9 d+10-f]';
E(:,3) = 1;
% Tube: six stations zig-zagging between the top and bottom edges.
R = [randi([0 1],1,3); randi([4 5],1,3)];
t = [0 2 3 5 6 8]+9*R(:)'+1;
E = [E; t([1:5 1 4])' t([2:6 3 6])' 3+0*(1:7)'];
% Bus: express hops two blocks along an axis between bus stops
% (vertical hops cross the river only at a bridge column).
u = rand(1,N) < .5; u(t) = 1;
for d = [2 18]
    i = find(u & (d>2 | c<7) & r<6-d/9 & ~(d>2 & r>0 & r<3 & ~ismember(c,b)));
    i = i(u(i+d));
    E = [E; i' i'+d 2+0*i']; %#ok<AGROW>
end
% Ferry: a black-ticket-only crossing away from the bridges.
E = [E; b(1)+21 b(1)+30 4];
k = E(:,3) < 4;
m.D = min(distances(graph(E(k,1),E(k,2),[],N)),30);
m.x = x; m.y = y; m.E = E;

% Lay out the static map graphics for this round.
g = 0*c; g(E(E(:,3)==2,1:2)) = 1; g(t) = 2; g = g+1;
C = tc;
set(h.st,'XData',x,'YData',y,'SizeData',135+45*g,'CData',C(g,:));
X = [x nan]; Y = [y nan];
for k = 1:4
    z = E(E(:,3)==k,1:2)'; z(3,:) = 55;
    set(h.e(k),'XData',X(z(:)),'YData',Y(z(:)));
end
end

function C = tc
% taxi, bus, tube, ferry, ink / black ticket -- on paper.
C = [.84 .58 .08; .18 .58 .34; .8 .2 .2; .3 .45 .8; .18 .15 .13];
end
Play Game
Preview

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