第基于Matlab制作一款簡(jiǎn)單的龍舟小游戲沒(méi)找到合適的背景就自己畫(huà)了個(gè)，大家如果有更好看的可以換一下。。。

步驟

1創(chuàng)建Axes及圖片導(dǎo)入

窗口創(chuàng)建：

Mainfig=figure('units','pixels','position',[50100760400],...

'Numbertitle','off','menubar','none','resize','off',...

'name','dragonBoat');

axes('parent',Mainfig,'position',[0011],...

'XLim',[0760],...

'YLim',[0400],...

'NextPlot','add',...

'layer','bottom',...

'Visible','on',...

'YDir','reverse',...

'XTick',[],...

'YTick',[]);

圖片導(dǎo)入：

[bkg_C,~,~]=imread('river.png');

[boat_C,~,boat_Alp]=imread('boat.png');

[stone_C,~,stone_Alp]=imread('stone.png');

圖片素材可以從這里拿喲

2創(chuàng)建timer函數(shù)移動(dòng)背景

DrawBkgHdl=image([0760],[0400],bkg_C);

tempBkg_C=[bkg_C,bkg_C];

fps=20;

game=timer('ExecutionMode','FixedRate','Period',1/fps,'TimerFcn',@dragongame);

start(game)

functiondragongame(~,~)

t=t+6;

modt=mod(t,720);

newBkg_C=tempBkg_C(:,1+modt:684+modt,:);

set(DrawBkgHdl,'CData',newBkg_C)

3繪制石塊并移動(dòng)

其實(shí)是5個(gè)石塊來(lái)回變位置，當(dāng)一個(gè)石塊位置減小到負(fù)數(shù)就把數(shù)值增加并重新繪制

stonePos=[600;870;1140;1410];

stonePos=[stonePos,randi([90,330],[4,1])];

fori=1:size(stonePos,1)

drawStoneHdl(i)=image([stonePos(i,1)-39stonePos(i,1)+39],[stonePos(i,2)-20stonePos(i,2)+20],stone_C,'AlphaData',stone_Alp);

functiondragongame(~,~)

%這里是之前寫(xiě)的背景部分代碼

%。。。。。。。。。。。

%。。。。。。。。。。。

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;

forii=1:size(stonePos,1)

set(drawStoneHdl(ii),'XData',[stonePos(ii,1)-39stonePos(ii,1)+39],...

'YData',[stonePos(ii,2)-20stonePos(ii,2)+20]);

4繪制船并創(chuàng)建鼠標(biāo)回調(diào)

boatPos=[380,200];

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

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

functionmoveBoat(~,~)

xy=get(gca,'CurrentPoint');

temp_y=xy(1,2);

temp_y(temp_y100)=90;

temp_y(temp_y340)=330;

boatPos=[380,temp_y];

set(DrawBoatHdl,'YData',[temp_y-50temp_y+50]);

5碰撞判斷函數(shù)

functionflag=judge(Bpos,Spos)

flag1=abs(Bpos(1)-Spos(:,1))

flag2=abs((Bpos(2)+35)-Spos(:,2))

flag3=flag1flag2;

flag=any(flag3);

dragongame函數(shù)做如下改寫(xiě)

functiondragongame(~,~)

%這里是之前一大堆代碼

%。。。。。。。。。。

%。。。。。。。。。。

%。。。。。。。。。。

ifjudge(boatPos,stonePos)

stop(game)

set(gcf,