《有趣的游戏程序》由会员分享，可在线阅读，更多相关《有趣的游戏程序（71页珍藏版）》请在金锄头文库上搜索。
1、MATLAB游戏程序目录1.空格游戏22.华容道33.凑五子棋144.2048195.俄罗斯方块241.空格游戏function pintu1()A = gen();G = 1 2 3;4 5 6;7 8 0;drawmap(A); while 1 xpos,ypos = ginput(1); col = ceil(xpos); row = 3-ceil(ypos)+1; num = A(row,col); if row1&A(row-1,col)=0 A(row-1,col) = num; A(row,col) = 0; end if row1&A(row,col-1)=0 A(row,co
2、l-1) = num; A(row,col) = 0; end if col1&isequalm(A(rn,rm,ln-1),0;0) A(rn,rm,ln-1)=1;1; A(rn,rm,lm)=0;0; drawmap(A) end %判断与否能向右移 if lm1&isequalm(A(rn-1,ln,lm),0,0) A(rn-1,ln,lm)=1,1; A(rn+1,ln,lm)=0,0; drawmap(A) end %判断与否能向上移 if rm1&isequalm(A(rn,rm,ln-1),0;0) A(rn,rm,ln-1)=2;2; A(rn,rm,lm)=0;0; dr
3、awmap(A) end %判断与否能向右移 if lm1&A(rn-1,ln)=0 if rm5&A(rm+1,ln)=0%假如又能上移又能下移，则要点击旳部位 ch = menu(请选择移到旳方向：,上,下) switch ch case 1%上移 A(rn-1,ln) = 2; A(rn+1,ln) = 0; drawmap(A) case 2%下移 A(rm+1,ln) = 2; A(rm-1,ln) = 0; drawmap(A) end else%只能上移 A(rn-1,ln) = 2; A(rn+1,ln) = 0; drawmap(A) end elseif rm1&isequalm(A(rn,rm,ln-1),0;0) A(rn,rm,ln-1)=3;3; A(rn,rm,lm)=0;0; drawmap(A) end
