Paperboy: Back on the Block

Vasilis Bellos
/
Paperboy: Back on the Block
about 5 hours ago
0
4
1
0
10000
game.m
function g = game
% Paperboy: Back on the Block
% A one-button newspaper-delivery game inspired by the arcade classic.
% A tap throws a paper if available and hops if grounded. Deliver to eight
% mailboxes, collect paper bundles and clear obstacles as the pace picks up.
% Accurate throws and delivery streaks earn bonuses; misaligned throws can
% break windows and cost points. Each route ends with a short stunt course.
% Complete Monday through Sunday to beat the game.
g = struct(init=@I, update=@U, render=@R);
end

function s = I(a)
% Initialize state and artwork, then create moving and fixed image layers
set(a, XLim = [.5 400.5], YLim = [.5 300.5], YDir = 'r', Hi = 0, Pi = 'n');
s.G = image(a, 1, Hi = 0, Pi = 'n', Interp = 'b');
s.g = image(a, 1, Hi = 0, Pi = 'n');
s.c = reshape(mod('𕰣𜐦𞱂𞡓𥡒𬑰𮂑𲢨𾂡񅳘𽃿񌓌𙁋𞐶𬁊𥲗𥒍𾁛𜰻𢡊𤡠𨡪𬲊𴢙𭀿𠢨𦑍񇂀𨃳𽑵𝑜𰑌𱲠𰃂񀒴񉃍𤠽𠢅𨁌𽒋𨃭񀲗񃱕𤣱𳱰񍓉𣃿񍣥', 1024), 3, [])'/255;
colormap(a, s.c);

% Packed constants contain data only; sprites and font rows share the same back-reference decoder
s.A = reshape(L('𐀰𐐣󒀥󒀐𘜨󎐇𨼞𗼠󍰖𑼞𒀟𒀣󗀖𕠐󘀐𘬛󅬹󍼟𒀢󖠖𐐡𱌥󎁣󖛸󘰖𕦍󿰧𗠞𗐣𐋿𕐡󘀖𕠁𖼝𕼘𗀢󗀁𐚔󞓆󗐣󖰖򔌺󘠀󞰀𐐖𐑣𕬤񻛷󖐢󗠁󖢥󦬙𔀐𱋷󗉒񉼚𕠖󍱣󍼘𙀕𨼜򜛸𑰐󚠐󍼚𚍿󞫸󖝇𘫹𜌇𠑁𐐢󚠆𑬯𛼟𐰬󞀅𚬴򵌚𐰪󜌸𑐪󖌸𐰪󜠣󙼸𛬞񚠲󅬩𠑁𠐚𘬱󳼋𙀙𘜬𙜵󞊖𚼸󞌸𗐝𖐤򿼠󞅬󗘔󘐁󛐚𖰢󖐭𖠚󖰚𐀱󖧖󞀁𐜧𠐍𙼥𔀥󗬸𐐣󗼸𙌟󞀁𘼟󞀤󗼸𐐣󗼸𙌟󞀁𘼟󞀤󗼸𐐣󗼸𙌨𓐥󜑀𐐫󚜸𔐲󎀝𛠟𗰝󗠁𙜞𔀐󖐞󖠖𘼘𗠣󛘑󝌸󞌸󞀟𗼚𘜚𙌘𙌜𘠑𛜘𱌘𙐁𚹕󞌸𜱁𠐠𙜬𔁂𔀁󙐕򵌥󞌸󞀢󞌸𕠦󗌸𘀣𔁂󗌸򽡣󞌸𘜞𛰐𘬚𜰁𐜞𠑁𐐵󖀟𜼪󞀝𛜭󞆎𙆒󞂦𘼢󞌸󞀤񴌸𚬮󞀰󚬸𝌘耷'), 24, 24, []);
s.F = reshape(L('𐀥𑀣𐁂🁁𑀄𗱣򖐟񤛜𓠑𔰕𖐑𓠄𓀄𘠎򃠁𐠄𒀟𗠁𐐎𨰞𐠆𒠒𗰂𐠟𔀐𗧏𓣨𔐑𓠟𐐂𑀈𘐎񪱥𱐏󷀎𐀄𐁤𜀟𠰵𓠑𔐟𔐡𗡧򃠐𘐑𓥬򵠟񳀞𨰟񊛸󷐗򽐏󞠟𱐎𑀣𓠇𐠡𔠒𓀑𔠔𖀔𔠑𔀤𗰑𖰕𕐑𘠙𖐕𔰓𔐎񫓆𗢄𗮾򄀕𔠍򄀔𔠑𓸲𐐁𗠟𑀤𔐤𓣉𒧐𕐕𖵮𒩖𘠟𐐂𑀈𔀟𐀥'), 7, []);

