Moving Objects Human Psycho

Nadir Altinbas
/
Moving Objects Human Psycho
about 6 hours ago
0
14
5
0
8107
game.m
function g = game()
    g.init = @initState;
    g.update = @updateState;
    g.render = @renderFrame;
end

function s = initState(ax)
    % --- TEMEL YARISMA DURUM DEGISKENLERI ---
    s.t = 0;
    s.score = 0;
    s.best = 0;
    s.moves = 0;
    s.moving = false;
    s.gameOver = false;
    s.prog = 0;
    s.stepIdx = 1;
    s.zone = 'EN DIP';
    s.statusMsg = 'EN DIPTEKI KUREYI HAREKET ETTIRMEK ICIN BASIN / TIKLAYIN';

    % --- VERILEN MATEMATIKSEL DENKLEMLER VE MESH(Y) ZEMINI ---
    x_vec = 1:1.648:19;
    y_enerji = (9.04 * x_vec - 0.22222) * 7;
    s.y_norm = (y_enerji - min(y_enerji)) / (max(y_enerji) - min(y_enerji));

    s.y = peaks(25);
    [s.XG, s.YG] = meshgrid(1:25, 1:25);

    % --- EN DIP NOKTAYI (GLOBAL MINIMUM) BULMA ---
    [s.minZ, lineerIdx] = min(s.y(:));
    [s.dipSatir, s.dipSutun] = ind2sub(size(s.y), lineerIdx);

    s.kx = s.dipSutun;
    s.ky = s.dipSatir;
    s.kz = s.minZ + 0.55;
    s.bx = s.kx; s.by = s.ky;
    s.tx = s.kx; s.ty = s.ky;
    s.r = 0.55;

    % --- EKSENSIZ 3D SAHNE AYARLARI ---
    bg = [0.06 0.09 0.14];
    ax.Color = bg;
    if ~isempty(ax.Parent) && isprop(ax.Parent, 'Color')
        ax.Parent.Color = bg;
    end
    ax.XLim = [1 25]; ax.YLim = [1 25]; ax.ZLim = [-8 14];
    ax.XColor = 'none'; ax.YColor = 'none'; ax.ZColor = 'none';
    ax.XTick = []; ax.YTick = []; ax.ZTick = [];
    grid(ax, 'off');
    view(ax, [-35, 32]);
    ax.Projection = 'perspective';

    light(ax, 'Position', [5 5 20], 'Style', 'infinite', 'Color', [1 1 1]);
    light(ax, 'Position', [25 25 -5], 'Style', 'infinite', 'Color', [0.4 0.6 0.9]);
    lighting(ax, 'gouraud');
    material(ax, 'shiny');

    % --- MESH(Y) ZEMIN VE EN DIP HALKASI ---
    s.g.mesh = mesh(ax, s.XG, s.YG, s.y, ...
        'EdgeColor', [0.20 0.75 0.95], 'FaceColor', [0.10 0.15 0.22], 'FaceAlpha', 0.75, ...
        'LineWidth', 1.0, 'HitTest', 'off', 'PickableParts', 'none');

    s.g.dip = plot3(ax, s.dipSutun, s.dipSatir, s.minZ + 0.05, 'o', ...
        'MarkerSize', 10, 'MarkerEdgeColor', [0.3 0.9 1], 'LineWidth', 2, ...
        'HitTest', 'off', 'PickableParts', 'none');

    % --- OYUNCU KURESI VE HAREKET IZI ---
    [sx, sy, sz] = sphere(24);
    s.sx = sx * s.r;
    s.sy = sy * s.r;
    s.sz = sz * s.r;

    s.g.sphere = surf(ax, s.sx + s.kx, s.sy + s.ky, s.sz + s.kz, ...
        'FaceColor', [0.25 0.90 1.00], 'EdgeColor', 'none', ...
        'HitTest', 'off', 'PickableParts', 'none');

    s.izX = s.kx; s.izY = s.ky; s.izZ = s.kz;
    s.g.trail = plot3(ax, s.izX, s.izY, s.izZ, '-', ...
        'Color', [0.25 0.90 1.00], 'LineWidth', 1.8, ...
        'HitTest', 'off', 'PickableParts', 'none');

    % --- HAREKETLI OBJELER (2 ODUL KURESI + 1 ENGEL KURESI) ---
    s.ox = sx * 0.65; s.oy = sy * 0.65; s.oz = sz * 0.65;
    s.objPos = [13 13 0; 6 19 0; 19 7 0]; % [X Y Z]

    % 1. Hareketli Odul Objesi (Altin Sarisi)
    s.g.star1 = surf(ax, s.ox + 13, s.oy + 13, s.oz, ...
        'FaceColor', [1.00 0.85 0.15], 'EdgeColor', 'none', ...
        'HitTest', 'off', 'PickableParts', 'none');

    % 2. Hareketli Odul Objesi (Yesil Enerji)
    s.g.star2 = surf(ax, s.ox + 6, s.oy + 19, s.oz, ...
        'FaceColor', [0.25 0.95 0.45], 'EdgeColor', 'none', ...
        'HitTest', 'off', 'PickableParts', 'none');

    % 3. Hareketli Tehlike Objesi (Kirmizi Engel)
    s.g.hazard = surf(ax, s.ox * 1.2 + 19, s.oy * 1.2 + 7, s.oz * 1.2, ...
        'FaceColor', [0.95 0.22 0.25], 'EdgeColor', 'none', ...
        'HitTest', 'off', 'PickableParts', 'none');

    % --- HUD BILGI METINLERI ---
    s.g.hud = text(ax, 1.5, 24.5, 13.0, '', ...
        'Color', 'w', 'FontSize', 13, 'FontWeight', 'bold', ...
        'HitTest', 'off', 'PickableParts', 'none');

    s.g.msg = text(ax, 13, 2, -7.2, s.statusMsg, ...
        'Color', [0.85 0.92 1], 'FontSize', 11, 'FontWeight', 'bold', ...
        'HorizontalAlignment', 'center', 'HitTest', 'off', 'PickableParts', 'none');
