基于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.Key
            case 'uparrow'
                dirvec=[-1,0];
                [~,colSet]=find(MAP<0);
                if all(colSet==colSet(1))
                    dirvec=[0,0];
                end
            case 'downarrow',dirvec=[1,0];
            case 'rightarrow',dirvec=[0,1];
            case 'leftarrow',dirvec=[0,-1];
        end
        if sum(dirvec)~=0
            [hi,hj]=find(MAP==-1);
            switch MAP(hi+dirvec(1),hj+dirvec(2))
                case 0
                    MAP(MAP<0)=MAP(MAP<0)-1;
                    MAP(MAP==min(MAP,[],[1,2]))=0;
                    MAP(hi+dirvec(1),hj+dirvec(2))=-1;
                case 1
                case 2
                    MAP(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 3
                    MAP(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 4
                    if MAP(hi+2*dirvec(1),hj+2*dirvec(2))==0
                        MAP(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=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=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;
                    end
            end
            refreshSnake();pause(.15)
            freeFall();
            refreshSnake()
        end
    end
    function 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));
        end
        diffmin=diffmin-1;
        if diffmin>15
            loss(diffmin)
        elseif diffmin>0
            tMAP=MAP;
            for t=1:length(rowSet)
                tMAP(rowSet(t),colSet(t))=0;
            end
            for t=1:length(rowSet)
                tMAP(rowSet(t)+diffmin,colSet(t))=MAP(rowSet(t),colSet(t));
            end
            MAP=tMAP;
        end

    end
    function restart(~,~)
        MAP=getMap(LEVEL);
        if ~isempty(MAP)
            loadMap();
            refreshSnake();
            LEVEL_HDL.String=num2str(LEVEL);
        end
    end
    function win(~,~)
        LEVEL=LEVEL+1;
        MAP=getMap(LEVEL);
        if ~isempty(MAP)
            loadMap();
            refreshSnake();
            LEVEL_HDL.String=num2str(LEVEL);
        else
            msgbox('暂无更多关卡')
        end
    end
    function loss(D)
        if D>15
            for d=1:20
                [rowSet,colSet]=find(MAP<0);
                tMAP=MAP;
                for t=1:length(rowSet)
                    tMAP(rowSet(t),colSet(t))=0;
                end
                for t=1:length(rowSet)
                    tMAP(rowSet(t)+1,colSet(t))=MAP(rowSet(t),colSet(t));
                end
                MAP=tMAP;
                refreshSnake();
                pause(.1);
            end
        end
    end
% =========================================================================
    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 on
        ax.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)
    end

    function map=getMap(level)
        % 地图大小15x15
        % 空气 :  0
        % 土块 :  1
        % 蛇头 : -1,蛇身数值依次递减
        % 终点 :  2
        % 苹果 :  3
        % 石块 :  4
        Map{1}=[ 0  0  0  0  0  0  0  0  0  0  0  0  0  0  0
                 0  0  0  0  0  0  0  0  0  0  0  0  0  0  0
                 0  0  0  0  0  0  0  0  0  0  0  0  0  0  0
                 0  0  0  0  0  0  0  0  0  0  0  0  0  0  0
                 0  0  0  0  0  0  0  0  0  0  0  0  0  0  0
                 0  0  0  0  0  0  0  0  0  0  0  0  0  0  0
                 0  0  0  0  0  0  0  0  0  0  0  0  0  0  0
                 0  0  0  0  0  0  0  3  0  0  0  0  0  0  0
                 0  0 -2 -1  0  0  0  0  0  0  0  2  0  0  0
                 0  0 -3  1  1  1  0  0  0  1  1  1  0  0  0
                 0  0  0  0  0  0  0  0  0  0  0  0  0  0  0
                 0  0  0  0  0  0  0  0  0  0  0  0  0  0  0
                 0  0  0  0  0  0  0  0  0  0  0  0  0  0  0
                 0  0  0  0  0  0  0  0  0  0  0  0  0  0  0
                 0  0  0  0  0  0  0  0  0  0  0  0  0  0  0];
        Map{2}=[ 0  0  0  0  0  0  0  0  0  0  0  0  0  0  0
                 0  0  0  0  0  0  0  0  0  0  0  0  0  0  0
                 0  0  0  0  0  0  0  0  0  0  0  0  0  0  0
                 0  0  0  0  0  0  0  0  0  0  0  0  0  0  0
                 0  0  0  0  0  0  0  0  0  0  0  2  0  0  0
                 0  0  0  0  0  0  0  0  0  0  0  0  0  0  0
                 0  0 -3 -2 -1  0  0  0  0  0  0  0  0  0  0
                 0  0  1  1  1  0  1  1  1  0  1  0  0  0  0
                 0  0  0  0  1  0  0  3  0  0  1  0  0  0  0
                 0  0  0  0  1  0  1  1  1  0  1  0  0  0  0
                 0  0  0  0  1  1  1  0  1  0  1  0  0  0  0
                 0  0  0  0  0  0  0  0  1  1  1  0  0  0  0
                 0  0  0  0  0  0  0  0  0  0  0  0  0  0  0
                 0  0  0  0  0  0  0  0  0  0  0  0  0  0  0
                 0  0  0  0  0  0  0  0  0  0  0  0  0  0  0];
        Map{3}=[ 0  0  0  0  0  0  0  0  0  0  0  0  0  0  0
                 0  0  0  0  0  0  0  0  0  0  0  0  0  0  0
                 0  0  0  0  0  0  0  0  0  0  0  0  0  0  0
                 0  0  0  0  0  0  0  0  0  0  0  0  0  0  0
                 0  0  0  0  0  0  0  0  0  0  0  0  0  0  0
                 0  0 -3 -2 -1  0  0  0  0  0  0  2  0  0  0
                 0  0  1  1  1  1  0  0  0  0  0  1  0  0  0
                 0  0  1  0  0  1  0  0  0  0  0  1  0  0  0
                 0  0  1  0  0  0  0  3  0  0  0  1  0  0  0
                 0  0  1  1  1  1  0  0  0  1  1  1  0  0  0
                 0  0  0  0  0  0  0  0  0  0  0  0  0  0  0
                 0  0  0  0  0  0  0  0  0  0  0  0  0  0  0
                 0  0  0  0  0  0  0  0  0  0  0  0  0  0  0
                 0  0  0  0  0  0  0  0  0  0  0  0  0  0  0
                 0  0  0  0  0  0  0  0  0  0  0  0  0  0  0];
        Map{4}=[ 0  0  0  0  0  0  0  0  0  0  0  0  0  0  0
                 0  0  0  0  0  0  0  0  0  0  0  0  0  0  0
                 0  0  0  0  0  0  0  0  0  0  0  0  0  0  0
                 0  0  0  0  0  0  0  0  0  0  0  0  0  0  0
                 0  0  0  0  0  0  0  0  0  0  0  0  0  0  0
                 0  0  0  0  0  0  0  0  0  0  0  0  0  0  0
                 0  0  0  0  0  0  0  0  0  0  0  0  0  0  0
                 0  0  0  0  0  1  0  0  1  1  0  0  0  0  0
                 0  0  0  0  0  1  0  0  0  0  0  0  0  0  0
                 0  0  0  0  0  1  0  3  0  1  0  0  0  0  0
                 0  0 -3 -2 -1  0  0  0  0  0  0  0  0  0  0
                 0  0  1  1  1  1  1  0  0  0  1  1  1  1  0
                 0  0  0  0  0  0  0  0  0  0  0  0  0  2  0
                 0  0  0  0  0  0  0  0  0  0  0  0  0  0  0
                 0  0  0  0  0  0  0  0  0  0  0  0  0  0  0];
        Map{5}=[ 0  0  0  0  0  0  0  0  0  0  0  0  0  0  0
                 0  0  0  0  0  0  0  0  0  0  0  0  0  0  0
                 0  0  0  0  0  0  0  0  0  0  0  0  0  0  0
                 0  0  0  0  0  0  0  0  0  0  0  0  0  0  0
                 0  0  0  0  0  0  0  0  0  0  0  0  0  0  0
                 0  0  0  0  0  0  0  0  0  0  0  0  0  0  0
                 0  0  0  0  0  0  0  0  0  0  0  2  0  0  0
                 0  0  0  0  0  0  0  1  1  1  1  1  0  0  0
                 0  0  0  0  0  0  0  1  3  0  1  0  0  0  0
                 0  0  0 -2 -1  0  0  0  0  0  1  0  0  0  0
                 0  0  0 -3  1  1  1  1  0  0  1  0  0  0  0
                 0  0  0  0  0  0  0  1  1  1  1  0  0  0  0
                 0  0  0  0  0  0  0  0  0  0  0  0  0  0  0
                 0  0  0  0  0  0  0  0  0  0  0  0  0  0  0
                 0  0  0  0  0  0  0  0  0  0  0  0  0  0  0];
        Map{6}=[ 0  0  0  0  0  0  0  0  0  0  0  0  0  0  0
                 0  0  0  0  0  0  0  0  0  0  0  0  0  0  0
                 0  0  0  0  0  0  0  0  0  0  0  0  0  0  0
                 0  0  0  0  0  0  0  0  0  0  0  0  0  0  0
                 0  0  0  0  0  0  0  0  0  0  0  0  0  0  0
                 0  0  0  0  0  0  0  0  0  0  0  0  2  0  0
                 0  0  0  0  0  0  0  0  1  0  0  0  0  0  0
                 0  0  0  0  0  0  1  3  1  0  0  0  0  0  0
                 0  0  0  0  0  0  0  0  0  0  0  0  0  0  0
                 0  0  0  0 -3 -2 -1  0  0  0  4  0  0  0  0
                 0  0  0  0  1  1  1  0  1  1  1  0  0  0  0
                 0  0  0  0  0  0  1  1  1  0  0  0  0  0  0
                 0  0  0  0  0  0  0  0  0  0  0  0  0  0  0
                 0  0  0  0  0  0  0  0  0  0  0  0  0  0  0
                 0  0  0  0  0  0  0  0  0  0  0  0  0  0  0];
        Map{7}=[ 0  0  0  0  0  0  0  0  0  0  0  0  0  0  0
                 0  0  0  0  0  0  0  0  0  0  0  0  0  0  0
                 0  0  0  0  0  0  0  0  0  0  0  0  0  0  0
                 0  0  0  0  0  0  0  0  0  0  0  0  0  0  0
                 0  0  0  0  0  0  0  0  0  0  0  0  0  0  0
                 0  0  0  0  0  0  4  0  0  0  0  0  0  0  0
                 0  0  0  0  0  0  1  0  0  0  0  0  0  0  0
                 0  0  0  0  0  0  1  0  0  0  0  0  2  0  0
                 0  0  0  0  0  0  1  3  0  0  0  0  0  0  0
                 0  0  0  0 -3 -2 -1  0  0  0  0  0  0  0  0
                 0  0  0  0  1  1  1  1  1  1  0  0  0  0  0
                 0  0  0  0  0  0  0  0  0  0  0  0  0  0  0
                 0  0  0  0  0  0  0  0  0  0  0  0  0  0  0
                 0  0  0  0  0  0  0  0  0  0  0  0  0  0  0
                 0  0  0  0  0  0  0  0  0  0  0  0  0  0  0];
        Map{8}=[ 0  0  0  0  0  0  0  0  0  0  0  0  0  0  0
                 0  0  0  0  0  0  0  0  0  0  0  0  0  0  0
                 0  0  0  0  0  0  0  0  0  0  0  0  0  0  0
                 0  0  0  0  0  0  0  0  0  0  0  0  0  0  0
                 0  0  0  0  0  0  0  0  0  0  0  0  0  0  0
                 0  0  0  0  0  0  1  0  0  0  0  0  0  0  0
                 0  0  0  0  0  0  4  0  0  0  0  0  0  0  0
                 0  0  0  0  0  1  3  1  0  0  0  0  0  0  0
                 0  0  0  0 -2 -1  0  0  0  0  0  0  0  0  0
                 0  0  0  0 -3  1  1  1  1  1  0  0  0  0  0
                 0  0  0  0  0  0  2  0  0  0  0  0  0  0  0
                 0  0  0  0  0  0  0  0  0  0  0  0  0  0  0
                 0  0  0  0  0  0  0  0  0  0  1  0  0  0  0
                 0  0  0  0  0  0  0  0  0  0  0  0  0  0  0
                 0  0  0  0  0  0  0  0  0  0  0  0  0  0  0];
        Map{9}=[];
        map=Map{level};
    end
    function loadMap(~,~)
        delete(findobj('Tag','BASE'))
        delete(findobj('Tag','EXIT'))
        delete(findobj('Tag','APPLE'))
        delete(findobj('Tag','STONE'))
        % 绘制土块
        for i=15:-1:1
            for j=15:-1:1
                if MAP(i,j)==1
                    image(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');
                end
            end
        end
        % 绘制出口
        [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]);
        end
    end
    function 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>tj
            tSnakeC=fliplr(tSnakeC);
            tSnakeAlp=fliplr(tSnakeAlp);
        end
        if ti_n>ti
            if MAP(ti,tj-1)==1
                tSnakeC(:,:,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');
            else
                tSnakeC(:,:,1)=flipud(tSnakeC(:,:,1)');
                tSnakeC(:,:,2)=flipud(tSnakeC(:,:,2)');
                tSnakeC(:,:,3)=flipud(tSnakeC(:,:,3)');
                tSnakeAlp=flipud(tSnakeAlp');
            end
        end
        if ti_n<ti
            if MAP(ti,tj-1)==1
                tSnakeC(:,:,1)=tSnakeC(end:-1:1,:,1)';
                tSnakeC(:,:,2)=tSnakeC(end:-1:1,:,2)';
                tSnakeC(:,:,3)=tSnakeC(end:-1:1,:,3)';
                tSnakeAlp=tSnakeAlp';
            else
                tSnakeC(:,:,1)=tSnakeC(:,:,1)';
                tSnakeC(:,:,2)=tSnakeC(:,:,2)';
                tSnakeC(:,:,3)=tSnakeC(:,:,3)';
                tSnakeAlp=tSnakeAlp';
            end
        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');
        [ti,tj]=find(MAP==min(MAP,[],[1,2]));
        [ti_l,tj_l]=find(MAP==min(MAP,[],[1,2])+1);
        tSnakeC=MT.snake4.CData;
        tSnakeAlp=MT.snake4.AlpData;
        switch true
            case tj_l>tj
            case tj_l<tj
                tSnakeC=fliplr(tSnakeC);
                tSnakeAlp=fliplr(tSnakeAlp);
            case ti_l<ti
                tSnakeC(:,:,1)=flipud(tSnakeC(:,:,1)');
                tSnakeC(:,:,2)=flipud(tSnakeC(:,:,2)');
                tSnakeC(:,:,3)=flipud(tSnakeC(:,:,3)');
                tSnakeAlp=flipud(tSnakeAlp');
            case ti_l>ti
                tSnakeC(:,:,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 true
                case ti_l==ti_n
                    tSnakeC=MT.snake2.CData;
                    tSnakeAlp=MT.snake2.AlpData;
                case tj_l==tj_n
                    tSnakeC=MT.snake2.CData;
                    tSnakeAlp=MT.snake2.AlpData;
                    tSnakeC(:,:,1)=tSnakeC(:,:,1)';
                    tSnakeC(:,:,2)=tSnakeC(:,:,2)';
                    tSnakeC(:,:,3)=tSnakeC(:,:,3)';
                    tSnakeAlp=tSnakeAlp';
                case ti_l<ti_n&&tj_l>tj_n&&ti>ti_l
                    tSnakeC=MT.snake3.CData;
                    tSnakeAlp=MT.snake3.AlpData;
                    tSnakeC=rot90(tSnakeC,2);
                    tSnakeAlp=rot90(tSnakeAlp,2);
                case ti_l<ti_n&&tj_l>tj_n&&tj<tj_l
                    tSnakeC=MT.snake3.CData;
                    tSnakeAlp=MT.snake3.AlpData;
                case ti_l<ti_n&&tj_l<tj_n&&ti>ti_l
                    tSnakeC=MT.snake3.CData;
                    tSnakeAlp=MT.snake3.AlpData;
                    tSnakeC=flipud(tSnakeC);
                    tSnakeAlp=flipud(tSnakeAlp);
                case ti_l<ti_n&&tj_l<tj_n&&tj>tj_l
                    tSnakeC=MT.snake3.CData;
                    tSnakeAlp=MT.snake3.AlpData;
                    tSnakeC=fliplr(tSnakeC);
                    tSnakeAlp=fliplr(tSnakeAlp);
                case ti_l>ti_n&&tj_l>tj_n&&ti<ti_l
                    tSnakeC=MT.snake3.CData;
                    tSnakeAlp=MT.snake3.AlpData;
                    tSnakeC=fliplr(tSnakeC);
                    tSnakeAlp=fliplr(tSnakeAlp);
                case ti_l>ti_n&&tj_l>tj_n&&tj<tj_l
                    tSnakeC=MT.snake3.CData;
                    tSnakeAlp=MT.snake3.AlpData;
                    tSnakeC=flipud(tSnakeC);
                    tSnakeAlp=flipud(tSnakeAlp);
                case ti_l>ti_n&&tj_l<tj_n&&ti<ti_l
                    tSnakeC=MT.snake3.CData;
                    tSnakeAlp=MT.snake3.AlpData;
                case ti_l>ti_n&&tj_l<tj_n&&tj>tj_l
                    tSnakeC=MT.snake3.CData;
                    tSnakeAlp=MT.snake3.AlpData;
                    tSnakeC=rot90(tSnakeC,2);
                    tSnakeAlp=rot90(tSnakeAlp,2);
            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');
        end
    end
end

源码获取

以上就是基于Matlab实现抖音小游戏苹果蛇的详细内容,更多关于Matlab苹果蛇游戏的资料请关注我们其它相关文章!

(0)

相关推荐

  • MATLAB实现五子棋游戏(双人对战、可悔棋)

    本文实例为大家分享了MATLAB实现五子棋游戏的具体代码,供大家参考,具体内容如下 程序介绍: 1.此游戏只可用于双人对战. 2.棋盘颜色.棋盘格数.棋子颜色等参数均可自由设置 3.鼠标点击非棋盘区域可悔棋. 一.游戏界面 二.主程序及函数 1.主程序 %Author:LeiZhen %Date:2018-03-12 %此程序只下五子棋,并判断胜负关系 clear all; clc %定义颜色 Color_QiPanBack=[135,206,255]; Color_ChessLine=[100

  • 如何利用Matlab制作一款真正的拼图小游戏

    效果: 简单原理介绍: 1构造0,1矩阵作为每片拼图的透明度,可以构造出不规则形状的拼图(image函数有alphaData属性可以设置) jigsawMask=zeros(101*5,101*5); jigsawMask(102:404,102:404)=1; [xMesh,yMesh]=meshgrid(1:101*5,1:101*5); dis1=sqrt((xMesh-51).^2+(yMesh-253).^2); dis2=sqrt((xMesh-505+50).^2+(yMesh-2

  • Matlab实现贪吃蛇小游戏的示例代码

    由于老师说如果拿MATLAB制作出游戏或者有趣的动画的话.. 平时成绩可以拿满分 于是..开始尝试制作各种matlab小游戏 最初通过Alex的贪吃蛇学到了一些东西,然后制作了一个类似的俄罗斯方块在课堂上展示的(都是动的方块嗯哒). 后来自己也尝试写着玩了一些其他版本的贪吃蛇,并做出了一些改进. 补动图: 没错这就有点类似贪吃蛇大作战里的蛇啦 然后做出的改进包括: 在关闭窗口时不报错的设置,因为用了timer这个函数,在关闭图像时他会报错,我们就可以加入一个回调函数: set(gcf,'tag'

  • 基于Matlab制作一款简单的龙舟小游戏

    效果图: 没找到合适的背景就自己画了个,大家如果有更好看的可以换一下... 步骤 1 创建Axes及图片导入 窗口创建: Mainfig=figure('units','pixels','position',[50 100 760 400],... 'Numbertitle','off','menubar','none','resize','off',... 'name','dragonBoat'); axes('parent',Mainfig,'position',[0 0 1 1],...

  • 基于Matlab实现俄罗斯方块游戏

    我最早写的一个matlab小游戏 写的可能不够简洁,但还有可玩性, 先发上来,以后可能改进或出教程. 大家自己探索吧(外挂是哪个按键,更改颜色是哪个按键) 游戏效果 完整代码 function elos hold on axis equal axis(0.5+[0,10,0,20]) set(gca,'xtick',[],'ytick',[],'xcolor','w','ycolor','w') set(gca,'color','k') %%%%%%%%%%% %%%%%%%%%% %%%%%%

  • 使用Matlab制作大富翁小游戏的过程详解

    目录 1.自定义头像及名称 2.买地.收费.破产 3.部分代码展示 gui_init.m self_init.m 4.修改记录 5.下载地址 大富翁大家都玩过,走到建筑的位置可以买地,第二圈走到买过的地可以升级,别人经过后需要付过路费,每次经过起点都会获得一定资金,玩到最后还没破产的就是胜者,这里我用MATLAB制作了一款MATLAB版的大富翁小游戏: 1.自定义头像及名称 点击方框内加号可换头像,点击文本区域可改昵称: 当然即使不换头像点击开始后,也会自动分配头像和名称: 2.买地.收费.破产

  • 教你用Matlab制作黄金矿工小游戏

    目录 效果 步骤 图片准备 背景构建 绘制爪子 让爪子转起来 绘制石块 点击下箭头移动爪子 爪子与石头和边缘碰触判断 抓取石块和显示金钱 完整代码 效果 步骤 图片准备 本文所使用图片在这 背景构建 function goldMiner Mainfig=figure('units','pixels','position',[50 100 750 500],... 'Numbertitle','off','menubar','none','resize','off',... 'name','gol

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

    最近抖音上苹果蛇小游戏大火,为了证明MATLAB无所不能,咋能不跟风做一个?于是就有了这一篇. 还是提一句这个小游戏开始玩的心路历程: 第1-5关:?这不就是有重力的贪吃蛇,有任何难度嘛?? 第6关:嗯...这个小技巧还是有点意思的 第30关:???这绕来绕去的是人出的题目?? 第90关:… …疯了疯了已经疯了 废话不多说看一下MATLAB版的完整代码: 为了方便修改,关卡地图就摆在m文件里,总共写了八关,但是只有代码没有素材包还是运行不了,因此请从文末获取完整压缩包. function app

  • Android 实现抖音小游戏潜艇大挑战的思路详解

    <潜水艇大挑战>是抖音上的一款小游戏,以面部识别来驱动潜艇通过障碍物,最近特别火爆,相信很多人都玩过. 一时兴起自己用Android自定义View也撸了一个,发现只要有好的创意,不用高深的技术照样可以开发出好玩的应用.开发过程现拿出来与大家分享一下. 项目地址: https://github.com/vitaviva/ugame 基本思路 整个游戏视图可以分成三层: camera(相机):处理相机的preview以及人脸识别 background(后景):处理障碍物相关逻辑 foregroun

  • 五十音小游戏中的前端知识小结

    背景 在日语学习初期阶段,我发现日语五十音的记忆并不是很容易的,片假名的记忆尤其令人费神.这时我想如果有一个应用可以充分利用碎片时间,在午休或地铁上随时可以练习五十音该多好.于是搜索 App Store,确实有很多五十音学习的小软件,但是商店的软件不是含有内购.夹带广告.就是动辄 40M 以上,没找到一个自己满意的应用.于是打算自己写一个,主要介绍自己在开发设计该应用过程中的一些收获. 实现 在线体验地址 https://dragonir.github.io/kanaApp/ 实现效果如下,该应

  • 利用Matlab制作抖音同款含褶皱面料图

    目录 效果如下 步骤 1.导入图片 2.图片扩张 3.像素映射 4.正片叠底 5.完整代码 效果如下 步骤 1.导入图片 我们需要导入一张褶皱图片(background.jpg)以及一张前景图片(foreground.jpg),将褶皱图片灰度化,将前景图调整至与褶皱图片相同大小: bkgPic=imread('background.jpg'); bkgPic=rgb2gray(bkgPic); forePic=imread('foreground.jpg'); forePic=imresize(

  • 基于JavaScript+HTML5 实现打地鼠小游戏逻辑流程图文详解(附完整代码)

    随着html5的兴起,那些公司对大型游戏的开发正在慢慢疏远,一.开发周期长:二.运营花费高:他们正找一些能够克服这些缺点的替代品.正好,html5的出现可以改变这些现状,在淘宝.京东等一些大型电商网站.QQ.微信等聊天软件都出现了html5的小游戏,这说明html5越来越受到大家的青睐.接下来我用javascript实现一个小型游戏---打地鼠. 一.游戏简介 打地鼠这个游戏相信大家都不陌生,也是童年时候一款经典的游戏.本次游戏的编写是以html文件形式完成的,并且使用HBulider软件进行编

  • Java用20行代码实现抖音小视频批量转换为gif动态图

    本文主要介绍了Java用20行代码实现抖音小视频批量转换为gif动态图,分享给大家,具体如下: 效果图 本功能实现需要用到第三方jar包 jave,JAVE 是java调用FFmpeg的封装工具. spring boot项目pom文件中添加以下依赖 <!-- https://mvnrepository.com/artifact/ws.schild/jave-core --> <dependency> <groupId>ws.schild</groupId>

  • 利用Matlab复刻扫雷小游戏

    效果图 点击帮助切换插旗功能: 游戏失败: 完整代码 function SLsXpbombs global Row; Row=10;%雷区行数 global Col; Col=10;%雷区列数 global MineMap; MineMap=[]; %地雷图 global aroundMap;aroundMap=[];%周围地雷数 global MarkMap; MarkMap=ones([Row,Col]); %标记图 global MineNum; MineNum=8;%地雷总数 globa

  • 基于Unity3D实现3D迷宫小游戏的示例代码

    目录 一.前言 二.构思 三.正式开发 3-1.搭建场景 3-2.设置出入口 3-3.添加角色 3-4.实现角色移动 3-5.出入口逻辑 四.总结 一.前言 闲来无事,从零开始整个<3D迷宫>小游戏. 本篇文章会详细介绍构思.实现思路,希望可以帮助到有缘人. 二.构思 首先,要实现一个小游戏,心里肯定要有一个大概的想法,然后就是将想法完善起来. 我的想法就是一个用立体的墙搭建的迷宫,然后控制人物在迷宫中移动,最后找到出口,就这么简单. 当然,这是一个雏形,比如可以加点音效.背景.关卡.解密等.

  • 基于JS实现接粽子小游戏的示例代码

    目录 游戏设计 游戏实现 添加粽子元素 粽子掉落 难度选择 开始游戏 总结 端午节马上就到了,听说你们公司没发粽子大礼包?没关系,这里用 JS 实现了一个简单的接粽子小游戏,能接到多少粽子,完全看你手速,不用担心端午没粽子了. 游戏设计 在游戏屏幕内,会随机的从顶部掉落粽子,通过鼠标移动到粽子上并点击,成功接住粽子,得到积分.在设置面板中,可以设置游戏难度,分为简单.很难.超级难三种等级,不同等级的积分也是不同的,玩家可根据自己的手速进行设置.游戏结束后,可看到自己的成绩.实现出来的效果如下(可

随机推荐