Мишень И Прицел

Alimax

New Member
08.04.2013
1
0
#1
Как заставить двигаться мишень независимо от прицела?
Чтобы при перемещений прицела мишень тоже двигалась. Язык Паскаль
Код:
uses crt, graph; 
procedure Mis(xm,ym,rm:integer); 
begin 
setbkcolor(15); 
setcolor(4); 
circle(xm,ym,60); 
circle(xm,ym,40); 
circle(xm,ym,20); 
end; 
procedure pri(xp,yp,xm,ym,rm:integer); 
var xstr, ystr:string; 
begin 
setcolor(13); 
line(xp,yp-15,xp,yp+15); 
line(xp-15,yp,xp+15,yp); 
str(xp, xstr); 
str(yp, ystr); 
setcolor(13); 
outtextxy(xp+5,yp-35,'x='+xstr); 
outtextxy(xp+5,yp-20,'y='+ystr); 
end; 
var a,b,xp,yp,xm,ym,rm:integer; 
k:char; 
begin 
a:=detect; 
initgraph(a,b,'c:\bp\bgi'); 
xp:=getmaxx div 2; yp:=getmaxy div 2; 
repeat 
k:=readkey; 
case k of 
#72: begin yp := yp - 3;	 end; 
#80: begin yp := yp + 3;	 end; 
#75: begin xp := xp - 3;	 end; 
#77: begin xp := xp + 3;	 end; 
end; 
cleardevice; 
pri(xp,yp,xm,ym,rm); 
mis(xm,ym,rm); 
until k=#27; 
closegraph; end.