效果图：

没找到合适的背景就自己画了个，大家如果有更好看的可以换一下。。。

步骤

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],...
   "XLim", [0 760],...
   "YLim", [0 400],...
   "NextPlot","add",...
   "layer","bottom",...
   "Visible","on",...
   "YDir","reverse",...
   "XTick",[], ...
   "YTick",[]);

图片导入：

[bkg_C,~,~]=imread("river.png");
[boat_C,~,boat_Alp]=imread("boat.png");
[stone_C,~,stone_Alp]=imread("stone.png");

图片素材可以从这里拿哟

2 创建timer函数移动背景

DrawBkgHdl=image([0 760],[0 400],bkg_C);

t=0;
tempBkg_C=[bkg_C,bkg_C];
fps = 20;
game = timer("ExecutionMode", "FixedRate", "Period",1/fps, "TimerFcn", @dragongame);
start(game)

	function dragongame(~,~)
        t=t+6;
        modt=mod(t,720);
        
        newBkg_C=tempBkg_C(:,1+modt:684+modt,:);
        set(DrawBkgHdl,"CData",newBkg_C) 
    end

3 绘制石块并移动

其实是5个石块来回变位置，当一个石块位置减小到负数就把数值增加并重新绘制

stonePos=[600;870;1140;1410];
stonePos=[stonePos,randi([90,330],[4,1])];
for i=1:size(stonePos,1)
    drawStoneHdl(i)=image([stonePos(i,1)-39 stonePos(i,1)+39],[stonePos(i,2)-20 stonePos(i,2)+20],stone_C,"AlphaData",stone_Alp);
end

	function dragongame(~,~)

		%这里是之前写的背景部分代码
		%。。。。。。。。。。。
		%。。。。。。。。。。。
		
        stonePos(:,1)=stonePos(:,1)-20/3;
        stonePos(stonePos(:,1)<0,2)=randi([90,330],[1,1]);
        stonePos(stonePos(:,1)<0,1)=stonePos(stonePos(:,1)<0,1)+1080;
        for ii=1:size(stonePos,1)
            set(drawStoneHdl(ii),"XData",[stonePos(ii,1)-39 stonePos(ii,1)+39],...
                "YData",[stonePos(ii,2)-20 stonePos(ii,2)+20]);
        end
    end

4 绘制船并创建鼠标回调

boatPos=[380,200];
DrawBoatHdl=image([boatPos(1)-75 boatPos(1)+75],[boatPos(2)-50 boatPos(2)+50],boat_C,"AlphaData",boat_Alp);

set(gcf,"WindowButtonMotionFcn",@moveBoat,"tag","mov")

	function moveBoat(~,~)
        xy=get(gca,"CurrentPoint");
        temp_y=xy(1,2);
        temp_y(temp_y<100)=90;
        temp_y(temp_y>340)=330;
        boatPos=[380,temp_y];
        set(DrawBoatHdl,"YData",[temp_y-50 temp_y+50]);
    end

5 碰撞判断函数

function flag=judge(Bpos,Spos)
        flag1=abs(Bpos(1)-Spos(:,1))<80;
        flag2=abs((Bpos(2)+35)-Spos(:,2))<30;
        flag3=flag1&flag2;
        flag=any(flag3);
    end

dragongame函数做如下改写

function dragongame(~,~)
    
		%这里是之前一大堆代码
		%。。。。。。。。。。
		%。。。。。。。。。。
		%。。。。。。。。。。

        if judge(boatPos,stonePos)
            stop(game)
            set(gcf,"WindowButtonMotionFcn",[]); 
            text(50,200,"游戏结束","FontSize",54,"Color","w","tag","txt")
        end
    end

6 完整代码

function dragonBoat


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],...
   "XLim", [0 760],...
   "YLim", [0 400],...
   "NextPlot","add",...
   "layer","bottom",...
   "Visible","on",...
   "YDir","reverse",...
   "XTick",[], ...
   "YTick",[]);
[bkg_C,~,~]=imread("river.png");
[boat_C,~,boat_Alp]=imread("boat.png");
[stone_C,~,stone_Alp]=imread("stone.png");


DrawBkgHdl=image([0 760],[0 400],bkg_C);

stonePos=[600;870;1140;1410];
stonePos=[stonePos,randi([90,330],[4,1])];
for i=1:size(stonePos,1)
    drawStoneHdl(i)=image([stonePos(i,1)-39 stonePos(i,1)+39],[stonePos(i,2)-20 stonePos(i,2)+20],stone_C,"AlphaData",stone_Alp);
end

boatPos=[380,200];
DrawBoatHdl=image([boatPos(1)-75 boatPos(1)+75],[boatPos(2)-50 boatPos(2)+50],boat_C,"AlphaData",boat_Alp);

t=0;
tempBkg_C=[bkg_C,bkg_C];
fps = 20;
game = timer("ExecutionMode", "FixedRate", "Period",1/fps, "TimerFcn", @dragongame);
start(game)

text(10,20,["已前进",num2str(t),"米"],"FontSize",14,"Color","w","tag","txt");

set(gcf,"WindowButtonMotionFcn",@moveBoat,"tag","mov")


    function dragongame(~,~)
        t=t+6;
        modt=mod(t,720);
        
        newBkg_C=tempBkg_C(:,1+modt:684+modt,:);
        set(DrawBkgHdl,"CData",newBkg_C) 
        
        stonePos(:,1)=stonePos(:,1)-20/3;
        stonePos(stonePos(:,1)<0,2)=randi([90,330],[1,1]);
        stonePos(stonePos(:,1)<0,1)=stonePos(stonePos(:,1)<0,1)+1080;
        for ii=1:size(stonePos,1)
            set(drawStoneHdl(ii),"XData",[stonePos(ii,1)-39 stonePos(ii,1)+39],...
                "YData",[stonePos(ii,2)-20 stonePos(ii,2)+20]);
        end
        set(findobj("tag","txt"),"String",["已前进",num2str(t),"米"]);
        
        if judge(boatPos,stonePos)
            stop(game)
            set(gcf,"WindowButtonMotionFcn",[]); 
            text(50,200,"游戏结束","FontSize",54,"Color","w","tag","txt")
        end
    end

    function moveBoat(~,~)
        xy=get(gca,"CurrentPoint");
        temp_y=xy(1,2);
        temp_y(temp_y<100)=90;
        temp_y(temp_y>340)=330;
        boatPos=[380,temp_y];
        set(DrawBoatHdl,"YData",[temp_y-50 temp_y+50]);
    end

    function flag=judge(Bpos,Spos)
        flag1=abs(Bpos(1)-Spos(:,1))<80;
        flag2=abs((Bpos(2)+35)-Spos(:,2))<30;
        flag3=flag1&flag2;
        flag=any(flag3);
    end
end

到此这篇关于基于Matlab制作一款简单的龙舟小游戏的文章就介绍到这了,更多相关Matlab龙舟游戏内容请搜索脚本之家以前的文章或继续浏览下面的相关文章希望大家以后多多支持脚本之家！

关键词： 游戏结束 希望大家 相关文章