用matlab做一个扫雷游戏

好的，以下是一个简单的扫雷游戏的Matlab代码示例，它包含了游戏的基本逻辑和界面设计：

clc
clear all
close all

%设置游戏参数
n = 10; %地图大小
m = 10; %地雷数量

%初始化地图和状态
map = zeros(n);
status = zeros(n);

%随机生成地雷
idx = randperm(n^2,m);
map(idx) = 1;

%绘制游戏界面
figure('MenuBar','none','NumberTitle','off','Name','Minesweeper');
h = axes('Units','normalized','Position',[0 0 1 1]);
axis(h,'off');
xlim(h,[0 n]);
ylim(h,[0 n]);

%绑定鼠标点击事件
set(h,'ButtonDownFcn',@ClickCallback);

%游戏主循环
while true
    %绘制地图
    for i = 1:n
        for j = 1:n
            if status(i,j) == 0
                rectangle('Position',[i-1,j-1,1,1],'FaceColor',[0.8 0.8 0.8]);
            elseif status(i,j) == 1
                if map(i,j) == 1
                    rectangle('Position',[i-1,j-1,1,1],'FaceColor','r');
                else
                    rectangle('Position',[i-1,j-1,1,1],'FaceColor','w');
                    num = sum(map(max(i-1,1):min(i+1,n),max(j-1,1):min(j+1,n)));
                    if num > 0
                        text(i-0.5,j-0.5,num2str(num),'HorizontalAlignment','center');
                    end
                end
            end
        end
    end
    
    %检查游戏状态
    if any(map(:) & status(:) == 1)
        title('Game Over!','FontSize',20);
        break;
    elseif all(map(:) & status(:) == 0)
        title('Congratulations!','FontSize',20);
        break;
    end
    
    %等待用户操作
    drawnow;
end

%鼠标点击回调函数
function ClickCallback(hObject,eventdata)
    %获取点击位置
    x = round(eventdata.IntersectionPoint(1));
    y = round(eventdata.IntersectionPoint(2));
    
    %更新状态
    if get(gcf,'SelectionType') == 'normal'
        status(x,y) = 1;
    elseif get(gcf,'SelectionType') == 'alt'
        status(x,y) = 0;
    end
end

这个代码实现了一个 10x10 的扫雷游戏，玩家可以通过鼠标左键点击格子来揭开方块，通过鼠标右键来标记地雷。游戏的状态和地图存储在 `status` 和 `map` 数组中，游戏界面使用 `rectangle` 和 `text` 函数绘制。