Курсовая работа: Игра "Vertolet"

och:='70';

begin

tex;

start;

bonn:=random(150)+300;

end;

repeat

setcolor(0);

if (plus<70) and (ord(t)=32) then begin

setcolor(12);

outtextxy(50,35, och);

setcolor(red);

str(pl,och); outtextxy(50,35, och);

og(a-3,d-9); plus:=plus+1; end;

pl:=70-plus;

if ((getpixel(a-2,d)=0) or (getpixel(a-2,d)=1)) and ((getpixel(a+43,d+7)=0) or (getpixel(a+43,d+7)=1))

and ((getpixel(a+26,d+20)=0) or (getpixel(a+26,d+20)=1)) and

((getpixel(a+36,d+20)=0) or (getpixel(a+36,d+20)=1)) and ((getpixel(a+42,d-7)=0) or (getpixel(a+42,d-7)=1))

and ((getpixel(a+18,d-7)=0) or (getpixel(a+18,d-7)=1)) and

((getpixel(a-1,d-5)=0) or (getpixel(a-1,d-5)=1))

then

begin

if (getpixel(a+43,d+7)=1) or (getpixel(a-1,d-5)=1) or (getpixel(a+36,d+20)=1)

or (getpixel(a+42,d-7)=1) or (getpixel(a-2,d)=1) then

begin schet:=schet+500; inc(aw); putimage(v-50,vv+80,barer3^,0); end;

text:=nik;

end

else

begin