Why Not, Again

Hans Scharler
/
Why Not, Again
about 10 hours ago
1
5
2
1
9486
game.m
function g=game()
% WHY NOT, AGAIN: the sequel. The same Command Window, but this time the
% wheels are yours, and where they stop decides where you go.
g.init=@init; g.update=@update; g.render=@render;
end

function s=init(ax)
ax.XLim=[0 800]; ax.YLim=[0 600];
% The script, split on #. t: title. c: typed command. w: wait for a tap.
% o: output (| breaks a line). p: pause. q: the one choice. s: new stage.
% @: a label. j: jump. v: a wheel of choices (text=label; ? only once the
% Workspace holds three things). 1 2 3 4: the puzzles; each one keeps
% what you stop on in the Workspace. r: start over.
s.B=strsplit('t#c:why#w#o:The tall and not excessively tall system manager|insisted on it.#p:1.2#o:|Do you want to play a game?#q:Yes#s:1#o:This seems familiar.||Last time every wheel stopped on the right number.|That was rigged. This time the wheels are yours.#q:Spin the wheel#@W#s:1#o:The wheel picks the way. You pick where it stops.#v:the tower=T,the sea=S,the machine=M,?the fourth wall=F#@T#s:2#o:The gate of black iron, again. A row of the square|is missing. Stop the wheels on any four numbers.#1#o:|The gate weighs your row, then opens anyway. It only|wanted to see what you would pick.#q:Spin again#j:W#@S#s:3#o:Rain on a lighthouse. The keeper counts k upward.||"Stop me at any k. We will ask if 1 + 2^-k == 1."#2#o:|The keeper writes your k in the log and lights|the lamp.#q:Spin again#j:W#@M#s:4#o:A machine sorts the dark. Tap to swap the pair under|the cursor. Stop tapping when you like the order.#3#o:|The machine keeps your order and prints a receipt.#q:Spin again#j:W#@F#s:0#o:The Command Window, plain and white. Your|Workspace is full.#c:why#w#o:Because you came back.#p:1.2#o:|Do you want to play a game?#4#o:|You did not press the button. In a one-button game,|that is the one move nobody can make for you.#p:2#c:why#w#o:Because you stopped.#p:1.5#o:|Nobody else stopped the wheels where you did.#p:1.5#o:|THE END. AGAIN.#q:Play again#r','#');
% Rain at sea, as one text grid, and the title bar.
G.rain=T(ax,'',13,8,598); G.rain.Color=[.15 .35 .7];
G.head=patch(ax,[0 800 800 0],[572 572 600 600],[.94 .94 .94]);
G.lab=T(ax,'Command Window',10,12,593);
% Measure the monospace grid so the choice lines up with the text.
G.tx=T(ax,repmat('M',1,40),13,20,556); e=G.tx.Extent; s.lh=e(4);
G.tx.String={'M';'M'}; s.lh=G.tx.Extent(4)-s.lh;
G.ch=T(ax,'',13,0,0); G.ws=T(ax,'',11,590,556);
G.scan=line(ax,repmat([0 800 nan],1,150),kron(2:4:598,[1 1 nan]),'Color','k');
set(ax.Children,'HitTest','off','PickableParts','none');
% What each stage shows besides the text.
h=[G.head G.lab]; G.v={h,h,G.scan,[G.scan G.rain],G.scan}; G.all=[h G.scan G.rain];
s.R=char(32+(mod((1:36)'+36*rand(1,106),24)<4).*randi([33 90],36,106)); s.g=G; s.t=0; s=reset(s);
end

function h=T(ax,str,sz,x,y)
h=text(ax,x,y,str,'FontName','Consolas','FontSize',sz,'VerticalAlignment','top','Interpreter','none');
end

function s=reset(s)
s.i=0; s.st=0; s.H={}; s.cur=''; s.gl=0; s.W={};
s=next(s);
end

function s=next(s)
% Each beat starts fresh: a wheel spins from a random face.
s.i=s.i+1; s.k=0; s.bt=0; s.f=1; s.ts=inf; s.o=4*rand; s.v=1.6; s.a=[3 5 1 4 2]; s.e=0; b=s.B{s.i};
if b(1)=='1', s.o=16*rand(1,4); s.ts=inf(1,4); s.v=1.4+.25*(0:3); end
if b(1)=='v'
    o=strsplit(b(3:end),','); o=split(strrep(o(~startsWith(o,'?')|numel(s.W)>2),'?','')',"=");
    s.op=o(:,1); s.ol=o(:,2);
end
end

function s=go(s,a)
s.i=find(strcmp(s.B,['@' a])); s=next(s);
end

function s=update(s,dt,p)
s.t=s.t+dt; s.bt=s.bt+dt; s.gl=max(0,s.gl-dt);
if s.st && rand<dt*.4, s.gl=.12+.1*rand; end
b=s.B{s.i}; a=b(3:end); f=s.f; s.f=0; c=b(1);
% A new beat files the previous output into the history.
if f && ~any(c=='spj@rw') && any(s.cur), s.H=[s.H strsplit(s.cur,'|')]; s.cur=''; end
if c=='c', s.k=s.k+dt*(6+8*rand)+99*p; s.cur=['>> ' a(1:min(end,floor(s.k)))]; end
if c=='o', s.k=s.k+dt*(45+12*s.st)+1e4*p; s.cur=a(1:min(end,floor(s.k))); end
if any(c=='co') && s.k>=numel(a) || c=='w' && p || c=='p' && (p || s.bt>str2double(a)) || c=='@'
    s=next(s);
elseif c=='q' && p
    % The choice is echoed as a command, the way MATLAB would run it.
    a=lower(a); a(a==' ')='_'; s.H=[s.H {['>> ' a] ''}]; s=next(s);
elseif c=='s'
    s.st=str2double(a); s.gl=.8; s.H={}; s.cur=''; s=next(s);
elseif c=='j'
    s=go(s,a);
elseif c=='t' && p && s.bt>3.2
    s=next(s);
elseif c=='r'
    s=reset(s);
elseif any(c=='v1234')
    F={@pv,@p1,@p2,@p3,@p4}; s=F{c=='v1234'}(s,p);
end
end

function s=pv(s,p)
% The wheel of ways: it stops wherever it is when you tap, on the next face.
if p && isinf(s.ts), s.ts=s.bt; end
if s.bt-s.ts>1.6
    j=mod(round(pos(s)),numel(s.op))+1; s.H=[s.H {['>> go ' strrep(s.op{j},' ','_')] ''}]; s=go(s,s.ol{j});
end
end

function s=p1(s,p)
% Four number wheels; each tap stops the next. Any row will do.
j=find(s.ts>s.bt,1); if p && any(j), s.ts(j)=s.bt; end
if all(s.bt-s.ts>1.6)
    r=mod(round(pos(s)),16)+1; s.H=[s.H view(s) {'' '>> sum(row)' sprintf('ans = %d',sum(r))}]; s=kw(s,['row    ' sprintf('%d ',r)]);
end
end

function s=p2(s,p)
% k climbs on its own; a tap asks MATLAB, for real, about your k.
k=40+floor(s.bt/.5);
if (p || k>69) && isinf(s.ts)
    s.ts=s.bt; s.kk=k; s.H=[s.H {sprintf('>> 1 + 2^-%d == 1',k) 'ans =' sprintf('  logical %d',1+2^-k==1) ''}];
end
if s.bt-s.ts>1.6, s=kw(s,sprintf('k      %d',s.kk)); end
end

function s=p3(s,p)
% The cursor walks the array; a tap swaps the pair under it. Five quiet
% seconds keep the order, whatever it is.
c=mod(floor(s.bt/.6),4)+1;
if p, s.e=s.bt; s.a([c c+1])=s.a([c+1 c]); end
if s.bt-s.e>5, s.H=[s.H view(s)]; s=kw(s,['order  ' sprintf('%d ',s.a)]); end
end

function s=p4(s,p)
% Every face says Yes. A tap plays again; only waiting moves on.
if p, s.e=s.e+1; s.H=[s.H {'>> yes' 'Again.' '' 'Do you want to play a game?'}]; s.bt=0; end
if p && s.e>2, s.H=[s.H {'(You do not have to answer.)'}]; end
if s.bt>8, s=next(s); end
end

function s=kw(s,a)
% Keep a value in the Workspace (a new one replaces the old) and move on.
s.W=[s.W(~strncmp(s.W,a,4)) {a}]; s=next(s);
end

function [w,u]=pos(s,tg)
% Wheel positions: spin until stopped, then ease onto the next face.
% Only the title is still rigged: its wheels ease onto tg.
w=s.o+s.v.*min(s.bt,s.ts); d=ceil(w)-w;
if nargin>1, d=mod(tg-w,28); d=d+28*(d<4); end
u=min(1,max(0,s.bt-s.ts)/.7); w=w+d.*(1-(1-u).^2); w(u==1)=round(w(u==1));
end

function L=wl(R,w,u)
% Wheels in a box: rows of R are the faces, w the positions, and a
% stopped wheel (u==1) shows brackets.
n=size(R,1); r=9472+0*(1:(size(R,2)+2)*numel(w)); L={['  ' 9484 r 9488]};
for k=-1:1
    e=[0*w+32;R(mod(floor(w)+k,n)+1,:)';0*w+32]; e(1,u==1&~k)='['; e(end,u==1&~k)=']';
    L{k+3}=[' ' 32+30*~k 9474 e(:)' 9474];
end
L{5}=['  ' 9492 r 9496];
end

function L=view(s)
% The wheel or puzzle on screen right now.
b=s.B{s.i}(1); t=s.bt; L={}; [w,u]=pos(s);
if b=='t'
    a=' ABCDEFGHIJKLMNOPQRSTUVWXYZ,'; [~,j]=ismember('WHY NOT, AGAIN',a); s.ts=.6+.16*(0:13);
    s.v=9; s.o=(1:14)*7; L=[{'' ''} wl(a',pos(s,j-1),0)];
    if t>3, L=[L {'' '                     II' '' '           a one-button sequel'}]; end
    if t>3.2 && mod(s.t,1)<.6, L=[L {'' '' '            [press the button]'}]; end
end
if b=='v', L=wl(char(s.op),w,u); end
if b=='1', m=magic(4); f=@(r){['   ' sprintf(' %3d ',r)]}; L=[f(m(1,:)) wl(num2str((1:16)','%3d'),w,u) f(m(3,:)) f(m(4,:))]; end
if b=='2' && isinf(s.ts), L={sprintf('   k = %d',40+floor(t/.5))}; end
if b=='3'
    c=mod(floor(t/.6),4)+1;
    L={sprintf('   order = [%s ]',sprintf('%3d',s.a)) [blanks(11+3*c) '^  ^'] sprintf('   kept in %ds',ceil(5-t+s.e))};
end
if b=='4', L=wl(['Yes';'Yes';'Yes';'Yes'],w,u); end
end

function render(~,s)
G=s.g; st=s.st; t=s.t; b=s.B{s.i}; c=b(1);
% Per stage: background, text, and choice colors.
K=(['UUUAAAAIR';'UUUAAAAIR';'ABBHUKUTI';'ABBMSUUUU';'BBAUOEUSM']-65)/20; K=K(st+1,:); bg=K(1:3)*(1+.5*rand*(st>1)); fg=K(4:6); ch=K(7:9);
G.tx.Parent.Color=bg+(1-2*bg)*(s.gl>.65);
set(G.all,'Visible','off'); set(G.v{st+1},'Visible','on');
% Rain falls a row at a time.
G.rain.String=cellstr(circshift(s.R,floor(t*14)));
% The screen: history, the line being typed, a blinking cursor, and
% scrambled characters while a glitch lasts. The title is set large.
L=[s.H strsplit(s.cur,'|') view(s)]; L=L(max(1,end-22):end);
if any(c=='cwo') && mod(t,1)<.55, L{end}=[L{end} 9608]; end
for k=1:numel(L)*(s.gl>0)
    m=rand(size(L{k}))<.05; L{k}(m)=33+floor(rand(1,nnz(m))*90);
end
set(G.tx,'String',L,'Color',fg,'Position',[20+8*randn*(s.gl>0) 556],'FontSize',13+7*(c=='t'),'BackgroundColor',bg);
% The one choice, styled like a Command Window hyperlink.
set(G.ch,'String',['[' b(3:end) ']'],'Position',[20 576-numel(L)*s.lh],'Visible',c=='q','Color',ch);
% The Workspace: what you have won so far.
set(G.ws,'String',[{'Workspace' '' 'Name   Value'} s.W],'Color',fg,'EdgeColor',.6*bg+.4*fg,'BackgroundColor',bg,'Visible',c~='t');
end
Play Game
Preview

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