end

function s = updateState(s, dt, p)
    s.t = s.t + dt;
    speedMult = 1 + min(1.5, s.score * 0.002);

    % --- OYUN BITTIYSE TEK TUSLA YENIDEN BASLAT ---
    if s.gameOver
        if p
            s.score = 0;
            s.moves = 0;
            s.gameOver = false;
            s.moving = false;
            s.kx = s.dipSutun;
            s.ky = s.dipSatir;
            s.kz = s.minZ + s.r;
            s.izX = s.kx; s.izY = s.ky; s.izZ = s.kz;
            s.zone = 'EN DIP';
            s.statusMsg = 'HAREKET ICIN BASIN / TIKLAYIN';
        end
        return;
    end

    % --- 1. HAREKETLI OBJELERIN MESH(Y) UZERINDEKI YORUNGE HAREKETI ---
    % Obje 1: Merkez cevresinde dairesel yorunge (Altin Odul)
    x1 = 13 + 7.5 * cos(s.t * 1.3 * speedMult);
    y1 = 13 + 7.5 * sin(s.t * 1.3 * speedMult);
    z1 = interp2(s.XG, s.YG, s.y, x1, y1) + 0.8 + 0.4 * sin(s.t * 4);
    s.objPos(1, :) = [x1, y1, z1];

    % Obje 2: Lissajous egrisi ile ic-dis tarama (Yesil Odul)
    x2 = 13 + 9.0 * sin(s.t * 0.9 * speedMult);
    y2 = 13 + 9.0 * cos(s.t * 1.5 * speedMult);
    z2 = interp2(s.XG, s.YG, s.y, x2, y2) + 0.8 + 0.4 * cos(s.t * 4);
    s.objPos(2, :) = [x2, y2, z2];

    % Obje 3: Ters yonde devriye gezen Kirmizi Engel
    x3 = 13 + 8.5 * cos(-s.t * 1.1 * speedMult + 1.5);
    y3 = 13 + 8.5 * sin(-s.t * 1.1 * speedMult + 1.5);
    z3 = interp2(s.XG, s.YG, s.y, x3, y3) + 0.85;
    s.objPos(3, :) = [x3, y3, z3];

    % --- 2. TEK TUSLA KUREYI GELISIGUZEL CEVRE / IC NOKTALARA GONDER ---
    if p
        s.moves = s.moves + 1;
        s.bx = s.kx;
        s.by = s.ky;

        if rand < 0.5
            kenar = randi(4);
            switch kenar
                case 1, s.tx = 1 + rand * 2;   s.ty = 1 + rand * 24;
                case 2, s.tx = 23 + rand * 2;  s.ty = 1 + rand * 24;
                case 3, s.tx = 1 + rand * 24;  s.ty = 1 + rand * 2;
                case 4, s.tx = 1 + rand * 24;  s.ty = 23 + rand * 2;
            end
            s.zone = 'CEVRE NOKTASI';
        else
            s.tx = 4 + rand * 17;
            s.ty = 4 + rand * 17;
            s.zone = 'IC NOKTA';
        end

        hedefZ = interp2(s.XG, s.YG, s.y, s.tx, s.ty);
        s.score = s.score + max(10, round((hedefZ - s.minZ) * 10));
        if s.score > s.best, s.best = s.score; end

        s.stepIdx = mod(s.stepIdx, length(s.y_norm)) + 1;
        s.prog = 0;
        s.moving = true;
        s.statusMsg = 'ALTIN VE YESIL OBJELERI TOPLA | KIRMIZIDAN KAC!';
    end

    % --- 3. OYUNCU KURESININ HAREKETI ---
    if s.moving
        s.prog = s.prog + dt * 2.4 * speedMult;
        if s.prog >= 1
            s.prog = 1;
            s.moving = false;
        end

        u = s.prog * s.prog * (3 - 2 * s.prog);
        s.kx = s.bx + (s.tx - s.bx) * u;
        s.ky = s.by + (s.ty - s.by) * u;

        yuzeyZ = interp2(s.XG, s.YG, s.y, s.kx, s.ky);
        enerji = 0.7 + 0.6 * s.y_norm(s.stepIdx);
        yay = sin(s.prog * pi) * 3.0 * enerji;
        s.kz = yuzeyZ + s.r + yay;

        s.izX(end+1) = s.kx;
        s.izY(end+1) = s.ky;
        s.izZ(end+1) = s.kz;
        if length(s.izX) > 90
            s.izX(1) = []; s.izY(1) = []; s.izZ(1) = [];
        end
    else
        yuzeyZ = interp2(s.XG, s.YG, s.y, s.kx, s.ky);
        s.kz = yuzeyZ + s.r + 0.12 * sin(s.t * 4);
    end

    % --- 4. HAREKETLI OBJELERLE CARPISMA KONTROLU ---
    kPos = [s.kx, s.ky, s.kz];
    
    % Odul 1 (Altin) yakalandi mi?
    if norm(kPos - s.objPos(1, :)) < 1.8
        s.score = s.score + 50;
        if s.score > s.best, s.best = s.score; end
        s.statusMsg = '+50 PUAN! ALTIN OBJE YAKALANDI!';
        s.t = s.t + 1.2; % Objeyi yeni konuma kaydir
    end

    % Odul 2 (Yesil) yakalandi mi?
    if norm(kPos - s.objPos(2, :)) < 1.8
        s.score = s.score + 75;
        if s.score > s.best, s.best = s.score; end
        s.statusMsg = '+75 PUAN! ENERJI OBJESİ YAKALANDI!';
        s.t = s.t + 1.5;
    end

    % Tehlike (Kirmizi Engel) carpti mi?
    if norm(kPos - s.objPos(3, :)) < 1.55
        s.gameOver = true;
        s.statusMsg = sprintf('ENGEL CARPTI! SKOR: %d  •  YENIDEN ICIN BASIN / TIKLAYIN', s.score);
    end
