Drift Boss

Stefan Abendroth
/
Drift Boss
about 6 hours ago
2
14
5
3
8891
game.m
% Tap button to turn vehicle from left to right and vice versa.
% Make sure to turn at the right moment before the curve.
% Watch out! After each level, the car will go faster,
% so turning will become more difficult.
% Disclaimer: This game has been handcrafted, with AI assistance only for image coding and decoding (line 23-37).
% Inspired by https://www.play123.com/game/drift-boss

function g = game()
    g.init   = @initState;
    g.update = @updateState;
    g.render = @renderFrame;
end
function state = initState(ax)
    ax.Color = [0 0.3 0];
    state.road = [0 -1 -2 -3 -2 -1 -2 -1 -2 -1 0 1 2 1 0 1];
    state.p = [0;0];    % position
    state.v = [1;0];    % velocity
    state.o = true;     % vehicle orientation (true=left, false=right)
    state.trace = zeros(2,20);
    state.level = 1;
    state.score = 0;
    state.highscore = 0;
    state.restart = false;
    b=uint8(matlab.net.base64decode('AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACJmZAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAiZqqqpgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAImZqqqqqpgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAiYmqqqqqqqqpkAAAAAAACJkAAAAAAAAAAAAAAAAAAAAAAAAAAAAACJmqqqqqqqqqqpkAAAAImZqqmAAAAAAAAAAAAAAAAAAAAAAAAAAImJmqqqqqqqqqqqqqkAAAiaqqqqmQAAAAAAAAAAAAAAAAAAAAAAAAmaqqqqqqqqqqqqqqqqmZmaqqqqqqkAAAAAAAAAAAAAAAAAAAAAAImqqqqqqqqqqqqqqqqqqqqqqqqqqqqqmAAAAAAAAAAAAAAAAAAAiZmqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqYAAAAAAAAAAAAAAAACZqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqQAAAAAAAAAAAAAAiZqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqYAAAAAAAAAAAACOuqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqmQAAAAAAAAAAAAm7uqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqYAAAAAAAAAAAKu7uqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqZAAAAAAAAAAi7u7uqqqqqqqqquqqqqqqqqqqqqqqqqqqqqqqqqqqqqZAAAAAAAAAIu7u7uqqqqruqq7uqqqqqqqqqqqqqqqqqqqqqqqqqqqqpAAAAAAAIi7u7u7u6qrzuu7vMuqqqqqqqqqqqqqqqqqqqqqqqqqqqqpgAAAAADru7u7u7uqvOiLvN3MuqqqqqqqqqqqqqqqqqqqqqqqqqqqqpgAAAAA67u7u7u7ur6I7M3d3cu6qqqqqqqqqqqqqqqqqqqqqqqqqqqpkAAAAOu7u7u7u7vOiO3d3d3cyqqqqqqqqqqqqqqqqqqqqqqqqqqqqpAAAADsy7u7u7u73ojs3d3d3cu6qqqqqqqqqqqqqqqqqqqqqqqqqqqoAAAA3cu7u7u7u96Iy83d3d3cy6qqqqqqqqqqqqqqqqqqqqqqqqqqqQAADd3cu7u7u7vOjru8zd3d3cu6qqqqqqqqqqqqqqqqqqqqqqq7y6mAAA7d3czMy7u7zMu7u7zd3d3Lu6qqqqqqqqqqqqqqqqqqqqq83dy5AAAA7d3N3dy7u7u7u7u73d3dy7u7qqqqqqqqqqqqqqqqqqvM3d3duQAAAAjd3d7dy7u7u7u7u7zd3bvNy7qqqqqqqqqqqqqqq7zN3d3d3bqAAAAAjtzo7dy7u7u7u7u7zd27zdzLqqqqqqqqqqqqqrzd3d3d3d3KkAAAAAjuiI7dy7u7u7u7u7zNu83d3Lqqqqqqqqqqu8zd3d3d3d3dy5gAAAAIiIj47cu7u7u7u7u7vLvN3dy7qqqqqqqqvM3d3d3d3d3d3duZAAAAAOiP/4zbu7u7u7u7zLu7zd3d3Luqqqq7vN3d3d3d3d3d3d3bkAAAAADoj/+O3Lu7u7u7u7y7u83d3d3Luqq7zd3d3d3d3d3d3d3d26gAAAAA7o//jt27u7u7u7u7u7vN3d3d3Lqrzd3d3d3d3d3d3d3d3dypAAAAAA6P/47dzLu7u7u7u7u7vN3d3dy6q93d3d3d3d3d3d3d3d3cqYAAAAAIiPiO3d3Mu7u7u7u7u7vN3d3duqvd3d3d3d3d3d3d3d3dy6mAAAAACI6I7t3d3Lu7u7u7u7u7u83d3bqr3d3d3d3d3d3d3d3cy7qpkAAAAACOzu3d3d3Mu7u7u7u7u7vN3d3Lq93d3d3d3d3d3d3dy6qqqQAAAAAACO7uiO3d3cu7u7u7u7u7vM3dy6rN3d3d3d3d3d3d3cuqqqkAAAAAAACIgACO3d3cu7u7u7u7u7u83cuqzd3d3d3d3d3d3d3cuqqpAAAAAAAAAAAACO3d3cu7u7u7u7u7u83bqr3d3d3d3d3d3d3d3Lu7qQAAAAAAAAAAAAAI7d3cu7u7u7u7u7u7y7q83d3d3d3d3d3d3d7r6ZkAAAAAAAAAAAAAAO7d3cu7u7u7u7u7u7u6vd3d3M3d3d3d3d3dy7qQAAAAAAAAAAAAAAAI7d3dy7u7u7u7u7u7uqzdzLu93d3d3d3d3cuqgAAAAAAAAAAAAAAAAO7d3cvMy7u7u7u7u7uqu7qqvd3d3d3d3d66qoAAAAAAAAAAAAAAAAAI7d3c3d3Lu7u7u7u6qqqqqr3d3d3d3d3cqqqAAAAAAAAAAAAAAAAAAAjd3d3d3Lu7u7u7uqqqqrvN3d3d3d3dy6qq4AAAAAAAAAAAAAAAAAAA7u3o7d3Lu7u7u7uqqru7vN3d3d3d3Lqqq+gAAAAAAAAAAAAAAAAAAIiN6I7ty7u7u7u7qqq7q7vd3d3d3duqq87IAAAAAAAAAAAAAAAAAAAA3oj4jdy7u7u7u6u7y6uqvd3d3d3Ku7zd2AAAAAAAAAAAAAAAAAAAAOiP/47du7u7u7ur6bu6qqvd3d3svM3d3dgAAAAAAAAAAAAAAAAAAACOj/+O3cu7u7u6qqqqqqqqvM3d7O3d3d3oAAAAAAAAAAAAAAAAAAAAjo//iM3Lu7u7uqqqqqqqqqvOzd3d3dzugAAAAAAAAAAAAAAAAAAAAA6I/4jd3Lu7u7qqqqqqqqq83d3d3d3oAAAAAAAAAAAAAAAAAAAAAAAA6IiI3d3Mu7u6qqqqqqu83d3d3e6OgAAAAAAAAAAAAAAAAAAAAAAACO6Ijt3d3Mu7uqqqqrzN3d3d3e6AAAAAAAAAAAAAAAAAAAAAAAAAAACO7u3d3d3cu6qqqrzd3d3d3egAAAAAAAAAAAAAAAAAAAAAAAAAAAAADu7O7u3d3cuqu8zd3d3d7ugAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACIgAju3d3czM3d3d3d7oAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACO3d3d3d3d3O6AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAO3d3d3d3Y6AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAN3d3d7oAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAO7c7oAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAIgAAAAAAAAAAAAAAAAAAAAAAA=='));
    cm = uint8([184 165 163
        244 109 110
        225  32  42
        159  28  46
        96  49  54
        55  55  56
        108  99  96
        255 255 255]);
    p = [bitshift(b,-4); bitand(b,15)];
    p = p(:);
    idx = bitand(p,7) + 1;
    a   = uint8(255 * bitget(p,4));
    rgb = cm(idx,:);
    rgba = permute(reshape([rgb a].',4,80,64),[3 2 1]);
    for n=1:10
        state.graphics.road(n) = patch(ax, ...
            'FaceColor', [.4 .4 .4], 'EdgeColor', 'none', ...
            'HitTest', 'off', 'PickableParts', 'none');
    end
    state.graphics.trace = line(ax, ...
        'XData', nan, 'YData', nan, ...
        'Color', [.2 .2 .2], 'LineWidth', 5, 'LineStyle', ':', ...
        'HitTest', 'off', 'PickableParts', 'none');
    state.graphics.car_left = image(ax, 'XData', 360, 'YData', 160, ...
        'CData', rgba(end:-1:1,:,1:3), ...
        'AlphaData', double(rgba(end:-1:1,:,4))/255, ...
        'HitTest', 'off', 'PickableParts', 'none');
    state.graphics.car_right = image(ax, 'XData', 360, 'YData', 160, ...
        'CData', rgba(end:-1:1,end:-1:1,1:3), ...
        'AlphaData', double(rgba(end:-1:1,end:-1:1,4))/255, ...
        'Visible', 0, 'HitTest', 'off', 'PickableParts', 'none');
    state.graphics.game_over = text(ax, 360, 400, 'GAME OVER', ...
        'Color','w','FontWeight', 'bold', 'FontSize', 16, ...
        'Visible', 0, 'HitTest', 'off', 'PickableParts', 'none');
    state.graphics.new_highscore = text(ax, 330, 360, 'NEW HIGHSCORE !!!', ...
        'Color','w','FontWeight', 'bold', 'FontSize', 16, ...
        'Visible', 0, 'HitTest', 'off', 'PickableParts', 'none');
    state.graphics.score = text(ax, 10, 590, 'Score: 0', ...
        'Color','w','FontWeight', 'bold', 'FontSize', 16, ...
        'HitTest', 'off', 'PickableParts', 'none');
    state.graphics.highscore = text(ax, 680, 590, 'High Score: 0', ...
        'Color','w','FontWeight', 'bold', 'FontSize', 16, ...
        'HitTest', 'off', 'PickableParts', 'none');
    state.graphics.level = text(ax, 320, 590, 'Level:1', ...
        'Color','w','FontWeight', 'bold', 'FontSize', 16, ...
        'HitTest', 'off', 'PickableParts', 'none');
end

function state = updateState(state, dt, pressed)
    if state.graphics.game_over.Visible
        if state.score > state.highscore
            state.highscore = state.score;
        end
        if pressed
            state.p = [0;0];
            state.v = [1;0];
            state.o = true;
            state.level = 1;
            state.trace = zeros(2,20);
            state.score = 0;
            state.restart = false;
            state.graphics.game_over.Visible = 0;
            state.graphics.new_highscore.Visible = 0;
        end
    else
        state.o = xor(state.o, pressed);
        state.trace = circshift(state.trace,1,2);
        if pressed || ~prod(state.v)
            state.trace(:,1)=nan(2,1);
        else
            state.trace(:,1)=state.p + 0.05*[1-state.o;state.o] - 0.1*[state.o;1-state.o];
        end
        a = 0.5*(2*state.o-1);  % acceleration
        state.p = state.p + state.v*dt;
        state.v = clip(state.v + [a;-a]*dt, 0, 0.9 + state.level*0.1);
        dist = sum(state.p);
        state.score = floor(dist);
        state.level = ceil(dist / length(state.road));
    end
end

function renderFrame(~, state)
    road_shape = [[0 -80 0 80];[80 0 -80 0]];
    road_color = [[.4 .4 .4]; [.4 .4 .6]; [.4 .4 .8]; [.6 .6 .8]; [.8 .8 .8]];
    if state.o
        state.graphics.car_left.Visible = 1;
        state.graphics.car_right.Visible = 0;
    else
        state.graphics.car_left.Visible = 0;
        state.graphics.car_right.Visible = 1;
    end
    car_x = diff(state.p);
    car_y = sum(state.p);
    car_y_seg = mod(car_y,1);
    seg = mod((-1:8) + floor(car_y), length(state.road)) + 1;   % road segments within sight
    for n=1:10
        P = transform3D(road_shape + xy2canvas(state.road(seg(n))-car_x , n-2-car_y_seg));
        state.graphics.road(n).XData=P.X;
        state.graphics.road(n).YData=P.Y;
        state.graphics.road(n).FaceColor = road_color(mod(state.level-1,5)+1,:);
    end
    P = transform3D(xy2canvas(diff(state.trace)-car_x, sum(state.trace)-car_y));
    state.graphics.trace.XData=P.X;
    state.graphics.trace.YData=P.Y;
    state.graphics.score.String = strcat('Score: ', num2str(state.score));
    state.graphics.level.String = strcat('Level: ', num2str(state.level));
    % off road condition: car center is outside road segment 2 and 3
    if (abs(car_x - state.road(seg(2))) + abs(car_y_seg) > 1) && (abs(car_x - state.road(seg(3))) + abs(car_y_seg-1) > 1)
        state.graphics.game_over.Visible = 1;
        if state.score > state.highscore
            state.graphics.new_highscore.Visible = 1;
            state.graphics.highscore.String = strcat('High Score: ', num2str(state.score));
        end
    end
end

function C = xy2canvas(x,y)
    % transform x-y-coordinates into 800x600 canvas
    C = 80*[x;y] + [400;80];
end

function P = transform3D(canvas)
    % transform from canvas into 3D perspective
    cx = canvas(1,:);
    cy = canvas(2,:);
    P.X =  400+900*(cx- 400)./(cy+360);
    P.Y = 1400-360*(cy+1400)./(cy+360);
end
Play Game
Preview

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