Движущийся текст ... :? Опции

[SMART]

    Народ, срочно нужна помощь.....
 Подскажите сылку где мона достать текст проги в которой напечатоное слово передвигалось бы по экрану С КАКИМИНИБУДЬ ЭФЕКТАМИ. У меня ето слово только по кругу ездиет и УСЕ .
Если у когонибудь есть чтонибудь похожее, ПЛИЗ подскажите текст проги  :-/ .
                    ??? ??? ???

[SMART]

Tut u4ilka na menja vase naehala skazala eta rabota na edinitsu ne tjanet >:(... Nado stob v proge vse ezdilo, prigalo, migalo i krsivo bilo bi. Ja v Paskale ese zelenii i ne znaju 4e dobavit' stob hot' kak-to rabotala bi.

Pomogite kto mozet, v zaranee blagodarju!
Vot tekst progi:

Код

Program xXx;
Uses crt;
const
  a:array[1..8] of char=('H','E','L','P',' ','M','E','!');
var
   i,j,x,y:integer;
procedure vlevo;
begin

   window(x,y,x+8,y);
  for i:=1 to 8 do
  begin
      text color(i);
      Write(a[i]);
  end;
   Window(x+8,y+2,x+9,y+2);
  for i:=1 to 8 do
   begin
      write(' ');
   end;
   delay(3000);
end;

procedure vpravo;
begin
  window(x-1,y,x,y);
  for i:=1 to 8 do
   write(' ');
   Window(x,y,x+8,y);
  for i:=1 to 8 do
   begin
      text color(i);
      Write(a[i]);
   end;
   delay(3000);
end;

procedure vverh;
begin
  window(x,y,x+8,y);
  for i:=1 to 8 do
  begin
      text color(i);
      Write(a[i]);
  end;
   Window(x,y+1,x+8,y+1);
    write('        ');  {8 probelov}  
   delay(3000);
   end;

procedure vniz;
begin
  window(x,y,x+8,y);
  for i:=1 to 8 do
  begin
      text color(i);
      Write(a[i]);
  end;
  window(x-1,y,x,y);
  for i:=1 to 8 do
   write(' ');
  delay(3000);
end;

begin
  randomize;
  clrscr;
  x:=37;
  for i:=1 to 8 do
  begin
     textcolor(i);
     If (i mod 2)=1 then
     for y:=1 to 15 do
     begin
       window(x+i,y,x+i,y);
       write(a[i]);
       window(x+1,y-1,x+1,y-1);
       write(' ');
       delay(3000);
     end;
     else
     begin
       for y:=30 down to 15 do
       begin
       window(x+i, y,x+i,y);
       write(a[i]);
       window(x+i,y+1,x+i,y+1);
       Write(' ');
       delay(3000);
       end;
      end;
      writeln;
   end;
   y:=15;
   for x:=37 down to 1 do vlevo;
   for y:=15 down to 1 do vverh;
   for x:=1 to 72 do vpravo;
   for y:=1 to 25 do vniz;
   for x:=72 down to 1 do vlevo;
   for y:=25 down to 15 do vverh;
   repeat
   textcolor(random(10)+1);
   window(x+10,y.x+24,y);
   write('help !!!');
   until keypressed;
   readln
end.

Ispolzovat' mozno vse sto ugodno. Ja nemnogo razobralsa v tekste, no stob krasivo tekst po ekranu ezdil ne polu4aetsa (On ezdit kak-to haoti4no).
P.S. Glavnoe stob bukvi ili uzor na ekrane ezdil, polzal ili migal ili sto ugodno v etom rode. (mne po4emu-to ni4e ne pridumat', navernoe menja obdelili s voobrazeniem :-/).

Сообщение отредактировано: volvo - 8.11.2006 23:00