Banana Catch

Surekha
/
Banana Catch
about 8 hours ago
0
5
4
0
9092
game.m
function g = game()
%game Monkey Catch -- a one-button banana-catching game.
%
%   The monkey runs along a branch; tap to turn around. Catch falling
%   bananas (golden ones are worth 5), avoid coconuts. Dropping a
%   banana or catching a coconut costs a life. Three lives.

g.init   = @initState;
g.update = @updateState;
g.render = @renderFrame;
end

function s = initState(ax)
ax.YDir = 'reverse';
p = {'HitTest','off','PickableParts','none'};
s.N = 10;              % falling-object pool size
s.best = 0;
s.t = 0;
th = linspace(0, 2*pi, 40);
s.ux = cos(th);
s.uy = sin(th);
E = @(cx, cy, rx, ry) [cx + rx*s.ux; cy + ry*s.uy];
brown = [0.5 0.3 0.15];
skin = [0.95 0.8 0.6];

% Scenery: sky gradient, sun, clouds, tree, ground
patch(ax, 'XData',[0 800 800 0], 'YData',[0 0 560 560], ...
    'FaceVertexCData',[0.3 0.65 1; 0.3 0.65 1; 0.8 0.94 1; 0.8 0.94 1], ...
    'FaceColor','interp', 'EdgeColor','none', p{:});
patch(ax, 'XData',690 + 65*s.ux, 'YData',90 + 65*s.uy, 'FaceColor',[1 0.95 0.5], ...
    'FaceAlpha',0.35, 'EdgeColor','none', p{:});
patch(ax, 'XData',690 + 45*s.ux, 'YData',90 + 45*s.uy, 'FaceColor',[1 0.88 0.25], ...
    'EdgeColor','none', p{:});
bump = 1 + 0.2*abs(sin(4*th));
s.cloudShape = [70*s.ux.*bump; 22*s.uy.*bump];
s.cloud = [100 80 1 18; 450 140 0.7 12; 800 60 1.2 24];   % x, y, scale, speed
for i = 1:3
    s.h.cloud(i) = patch(ax, 'XData',s.ux, 'YData',s.uy, 'FaceColor',[1 1 1], ...
        'FaceAlpha',0.9, 'EdgeColor','none', p{:});
end
patch(ax, 'XData',[0 800 800 0], 'YData',[560 560 600 600], 'FaceColor',[0.3 0.65 0.25], ...
    'EdgeColor','none', p{:});
patch(ax, 'XData',[0 58 50 0], 'YData',[230 230 600 600], 'FaceColor',[0.42 0.26 0.12], ...
    'EdgeColor','none', p{:});
patch(ax, 'XData',[40 785 785 40], 'YData',[478 484 494 506], 'FaceColor',[0.47 0.29 0.13], ...
    'EdgeColor',[0.3 0.18 0.08], 'LineWidth',1.5, p{:});
leaves = [30 220 75 55; 100 180 55 40; 0 300 50 45; 775 478 30 18];
for i = 1:size(leaves, 1)
    L = E(leaves(i,1), leaves(i,2), leaves(i,3), leaves(i,4));
    patch(ax, 'XData',L(1,:), 'YData',L(2,:), 'FaceColor',[0.2 0.55 0.2], ...
        'EdgeColor',[0.12 0.4 0.12], 'LineWidth',2, p{:});
end

% Monkey parts as offsets from its feet, drawn facing right (+x).
% Mirrored by direction in render.
ma = linspace(0.2*pi, 0.8*pi, 8);
s.mo = {[-18 -30 -37 -35 -27 -21; -12 -5 10 30 40 34], ...   % tail
    E(0, -26, 19, 24), ...                                   % body
    E(4, -22, 12, 15), ...                                   % belly
    [10 20 26; -38 -60 -84], ...                             % raised arm
    E(26, -88, 7, 7), ...                                    % hand
    E(-9, -68, 7, 7), E(21, -68, 7, 7), ...                  % ears
    E(6, -62, 17, 16), ...                                   % head
    E(10, -57, 11, 9), ...                                   % face
    [5 14; -63 -63], ...                                     % eyes
    [10 + 5*cos(ma); -54 + 3*sin(ma)]};                      % smile
