Ngày tải lên :
21/08/2013, 07:10
... j:=i -1;
while tg<r[j] do
begin
xoa(tamx[j +1] ,tamy[j +1] ,32);
r[j +1] :=r[j];
tron(tamx[j +1] ,tamy[j +1] ,r[j +1] );
H:=IMAGESIZE(X1-R2,Y1-R1,X1+R2,Y1+R1);
L:=IMAGESIZE(X2-R2,Y2-R1,X2+R2,Y2+R1);
GETMEM(P,H);
GETMEM(Q,L);
GETIMAGE(X1-R2,Y1-R1,X1+R2,Y1+R1,P^);
GETIMAGE(X2-R2,Y2-R1,X2+R2,Y2+R1,Q^);
IF ... do
begin
xoa(tamx[j +1] ,tamy[j +1] ,32);
r[j +1] :=r[j];
tron(tamx[j +1] ,tamy[j +1] ,r[j +1] );
H:=IMAGESIZE(X1-R2,Y1-R1,X1+R2,Y1+R1);
L:=IMAGESIZE(X2-R2,Y2-R1,X2+R2,Y2+R1);
GETMEM(P,H);
GETMEM(Q,L);
GETIMAGE(X1-R2,Y1-R1,X1+R2,Y1+R1,P^);
GETIMAGE(X2-R2,Y2-R1,X2+R2,Y2+R1,Q^);
IF (X1 <X2)THEN
BEGIN
K1:=X2-X1;K2:=Y2-Y1;
REPEAT
G:=RANDOM(30);SOUND(G*200);
PUTIMAGE(X2-R2,Y2-R1,Q^,XORPUT);
PUTIMAGE(X1-R2,Y1-R1,P^,XORPUT);
X2:=X2-D;X1:=X1+D;K1:=K1-D;
PUTIMAGE(X2-R2,Y2-R1,Q^,XORPUT);
PUTIMAGE(X1-R2,Y1-R1,P^,XORPUT);
DELAY(2);
NOSOUND;
UNTIL ... K2=0;
END
ELSE
BEGIN
K1:=X1-X2;K2:=Y2-Y1;
REPEAT
G:=RANDOM (10 );SOUND(G*400);
PUTIMAGE(X2-R2,Y2-R1,Q^,XORPUT);
PUTIMAGE(X1-R2,Y1-R1,P^,XORPUT);
X2:=X2+D;X1:=X1-D;K1:=K1-D;
PUTIMAGE(X2-R2,Y2-R1,Q^,XORPUT);
PUTIMAGE(X1-R2,Y1-R1,P^,XORPUT);
DELAY(2);
NOSOUND;
UNTIL...