end

function renderFrame(~, s)
    % Oyuncu kuresi ve izi
    s.g.sphere.XData = s.sx + s.kx;
    s.g.sphere.YData = s.sy + s.ky;
    s.g.sphere.ZData = s.sz + s.kz;

    s.g.trail.XData = s.izX;
    s.g.trail.YData = s.izY;
    s.g.trail.ZData = s.izZ;

    % Hareketli 3D objelerin konumlarini guncelle
    s.g.star1.XData = s.ox + s.objPos(1, 1);
    s.g.star1.YData = s.oy + s.objPos(1, 2);
    s.g.star1.ZData = s.oz + s.objPos(1, 3);

    s.g.star2.XData = s.ox + s.objPos(2, 1);
    s.g.star2.YData = s.oy + s.objPos(2, 2);
    s.g.star2.ZData = s.oz + s.objPos(2, 3);

    s.g.hazard.XData = s.ox * 1.2 + s.objPos(3, 1);
    s.g.hazard.YData = s.oy * 1.2 + s.objPos(3, 2);
    s.g.hazard.ZData = s.oz * 1.2 + s.objPos(3, 3);

    % Skor ve durum yazilari
    s.g.hud.String = sprintf('BEST: %d     SCORE: %d     MOVES: %d     (%s)', ...
        s.best, s.score, s.moves, s.zone);
    s.g.msg.String = s.statusMsg;
    if s.gameOver
        s.g.msg.Color = [1.0 0.3 0.3];
    else
        s.g.msg.Color = [0.85 0.92 1];
    end
end


%[appendix]{"version":"1.0"}
%---
%[metadata:view]
%   data: {"layout":"onright"}
%---
Play Game
Preview

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