tiba-tiba terlintas sesuatu di dalam pikiran, dan kemudian saya mencoba untuk menuangkan sesuatu yang terlintas di pikiran saya ke dalam sebuah basaha pemograman DOS, yang tempoe doloe itue.,
Maklum ya saya lagi pusing jadi ya begini deh jadinya. mutar kedalam lalu mutar keluar maju kedepan dan mundur ke belakang, jadinya maju mundur keluar masuk deh, trus pas lagi keluar masuk eh keluarnya di dalam, aduh gimana nih jadi pusing,.
Ini dia souce Animasi mutar kedalam keluar maju mundur keluar didalam., :D
=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
uses crt;
var i, x, y, p, d, a, z, m, t, dd : byte; c : char;
begin
clrscr;
randomize;
i:=1; y:=1; x:=2; p:=1; d:=2; a:=1; c:=chr(random(5)+1); t:=1; dd:=0;
repeat
if (x=1) and (y=1) then begin i:=1; a:=1; p:=1; d:=2; end;
if (x=11) and (y=12) then begin a:=2; d:=6; p:=4; end;
case p of
1 : case a of
1 : begin
inc(x);
if x=81-i then p:=2;
end;
2 : begin
if x=i-1 then begin p:=4; dec(i); end;
dec(x);
end;
end;
2 : case a of
1 : begin
inc(y);
if y=25-i then p:=3;
end;
2 : begin
if y=i then p:=1;
dec(y);
end;
end;
3 : case a of
1 : begin
dec(x);
if x=i then p:=4;
end;
2 : begin
if x=81-i then p:=2;
inc(x);
end;
end;
4 : case a of
1 : begin
dec(y);
if y=i+1 then begin p:=1; inc(i); end;
end;
2 : begin
if y=25-i then p:=3;
inc(y);
end;
end;
end;
textcolor(d);
gotoxy(x,y); write(c);
delay(3);
inc(dd);
if dd = 50 then begin
case t of
1 : begin
inc(m);
if m = 45 then t:=2;
end;
2 : begin
dec(m);
if m = 0 then t:=1;
end;
end;
textcolor(12);
gotoxy(12+m,12); write(' ANU ANIMASI ');
gotoxy(12+m,13); write(' DARI PASCAL ');
dd:=0;
end;
until keypressed;
end.
=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
