基于Matlab实现的大富翁游戏源代码

%% 大富翁MATLAB实现 % 使用MATLAB实现了大富翁游戏的基本功能 % 支持自定义玩家头像、姓名、购买土地等功能 %% 主函数(main) function monopoly_main %部分全局变量 global aliveList nameList presentPlayer owenerList global self selfHdl diceHdl %界面初始化 [~,monAx,diceAx,diceTool,selfTool,monMenuS]=gui_init(); %绘制地图 blockData=block_load(); for i=1:size(blockData,1) block_draw(monAx,blockData{i,:}) end %绘制骰子------------------------------------------------------------------ diceHdl=dice_draw(diceAx,6); set(diceTool.Btn,'ButtonPushedFcn',@diceRoll); function diceRoll(~,~) diceNum=randi(6); diceHdl=dice_roll(diceAx,diceNum,diceHdl); if strcmp(monMenuS.m2.Parent.Text,'重新开始') oriPos=self.(['player',num2str(aliveList(presentPlayer))]).pos; for ii=1:diceNum self.(['player',num2str(aliveList(presentPlayer))]).pos=self.(['player',num2str(aliveList(presentPlayer))]).pos+1; self.(['player',num2str(aliveList(presentPlayer))]).pos=mod(self.(['player',num2str(aliveList(presentPlayer))]).pos,size(blockData,1)); selfHdl=self_draw(monAx,self,blockData,selfHdl); pause(0.25) end newPos=self.(['player',num2str(aliveList(presentPlayer))]).pos; [self,owenerList,aliveList]=action_exchange(self,selfTool,diceTool,oriPos,newPos,aliveList(presentPlayer),blockData,owenerList,aliveList,nameList); selfHdl=self_draw(monAx,self,blockData,selfHdl); self_updata(self,selfTool) presentPlayer(presentPlayer>length(aliveList))=length(aliveList); presentPlayer=mod(presentPlayer+1,length(aliveList)); presentPlayer(presentPlayer==0)=length(aliveList); diceTool.Lbl2.Text=['当前轮次：',nameList{aliveList(presentPlayer)}]; end end %更名回调------------------------------------------------------------------ nameList={'玩家1','玩家2','玩家3','玩家4'}; for i=1:4 set(selfTool.(['player',num2str(i)]).Ta,'ValueChangedFcn',@reName); end function reName(~,obj) reNameBox=obj.Source; n=reNameBox.UserData; nameList(n)=reNameBox.Value; if strcmp(monMenuS.m2.Parent.Text,'重新开始') diceTool.Lbl2.Text=['当前轮次：',nameList{aliveList(presentPlayer)}]; end end %绘图回调------------------------------------------------------------------ for i=1:4 set(selfTool.(['player',num2str(i)]).Img,'ImageClickedFcn',@chPic); end function chPic(~,obj) picBox=obj.Source; n=picBox.UserData; [filename, pathname] = uigetfile({'*.jpg;*.tif;*.png;*.gif','All Image Files';... '*.*','All Files' }); if filename~=0 selfTool.(['player',num2str(n)]).Img.ImageSource=[pathname,filename]; end end %按钮回调------------------------------------------------------------------ for i=1:4 set(selfTool.(['player',num2str(i)]).Btn,'ButtonPushedFcn',@buy_estate); end function buy_estate(~,obj) btn=obj.Source; n=btn.UserData; DataStr=selfTool.(['player',num2str(n)]).Ta2.Value{:}; if ~strcmp(DataStr,'') bp=regexp(DataStr,'B:')+2; tp=regexp(DataStr,'T:')-2; price=str2num(DataStr(bp:tp)); if self.(['player',num2str(n)]).property-price>=0 NameS=DataStr(1:(bp-2)); if strcmp(DataStr(end),'1') self.(['player',num2str(n)]).property=self.(['player',num2str(n)]).property-price; self.(['player',num2str(n)]).real_estate(self.(['player',num2str(n)]).estateNum+1)={selfTool.(['player',num2str(n)]).Ta2.Value{:}}; self.(['player',num2str(n)]).estateNum=self.(['player',num2str(n)]).estateNum+1; for ii=1:4 DataStrO=selfTool.(['player',num2str(ii)]).Ta2.Value{:}; if ~strcmp(DataStrO,'') NameO=DataStrO(1:(bp-2)); if strcmp(NameS,NameO) selfTool.(['player',num2str(ii)]).Ta2.Value=''; end end end owenerList=[owenerList;self.(['player',num2str(n)]).pos,n,1]; else for ii=1:self.(['player',num2str(n)]).estateNum DataStrS=self.(['player',num2str(n)]).real_estate{ii}; NameSab=DataStrS(1:(bp-2)); if strcmp(NameS,NameSab) self.(['player',num2str(n)]).real_estate(ii)={selfTool.(['player',num2str(n)]).Ta2.Value{:}}; end end stag=str2num(DataStr(end)); owenerPos=owenerList(:,1)==self.(['player',num2str(n)]).pos; owenerList(owenerPos,:)=[self.(['player',num2str(n)]).pos,n,stag]; selfTool.(['player',num2str(n)]).Ta2.Value=''; end self_updata(self,selfTool) end end end %开始游戏回调-------------------------------------------------------------- for i=2:4 set(monMenuS.(['m',num2str(i)]),'MenuSelectedFcn',@game_init) end %========================================================================== function game_init(~,obj) %获取游戏人数 selectedMenu=obj.Source; switch 1 case strcmp(selectedMenu.Text,'二人游戏'),playerNum=2; case strcmp(selectedMenu.Text,'三人游戏'),playerNum=3; case strcmp(selectedMenu.Text,'四人游戏'),playerNum=4; end %初始化人物基础信息 self=self_init(playerNum); %初始化人物模型 if strcmp(selectedMenu.Parent.Text,'重新开始') selfHdl=self_draw(monAx,self,blockData,selfHdl); nameList={'玩家1','玩家2','玩家3','玩家4'}; else selfHdl=self_draw(monAx,self,blockData); end %重置开始游戏选项 selectedMenu.Parent.Text='重新开始'; %基础信息设置 aliveList=1:playerNum; presentPlayer=1; %owenerList=[pos,owner,stage]; owenerList=[0 0 0]; owenerList(1,:)=[]; %面板更新 for ii=1:playerNum if ~strcmp(selfTool.(['player',num2str(ii)]).Ta.Value,'请输入昵称') nameList(ii)=selfTool.(['player',num2str(ii)]).Ta.Value; end if strcmp(selfTool.(['player',num2str(ii)]).Img.ImageSource,'图片\player0.png') selfTool.(['player',num2str(ii)]).Img.ImageSource=['图片\player',num2str(ii),'.png']; end selfTool.(['player',num2str(ii)]).Ta.Enable = 'on'; selfTool.(['player',num2str(ii)]).Lb.Items={}; selfTool.(['player',num2str(ii)]).Txt.Text=['资金 ：',num2str(self.(['player',num2str(ii)]).property)]; selfTool.(['player',num2str(ii)]).Ta.Value=nameList{ii}; selfTool.(['player',num2str(ii)]).Lb.Enable ='on'; selfTool.(['player',num2str(ii)]).Btn.Enable='on'; selfTool.(['player',num2str(ii)]).Img.Enable='on'; selfTool.(['player',num2str(ii)]).Txt.Enable='on'; selfTool.(['player',num2str(ii)]).Ta2.Value=''; end for ii=4:-1:(playerNum+1) nameList(ii)=[]; selfTool.(['player',num2str(ii)]).Ta.Value='请输入昵称'; selfTool.(['player',num2str(ii)]).Ta.Enable = 'off'; selfTool.(['player',num2str(ii)]).Lb.Items={'地产一(空)','地产二(空)','地产三(空)','... ...'}; selfTool.(['player',num2str(ii)]).Lb.Enable ='off'; selfTool.(['player',num2str(ii)]).Btn.Enable='off'; selfTool.(['player',num2str(ii)]).Img.ImageSource='图片\player0.png'; selfTool.(['player',num2str(ii)]).Img.Enable='off'; selfTool.(['player',num2str(ii)])