五连珠游戏
游戏规则：
移动小球，五个或五个以上相同颜色的组成一行或一列就会消失
移动的时候只能移动到相连通的格子里去
function [  ] = five()
global a h m1 n1 m2 n2 t h1 h2 h3 color score hsc ha ss
hf=figure('resize','off','name','five',...
    'position',[360   280   560   420],'numbertitle','off');
ha=axes;
set(gcf,'menubar','none','color',[0.3 0.3 0.3])
set(gca,'position',[0.2300    0.1100    0.7750    0.8150])
set(gca,'xlim',[0,9],'ylim',[0,9])
set(ha,'xtick',[],'ytick',[],'box','on')
set(ha,'color',[0.7 0.6,0.6])
set(ha,'DataAspectRatio',[1 1 1],'PlotBoxAspectRatio',[1 1 1])
x=repmat([0;9],1,9);
y=[1:9;1:9];
line(x,y,'color','k')
line(y,x,'color','k')

hst=uicontrol('style','text','string','Score','fontsize',30,...
    'units','normal','position',[0.02,0.55,0.26,0.14],'parent',hf,...
    'ForegroundColor','w','backgroundcolor',[0.3 0.3 0.3],...
    'fontweight','bold');

hsc=uicontrol('style','text','string','0','fontsize',24,...
    'units','normal','position',[0.02,0.4,0.26,0.14],'parent',hf,...
    'ForegroundColor','w','backgroundcolor',[0.3 0.3 0.3],...
    'fontweight','bold');

hbt=uicontrol('style','pushbutton','string','Restart','fontsize',18,...
    'units','normal','position',[0.02,0.16,0.26,0.14],'parent',hf,...
    'fontweight','bold','callback',@restart);

color=[...
    1 1 0;
    1 0 1;
    0 1 1;
    1 0 0;
    0 1 0;
    0 0 1;
    0.7 0.3 0;
    ];

h1=annotation('ellipse',[0.04,0.84,0.06,0.08],'facecolor','k');
h2=annotation('ellipse',[0.12,0.84,0.06,0.08],'facecolor','k');
h3=annotation('ellipse',[0.2,0.84,0.06,0.08],'facecolor','k');

set(ha,'buttondownfcn',@select2)
initialize

function initialize()
global a h m1 n1 m2 n2 t h1 h2 h3 color score hsc ss
a=zeros(9);
h=zeros(9)*NaN;
m1=[];
n1=[];
m2=[];
n2=[];
score=0;
ss=0;

k=rs(1:81,5);
t=ceil(rand(1,5)*7);
a(k)=t;
[m,n] = ind2sub([9,9],k);
y=9.5-m;
x=n-0.5;
for p=1:5
    h(k(p))=line(x(p),y(p),'marker','o','markersize',24,...
        'markerfacecolor',color(t(p),:),'markeredgecolor','none',...
        'buttondownfcn',@select1);
end

t=ceil(rand(1,3)*7);
set(h1,'facecolor',color(t(1),:))
set(h2,'facecolor',color(t(2),:))
set(h3,'facecolor',color(t(3),:))

function [k]=rs(s,n);
for m=1:n
    t=ceil(rand*length(s));
    k(m)=s(t);
    s(t)=[];
end

function select1(src,eventdata)
global a h m1 n1
n1=ceil(get(src,'xdata'));
m1=ceil(9-get(src,'ydata'));
set(h(~isnan(h)),'markeredgecolor','none')
set(src,'markeredgecolor','w')

function select2(src,eventdata)
global a h m1 n1 m2 n2 t h1 h2 h3 color score hsc ha ss
if isempty(m1) || isempty(n1)
    return
end
cp=get(src,'currentpoint');
n2=ceil(cp(1,1));
m2=ceil(9-cp(1,2));
if a(m2,n2)
    return
end
b=~a;
b(m1,n1)=1;
b=bwlabel(b,4);
if b(m1,n1)~=b(m2,n2)
    return
