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


步骤
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龙舟游戏内容请搜索w3xue以前的文章或继续浏览下面的相关文章希望大家以后多多支持w3xue!