┌──────────────────────────────────────────────────────────────────────────┐
│ APPLICATION │ DATE │ AUTHOR │ READY-TO-USE │
├────────────────────────┼────────────┼─────────────────────┼──────────────┤
│ Perete │ 14/08/1997 │ Mihai Dorel MATEI │ YES │
├──────────────────────────────────────────────────────────────────────────┤
│ DESCRIPTION │
│ │
│ Un efect adevarat. Un zid, in care este data o gaura si apare un ochi │
│ care se uita spre textul ce este scris pe ecran si clipeste. │
│ │
│ │
│ │
│ │
│ │
│ │
│ │
└──────────────────────────────────────────────────────────────────────────┘
uses Graph,crt;
var
lun,lat,x,y,i,n,Driver, Mode,
TestDriver,
ErrCode: Integer;
ra,xy,xyx,xxx,xx,xyz:integer;
i386,ii386,i486,ii486:integer;
{$F+}
function TestDetect: Integer;
{ Autodetect function: assume hardware is always present; return value =
recommended default mode }
begin
TestDetect := 1; { Default mode = 1 }
end;
{$F-}
begin
{ Install the driver }
TestDriver := InstallUserDriver('SVGA256', @TestDetect);
if GraphResult <> grOk then
begin
Writeln('Error installing TestDriver');
Halt(1);
end;
Driver := testdriver;
mode:=2;
InitGraph(Driver, Mode, 'A:\BP\BGI');
ErrCode := GraphResult;
if ErrCode <> grOk then
begin
Writeln('Error during Init: ', ErrCode);
Halt(1);
end;
x:=1;{100}
y:=1;{100}
lun:=630;
lat:=470; {30}
setfillstyle(1,6);
setcolor(91);
bar(x,y,x+lun,y+lat);
rectangle(x,y,x+lun,y+lat);
{ floodfill(x+10,y+10,15);}
line(x,y+10,x+lun,y+10);
line(x,y+20,x+lun,y+20);
repeat xyz:=xyz+10; line(x,y+xyz,x+lun,y+xyz); until xyz>480;
i:=x;
repeat
i:=i+50; { PERETE DIN CARAMIZI }
line(i,y,i,y+10);
line(i,y+20,i,y+30);
line(i,y+40,i,y+50);
line(i,y+60,i,y+70);
line(i,y+80,i,y+90);
line(i,y+100,i,y+110);
line(i,y+120,i,y+130);
line(i,y+140,i,y+150);
line(i,y+160,i,y+170);
line(i,y+180,i,y+190);
line(i,y+200,i,y+210);
line(i,y+220,i,y+230);
line(i,y+240,i,y+250);
line(i,y+260,i,y+270);
line(i,y+280,i,y+290);
line(i,y+300,i,y+310);
line(i,y+320,i,y+330);
line(i,y+340,i,y+350);
line(i,y+360,i,y+370);
line(i,y+380,i,y+390);
line(i,y+400,i,y+410);
line(i,y+420,i,y+430);
line(i,y+440,i,y+450);
line(i,y+460,i,y+470);
line(i-25,y+10,i-25,y+20);
line(i-25,y+30,i-25,y+40);
line(i-25,y+50,i-25,y+60);
line(i-25,y+70,i-25,y+80);
line(i-25,y+90,i-25,y+100);
line(i-25,y+110,i-25,y+120);
line(i-25,y+130,i-25,y+140);
line(i-25,y+150,i-25,y+160);
line(i-25,y+170,i-25,y+180);
line(i-25,y+190,i-25,y+200);
line(i-25,y+210,i-25,y+220);
line(i-25,y+230,i-25,y+240);
line(i-25,y+250,i-25,y+260);
line(i-25,y+270,i-25,y+280);
line(i-25,y+290,i-25,y+300);
line(i-25,y+310,i-25,y+320);
line(i-25,y+330,i-25,y+340);
line(i-25,y+350,i-25,y+360);
line(i-25,y+370,i-25,y+380);
line(i-25,y+390,i-25,y+400);
line(i-25,y+410,i-25,y+420);
line(i-25,y+430,i-25,y+440);
line(i-25,y+450,i-25,y+460);
line(i-25,y+470,i-25,y+470);
until i>lun+50;
repeat
ra:=ra+1;
setcolor(0);
circle(320,240,ra);
delay(100);
until ra=20;
setfillstyle(1,0);
FillEllipse(GetMaxX div 2, GetMaxY div 2, 20, 20);
setfillstyle(1,15);
FillEllipse(GetMaxX div 2, GetMaxY div 2, 10, 15); { OCHI }
setfillstyle(1,0);
FillEllipse(GetMaxX div 2, GetMaxY div 2, 3, 4); { OCHI INTERIOR }
delay(1600);
ra:=0;
setcolor(black);
for ra:=225 to 250 do begin { CLIPIRE }
line(310,ra,329,ra);
delay(5);
end;
setfillstyle(1,15);
FillEllipse(GetMaxX div 2, GetMaxY div 2, 10, 15); { OCHI }
setfillstyle(1,0);
FillEllipse(GetMaxX div 2, GetMaxY div 2, 3, 4); { OCHI INTERIOR }
delay(600);
setcolor(7);
settextstyle(1,0,6);
outtextxy(19,100,'ACTiVE SOFT PRESENTS');
outtextxy(20,100,'ACTiVE SOFT PRESENTS');
outtextxy(21,100,'ACTiVE SOFT PRESENTS');
outtextxy(22,100,'ACTiVE SOFT PRESENTS');
outtextxy(23,100,'ACTiVE SOFT PRESENTS');
outtextxy(20,100,'ACTiVE SOFT PRESENTS');
outtextxy(20,101,'ACTiVE SOFT PRESENTS');
outtextxy(20,102,'ACTiVE SOFT PRESENTS');
outtextxy(20,103,'ACTiVE SOFT PRESENTS');
setcolor(15);
outtextxy(20,100,'ACTiVE SOFT PRESENTS');
delay(500);
setfillstyle(1,15); { OCHI IN SUS 1 }
FillEllipse(GetMaxX div 2, GetMaxY div 2, 10, 15); { OCHI }
setfillstyle(1,0);
FillEllipse(GetMaxX div 2, GetMaxY div 2-2, 3, 4); { OCHI INTERIOR }
delay(100);
setfillstyle(1,15); { OCHI IN SUS 2 }
FillEllipse(GetMaxX div 2, GetMaxY div 2, 10, 15); { OCHI }
setfillstyle(1,0);
FillEllipse(GetMaxX div 2, GetMaxY div 2-4, 3, 4); { OCHI INTERIOR }
delay(100);
setfillstyle(1,15); { OCHI IN SUS 3 }
FillEllipse(GetMaxX div 2, GetMaxY div 2, 10, 15); { OCHI }
setfillstyle(1,0);
FillEllipse(GetMaxX div 2, GetMaxY div 2-6, 3, 4); { OCHI INTERIOR }
delay(100);
setfillstyle(1,15); { OCHI IN SUS 4 }
FillEllipse(GetMaxX div 2, GetMaxY div 2, 10, 15); { OCHI }
setfillstyle(1,0);
FillEllipse(GetMaxX div 2, GetMaxY div 2-8, 3, 4); { OCHI INTERIOR }
delay(1600);
ra:=0;
setcolor(black);
for ra:=224 to 250 do begin { CLIPIRE }
line(309,ra,329,ra);
delay(5);
end;
setfillstyle(1,15); { OCHI IN SUS 4 }
FillEllipse(GetMaxX div 2, GetMaxY div 2, 10, 15); { OCHI }
setfillstyle(1,0);
FillEllipse(GetMaxX div 2, GetMaxY div 2-8, 3, 4); { OCHI INTERIOR }
setcolor(7);
settextstyle(1,0,19);
outtextxy(30,250,'HANGMAN');
outtextxy(31,250,'HANGMAN');
outtextxy(32,250,'HANGMAN');
outtextxy(33,250,'HANGMAN');
outtextxy(34,250,'HANGMAN');
outtextxy(30,251,'HANGMAN');
outtextxy(30,252,'HANGMAN');
outtextxy(30,253,'HANGMAN');
outtextxy(30,254,'HANGMAN');
setcolor(15);
outtextxy(32,252,'HANGMAN');
outtextxy(31,251,'HANGMAN');
outtextxy(33,253,'HANGMAN');
outtextxy(30,254,'HANGMAN');
outtextxy(33,251,'HANGMAN');
outtextxy(34,251,'HANGMAN');
delay(700);
setfillstyle(1,15); { OCHI IN SUS 4 }
FillEllipse(GetMaxX div 2, GetMaxY div 2, 10, 15); { OCHI }
setfillstyle(1,0);
FillEllipse(GetMaxX div 2, GetMaxY div 2-8, 3, 4); { OCHI INTERIOR }
delay(100);
setfillstyle(1,15); { OCHI IN SUS 3 }
FillEllipse(GetMaxX div 2, GetMaxY div 2, 10, 15); { OCHI }
setfillstyle(1,0);
FillEllipse(GetMaxX div 2, GetMaxY div 2-6, 3, 4); { OCHI INTERIOR }
delay(100);
setfillstyle(1,15); { OCHI IN SUS 2 }
FillEllipse(GetMaxX div 2, GetMaxY div 2, 10, 15); { OCHI }
setfillstyle(1,0);
FillEllipse(GetMaxX div 2, GetMaxY div 2-4, 3, 4); { OCHI INTERIOR }
delay(100);
setfillstyle(1,15); { OCHI IN SUS 1 }
FillEllipse(GetMaxX div 2, GetMaxY div 2, 10, 15); { OCHI }
setfillstyle(1,0);
FillEllipse(GetMaxX div 2, GetMaxY div 2-2, 3, 4); { OCHI INTERIOR }
delay(100);
setfillstyle(1,15); { OCHI NORMAL }
FillEllipse(GetMaxX div 2, GetMaxY div 2, 10, 15); { OCHI }
setfillstyle(1,0);
FillEllipse(GetMaxX div 2, GetMaxY div 2, 3, 4); { OCHI INTERIOR }
delay(200);
setfillstyle(1,15); { OCHI IN JOS 1 }
FillEllipse(GetMaxX div 2, GetMaxY div 2, 10, 15); { OCHI }
setfillstyle(1,0);
FillEllipse(GetMaxX div 2, GetMaxY div 2+2, 3, 4); { OCHI INTERIOR }
delay(100);
setfillstyle(1,15); { OCHI IN JOS 2 }
FillEllipse(GetMaxX div 2, GetMaxY div 2, 10, 15); { OCHI }
setfillstyle(1,0);
FillEllipse(GetMaxX div 2, GetMaxY div 2+4, 3, 4); { OCHI INTERIOR }
delay(100);
setfillstyle(1,15); { OCHI IN JOS 3 }
FillEllipse(GetMaxX div 2, GetMaxY div 2, 10, 15); { OCHI }
setfillstyle(1,0);
FillEllipse(GetMaxX div 2, GetMaxY div 2+6, 3, 4); { OCHI INTERIOR }
delay(2000);
repeat
setfillstyle(1,15); { OCHI NORMAL }
FillEllipse(GetMaxX div 2, GetMaxY div 2, 10, 15); { OCHI }
setfillstyle(1,0);
FillEllipse(GetMaxX div 2, GetMaxY div 2, 3, 3); { OCHI INTERIOR }
delay(1900);
ra:=0;
setcolor(black);
for ra:=224 to 250 do begin { CLIPIRE }
line(309,ra,329,ra);
delay(5);
end;
until keypressed;
Readln;
CloseGraph;
end.