end
a(m2,n2)=a(m1,n1);
a(m1,n1)=0;
h(m2,n2)=h(m1,n1);
h(m1,n1)=NaN;
set(h(m2,n2),'xdata',n2-0.5,'ydata',9.5-m2,'markeredgecolor','none')
m1=[];
n1=[];
judgement;
if sum(sum(~a))<3
    hgo=text(1,4.5,'Game Over','fontsize',36,'fontweight',...
        'bold','parent',src);
    pause(3)
    delete(hgo);
    delete(h(~isnan(h)))
    set(hsc,'string','0')
    initialize;
    return
end
if ~ss
    new;
end

function judgement
global a h m1 n1 m2 n2 t h1 h2 h3 color score hsc ha ss
b=logical(zeros(9,9));
ss=0;
left=0;
right=0;
up=0;
down=0;
lu=0;
rd=0;
ld=0;
ru=0;
while n2-left-1>0 && a(m2,n2-left-1)==a(m2,n2)
    left=left+1;
end
while n2+right+1<10 && a(m2,n2+right+1)==a(m2,n2)
    right=right+1;
end
while m2-up-1>0 && a(m2-up-1,n2)==a(m2,n2)
    up=up+1;
end
while m2+down+1<10 && a(m2+down+1,n2)==a(m2,n2)
    down=down+1;
end
while n2-lu-1>0 && m2-lu-1>0 && a(m2-lu-1,n2-lu-1)==a(m2,n2)
    lu=lu+1;
end
while n2+rd+1<10 && m2+rd+1<10 && a(m2+rd+1,n2+rd+1)==a(m2,n2)
    rd=rd+1;
end
while n2-ld-1>0 && m2+ld+1<10 && a(m2+ld+1,n2-ld-1)==a(m2,n2)
    ld=ld+1;
end
while n2+ru+1<10 && m2-ru-1>0 && a(m2-ru-1,n2+ru+1)==a(m2,n2)
    ru=ru+1;
end
if left+right+1>=5
    b(m2,n2-left:n2+right)=1;
end
if up+down+1>=5
    b(m2-up:m2+down,n2)=1;
end
if lu+rd+1>=5
    ind=sub2ind([9,9],m2-lu:m2+rd,n2-lu:n2+rd);
    b(ind)=1;
end
if ld+ru+1>=5
    ind=sub2ind([9,9],m2+ld:-1:m2-ru,n2-ld:n2+ru);
    b(ind)=1;
end
if sum(sum(b))
    a(b)=0;
    delete(h(b));
    h(b)=NaN;
    score=score+sum(sum(b));
    set(hsc,'string',num2str(score))
    ss=1;
end

function new
global a h m1 n1 m2 n2 t h1 h2 h3 color score hsc ha
k=rs(find(~a),3);
a(k)=t;
[mt,nt] = ind2sub([9,9],k);
y=9.5-mt;
x=nt-0.5;
for p=1:3
    h(k(p))=line(x(p),y(p),'marker','o','markersize',24,...
        'markerfacecolor',color(t(p),:),'markeredgecolor','none',...
        'buttondownfcn',@select1);
end
for p=1:3
    m2=mt(p);
    n2=nt(p);
    judgement;
end
if sum(sum(~a))==0
    hgo=text(1,4.5,'Game Over','fontsize',36,'fontweight',...
        'bold','parent',ha);
    pause(3)
    delete(hgo);
    delete(h(~isnan(h)))
    set(hsc,'string','0')
    initialize;
    return
end
t=ceil(rand(1,3)*7);
set(h1,'facecolor',color(t(1),:))
set(h2,'facecolor',color(t(2),:))
set(h3,'facecolor',color(t(3),:))

function restart(src,eventdata)
global a h m1 n1 m2 n2 t h1 h2 h3 color score hsc ha ss
delete(h(~isnan(h)))
set(hsc,'string','0')
initialize;