% State: n: day, d: distance, t: elapsed time, m: mode, l: lives, v: score,
% b: best score, i: papers, k: daily delivery streak/multiplier, H: deliveries,
% a: intact windows [right; left], r: house results (-1: missed, 0: pending,
% 1: delivered), j: hop time remaining, e: throw cooldown, f: crash immunity,
% q: input lockout, w: time remaining for a jump-delivery bonus, M: message,
% N: message time, h: house distances, o: obstacle distances, y: obstacle kinds,
% B: bundles, T: target distances, p: papers [age, launch distance, target index],
% x: broken panes this week, u: successful deliveries this week, c: palette,
% z: next score threshold for an extra life, A: sprites, F: font rows,
% G: moving scenery, g: fixed foreground
%
% Paper targets: -1 to -8: sidewalk by mailbox; 0: miss; 1-8: mailbox;
% 9-11: bullseye; 12-27: window
%
% Modes: 0: title, 1: active play, 2: daily results, 3: loss, 4: Sunday victory
[s.b, s.t, s.m] = deal(0);
s = D(s);
s.m = 0;
end

function s = D(s)
% Start the next day or reset the week while retaining the best score
if s.m == 2
    s.n = s.n + 1;
else
    [s.n, s.l, s.v, s.x, s.u, s.z] = deal(1, 3, 0, 0, 0, 15e3);
end

for v = 'djefqwk'
    s.(v) = 0;
end
[s.m, s.i, s.H] = deal(1, 10, 0);
s.h = 180:190:1510;
s.a = ones(2, 8);
s.r = 0*s.h;

% The first mailbox is safe; later obstacles allow combined jump-deliveries
s.o = [s.h(2:8)-28 1730:140:2010];
s.T = [s.h s.o(8:10) repelem(s.h, 2)];
% Shuffle the two short sets: every type appears, with at most two in a row
s.y = [randperm(4) randperm(4, 3)];
% The slots retain thrown and settled papers throughout the day
s.p = zeros(40, 3);

s.B = [660 1230];
n = split(Z('𣑏𣡄𠑙𘁔𥑅𤱄𠑙𘁗𡑄𣡅𤱄𠑙𘁔𢁕𤡓𡁁𦐠𡡒𢑄𠑙𘁓𠑔𥑒𡁁𦐠𤱕𣡄𠑙'));
s.M = n(s.n);
s.N = 2;
end

function s = U(s, h, p)
% Advance the clocks, then resolve active input, deliveries, pickups, and crashes
s.t = s.t + h;
for v = 'qefNwj'
    s.(v) = max(0, s.(v)-h);
end
if s.m ~= 1
    if ~s.m
        s.d = mod(s.d+25*h, 600);
    end
    if p && ~s.q
        s = D(s);
    end
    return
end

a = s.d;
s.d = a + (78+7*s.n+18*(a > 1640))*h;
if p && ~s.e
    s.e = .24;
    if ~s.j
        s.j = .78;
    end
    if s.i
        % Zero age marks a free slot; negative age retains a settled paper
        k = find(~s.p(:, 1), 1);
        % Select a target at release using the mailbox and stunt hit ranges
        % Mailbox hits intercept the paper before either window behind them
        % Window targets are selected along the extended guide y=0.6*x+58.4
        [s.p(k, :), s.i] = deal([.001 s.d J(s)], s.i-1);
    else
        [s.M, s.N] = deal('EMPTY BAG', .65);
    end
