Ngày tải lên :
21/08/2013, 07:10
... 2]);
begin
chonm:=chon+1;
if chonm>n then chonm:=1;
end;
if chonm<>chon then
begin
menu(x1,y1+(chon-1)*(dai+5),x2,y2+(chon-1)*(dai+5),nd[chon],h,mnc,mcc);
menu(x1,y1+(chonm-1)*(dai+5),x2,y2+(chonm-1)*(dai+5),nd[chonm],h,mnr,mcr);
setcolor(15);
settextstyle(4,0,2);
outtextxy(180,420,'Mot ... !');
Readln;
End;
(*==========================================================
=======*)
procedure obj.Move(n,x1,y1,x2,y2,h:integer;b:boolean;
nd:bangkt;mnc,mcc,mnr,mcr:integer;var chon:integer);
var
ch1,ch2:char;
chonm,i:integer;
mn,mc,dai,d,dau:integer;
procedure menu(x1,y1,x2,y2:integer;dkt:strn;h,mn,mc:integer);
var
nd:bangkt;
i,x:integer;
begin
setcolor(mc);
bar3d(x1,y1,x2,y2,h,true);
setfillstyle(1,mc);
floodfill(round((x1+x2)/2), ... Move(n,x1,y1,x2,y2,h:integer;b:boolean;
nd:bangkt;mnc,mcc,mnr,mcr:integer;var chon:integer);
procedure Bye;
end;
var
gd,gm: integer;
chon,chon_q,d,k,i,j,tg,toi,n,x1,y1,x2,y2: integer;
chon1,ch: char;
a,b ,c, Item,tamx,tamy,r:...