Текст программы

Program Space;

Uses Graph, Crt,Dos;

const centrx=300;

centry=160;

procedure vretrace;

begin

repeat until port[$3da] and 8=0;

repeat until port[$3da] and 8>0;

end;

procedure game;

var ZemX, ZemY,MercX,MercY,MarsX,MarsY,VenerX,VenerY,UpiterX,UpiterY,SatX,SatY:integer;

VisualPage,i:Integer;

begin

repeat

SetVisualPage(1-VisualPage);

VisualPage:= VisualPage+1;

SetActivePage(1 -VisualPage);

vretrace;

ClearDevice;

For i:= 1 to 100 do

PutPixel(centrx+Round(70*cos((i+VisualPage/9)*Pi/50+0.7)),

centry+Round(60*sin((i+VisualPage/9)*Pi/50-Pi/500)),1);

For i:= 1 to 100 do

PutPixel(centrx+Round(90*cos((i+visualpage/7)*Pi/50+0.7)),

centry+Round(83*sin((i+visualpage/7)*Pi/50-Pi/500)),2);

For i:= 1 to 100 do

PutPixel(centrx+Round(110*cos((i+VisualPage/7)*Pi/50+0.65)),

centry+Round(100*sin((i+VisualPage/7)*Pi/50-Pi/500)),3);

For i:= 1 to 100 do

PutPixel(centrx+Round(131*cos((i+VisualPage/7)*Pi/50+0.65)),

centry+Round(120*sin((i+VisualPage/7)*Pi/50-Pi/500)),4);

For i:= 1 to 100 do

PutPixel(centrx+Round(173*cos((i+VisualPage/5)*Pi/50+0.70)),

centry+Round(155*sin((i+VisualPage/5)*Pi/50-Pi/500)),5);

For i:= 1 to 100 do

PutPixel(centrx+Round(212*cos((i+VisualPage/5)*Pi/50+0.65)),

centry+Round(195*sin((i+VisualPage/5)*Pi/50-Pi/500)),6);

{--------------------------------------------------------------}

{mercury}

MercX:=centrx-Round(70*cos((i-VisualPage/5)*Pi/50+0.7));

MercY:=centry-Round(60*sin((i-VisualPage/5)*Pi/50-Pi/500));

setcolor(lightgray);

circle(MercX,MercY,4);

SetFillStyle(1,LightGray);

floodfill(MercX,MercY,lightgray);

outtextxy(MercX-13,MercY-8,'1');

{---------------------------------------------------------------}

{venera}

VenerX:=centrx-Round(90*cos((i-VisualPage/4)*Pi/50+0.7));

VenerY:=centry-Round(83*sin((i-VisualPage/4)*Pi/50-Pi/500));

setcolor(lightred);

circle(VenerX,VenerY,7);

SetFillStyle(1,Lightred);

floodfill(VenerX,VenerY,lightred);

outtextxy(VenerX-13,VenerY-10,'2');

{-----------------------------------------------------------------}

{zemlia}

ZemX:=centrX+Round(110*cos((i-VisualPage/3)*Pi/50+0.65));

ZemY:=centrY+Round(100*sin((i-1-VisualPage/3)*Pi/50-Pi/500));

setcolor(lightblue);

circle(ZemX,ZemY,7);

SetFillStyle(1,Lightblue);

setcolor(2);

circle(ZemX,ZemY,7);

SetFillStyle(1,2);

floodfill(ZemX,ZemY,2);

setcolor(blue);

circle(zemx+1,zemy+1,3);

SetFillStyle(1,blue);

floodfill(ZemX,ZemY,blue);

circle(zemx+3,zemy-3,2);

SetFillStyle(1,blue);

floodfill(ZemX+3,ZemY-3,blue);

circle(zemx-4,zemy-4,2);

SetFillStyle(1,blue);

floodfill(ZemX-4,ZemY-4,blue);

setcolor(2);

outtextxy(ZemX-13,ZemY-10,'3');

