我是初学者，想求哪位大神帮帮我把这个小游戏程序简单写写注释，五连珠游戏

五连珠游戏

游戏规则：

移动小球，五个或五个以上相同颜色的组成一行或一列就会消失

移动的时候只能移动到相连通的格子里去

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;