Umístnení souboru www.TrSek.com/cover/benkovic/flasa.pas

{ FLASA.PAS                              Copyright (c) Jan Benkovic }
{ Vykresli flasu s bublinkami a naboj ktory flasu prederavi.        }
{ Az flasa vytecie zobrazi sa nazov a pocka na stlacenie klavesy.   }
{                                                                   }
{ Datum:02.04.2000                             http://www.trsek.com }

Program flasa;
uses crt,graph;

var
gd,gm : integer;
x,y,d,pocet,i,a,b,c :integer;
output: string;

begin
randomize;
detectgraph(gd,gm);
InitGraph(Gd, Gm, '');
rectangle(270,200,370,400);
line(270,200,300,150);
line(370,200,340,150);
setcolor(green);
line(340,150,300,150);
line(340,130,300,130);
line(340,150,340,130);
line(335,150,335,130);
line(330,150,330,130);
line(325,150,325,130);
line(320,150,320,130);
line(315,150,315,130);
line(310,150,310,130);
line(305,150,305,130);
line(300,150,300,130);
setcolor(black);
line(271,200,369,200);

for i:=199 downto 1 do
  begin
   setcolor(blue);
   delay(5);
   line(271,200+i,369,200+i);
  end;

pocet:=random(80)+21;
repeat
  d:=d+1;
  a:=random(85)+277;
  b:=random(190)+205;
  c:=random(5)+1;
  setcolor(white);
  delay(10);
  circle(a,b,c);
until d=pocet;

str(pocet,output);
outtextXY(1,1,'Pocet bubliniek vo flasi je :');
outtextXY(242,1,output);

for i:= 1 to 230 do
  begin
   delay(10);
   line(600-i,370,640-i,370);
   putpixel(640-i,370,black);
  end;

putpixel(370,371,black);
putpixel(370,370,black);
putpixel(370,369,black);
i:=0;

repeat
  delay(10);
  i:=i+1;
  setcolor(white);
  line(370+i,370,410+i,370);
  putpixel(370+i,370,black);
  putpixel(370,371,blue);
  putpixel(370,370,blue);
  putpixel(370,369,blue);
  putpixel(371,370,blue);
  putpixel(371,370+i,blue);
  putpixel(372,370+i,blue);
  putpixel(373,370+i,blue);
  if i>=172 then
   begin
    putpixel(370,371,black);
    putpixel(370,370,black);
    putpixel(370,369,black);
    putpixel(371,370,black);
    putpixel(371,170+i,black);
    putpixel(372,170+i,black);
    putpixel(373,170+i,black);
   end
  else
   begin
    setcolor(black);
    line(271,200+i,369,200+i);
   end;
until i=330;

setcolor(black);
outtextXY(1,1,'Pocet bubliniek vo flasi je :');
outtextXY(242,1,output);
setcolor(red);
settextstyle(0,0,2);
outtextxy(250,50,'F(r)anta');
readln;
closegraph;
end.

Copyrigth by Zdeno Sekerak 2007, http://www.trsek.com