program Stargr_1_0;
uses crt,graph;
var gd,gm,x,y,h,xh,yh:integer;
v:char;
procedure inst;
begin
clrscr;
writeln('Pohyb sipkami do prava,do lava,hore,dole.');
writeln('Kreslenie:');
writeln('ENTER-vodorovna ciara.');
writeln('BACKSPACE-zvisla ciara.');
writeln('Mazanie:');
writeln('Cislo 1-vodorovne ciary.');
writeln('Cislo 2-zvisle ciary.');
writeln('Klaves M nakresli palicku: \.');
writeln('Klaves N nakresli palicku: /.');
writeln('Klaves X maze palicku: \.');
writeln('Klaves Z maze palicku: /.');
v:=readkey;
end;
begin
repeat;
clrscr;
textbackground(green);
textcolor(15);
gotoxy(25,5);write(' Hlavne MENU: ');
gotoxy(25,6);write(' 1.Start ');
gotoxy(25,7);write(' 2.Instrukcie ');
gotoxy(25,8);write(' *** ');
v:=readkey;
textbackground(0);
if v='2' then inst;
until (v='1');
if v='1' then begin;
x:=100;y:=200;
gd:=detect;initgraph(gd,gm, '');
settextstyle(1,0,7);
outtextxy(10,1,'Slavomir Hudak');
delay(600);
setcolor(blue);
outtextxy(10,200,'present...');
delay(100);
sound(200);delay(550);
sound(300);delay(550);
sound(400);delay(550);
sound(350);delay(450);
sound(300);delay(450);
sound(250);delay(450);
sound(200);delay(450);
sound(150);delay(450);
sound(100);delay(450);
sound(50);delay(450);
sound(0);delay(400);
nosound;
delay(700);
setcolor(14);
cleardevice;
settextstyle(2,0,7);
outtextxy(1,1,'Jeden z prvych najlepsich GRAFICKYCH programov pre PC:');
delay(200);
settextstyle(1,0,7);
outtextxy(1,200,'Projekt ver. 1.0');
delay(200);
cleardevice;
outtextxy(65,250,'*** Loading ***');
delay(100);
settextstyle(0,0,0);
setcolor(15);
cleardevice;
outtextxy(1,450,'Stlac lubovolnu klavesu,ked chces skoncit kreslenie hviezd.');
outtextxy(1,460,'Okrem klavesy Enter,BackSpace,znaku M a N.');
randomize;
repeat
xh:=random(640);yh:=random(480);
line(xh,yh,xh,yh);
delay(200);
h:=h+1;
until (keypressed);
setcolor(white);
if (v=#13) then begin
line(1,1,400,400);
end;
outtextxy(1,1,'Znak ESC znamena KONIEC.');
outtextxy(1,10,'Enter-palicka vodorovne.Mazanie-klaves 1.');
outtextxy(1,20,'Medzera-palicka zvisle.Mazanie-klaves 2.');
outtextxy(1,30,'Znak N-palicka /.Mazanie-klaves Z.');
outtextxy(1,40,'Znak M-palicka \.Mazanie-klaves X.');
setlinestyle(5,5,5);
repeat;
setcolor(14);
if (v=#13) then begin
line(x+2,y+2,x+20,y+2);
end;
if (v=#32) then begin
line(x+2,y+2,x+2,y+20);
end;
if (v=#110) then begin
line(x+1,y+1,x+20,y-18);
end;
if (v=#109) then begin
line(x+1,y+1,x-17,y-17);
end;
setcolor(0);
if (v=#49) then begin
line(x+2,y+2,x+20,y+2);
end;
if (v=#50) then begin
line(x+2,y+2,x+2,y+20);
end;
if (v=#122) then begin
line(x+1,y+1,x+20,y-18);
end;
if (v=#120) then begin
line(x+1,y+1,x-17,y-17);
end;
v:=readkey;
if (v=#0) then begin
v:=readkey;
setcolor(0);
line(x+5,y+5,x+5,y+10);
if (v='K') then x:=x-20; {KMHP}
if (v='M') then x:=x+20;
if (v='H') then y:=y-20;
if (v='P') then y:=y+20;
setcolor(2);
line(x+5,y+5,x+5,y+10);
repeat until keypressed;
end;
until (v=#27);
closegraph;
end;
end.