用MATLAB编写一个简易的贪吃蛇游戏

编写一个贪吃蛇游戏的MATLAB代码需要涉及到游戏逻辑、图形用户界面(GUI)的创建、事件监听（如键盘操作）和游戏状态更新等。以下是一个简化的贪吃蛇游戏MATLAB代码示例，展示了基本的游戏框架和逻辑。
此代码创建了一个游戏窗口，初始化贪吃蛇和食物的位置，并且响应键盘操作来控制贪吃蛇的移动。当贪吃蛇吃到食物时，长度增加，并重新生成食物。如果贪吃蛇撞到墙壁或自己，游戏结束。

function simpleSnakeGame()
    % 游戏初始化
    global SNAKE FOOD SCORE BOARD;
    BOARD = zeros(20,20);
    SNAKE = [10, 10; 10, 9];
    FOOD = [randi(20), randi(20)];
    SCORE = 0;
    direction = [0, 1]; % 初始移动方向向右

    % 创建图形窗口
    figure('KeyPressFcn', @keyPressed, 'Name', 'Simple Snake Game', 'NumberTitle', 'off');
    gameBoard();
    
    % 游戏主循环
    while true
        pause(0.2); % 控制游戏速度
        moveSnake(direction);
        if checkCollision()
            disp(['Game Over. Your score is ', num2str(SCORE)]);
            break;
        end
        eatFood();
        gameBoard();
    end
end

function gameBoard()
    % 绘制游戏板
    global SNAKE FOOD BOARD;
    BOARD(:) = 0;
    BOARD(sub2ind(size(BOARD), FOOD(1), FOOD(2))) = 2; % 放置食物
    for i = 1:size(SNAKE, 1)
        BOARD(SNAKE(i,1), SNAKE(i,2)) = 1; % 放置蛇身
    end
    clf;
    imagesc(BOARD); % 绘制游戏板
    colormap([1 1 1; 0 1 0; 1 0 0]); % 设置颜色：空白、蛇、食物
    axis equal off;
end

function keyPressed(~, event)
    % 键盘事件处理
    global direction;
    switch event.Key
        case 'leftarrow'
            direction = [0, -1];
        case 'rightarrow'
            direction = [0, 1];
        case 'uparrow'
            direction = [-1, 0];
        case 'downarrow'
            direction = [1, 0];
    end
end

function moveSnake(newDirection)
    % 移动贪吃蛇
    global SNAKE;
    newHead = SNAKE(1,:) + newDirection; % 计算新头部位置
    SNAKE = [newHead; SNAKE(1:end-1,:)]; % 更新蛇身位置
end

function eatFood()
    % 检查食物并处理
    global SNAKE FOOD SCORE BOARD;
    if isequal(SNAKE(1,:), FOOD)
        SCORE = SCORE + 1;
        SNAKE = [FOOD; SNAKE]; % 增加蛇的长度
        FOOD = [randi(20), randi(20)]; % 重新生成食物
        while BOARD(FOOD(1), FOOD(2)) == 1 % 确保食物不在蛇身上
            FOOD = [randi(20), randi(20)];
        end
    end
end

function isOver = checkCollision()
    % 检查是否碰撞
    global SNAKE BOARD;
    head = SNAKE(1,:);
    if head(1) < 1 || head(1) > size(BOARD, 1) || head(2) < 1 || head(2) > size(BOARD, 2) || any(ismember(SNAKE(2:end,:), head, 'rows'))
        isOver = true;
    else
        isOver = false;
    end
end

运行上述代码将开启一个简单的贪吃蛇游戏。游戏窗口中，贪吃蛇用绿色表示，食物用红色表示。使用键盘的箭头键来控制贪吃蛇的移动方向。如果贪吃蛇撞到墙壁或自己，控制台会显示游戏结束信息和你的得分。