да все сори сам допер )
вот игру делаю просто хотел фон картинку зделать )
Цитата
program p1;
uses crt,graphABC;
var x,y,gm,gd,x1,x2,y1,y2,n:integer;
procedure xop( x,y,n:integer);
begin
moveto(x,y);
DrawPicture(n,x,y);
//rectangle(x-20,y+140,x+40,y+40);
end;
procedure lox(x,y:integer); begin
moveto(x,y);
rectangle(x,y,x+5,y+8);
if y<400 then y1:=y1+7 else begin y1:=5;
x1:=random(640)
end; end;
procedure xip(x,y:integer); begin
moveto(x,y);
rectangle(x,y,x+5,y+8);
if y<400 then y2:=y2+10 else begin y2:=5;
x2:=random(640);
end; end;
begin
n:=LoadPicture('C:\m_cfb4443e.jpg');
y:=240; x:=320;
repeat
clrscr;
xop(x,y,n);
lox(x1,y1);
if y1<=10 then x1:=x+random(160)-random(160);
xip(x2,y2);
if y2<=10 then x2:=x+random(80)-random(80);
if (x1>=x-20) and (x1<=x+40) and (y1>=y) and (y1<=y+100)
then begin repeat clrscr; textout(280,200, 'GAME OVER');
readkey; until readkey=#27; halt; end;
if keypressed then
case readkey of
#13: begin repeat readkey; until readkey=#13; end;
#77: x:=x-40;
#75: x:=x+40;
#72: y:=y-40;
#80: y:=y+40;
end;
delay(30);
until (keypressed) and (readkey=#27);
readln;
end.