s.h.m = gobjects(1, numel(s.mo));
s.h.m(1) = line(ax, 0, 0, 'Color',brown, 'LineWidth',5, p{:});
s.h.m(4) = line(ax, 0, 0, 'Color',brown, 'LineWidth',7, p{:});
s.h.m(10) = line(ax, 0, 0, 'LineStyle','none', 'Marker','o', 'MarkerSize',4, ...
    'MarkerFaceColor','k', 'MarkerEdgeColor','k', p{:});
s.h.m(11) = line(ax, 0, 0, 'Color',[0.3 0.15 0.05], 'LineWidth',1.5, p{:});
cols = {[], brown, skin, [], skin, brown, brown, brown, skin};
for i = [2 3 5 6 7 8 9]
    s.h.m(i) = patch(ax, 'XData',0, 'YData',0, 'FaceColor',cols{i}, ...
        'EdgeColor',brown*0.6, 'LineWidth',1, p{:});
end

% Falling objects: banana crescent and coconut circle, both 40 vertices
a = linspace(1.15*pi, 1.85*pi, 20);
s.shape{1} = [22*cos(a), fliplr(17*cos(a)); 22*sin(a) + 10, fliplr(15*sin(a) + 12)];
s.shape{2} = s.shape{1};
s.shape{3} = [14*s.ux; 14*s.uy];
s.bFace = [1 0.88 0.2; 1 0.6 0; 0.45 0.28 0.12];
s.bEdge = [0.55 0.4 0; 1 1 0.85; 0.25 0.14 0.05];
for i = 1:s.N
    s.h.b(i) = patch(ax, 'XData',s.ux, 'YData',s.uy, 'FaceColor',s.bFace(1,:), ...
        'LineWidth',2, 'Visible','off', p{:});
end

% HUD
f = [{'FontWeight','bold', 'Interpreter','none'}, p];
for i = 1:4
    s.h.pop(i) = text(ax, 0, 0, '', 'FontSize',16, 'HorizontalAlignment','center', f{:});
end
s.h.yip = text(ax, 0, 0, 'Yippee!', 'Color',[1 0.45 0.1], 'FontSize',18, ...
    'FontAngle','italic', 'HorizontalAlignment','center', 'Visible','off', f{:});
s.h.score = text(ax, 20, 30, '', 'Color',[1 1 1], 'FontSize',22, f{:});
s.h.lives = text(ax, 780, 30, '', 'Color',[0.9 0.1 0.2], 'FontSize',24, ...
    'HorizontalAlignment','right', f{:});
s.h.best = text(ax, 780, 62, '', 'Color',[1 1 1], 'FontSize',13, ...
    'HorizontalAlignment','right', f{:});
s.h.msg = text(ax, 400, 250, '', 'Color',[0.35 0.15 0.05], 'FontSize',24, ...
    'HorizontalAlignment','center', f{:});

s = newRound(s);
s.mode = 0;            % 0 = title, 1 = playing, 2 = game over
end

function s = newRound(s)
s.mode = 1;
s.x = 400;
s.dir = 1;
s.score = 0;
s.lives = 3;
s.B = zeros(s.N, 7);   % columns: x, y, vy, type, active, angle, spin
s.spawnT = 0.8;
s.pop = zeros(4, 4);   % columns: x, y, life, value
s.hurt = 0;
s.bounce = 0;
s.deadT = 0;
end

function s = addPop(s, x, y, v)
[~, i] = min(s.pop(:,3));
s.pop(i,:) = [x y 0.8 v];
end

function s = updateState(s, dt, pressed)
s.t = s.t + dt;
s.cloud(:,1) = mod(s.cloud(:,1) + s.cloud(:,4)*dt + 100, 1000) - 100;
s.pop(:,3) = max(0, s.pop(:,3) - dt);
s.pop(:,2) = s.pop(:,2) - 40*dt*(s.pop(:,3) > 0);
s.hurt = max(0, s.hurt - dt);
s.bounce = max(0, s.bounce - dt);

if s.mode == 0
    if pressed, s.mode = 1; end
    return
elseif s.mode == 2
    s.deadT = s.deadT + dt;
    if pressed && s.deadT > 0.7, s = newRound(s); end
    return
end

lvl = min(s.score, 60);
if pressed, s.dir = -s.dir; end
s.x = s.x + s.dir*(270 + 2*lvl)*dt;
if s.x < 90
    s.x = 90; s.dir = 1;
elseif s.x > 740
    s.x = 740; s.dir = -1;
end

