基于Matlab制作一款簡單的龍舟小游戲
效果圖:
沒找到合適的背景就自己畫了個,大家如果有更好看的可以換一下。。。
步驟
1 創(chuàng)建Axes及圖片導(dǎo)入
窗口創(chuàng)建:
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',[]);
圖片導(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ù)移動背景
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個石塊來回變位置,當(dāng)一個石塊位置減小到負(fù)數(shù)就把數(shù)值增加并重新繪制
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 繪制船并創(chuàng)建鼠標(biāo)回調(diào)
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 碰撞判斷函數(shù)
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函數(shù)做如下改寫
function dragongame(~,~) %這里是之前一大堆代碼 %。。。。。。。。。。 %。。。。。。。。。。 %。。。。。。。。。。 if judge(boatPos,stonePos) stop(game) set(gcf,'WindowButtonMotionFcn',[]); text(50,200,'游戲結(jié)束','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,['已前進(jìn)',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',['已前進(jìn)',num2str(t),'米']); if judge(boatPos,stonePos) stop(game) set(gcf,'WindowButtonMotionFcn',[]); text(50,200,'游戲結(jié)束','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
到此這篇關(guān)于基于Matlab制作一款簡單的龍舟小游戲的文章就介紹到這了,更多相關(guān)Matlab龍舟游戲內(nèi)容請搜索腳本之家以前的文章或繼續(xù)瀏覽下面的相關(guān)文章希望大家以后多多支持腳本之家!
相關(guān)文章
char str[] 與 char *str的區(qū)別詳細(xì)解析
以下是對char str[]與char *str的區(qū)別進(jìn)行了詳細(xì)的介紹,需要的朋友可以過來參考下2013-09-09C語言 超詳細(xì)介紹與實現(xiàn)線性表中的帶頭雙向循環(huán)鏈表
帶頭雙向循環(huán)鏈表:結(jié)構(gòu)最復(fù)雜,一般用在單獨存儲數(shù)據(jù)。實際中使用的鏈表數(shù)據(jù)結(jié)構(gòu),都是帶頭雙向循環(huán)鏈表。另外這個結(jié)構(gòu)雖然結(jié)構(gòu)復(fù)雜,但是使用代碼實現(xiàn)以后會發(fā)現(xiàn)結(jié)構(gòu)會帶來很多優(yōu)勢,實現(xiàn)反而簡單2022-03-03