Реферат: Создание игры

line(8,28,3,33);line(3,33,19,33);

line(19,33,14,28);

setfillstyle(1,9);floodfill(11,28,9);

line(21,24,24,24); line(21,25,24,25);

setcolor(4);line(21,26,25,26);line(21,27,25,27);

setcolor(15);line(21,28,26,28);line(21,29,26,29);

end;

procedure NLO; {прорисовка летающей тарелки}

var l:integer;

begin randomize;l:=random(256);

setcolor(l);

line(9,8,7,8);line(7,9,5,9);

line(5,10,3,10);line(3,11,1,11);

line(1,11,1,13);line(2,14,4,14);

line(3,15,5,15); line(5,16,8,16);

line(7,17,10,17);line(10,18,16,18);

line(16,19,35,19);line(35,18,41,18);

line(41,17,44,17);line(44,16,46,16);

line(46,15,48,15);line(48,14,49,14);

line(49,14,49,11);line(49,11,48,11);

line(48,10,46,10);line(46,9,44,9);

line(44,8,41,8);line(41,7,41,9);

line(41,9,40,9);line(40,10,37,10);

line(37,11,33,11);line(33,12,17,12);

line(17,11,13,11);line(13,10,10,10);

line(10,9,9,8);

setfillstyle(1,l);floodfill(24,15,l);

putpixel(31,16,0);putpixel(42,12,0);

putpixel(18,16,0);putpixel(7,13,0);