Street Racer

Vasilis Bellos
/
Street Racer
about 24 hours ago
2
24
7
0
10000
game.m
function g = game
% STREET RACER
% Click or press Space to change lanes. Cyan pickups fill the nitro gauge.
% Close overtakes award additional points. Crash and it's game over.
% Compact state key: m=title/race/crash (0/1/2), t=clock, d=distance,
% x=lateral position, l=target lane, v=relative traffic speed, c=traffic
% rows [depth,lane,car kind/pickup,close-pass flag], z=spawn distance,
% S=score, C=combo, N=nitro duration, F=flash, e=crash duration,
% T=message duration, M=message, P=passes, H=close passes, b=session record,
% f=font, p=pallete, A=car rectangles, V=skyline, g=image, h=plate label.
% Packed strings contain literal artwork only. No external assets are used.
g.init = @I;
g.update = @U;
g.render = @R;
end

function s = I(a)
% The scene uses one indexed image
a.YDir = 'reverse';
a.Position = [0 0 1 1];
a.DataAspectRatio = [1 1 1];
p = reshape(double('ĈĎĘĐěĪĠıŁļŎŞůťŶƿƀŵǯƹƉģīĳĪĲĻňŔŞƴǀƸǯǲǚǿƷňƩĭĶǿśńōǨǙĤŶƔĪŬǿǨŁķǿŶœœĢĮĞĺŌŜƉƚąĊđŻƌƘǃƕłǺǎũƉƜƣǍǖǎĝśżļƪǬųǘǲ')-256,3,[])';
colormap(a,[0 0 0;p]/255);
s.g = image(a,[1 799],[1 599],0,Hi='off',Pi='none');
s.h = text(a,0,0,'DMFG86',FontU='norm',Interp='n',Col='k',Ho='c',Ve='m',Hi='off',Pi='none'); % Blazin' Beat
% Three-by-five row masks indexed by ASCII code minus 31; unused slots are blank
s.f = mod(floor((double('Ā→ĀĀĀĀĀĒĀĀĀېĀˀ℀䦉籯疲竏瓏ᓭ瓧糧ፏ糯瓯ԐĀĀĀĀĀĀ峪沮稧汮窧䪧籧峭疗等岭稤峽惽籯䫯䁯岯瓧▗籭Ɑ惭宭▭福')-256)./8.^(0:4)'),8);

% Rear three-quarter coupe: 24 intact rectangles, then 24 wreck rectangles.
% Five six-bit fields [x y w h palette] per row, packed into two 15-bit characters
% and three connected bumper sections descending toward the right wheel.
s.A = mod(floor((double('╃捅應⅋䈊Ȍ抍搉҄䒃䒡擅Ն՚敇敛֐旑暅䚈䚜␇㐅㐠䕂΅刊ᆌ≋牌ን⑈甄瑄敟敉疇旚䖈ᗕّ暒㛅䝏⟚瑈哆嘋')+32768*double('ㄼ⭫ᵪ✚ⵂ⼒ܑ⤒✼ᴰᴰ⤋ἑἑᤈᤈ⬙ᜐㄓ㌈㌈ㄋㄐㄐㅜᵴᵢ✚ⴺ⼉ᜨ⤛✻ᴸᵀᴑἐ⬐ᤈ㌉⬙ᜐ㌑㌑㌑ㄉ⤐⬐')-8388864)'./64.^(0:4)),64);
% A deterministic skyline keeps rendering independent of the random stream
s.V = mod((1:62).*[37;29;17],[420;23;14])+[-10;15;8];
s.b = 0;
s = Z(s);
s.m = 0;
end

function s = Z(s)
% A retry preserves artwork and the session record, but resets the whole run
for k = 'tdSCNFeTnPH'
    s.(k) = 0;
end
s.x = -1;
s.l = -1;
s.v = 32;
s.M = 'GO!';
s.m = 1;
s.c = [95 -1 1 0;153 1 2 0;repmat([-50 0 0 0],12,1)];
s.z = 42;
end

function s = U(s,d,q)
% Traffic uses world depth. Lane motion is continuous; collision is swept.
s.t = s.t+d;
s.F = max(0,s.F-d);
s.T = max(0,s.T-d);
if ~s.m
    s.d = s.d+36*d;
    if q
        s = Z(s);
        s.T = 1;
    end
    return
end
if s.m==2
    s.e = s.e+d;
    s.v = s.v*exp(-7*d);
    s.d = s.d+s.v*d;
    if q && s.e>.65
        s = Z(s);
    end
    return
end
if q
    r = s.c(:,2)==s.l & s.c(:,1)>7 & s.c(:,1)<25 & s.c(:,3)<4;
    s.c(r,4) = 1;
    s.l = -s.l;
end
o = s.x;
s.x = s.x+sign(s.l-s.x)*min(abs(s.l-s.x),16*d);
s.N = max(0,s.N-d);
f = min(1,s.t/65);
t = 32+24*f+28*(s.N>0);
s.v = t+(s.v-t)*exp(-3*d);
e = s.v*d;
s.d = s.d+(s.v+24)*d;
s.S = s.S+e*(1+floor(s.C/3));
s.z = s.z-e;
if s.z<=0
    % At least 43 depth units separate rows; 14 slots exceed peak occupancy.
    j = find(s.c(:,1)<-16,2);
    s.n = s.n+1;
    l = 2*(rand>.5)-1;
    % Insert the pickup midway to the previous row before adding this car
    if mod(s.n,3)==1
        s.c(j(2),:) = [(190+s.z+e+max(s.c(:,1)))/2 -l 4 0];
    end
    s.c(j(1),:) = [190+s.z+e l randi(3) 0];
    s.z = s.z+max(43,s.v*(1.18-.28*f))*(1+.18*rand);
end
z = s.c(:,1);
s.c(:,1) = z-e;
% Exact swept segment-versus-box intersection in lateral/depth coordinates
p = [o-s.c(:,2),z];
v = [s.x-o+eps,-e];
a = (-[.58 3.2]-p)./v;
b = ([.58 3.2]-p)./v;
h = max(0,max(min(a,b),[],2))<=min(1,min(max(a,b),[],2));
if any(h & s.c(:,3)<4 & s.c(:,3))
    [s.m,s.b,s.F] = deal(2,max(s.b,floor(s.S)),.35);
    return
end
for j = find(z>=-4 & s.c(:,1)<-4 & s.c(:,3)<4)'
    i = s.c(j,4);
    s.P = s.P+1;
    s.H = s.H+i;
    s.C = min(12,s.C+1);
    s.S = s.S+(100+200*i)*(1+floor(s.C/3));
    if i
        s.M = sprintf('CLOSE OVERTAKE +%d',300*(1+floor(s.C/3)));
        s.T = .85;
    end
end
% A swept pickup contact starts/refills one full burst and consumes its slot
j = find(h & s.c(:,3)==4,1);
if ~isempty(j)
    s.c(j,:) = [-50 0 0 0];
    [s.N,s.M,s.T] = deal(3.2,'NITRO',1.1);
end
end

function R(~,s)
S = @sprintf;
% Cache the crash flag shared by the raster painters
i = s.m==2;
W = @floor;
M = @mod;
u = @round;
% Indexed, low-resolution raster. Nested painters mutate only this frame.
B = zeros(300,400,'uint8');
J = i*max(0,1-s.e*2)*5*sin(s.t*95);
V = 22*sin(s.d/620)+10*sin(s.d/280);
C = @(p)200+V*(1-p/212).^2-s.x*5*p/212+J;
% Dusk sky, sun slats, mountains, and layered illuminated city blocks
for y = 1:100
    B(y,:) = min(6,2+W(y/20));
end
for y = 51:88
    w = sqrt(19^2-(y-70)^2);
    D(287-w,y,2*w*(M(y,5)~=0),1,7);
end
for k = 1:62
    x = s.V(1,k)-V*.2;
    h = s.V(2,k);
    w = s.V(3,k);
    D(x,101-h,w,h,2+M(k,2));
    for Z = 105-h:6:96
        for X = x+3:5:x+w-2
            if M(X+Z+k,3)~=0
                D(X,Z,1,2,5+2*(M(k,4)==0));
            end
        end
    end
end
% Perspective road. Inverse projection keeps the lane-marking spacing physical.
p = (11:212)';
z = 2100./p-12;
c = C(p);
w = p*1.28;
n = M(W((z+s.d)/5),2);
E = 2+n+zeros(1,400);
H(c-w-9*p/100,2*w+18*p/100,10);
H(c-w-5*p/100,2*w+10*p/100,11-3*n);
H(c-w,2*w,8+M(W((z+s.d)/14),2));
H(c-w+3*p/100,1+p/100,11);
H(c+w-5*p/100,1+p/100,11);
H(c-p/100,(1+p/50).*(M(z+s.d,12)<6),12);
for d = [-1 1]
    H(c+d*w*.94,(2+p/90).*(M(z+s.d,4)<.35),13);
end
B(99:300,:) = E;
% Lampposts approach on both verges, with a warm pool below each lamp
for k = 9:-1:0
    z = M(k*26-s.d,260);
    p = 2100/(z+12);
    y = 88+p;
    c = C(p);
    for d = [-1 1]
        x = c+d*p*1.46;
        D(x,y-p*.9,max(1,p*.025),p*.9,10);
        D(x-d*p*.23,y-p*.9,p*.23*d,2+p*.025,25);
        D(x-d*p*.22,y-p*.88,p*.17*d,1+p*.02,7);
        D(x-d*p*.16,y,d*p*.12,1+p*.045,10);
    end
end
% Sort distant traffic first. The slot pool also holds nitro pickups.
[~,o] = sort(s.c(:,1),'descend');
for k = o'
    z = s.c(k,1); q = s.c(k,3);
    if ~s.m
        z = M(z-s.d,170)+5;
    end
    if z< -10 || z>220 || ~q
        continue
    end
    p = 2100/(z+12);
    x = C(p)+s.c(k,2)*p*.64;
    y = 88+p;
    if q==4
        for a = 0:2
            for b = -1:1
                D(x+b*p*.1,y-a*p*.1+abs(b)*p*.05,p*.1,p*.035,16);
            end
        end
    else
        A(x,y,p/110,q,0);
    end
end
% Independent eight-second showers every thirty seconds, across the whole view
for k = 1:u(48*sin(pi*max(0,M(s.t+12,30)-22)/8))
        y = M(k*47+s.t*220,254)+27;
        x = M(k*31-s.t*40,400);
        D(x,y,1,4+M(k,7),23);
end
P = C(175)+s.x*112;
Y = 266+~i*M(W(s.d*.09),2);
A(P,Y,1.75,0,(s.l-s.x)*4);

% The exhaust is painted after the car shadow/reflections so that the jets remain visible
if s.N && s.m==1
    for d = [-1 1]
        f = 11+3*sin(s.t*80+d);
        D(P+d*18-4,Y-1,8,f,18);
        D(P+d*18-2,Y-1,4,f*.8,16);
        D(P+d*18-1,Y-1,2,5,12);
    end
end
if i
    % Two-tone pixel smoke rises and expands
    for k = 1:6
        r = M(s.e*18+k*10,60);
        w = 7+r/5;
        x = P+s.x*(20+r/3);
        y = Y-43-r;
        D(x-w/2,y,w,w*.6,10);
        D(x-w*.3,y-2,w*.6,w,25);
        D(2*P-x,Y-35-r/2,w/2,w/2,25);
    end
end
% Each text position is its horizontal center, including variable-length labels
D(0,0,400,27,1);
T('STREET RACER',70,6,2,15);
T(S('%06d',W(s.S)),200,6,2,12);
for k = 1:3
    D(249+10*k,8,6,7,3+9*(k<=M(s.C,3)+3*(s.C==12)));
end
T(S('X%d',1+W(s.C/3)),302,6,2,12);
T(S('%03d',u((s.v+24*~i)*3.6)),362,4,3,12);
T('KM/H',362,21,1,11);
D(0,281,400,19,1);
T('NITRO',24,287,1,16);
q = s.N/3.2;
for k = 1:24
    D(35+k*6,287,4,5,3+13*(k<=q*24));
end
T(S('%04d M',W(s.d)),245,287,1,11);
T('TAP: SWITCH LANES',352,287,1,11);
if s.T && s.m==1
    T(s.M,200,47,2,16);
end
if ~s.m
    D(59,92,282,112,1);
    D(59,92,282,2,13);
    T('STREET RACER',200,104,4,15);
    T('CLICK OR PRESS SPACE: SWITCH LANES',200,133,2,12);
    T('CYAN PICKUPS FILL THE NITRO GAUGE',200,155,1,16);
    T('CLOSE OVERTAKES EARN MORE POINTS',200,166,1,13);
    T('CLICK TO START',200,189,2,12);
elseif i
    D(77,92,246,112,1);
    D(77,92,246,2,15);
    T('TOTALED',200,104,4,15);
    T(S('SCORE %06d',W(s.S)),200,134,2,12);
    T(S('BEST %06d',s.b),200,151,2,13);
    T(S('%d OVERTAKES / %d CLOSE',s.P,s.H),200,170,1,11);
    T('TAP TO TRY AGAIN',200,189,2,12);
end
% The border pulse is reserved for collisions
if s.F && i
    D(0,28,3,252,15);
    D(397,28,3,252,15);
end
s.g.CData = B;

    function H(l,v,f)
        m = (1:400)>=u(l) & (1:400)<u(l+v);
        E = E.*~m+f.*m;
    end
    function D(x,y,w,h,c)
        % Signed widths allow mirrored lamp arms. Clip before indexing.


        B(max(1,u(y)):min(300,u(y+h)-1),max(1,u(min(x,x+w))):min(400,u(max(x,x+w))-1)) = c;
    end
    function A(x,y,k,K,U)
        % Only the player and the contact row reach this near field at a crash
        N = i && y>220;
        L = [30 31 32;25 25 29;26 26 27];
        D(x-20*k,y-3*k,40*k,5*k,24);
        % Long, dim tail-light reflection on the polished tarmac
        for j = -1:2:1-4*N
            D(x+j*12*k-2*k,y+2*k,4*k,5*k,21);
        end
        for j = 1:24
            Q = s.A(j+24*(i && ~K),:);
            c = Q(5);
            c(N & any(c==[12 15])) = 21;
            if K && any(c==[14 19 20])
                c = L(K,max(1,c-17));
            end
            v = x+(Q(1)-20)*k+U*(24-Q(2))/24;
            % Anchor the silver inset to the preceding brown recess.
            % A fixed ten-pixel width prevents rounding-induced breathing.
            if j==18 && ~K
                v = u(r)+2;
                Q(3) = 40/7;
                set(s.h,Pos=[2*v+8,2*(y-8+5.5*i)],FontSi=.0075);
            end
            D(v,y+(Q(2)-24)*k,Q(3)*k,Q(4)*k,c);
            r = v;
        end
    end
    function T(t,x,y,k,c)
        % Caption glyphs occupy fixed ASCII slots; space has a blank glyph
        x = u(x-(4*numel(t)-1)*k/2);
        for j = 1:numel(t)

            [F,G] = find(M(W(s.f(:,t(j)-31)./[4 2 1]),2));
            I = y+(F-1)*k+300*(x+(4*j+G-5)*k-1);
            O = (0:k-1)'+300*(0:k-1);
            B(I+O(:)') = c;
        end
    end
end
Play Game
Preview

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