{-----------------------------------------------------------------}

MarsX:=Centrx+Round(131*cos((i-VisualPage/2)*Pi/50+0.65));

MarsY:=Centry+Round(120*sin((i-VisualPage/2)*Pi/50-Pi/500));

setcolor(6);

circle(MarsX,MarsY,4);

SetFillStyle(1, 6);

floodfill(MarsX,MarsY,6);

outtextxy(Marsx-11,MarsY-1,'4');

{---------------------------------------------------------------------}

{Upiter}

UpiterX:=Centrx+Round(173*cos((i-VisualPage/1)*Pi/50+0.7));

UpiterY:=Centry+Round(155*sin((i-VisualPage/1)*Pi/50-Pi/500));

setcolor(6);

circle(UpiterX,UpiterY,12);

SetFillStyle(1, 6);

floodfill(UpiterX,UpiterY,6);

outtextxy(Upiterx-15,UpiterY+10,'5');

{---------------------------------------------------------------------}

{Saturn}

SatX:=Centrx+Round(212*cos((i-VisualPage/5)*Pi/50+0.65));

SatY:=Centry+Round(195*sin((i-VisualPage/5)*Pi/50-Pi/500));

setcolor(9);

circle(SatX,SatY,12);

setfillstyle(1,9);

floodfill(SatX,SatY,9);

setcolor(13);

ellipse(Satx,Saty-1,29,20,28,5);

outtextxy(Satx-22,SatY+10,'6');

setcolor(9);

line(satx-10,saty-6,satx+10,saty-6);

{---------------------------------------------------------------------}

{solnce}

setcolor(yellow);

circle(300,160,30);

SetFillStyle(1, yellow);

floodfill(300,160,yellow);

For i:= 1 to 100 do

line(300,160,centrx+Round(31*cos((i+VisualPage/2)*Pi/50)),centry+Round(25*sin((i+VisualPage/2)*Pi/50-Pi/500)));

{----------------------------------------------------------------}

OutTextXY(centrx+215,centry+20,'Planets');

OutTextXY(centrx+200,centry+35,'1 - Mercury');

OutTextXY(centrx+200,centry+50,'2 - Venera');

OutTextXY(centrx+200,centry+65,'3 - Earth');

OutTextXY(centrx+200,centry+80,'4 - Mars');

OutTextXY(centrx+200,centry+95,'5 - Upiter');

OutTextXY(centrx+200,centry+110,'6 - Saturn');

until keyPressed

end;

Procedure MainMenu;

Const menu:array[1..2] of string[20]=('New game!','Exit');

Var i,y1: integer;

pos:byte;

kb:char;

Begin

kb:=#1;

SetTextStyle(4,0,2);

pos:=1; y1:=centry-30;

for i:=1 to 2 do

begin

if i=pos then

begin

setcolor(1);

OutTextXY(230,y1,'New game!');

end

else begin

setcolor(15);

OutTextXY(230,y1,'Exit');

end;

y1:=y1+30;

end;

repeat

y1:=centry-30;

kb:=readkey;

case kb of

#72:if pos>1 then

Dec(pos)

else pos:=3;

#80:if pos<2 then

Inc(pos)

else pos:=1;

end;

for i:=1 to 2 do

begin

if i=pos then

begin

setcolor(1);

OutTextXY(230,y1,menu[i]);

end

else begin

setcolor(15);

OutTextXY(230,y1,menu[i]);

end;

y1:=y1+30;

end;

until kb=#13;

begin

if pos=1 then begin game;

cleardevice;

end;

if pos=2 then

halt;

end;

end;

procedure grinit;

var GrMode, GrError,GrDriver:Integer;

begin

GrDriver:= EGA; GrMode:= EGAHi;

InitGraph(GrDriver, GrMode, 'C:\TP\BGI');

GrError:= GraphResult;

end;

Var

ch:char;

{ k:integer;}

BEGIN

Grinit;

MainMenu;

END.