end

% Resolve standard throws and window throws
s.p(:, 1) = s.p(:, 1) + h*(s.p(:, 1) > 0);
for k = find(s.p(:, 1) >= .46+.24*(s.p(:, 3) > 11))'
    s = W(s, k);
end

% Mark undelivered houses as missed and reset the delivery streak
for i = find(s.h < s.d-70 & ~s.r)
    [s.r(i), s.k, s.M, s.N] = deal(-1, 0, Z('𣑉𤱓𡑄𘁁𘁃𥑓𥁏𣑅聒'), .8);
end

% Collect a crossed bundle near ground level and fill the bag to ten papers
if any(s.B >= a & s.B < s.d) && s.j < .06
    [s.i, s.B(s.B < s.d)] = deal(10, Inf);
end

% Street crashes cost a life; a stunt-course crash ends only that course
for i = find(s.o <= s.d & s.o > a)
    if s.j > .12 && s.j < .7
        % Award clearance points without replacing an active notice
        [s.w, s.v] = deal(.8, s.v+25);
    elseif ~s.f && s.d > 1640
        s.d = 2140;
    elseif ~s.f
        [s.l, s.f, s.k, s.M, s.N] = deal(s.l-1, 1.6, 0, 'WIPEOUT', 1.4);
    end
end
if a < 1640 && s.d >= 1640
    [s.M, s.N] = deal('STUNT PARK', 2);
end

% Add the perfect-route bonus and select daily results, game over, or victory
if s.d >= 2140 || ~s.l
    s.v = s.v+500*s.n*(s.H == 8);
    [s.m, s.q, s.b] = deal(2+~s.l+2*(s.l && s.n == 7), .6, max(s.b, s.v));
end
s = K(s);
end

function s = W(s, k)
% Resolve one paper's delivery, glass impact, or final landing
z = s.p(k, 3);
s.p(k, 1) = -(z < 1);
if z > 11
    % Each intact pane breaks once; the penalty cannot exceed the score
    if s.a(z-11)
        X = min(250, s.v);
        [s.a(z-11), s.v, s.M, s.N, s.x, s.k] = deal(0, s.v-X, "WINDOW -"+X, 1, s.x+1, 0);
    end
    return
elseif z > 8
    [X, s.M, s.N] = deal(200, 'BULLSEYE', .7);
elseif z > 0 && ~s.r(z)
    E = abs(s.p(k, 2)+55-s.h(z)) < 14;
    [s.r(z), s.k, s.H, s.N, s.u] = deal(1, s.k+1, s.H+1, 1, s.u+1);
    J = E && s.w;
    X = (100+150*E+250*J)*s.k;
    w = split(Z('𡁅𣁉𥡅𤡅𡁼𢑎𘁔𢁅𘁂𣱘𯁓𤁅𠱉𠑌𘁄𡑌𢑖𡑒聙'), '|');
    s.M = w(1+E+J);
else
    return
end
[s.v, s.M] = deal(s.v+X, s.M+" +"+X);
s = K(s);
end

function s = K(s)
% Award each 15,000-point life once, up to six total
% Consume thresholds at the cap so lost lives cannot claim banked bonuses
while s.v >= s.z && s.l
    [s.l, s.z] = deal(min(6, s.l+1), s.z+15e3);
end
end

function R(~, s)
% Render the street, rider, delivery indicators, and newspaper screens
% Pixel artwork uses a reusable 400-by-300 canvas and two image layers
% Scenery scrolls continuously beneath the independently drawn rider and interface

d = s.d;
m = s.m;
% Project route distance to screen coordinates
% Round one camera translation; world objects retain fixed local geometry
S = round(d*[.33 .6]);
F = @(z) deal(234+.33*z-S(1), 220-.6*z+S(2));
% All ground markings share the same pixel-aligned scrolling offset
Y = (1:300)'-S(2);
x = (1:400)+S(1)-round(311-.55*Y);

