基于Matlab实现抖音小游戏苹果蛇基于Matlab实现抖音小游戏苹果

最近抖音上苹果蛇小游戏大火，为了证明MATLAB无所不能，咋能不跟风做一个？于是就有了这一篇。

文章图片

还是提一句这个小游戏开始玩的心路历程：
第1-5关：？这不就是有重力的贪吃蛇，有任何难度嘛？？
第6关：嗯。。。这个小技巧还是有点意思的
第30关：？？？这绕来绕去的是人出的题目？？
第90关：… …疯了疯了已经疯了
废话不多说看一下MATLAB版的完整代码：
为了方便修改，关卡地图就摆在m文件里，总共写了八关，但是只有代码没有素材包还是运行不了，因此请从文末获取完整压缩包.

function appleSnake% @author : slandarer% 公众号: slandarer随笔% 知乎: hikari% 加载图像数据MT=load('material.mat'); MT=MT.MT; SIZE.BASE=size(MT.base.CData,1); SIZE.EXIT=size(MT.exit.CData,1); SIZE.STONE=size(MT.stone.CData,1); SIZE.APPLE=size(MT.apple.CData,1); SIZE.SNAKE=size(MT.snake1.CData,1); SIZE.RESTART=size(MT.restart.CData,1); % 初始化地图及关卡[fig,ax]=init(); LEVEL=1; MAP=getMap(LEVEL); loadMap(); refreshSnake(); text(10,1000,'当前关卡：','FontSize',18,'FontWeight','bold')LEVEL_HDL=text(270,1000,num2str(LEVEL),'FontSize',18,'FontWeight','bold'); % =========================================================================set(fig,'KeyPressFcn',@key); function key(~,event)dirvec=[0,0]; switch event.Keycase 'uparrow'dirvec=[-1,0]; [~,colSet]=find(MAP<0); if all(colSet==colSet(1))dirvec=[0,0]; endcase 'downarrow',dirvec=[1,0]; case 'rightarrow',dirvec=[0,1]; case 'leftarrow',dirvec=[0,-1]; endif sum(dirvec)~=0[hi,hj]=find(MAP==-1); switch MAP(hi+dirvec(1),hj+dirvec(2))case 0MAP(MAP<0)=MAP(MAP<0)-1; MAP(MAP==min(MAP,[],[1,2]))=0; MAP(hi+dirvec(1),hj+dirvec(2))=-1; case 1case 2MAP(MAP<0)=MAP(MAP<0)-1; MAP(MAP==min(MAP,[],[1,2]))=0; MAP(hi+dirvec(1),hj+dirvec(2))=-1; refreshSnake()win(); return; case 3MAP(MAP<0)=MAP(MAP<0)-1; APPLE_HDL=findobj('Tag','APPLE','UserData',[hi+dirvec(1),hj+dirvec(2)]); MAP(hi+dirvec(1),hj+dirvec(2))=-1; delete(APPLE_HDL); case 4if MAP(hi+2*dirvec(1),hj+2*dirvec(2))==0MAP(MAP<0)=MAP(MAP<0)-1; MAP(MAP==min(MAP,[],[1,2]))=0; MAP(hi+dirvec(1),hj+dirvec(2))=-1; MAP(hi+2*dirvec(1),hj+2*dirvec(2))=4; STONE_HDL=findobj('Tag','STONE','UserData',[hi+dirvec(1),hj+dirvec(2)]); STONE_HDL.XData=https://www.it610.com/article/STONE_HDL.XData+70*dirvec(2); STONE_HDL.YData=STONE_HDL.YData-70*dirvec(1); STONE_HDL.UserData=[hi+2*dirvec(1),hj+2*dirvec(2)]; tCol=MAP(:,hj+2*dirvec(2)); tCol(60)=1; nRow=find(tCol~=0&((1:60)'>hi+2*dirvec(1)),1,'first')-1; STONE_HDL.YData=https://www.it610.com/article/STONE_HDL.YData-70*(nRow-hi+dirvec(1)); STONE_HDL.UserData=[nRow,hj+2*dirvec(2)]; MAP(hi+2*dirvec(1),hj+2*dirvec(2))=0; MAP(nRow,hj+2*dirvec(2))=4; endendrefreshSnake(); pause(.15)freeFall(); refreshSnake()endendfunction freeFall()[rowSet,colSet]=find(MAP<0); diffmin=inf; for t=1:length(rowSet)tCol=MAP(:,colSet(t)); tCol(60)=1; tRow=find(tCol>0&((1:60)'>rowSet(t)),1,'first'); diffmin=min(diffmin,tRow-rowSet(t)); enddiffmin=diffmin-1; if diffmin>15loss(diffmin)elseif diffmin>0tMAP=MAP; for t=1:length(rowSet)tMAP(rowSet(t),colSet(t))=0; endfor t=1:length(rowSet)tMAP(rowSet(t)+diffmin,colSet(t))=MAP(rowSet(t),colSet(t)); endMAP=tMAP; endendfunction restart(~,~)MAP=getMap(LEVEL); if ~isempty(MAP)loadMap(); refreshSnake(); LEVEL_HDL.String=num2str(LEVEL); endendfunction win(~,~)LEVEL=LEVEL+1; MAP=getMap(LEVEL); if ~isempty(MAP)loadMap(); refreshSnake(); LEVEL_HDL.String=num2str(LEVEL); elsemsgbox('暂无更多关卡')endendfunction loss(D)if D>15for d=1:20[rowSet,colSet]=find(MAP<0); tMAP=MAP; for t=1:length(rowSet)tMAP(rowSet(t),colSet(t))=0; endfor t=1:length(rowSet)tMAP(rowSet(t)+1,colSet(t))=MAP(rowSet(t),colSet(t)); endMAP=tMAP; refreshSnake(); pause(.1); endendend% =========================================================================function [fig,ax]=init(~,~)% figure窗口创建及属性设置fig=figure(); fig.NumberTitle='off'; fig.Position=[250,120,500,500]; fig.MenuBar='none'; fig.Name='apple snake by slandarer'; % axes坐标区域创建及属性设置ax=gca; hold onax.Position=[0 0 1 1]; ax.XTick=[]; ax.YTick=[]; ax.XColor='none'; ax.YColor='none'; ax.XLim=[0,1050]; ax.YLim=[0,1050]; % 绘制背景image(ax,ax.XLim,ax.YLim,flipud(MT.background))image(ax,[-SIZE.RESTART/2,SIZE.RESTART/2]+60,...[-SIZE.RESTART/2,SIZE.RESTART/2]+900,...flipud(MT.restart.CData),...'AlphaData',flipud(MT.restart.AlpData),...'ButtonDownFcn',@restart)endfunction map=getMap(level)% 地图大小15x15% 空气 :0% 土块 :1% 蛇头 : -1,蛇身数值依次递减% 终点 :2% 苹果 :3% 石块 :4Map{1}=[ 00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000003000000000 -2 -10000000200000 -3111000111000000000000000000000000000000000000000000000000000000000000000000000000000000]; Map{2}=[ 00000000000000000000000000000000000000000000000000000000000000000000000200000000000000000000 -3 -2 -10000000000001110111010000000010030010000000010111010000000011101010000000000001110000000000000000000000000000000000000000000000000]; Map{3}=[ 00000000000000000000000000000000000000000000000000000000000000000000000000000 -3 -2 -10000002000001111000001000001001000001000001000030001000001111000111000000000000000000000000000000000000000000000000000000000000000000000000000000]; Map{4}=[ 00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000100110000000000100000000000000103010000000 -3 -2 -10000000000001111100011110000000000000020000000000000000000000000000000]; Map{5}=[ 000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000002000000000011111000000000013010000000 -2 -10000010000000 -311110010000000000011110000000000000000000000000000000000000000000000000]; Map{6}=[ 0000000000000000000000000000000000000000000000000000000000000000000000000000000000000002000000000010000000000001310000000000000000000000000 -3 -2 -100040000000011101110000000000111000000000000000000000000000000000000000000000000000]; Map{7}=[ 0000000000000000000000000000000000000000000000000000000000000000000000000000000004000000000000001000000000000001000002000000001300000000000 -3 -2 -100000000000011111100000000000000000000000000000000000000000000000000000000000000000]; Map{8}=[ 0000000000000000000000000000000000000000000000000000000000000000000000000000000001000000000000004000000000000013100000000000 -2 -10000000000000 -31111100000000000200000000000000000000000000000000010000000000000000000000000000000000]; Map{9}=[]; map=Map{level}; endfunction loadMap(~,~)delete(findobj('Tag','BASE'))delete(findobj('Tag','EXIT'))delete(findobj('Tag','APPLE'))delete(findobj('Tag','STONE'))% 绘制土块for i=15:-1:1for j=15:-1:1if MAP(i,j)==1image(ax,70*(j-1)+35+[-SIZE.BASE/2,SIZE.BASE/2],...70*(16-i)+35+[-SIZE.BASE/2,SIZE.BASE/2],...flipud(MT.base.CData),...'alphaData',flipud(MT.base.AlpData),...'tag','BASE'); endendend% 绘制出口[ti,tj]=find(MAP==2); image(ax,70*(tj-1)+35+[-SIZE.EXIT/2,SIZE.EXIT/2],...70*(16-ti)+35+[-SIZE.EXIT/2,SIZE.EXIT/2],...flipud(MT.exit.CData),...'alphaData',flipud(MT.exit.AlpData),...'tag','EXIT'); % 绘制苹果[ti,tj]=find(MAP==3); if ~isempty(ti)image(ax,70*(tj-1)+35+[-SIZE.APPLE/2,SIZE.APPLE/2],...70*(16-ti)+35+[-SIZE.APPLE/2,SIZE.APPLE/2],...flipud(MT.apple.CData),...'alphaData',flipud(MT.apple.AlpData),...'tag','APPLE','UserData',[ti,tj]); end% 绘制石块[ti,tj]=find(MAP==4); if ~isempty(ti)image(ax,70*(tj-1)+35+[-SIZE.STONE/2,SIZE.STONE/2],...70*(16-ti)+35+[-SIZE.STONE/2,SIZE.STONE/2],...flipud(MT.stone.CData),...'alphaData',flipud(MT.stone.AlpData),...'tag','STONE','UserData',[ti,tj]); endendfunction refreshSnake(~,~)delete(findobj('Tag','SNAKE'))% 画蛇头[ti,tj]=find(MAP==-1); [ti_n,tj_n]=find(MAP==-2); tSnakeC=MT.snake1.CData; tSnakeAlp=MT.snake1.AlpData; if tj_n>tjtSnakeC=fliplr(tSnakeC); tSnakeAlp=fliplr(tSnakeAlp); endif ti_n>tiif MAP(ti,tj-1)==1tSnakeC(:,:,1)=flipud(tSnakeC(end:-1:1,:,1)'); tSnakeC(:,:,2)=flipud(tSnakeC(end:-1:1,:,2)'); tSnakeC(:,:,3)=flipud(tSnakeC(end:-1:1,:,3)'); tSnakeAlp=flipud(tSnakeAlp'); elsetSnakeC(:,:,1)=flipud(tSnakeC(:,:,1)'); tSnakeC(:,:,2)=flipud(tSnakeC(:,:,2)'); tSnakeC(:,:,3)=flipud(tSnakeC(:,:,3)'); tSnakeAlp=flipud(tSnakeAlp'); endendif ti_ntjcase tj_ltitSnakeC(:,:,1)=tSnakeC(:,:,1)'; tSnakeC(:,:,2)=tSnakeC(:,:,2)'; tSnakeC(:,:,3)=tSnakeC(:,:,3)'; tSnakeAlp=tSnakeAlp'; end% 画蛇尾image(ax,70*(tj-1)+35+[-SIZE.SNAKE/2,SIZE.SNAKE/2],...70*(16-ti)+35+[-SIZE.SNAKE/2,SIZE.SNAKE/2],...flipud(tSnakeC),...'alphaData',flipud(tSnakeAlp),...'tag','SNAKE'); % 画蛇身体for i=-2:-1:(min(MAP,[],[1,2])+1)[ti,tj]=find(MAP==i); [ti_l,tj_l]=find(MAP==i+1); [ti_n,tj_n]=find(MAP==i-1); switch truecase ti_l==ti_ntSnakeC=MT.snake2.CData; tSnakeAlp=MT.snake2.AlpData; case tj_l==tj_ntSnakeC=MT.snake2.CData; tSnakeAlp=MT.snake2.AlpData; tSnakeC(:,:,1)=tSnakeC(:,:,1)'; tSnakeC(:,:,2)=tSnakeC(:,:,2)'; tSnakeC(:,:,3)=tSnakeC(:,:,3)'; tSnakeAlp=tSnakeAlp'; case ti_ltj_n&&ti>ti_ltSnakeC=MT.snake3.CData; tSnakeAlp=MT.snake3.AlpData; tSnakeC=rot90(tSnakeC,2); tSnakeAlp=rot90(tSnakeAlp,2); case ti_ltj_n&&tjti_ltSnakeC=MT.snake3.CData; tSnakeAlp=MT.snake3.AlpData; tSnakeC=flipud(tSnakeC); tSnakeAlp=flipud(tSnakeAlp); case ti_ltj_ltSnakeC=MT.snake3.CData; tSnakeAlp=MT.snake3.AlpData; tSnakeC=fliplr(tSnakeC); tSnakeAlp=fliplr(tSnakeAlp); case ti_l>ti_n&&tj_l>tj_n&&titi_n&&tj_l>tj_n&&tjti_n&&tj_lti_n&&tj_ltj_ltSnakeC=MT.snake3.CData; tSnakeAlp=MT.snake3.AlpData; tSnakeC=rot90(tSnakeC,2); tSnakeAlp=rot90(tSnakeAlp,2); endimage(ax,70*(tj-1)+35+[-SIZE.SNAKE/2,SIZE.SNAKE/2],...70*(16-ti)+35+[-SIZE.SNAKE/2,SIZE.SNAKE/2],...flipud(tSnakeC),...'alphaData',flipud(tSnakeAlp),...'tag','SNAKE'); endendend

【基于Matlab实现抖音小游戏苹果蛇】源码获取
以上就是基于Matlab实现抖音小游戏苹果蛇的详细内容，更多关于Matlab苹果蛇游戏的资料请关注脚本之家其它相关文章！