function ChangeTurn() set(hText(cur_turn,cur_cid),'BackgroundColor','none'); cur_turn = 3-cur_turn; cur_cid = 0; sname = {'红','黑'}; set(1,'name',sname{cur_turn}) if chess_y(1,5)==chess_y(2,5) if isempty(find(pos_chess(chess_y(1,5)+1,chess_x(1,5)+1+1:chess_x(2,5)-1+1), 1)) h = msgbox([sname{cur_turn} '方获胜!'], '象棋', 'modal'); end end end end
时间: 2024-04-27 07:24:54 浏览: 13
这是一段 MATLAB 代码,其中定义了一个名为 ChangeTurn 的函数。在函数中,首先通过 set 函数设置当前玩家的文本框背景色为无色('none'),然后通过改变 cur_turn 和 cur_cid 变量的值来切换当前玩家和当前棋子。接下来,定义了一个字符串数组 sname,用于存储红方和黑方的名称,通过 set 函数将当前窗口的名称设置为当前玩家的名称。如果红方和黑方的帅在同一列上,且它们之间没有其他棋子,那么就弹出一个消息框,宣布当前玩家获胜。
相关问题
else % have current chess if cc~=0 % chess clicked if cc==cur_cid && ct==cur_turn % no change return end if ct==cur_turn % change chess set(hText(cur_turn,cur_cid),'BackgroundColor','none'); cur_cid = cc; set(hText(cur_turn,cur_cid),'BackgroundColor',[.3 .5 .1]); else % kill if CanMove(x,y)==1 KillChess(ct,cc); end end else % no chess clicked,go there if CanMove(x,y)==1 MoveChess(x,y); ChangeTurn(); end end end end
这段代码是在已经有当前选中棋子的情况下,处理鼠标点击事件的。如果鼠标点击的位置上有棋子,进一步判断该棋子的颜色ct是否等于当前轮到哪一方走棋cur_turn,如果是则不做处理,否则判断能否吃掉该棋子。如果鼠标点击的位置上没有棋子,则判断当前选中的棋子能否移动到该位置。如果能,则进行移动,修改棋子位置和pos_chess数组,并将当前选中棋子的文本框背景颜色设为无色,然后交换走棋方。
function OnWindowButtonDown(~,~) pt = get(gca,'CurrentPoint'); x = round(pt(1,1)); y = round(pt(1,2)); if x<0 || x>nColNum || y<0 || y>nRowNum%判断是否在棋盘外 return end cc = pos_chess(y+1,x+1);%如果在棋盘内,则给cc赋值 if cc~=0 ct = ceil(cc/16); cc = mod(cc,16); if cc == 0 cc = 16; end end if cur_cid==0 if cc~=0 % chess clicked if ct==cur_turn cur_cid = cc; set(hText(cur_turn,cur_cid),'BackgroundColor',[.3 .5 .1]); end end
这段代码是用来处理鼠标点击事件的。当鼠标点击棋盘上的某个位置时,首先判断该位置是否在棋盘内,如果不在则不做处理,否则获取该位置上的棋子编号cc。如果cc不等于0,说明该位置上有棋子,进一步判断该棋子的颜色ct是否等于当前轮到哪一方走棋cur_turn,如果不是则不做处理,否则将该棋子的编号赋值给cur_cid,并且将该棋子的文本框背景颜色设为绿色。