% Spawn: faster, quicker-falling, and more coconuts as the score climbs
s.spawnT = s.spawnT - dt;
i = find(~s.B(:,5), 1);
if s.spawnT <= 0 && ~isempty(i)
    r = rand;
    typ = 1 + (r > 0.93) + 2*(r < 0.15 + 0.004*lvl);
    s.B(i,:) = [70 + 660*rand, -30, 40 + 30*rand + 2*lvl, min(typ, 3), 1, 2*pi*rand, 6*rand - 3];
    s.spawnT = max(0.45, 1.6 - 0.02*lvl)*(0.7 + 0.6*rand);
end

act = s.B(:,5) > 0;
s.B(act,3) = s.B(act,3) + (70 + lvl)*dt;
s.B(act,2) = s.B(act,2) + s.B(act,3)*dt;
s.B(act,6) = s.B(act,6) + s.B(act,7)*dt;

hx = s.x + 14*s.dir;   % catch zone sits between head and raised hand
for i = find(act)'
    b = s.B(i,:);
    if b(2) > 380 && b(2) < 475 && abs(b(1) - hx) < 42
        s.B(i,5) = 0;
        if b(4) == 3
            s.lives = s.lives - 1;
            s.hurt = 0.6;
            s = addPop(s, b(1), b(2), -1);
        else
            v = 1 + 4*(b(4) == 2);
            s.score = s.score + v;
            s.bounce = 0.45;   % start a little hop
            s = addPop(s, b(1), b(2), v);
        end
    elseif b(2) > 565
        s.B(i,5) = 0;
        if b(4) < 3
            s.lives = s.lives - 1;
            s = addPop(s, b(1), 540, 0);
        end
    end
end

if s.lives <= 0
    s.mode = 2;
    s.deadT = 0;
    s.best = max(s.best, s.score);
end
end

function renderFrame(~, s)
h = s.h;
for i = 1:3
    c = s.cloud(i,:);
    h.cloud(i).XData = c(1) + c(3)*s.cloudShape(1,:);
    h.cloud(i).YData = c(2) + c(3)*s.cloudShape(2,:);
end

% Running bob, replaced by a small hop arc after catching a banana
bob = -4*abs(sin(s.t*14))*(s.mode == 1);
if s.bounce > 0
    bob = -38*sin(pi*s.bounce/0.45);
end
h.yip.Visible = s.bounce > 0;
h.yip.Position = [s.x, 350 + bob, 0];
for i = 1:numel(s.mo)
    h.m(i).XData = s.x + s.dir*s.mo{i}(1,:);
    h.m(i).YData = 482 + bob + s.mo{i}(2,:);
end
h.m(2).FaceColor = [0.5 0.3 0.15] + [0.5 -0.2 -0.1]*(s.hurt > 0);

for i = 1:s.N
    b = s.B(i,:);
    h.b(i).Visible = b(5) > 0;
    if b(5)
        k = b(4);
        R = [cos(b(6)) -sin(b(6)); sin(b(6)) cos(b(6))];
        P = R*s.shape{k};
        set(h.b(i), 'XData',b(1) + P(1,:), 'YData',b(2) + P(2,:), ...
            'FaceColor',s.bFace(k,:), 'EdgeColor',s.bEdge(k,:));
    end
end

for i = 1:4
    q = s.pop(i,:);
    h.pop(i).Visible = q(3) > 0;
    h.pop(i).Position = [q(1) q(2) 0];
    if q(4) > 0
        h.pop(i).String = sprintf('+%d', q(4));
        h.pop(i).Color = [1 0.95 0.2];
    elseif q(4) < 0
        h.pop(i).String = 'BONK!';
        h.pop(i).Color = [0.9 0.1 0.1];
    else
        h.pop(i).String = 'MISS';
        h.pop(i).Color = [0.9 0.1 0.1];
    end
end

h.score.String = sprintf('SCORE %d', s.score);
h.lives.String = repmat(char(9829), 1, max(s.lives, 0));
h.best.String = sprintf('BEST %d', s.best);
if s.mode == 0
    h.msg.String = {'MONKEY CATCH', 'tap to turn around', ...
        'catch bananas, dodge coconuts', 'tap to start'};
elseif s.mode == 2
    h.msg.String = {'GAME OVER', sprintf('score %d', s.score), 'tap to play again'};
else
    h.msg.String = '';
end
end
Play Game
Preview

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