以下是一个简单的MATLAB贪吃蛇游戏的实现:
function SnakeGame()
% 游戏初始化
snakePos = [5,5]; % 初始贪吃蛇位置
snakeLen = 3; % 初始贪吃蛇长度
snakeDir = 'right'; % 初始贪吃蛇方向
foodPos = [randi(10), randi(10)]; % 食物位置
score = 0; % 分数
% 游戏界面
figure('KeyPressFcn', @keyPress); % 捕捉键盘事件
while true
% 更新游戏界面
clf; % 清空画布
axis([0, 10, 0, 10]); % 设置坐标范围
hold on;
grid on;
plot(snakePos(:,1), snakePos(:,2), 'b', 'LineWidth', 2); % 绘制贪吃蛇
plot(foodPos(1), foodPos(2), 'ro', 'MarkerSize', 10); % 绘制食物
title(['Score: ', num2str(score)]); % 显示分数
% 移动贪吃蛇
switch snakeDir
case 'up'
snakePos = [snakePos(1,:) - 1, snakePos(1:end-1,:)];
case 'down'
snakePos = [snakePos(1,:) + 1, snakePos(1:end-1,:)];
case 'left'
snakePos = [snakePos(:,1) - 1, snakePos(:,1:end-1)];
case 'right'
snakePos = [snakePos(:,1) + 1, snakePos(:,1:end-1)];
end
% 检测贪吃蛇是否吃到食物
if snakePos(1,:) == foodPos
snakeLen = snakeLen + 1; % 增加贪吃蛇长度
score = score + 1; % 增加分数
foodPos = [randi(10), randi(10)]; % 生成新的食物位置
end
% 检测贪吃蛇是否碰到边界或自身
if snakePos(1,1) < 1 || snakePos(1,1) > 10 ||...
snakePos(1,2) < 1 || snakePos(1,2) > 10 ||...
any(ismember(snakePos(2:end,:), snakePos(1,:), 'rows'))
disp(['Game Over! Your Score: ', num2str(score)]);
break;
end
% 延迟0.3s
pause(0.3);
end
end
function keyPress(~, event)
% 键盘事件处理函数
global snakeDir;
switch event.Key
case 'uparrow'
snakeDir = 'up';
case 'downarrow'
snakeDir = 'down';
case 'leftarrow'
snakeDir = 'left';
case 'rightarrow'
snakeDir = 'right';
end
end
要开始游戏,只需在MATLAB命令窗口中输入"SnakeGame()"即可。通过上下左右箭头键来控制贪吃蛇移动方向。
请注意,此代码仅实现了最基本的贪吃蛇游戏逻辑,可能还有许多功能和特性可以添加。