% Paint consistent asphalt, equal-width lanes, curb, and grass
b = uint8(10-4*(x >= -30)+(x >= -5)+7*(x >= 0)+2*(x >= 160)-6*(x >= 164));
b(x >= 78 & x < 82 & mod(Y, 45) < 21) = 7;
b(x >= -30 & x < -5 & mod(Y, 30) < 1.5) = 5;
b((x < -30 | x >= 164) & mod(Y, 23) == 0 & mod(x, 19) < 2) = 11;

% Draw the houses from far to near; fixed world anchors keep houses and sidewalk aligned with the same camera
N = '슲쟏쇏懭쇧짧犏짯'-'一';
J = [0 .55 1i-1 -1i 1.05i-.3 -.3-.7i -.3];
C = 0:32;
G = 220-s.h*.6+S(2);
for i = flip(find(abs(G-200) <= 220))
    y = G(i);
    x = round(190+.33*s.h(i))-S(1);
    C = [0:32 7 6 22 18+mod(i, 2) 32*(s.r(i) > 0) kron(~s.a(:, i)', [1 32 8])];

    % Paired ten-bit values encode offsets, dimensions, and color/shear
    A(x-32, y-2, '𑑠񏒞񂑎𪢷𳃆𑰰񅒱𸑴𖂁𶄢𧀰𶒚𸡜𢢘𶅢𪠇𰒑񸡥𖂑𶇢𔐇񆢩򙀐𓓘𰒑𗰎𰒄𴐾𓢁𱂑𓠔񆂁𴐬𕒁𱂑𢰕𰒄𴐌𖳘𰒑𖰜𰒄𴐺𗂁𱂑𒠢񆂁𴐨𘲁𱂑𡰣𰒄𴐈𚓘𰒑𕰪𰒄𴐶𚢁𱂑𑐯񆲃𴐇𜣕𰢈𓀼񂲁𸠌𡓋𰒢𓁎񂲁𸠌𥳋𰒢𡑂𴒟𶑇𡂍𶲚𤁒𰢂𷰔🢑𵂁𕡀𳒐𸰜𠂁𴂈𕡇𳒁𲀫🢑𵂁𛑀𳒐𸰳𠂁𴂈𛑇𳒁𲀢𐒊𵂑𘀀𳢄𴀊𬲃𳢈𒡱𰲂𱰗𬲃𳢈𕱱𰲂𱰤𬲃𳢈𙁱𰲂𱰱𬲃𳢈𜑱𰲂𱰾𬲃𳢈🡱𰲂𱱋𬲃𳢈𢱱𰲂𱱘𬲃𳢈𦁱𰲂𱰈𭳘𰢇𒑣𷒈𲐌𨂖𱢋𰡶𰲎𶡼𫒏𲢣𯑮𱲆𰒌𩲂𳒝𳁧𱢄𷑾𬂅𰲥𛡁𰲁𹠭𠢅𰲦𛡅𱂂𹠭𠒁𰒧𜑆𰒁𹰵𠒁𰢦𝡃𰒁𹠷𡂁𰢦𝑉𰲂𹠴𢲅𰲦𝡎𰢁𹠸𢢁𰒧𝁎𰒁𺀗𠒃𰒩𕡂𱒃𺐗𡒄𰢩𕡁𰒁𺠚𡢁𰒪𗡁𰒂𺐟𠲁𰒩𘁄𰒂𺐞𢒃𰢩𗑋𱒃𺐟𣢂𰒩𘑊𰒁𺠝𣢁𰒫');

    % Draw the house number inside the mailbox
    B(32*bitget(N(i), (0:3:12)'+(3:-1:1)), x-27, y-20);
end

% Draw the trees on the opposite grass strip with angular canopies and shadows
for z = 0:190:2400
    [x, y] = F(z);
    % Align each tree and its shadow to the same pixel anchor
    x = round(x+139);
    A(x, y, '𮂀𵒉񂒀𪒅𶢙𬱕𷢗𲑮𦲦𴂉𬱕𶢑𲱹𣲐𷂋𮁔𴒈𳁰𧢈𱒊');
end

% Unlabeled newspaper bundles sit clear of the hazards; grounded collection removes a bundle
for z = s.B
    [x, y] = F(z);
    B(s.A(:, :, 6), x-23, y-20);
end

% Draw silhouettes: trash can, dog, drain and lawnmower
for i = 1:7
    [x, y] = F(s.o(i));
    k = s.y(i);
    x = x + 12*sin((s.o(i)-d)/44)*(k == 2) ...
        + max(-44, min(45, (s.o(i)-d)*.35))*(k == 4);
    B(s.A(:, :, k+1), x-12, y-20);
end
for z = s.o(8:10)
    [x, y] = F(z);
    A(x, y, '𬁼𸂉𶡰𮂠𱂟𙡩𰲘肚');
    B(s.A(:, :, 7), x-101, y-43);
end

E(s, -1, F, @A, @Q);

% Duplicate source pixels before filtering, keeping block interiors crisp
% Align the enlarged scenery image with the original pixel grid
set(s.G, CData = repelem(b(:, [1 1:400 400])-1, 2, 2), ...
    X = [-1 1605]/4+S(1)-.33*d, Y = [3 1201]/4+.6*d-S(2));
W = b;
b(:) = 0;

% Fixed guide and bike shadow; title and result pages cover the guide
A(0, 0, '񝄧𰲁𲄻񚲃𰒈񠤯𰲁𲅉񝂃𰒈񤄸𰲁𲅗񟂃𰒈񧥀𰲁𲄲񘲂𲒟񛤧𲢁𷵜񧒚𰲍');

% Raise the rider during a hop and flash the sprite during crash immunity
if ~s.f || mod(s.t, .16) < .08
    B(s.A(:, :, 1), 218, 196-28*sin(pi*s.j/.78));
end
% Animate the pedal while the bike is on the ground
if ~s.j
    Q(232+3*sin(s.t*18), 211, 3, 3, 8);
end
E(s, 1, F, @A, @Q);

% Draw the score, inventory, lives, streak, and daily delivery indicators
A(0, 0, '𰒁򔂞𰒁𷘐𰢟𰖖򔂗𰕍񷤶𱒃');
V(sprintf(Z('𒐆𐠠𙐰𝡤𯁩𑐁𗱄𠑙𘀥𩁼𪐑𐐈𠡁𡰠𙑤𯂬𑐁𗑌𢑖𡑓𘀥𩁼𻀑𐐗𤱔𤡅𠑋𘀥𬰥聤'), s.v, s.n, s.i, s.l, repmat('X', s.k > 0), s.k));
V('񖀅𐐈𠱕𤱔𣱍𡑒聓');
B(kron(16-5*(s.r > 0), [ones(6, 8) zeros(6, 4)]), 279, 16);

V('𓄞𐐈𥁁𤀠🐠𥁈𤡏𥰠𚰠𢁏聐');

Q(205, 286, 182*min(1, d/2140), 5, 31);
if s.N && m == 1
    A(0, 0, '񆒧񦢐肁');
    T(0, 44, s.M, 1, 31);
end

if m == 1
    O;
    return
end

A(0, 0, '𸳂򃤿𰒟𿧎񟲈𹃃򁄵𱲮񆆰𰢁');
V('𐁌𐐁𥁈𡐠𣡅𢑇𢁂𣱒𢁏𣱄𘁄𠑉𣁙');

if ~m
    V('𐁠𑐁𤁁𤁅𤡂𣱙|𐂋𐠁𠡁𠱋𘁏𣠠𥁈𡐠𠡌𣱃聋|𐂢𐐁𡑘𥁒𠐡𘁅𦁔𤡁𘐠𤡅𠑄𘁁𣁌𘁁𠡏𥑔𘁉𥀡|𐂸𐐁𥁁𤀠𥁏𘁔𢁒𣱗𘁁𘁐𠑐𡑒𘁁𣡄𘁈𣱐耮|𐃅𐐁𠑉𣐠𠑔𘁍𠑉𣁂𣱘𡑓𛠠𢡕𣑐𘁏𥡅𤠠𥁒𣱕𠡌𡐮|𐃒𐐁𤁉𠱋𘁕𤀠𤁁𤁅𤠠𠡕𣡄𣁅𤰠𥁏𘁒𡑆𢑌𣀠𦑏𥑒𘁂𠑇耮');
    T(0, 230, 'TAP TO START', 1, 1+28*(mod(s.t, 1) < .5));
else
    % Center the result rows
    w = split(Z('𡁁𢑌𦐠𡑄𢑔𢑏𣡼𤡏𥑔𡐠𡑎𡁅𡁼𣁏𠱁𣀠𢁅𤡏𘑼𥁁𤀠𡡏𤠠𣡅𦁔𘁄𠑙𯁔𠑐𘁔𣰠𥁒𦐠𠑇𠑉𣡼𥁁𤀠𡡏𤠠𠐠𣡅𥰠𥱅𡑋𯁐𡑒𡡅𠱔𘁒𣱕𥁅𘐠𚰵𜀰𘁐𡑒𘁄𠑙𯁇𡑔𘁂𠑃𢰠𣱎𘁙𣱕𤠠𠡉𢱅𯁓𡑖𡑎𘁄𠑙𤰮𘁏𣡅𘁌𡑇𡑎𡁁𤡙𘁒𣱕𥁅𛡼𤱃𣱒𡐠𙐰𝡤𘀠𠡅𤱔𘀥𜀶𩁼𘁏𡠠𞀠𣡅𥱓𤁁𤁅𤡓𘁄𡑌𢑖𡑒𡑄𯀠𣡅𥱓𤁁𤁅𤡓𘁄𡑌𢑖𡑒𡑄𯀠𥱉𣡄𣱗𤰠𠡒𣱋𡑎𯀠𥱉𣡄𣱗𘁂𤡏𢱅𣡼𣁏𠱁𣀠𣑅𣡁𠱅𘑼𤱅𥡅𣠠𡁁𦑓𛠠𣱎𡐠𤱈𠑔𥁅𤡅𡀠𠡌𣱃𢰮'), '|');
    k = (m > 3)*(1+(s.x > 3));
    G = 'Hux';
    T(0, 101, w(m-1+12*(k == 2)), 3, 1);
    w(12) = eraseBetween(w(12), 11, 10+(s.u == 1));
    X = nnz(~s.a);
    C = [sprintf(w(10), s.v, s.b); s.(G(k+1))+w(11+k); ...
        repmat(X+w(14-(X > 1)), m == 2 && X); ...
        w(7:6+(s.H == 8 & m < 4)); w(m+5+7*(k == 2):m+4+(m > 2)+7*(k == 2))];
    for i = 1:numel(C)
        T(0, max(162+20*i-10*numel(C), 210*(C(i) == w(8))), C(i), 1, 1);
    end
    T(0, 230, w(m+2), 1, 1);
end
O;

    function O
        % Keep the foreground fixed while retaining the composite frame
        set(s.g, AlphaData = b > 0, CData = b+W.*uint8(~b)-1);
    end

    function Q(e, f, g, h, j)
        % Fill a rectangle, clipping its integer bounds to the image
        b(max(1, round(f)):min(300, round(f+h-1)), ...
            max(1, round(e)):min(400, round(e+g-1))) = j;
    end

    function A(e, f, g)
        % Draw the fixed local shapes in paint order; house colors use the active palette
        % Each column stores offsets, dimensions, and color/shear
        for h = reshape(mod(g, 1024)-128, 5, [])
            c = C(1+mod(h(5), 64));
            j = J(fix(h(5)/64)+1);
            H = h(4)^(j == 0);
            for n = 0:(h(4)-1)*(j ~= 0)-h(4)*~c
                r = round(n*real(j));
                Q(e+h(1)+r, f+h(2)+n, h(3)+round(n*(real(j)+imag(j)))-r, H, c);
            end
        end
    end

    function B(e, f, g)
        % Composite the nonzero palette indices, clipping pixels to the image
        [h, j, l] = find(e);
        n = round(f) + j;
        p = round(g) + h;
        q = n > 0 & n <= 400 & p > 0 & p <= 300;
        b(p(q)+300*(n(q)-1)) = l(q);
    end

    function V(z)
        % Draw the labels with encoded position, scale, color, and packed or plain text
        for v = split(z, '|')'
            n = mod(char(v), 1024);
            T(n(1), n(2), Z(n(5:end)), n(3), n(4));
        end
    end

    function T(e, f, g, h, j)
        % Draw the bitmap text
        l = bitget(repelem(2*s.F(:, char(g)-31), 1, 6), repmat(6:-1:1, 7, strlength(g)));
        n = find(any(l));
        B(repelem(l, h, h)*j, e-1+~e*(198+(1-n(1)-n(end))*h/2), f-1);
    end
end

function E(s, q, F, A, Q)
% Draw the settled papers with scenery and thrown papers above the rider
D = mod('𢀀𣠒𦰠𷐿𽀿', 1024);
for p = s.p(s.p(:, 1)*q > 0, :)'
    a = p(3);
    v = a > 11;
    k = 1+(a > 0)+(a > 8)+v*(1+mod(a, 2));
    e = [55 s.T-p(2)];
    % Each target has one continuous arc; negative IDs land on the sidewalk
    u = min(1, p(1)*q/(.46+.24*v));
    [x, y] = F(p(2)+e(abs(a)+1)*u);
    x = x-D(2*k-1)*u;
    y = y-20*(1-u)-D(2*k)*u-(20+12*v)*sin(pi*u);
    if k == 3
        Q(x, y, 9-4*u, 4-u, 32);
    else
        A(x, y, '𯱿𲲆𰒀𰂉𱂠𰲀𰒄肕');
    end
end
end

function a = L(z)
% Decode the paired ten-bit sprite/font tokens: literals 0-32 or backward references
% The references store distance*33+length-2; the maximum distance is 30 values
a = [];
for v = mod(z, 1024)
    d = fix(v/33);
    % Literal tokens use an empty copy range; references repeat up to 34 values
    a = [a v(~d) a(end-d+1+mod(0:mod(v, 33)+1-34*~d, d))]; %#ok<AGROW>
end
end

function t = Z(z)
% Decode packed ASCII characters; an odd final character uses a BMP token
t = string(char(mod(z, 1024)));
end

function j = J(s)
% Select a target at release, with mailbox priority and a wider delivery range
% Projected centers and radii use integer thousandths of a source pixel
% The mailbox interval includes the full scoring range abs(distance-55)<14
% Check the wider delivery range after mailbox, bullseye, and window targets
v = s.T-s.d;
b = abs(798*v-40000-'፟፟፟፟፟፟፟፟༲༲༲㢤溌㢤溌㢤溌㢤溌㢤溌㢤溌㢤溌㢤溌') <= ...
    '⿑⿑⿑⿑⿑⿑⿑⿑槼槼槼⭜⭜⭜⭜⭜⭜⭜⭜⭜⭜⭜⭜⭜⭜⭜⭜';
b(9:11) = abs(v(9:11)-55) < 34;
j = sum(mod(find([b abs(v(1:8)-55) < 38], 1)-1, 27)+1);
% A filled mailbox or an incoming delivery reserves the slot for that day
% Resolved mailbox targets remain in the pool only while their box is filled
j = j*(-1)^(j < 9 && any(j == [find(s.r > 0) s.p(:, 3)']));
end
Play Game
Preview

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