Создание игры

Примечаниеот автора: несложная программа на паскале, предназначенная для специальностей не программного направления. Это курсовая работа с использованием динамической памяти и графики
Загрузить архив:
Файл: ref-14399.zip (21kb [zip], Скачиваний: 35) скачать

Министерство образования РФ.

ИжГТУ.

Кафедра Радиотехники.

Курсовая работа

по информатике.

Тема: ”Создание игры”.

                                                                Проверил:          

Старший преподаватель

Сидорина В.А.

                                                                  Выполнил:

Студент гр.2-29-1

Скворцов Я.А.

Ижевск.2003.

                                                    Содержание                                              Стр.

Введение--------------------------------------------------------------------------------3

1 Постановка задачи------------------------------------------------------------------4

2 Алгоритмы и блок-схемы---------------------------------------------------------5

3 Программа на языке Pascal с комментариями--------------------------------6

4 Руководство пользователя для работы в программе-----------------------16

Заключение----------------------------------------------------------------------------17

Список использованной литературы---------------------------------------------18

ВВЕДЕНИЕ:

Основной целью данного курсового проекта является закрепление и демонстрация знаний, полученных при изучении курса информатики.

Выполнение работы требует творческого подхода и применения дополнительных знаний из области графики. Курсовой проект не предполагает дальнейшего коммерческого использования данного программного продукта.

1 Постановка задачи.

Требуется создать игру, основным смыслом которой является то, что в одной части экрана перемещаются объект-(объекты) одного типа(«Самолёты»), а в другой части экрана находится объект другого типа(«Средство противовоздушной обороны»), и «Средство ПВО» должно сбивать «Самолёты».

а) Выбор, обоснование и изложение метода решения задачи.

Я предпочёл использование динамической памяти, прорисовку текстур в отдельной процедуре и звуковое сопровождение.

С динамической памятью в данном случае очень удобно организовать    одновременное перемещение динамических объектов по экрану с минимальным мерцанием экрана.

Прорисовка текстур в отдельной процедуре удобна тем, что при желании имеется возможность прорисовать движущийся объект не вникая в особенности программы.

Звуковое сопровождение через системный динамик предрасполагает пользователя к получению приятных ощущений при использовании программы.

б) Построение алгоритма задачи.

Программаначинается с меню, если же выбор пал на меню «Программа» то сначала в динамическую память заносятся «чистые» квадраты экрана, затем последовательно на экран выводятся изображения динамических объектов и последовательно же заносятся в динамическую память. «Чистые» квадраты при этом накладываются на зарисованную  область экрана, чтобы при сканировании последующих изображений не возникало конфузов.

Далее в зависимости от нажатых клавиш динамические объекты двигаются так или иначе.

в) Создание и отладка программы.

Создание программы состояло из трёх этапов: создание меню, создание основного тела игры в виде отдельной процедуры без прорисовки текстур и окончательная прорисовка текстур.

г) Оформление пояснительной записки и защита курсового проекта.

2 Блок-схема.

3 Программа на языке Pascalc комментариями.

program jim;

uses crt,graph;

label 1,3;

var a:char;

    b:integer;

    procedure beep;{Выдачазвука}

    begin

    sound(300);delay(6000);nosound;delay(700);

    end;

     procedurezemlya;{прорисовка нижней части экрана}

     begin

     setcolor(3);

     line(0,55,640,55);

     line(0,479,0,430);

     line(0,430,639,430);

     line(639,430,639,479);

     line(639,479,0,479);

     setfillstyle(7,5);

     floodfill(10,470,3);

     end;

procedurePVO;{Прорисовка средства ПВО}

    begin

        setcolor(6);

        line(5,37,45,37);line(45,37,47,39);

        line(47,40,37,50);line(37,50,7,50);

        line(7,50,3,39);line(3,38,5,37);

        circle(15,43,6);circle(30,43,6);

        circle(6,39,2);circle(44,39,2);

        setfillstyle(1,6);

        floodfill(41,43,6);floodfill(22,49,6);

        floodfill(7,43,6);floodfill(10,39,6);

        setcolor(2);

        line(3,39,3,34);line(3,34,20,34);

        line(21,34,21,23);line(21,23,33,23);

        line(33,23,47,36);line(47,36,47,36);

        line(47,36,3,36);

        line(36,26,29,26);line(29,27,30,30);

        line(31,31,42,31);

        setfillstyle(1,2);floodfill(26,32,2);

        setcolor(9);

        line(8,33,8,23);line(9,24,9,13);

        line(9,13,11,12);line(11,12,11,9);line(11,12,13,13);

        line(13,13,13,24);line(14,23,14,33);

        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;

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

    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);

        setcolor(11);

        line(18,11,32,11);line(32,10,36,10);

        line(36,9,39,9);line(40,8,40,5);

        line(39,4,36,4);line(36,3,32,3);

        line(32,2,18,2);line(18,3,14,3);

        line(14,4,11,4);line(10,5,10,8);

        line(11,9,14,9);line(14,10,18,10);

        setfillstyle(1,11);floodfill(25,7,11);

     end;

  procedure pulka;{Прорисовка снаряда}

        begin

        setcolor(5);

        line(2,6,2,3);line(3,6,3,0);line(4,6,4,3);

        setcolor(13);

        line(3,8,3,7);

        setcolor(14);

        line(1,5,1,7);line(2,7,2,9);

        putpixel(3,9,14);line(4,7,4,9);line(5,5,5,7);

        end;

    procedure gameover(b,v:integer);{предписанияпри выигрышеодной

      var u,o:integer;                                      изсторон}

          i:^integer;

          siz:word;

     begin

      siz:=imagesize(0,100,1,100);

      getmem(i,siz);

      getimage(0,100,1,100,i^);

      if v>500 then begin

      outtextxy(300,240,'Y');beep;

      outtextxy(308,240,'o');beep;

      outtextxy(316,240,'u');beep;

      outtextxy(324,240,'_');beep;

      outtextxy(332,240,'W');beep;

      outtextxy(340,240,'I');beep;

      outtextxy(348,240,'N');beep;

                    end;

      if b>500 then begin

                       outtextxy(300,240,'G');beep;

                       outtextxy(308,240,'a');beep;

                       outtextxy(316,240,'m');beep;

                       outtextxy(324,240,'e');beep;

                       outtextxy(332,240,'_');beep;

                       outtextxy(340,240,'O');beep;

                       outtextxy(348,240,'v');beep;

                       outtextxy(356,240,'e');beep;

                       outtextxy(364,240,'r');beep;

                       delay(45000);outtextxy(330,260,':');beep;

                                    outtextxy(338,260,'-');beep;

                                    outtextxy(346,260,'>');beep;

                    end;

      delay(64500);delay(64500);

      delay(64500);

      for u:=0 to 640 do

      for o:=0 to 480 do begin

                           putimage(u,o,i^,copyput);

                         end;

     end;

procedurejim; {Непосредственно игра}

label 2,3;

  var i,j,x,y,m,n,v,b:integer;

      key:boolean;

      s,ss,s1,s2,s3:word;p,pp,p1,p2,p3:pointer;{рр-пустойквадрат;р-ПВО...;р1-пулька}

  begin i:=9;j:=2;initgraph(i,j,'');

3:      ss:=imagesize(0,430,50,480);a:='y';

        getmem(pp,ss);

        getimage(0,430,50,480,pp^);

        s:=imagesize(0,0,50,50);

        getmem(p,s);

        PVO;

        getimage(0,0,50,50,p^);

        putimage(0,0,pp^,copyput);

        s1:=imagesize(0,0,5,10);

        getmem(p1,s1);

        pulka;

       getimage(0,0,5,10,p1^);

        putimage(0,0,pp^,copyput);

        s2:=imagesize(0,0,5,10);{р2-маленький квадратик пульки}

        getmem(p2,s2);

        getimage(0,0,5,10,p2^);

        s3:=imagesize(0,0,50,20);

        getmem(p3,s3);

        NLO;

        getimage(0,0,50,20,p3^);putimage(0,0,pp^,copyput);

        zemlya;

        x:=200;y:=379;putimage(x,y,p^,copyput);

        v:=0;b:=0;delay(45000);delay(45000);

      repeat        {Начало самого процесса игры}

              for n:=1 to 1770 do begin

              putimage(round(n/3),60,p3^,copyput);

              if n>1760 then begin

                               putimage(round(n/3),60,pp^,copyput);

                               sound(300);delay(100);nosound;

                             end;

              key:=keypressed;

              if key=false then goto 2;

              a:=readkey;

                  if a=chr(77) then begin

                                     x:=x+3;

                                     if x>580 then begin

                                                    putimage(x,y,pp^,copyput);

                                        x:=10;

                                                   end;

                                     putimage(x,y,p^,copyput);

                                     end;

                  if a=chr(75) then begin

                                     x:=x-3;

                                     if x<10 then begin

                                                     putimage(x,y,pp^,copyput);

                                                     x:=580;

                                                  end;

                                     putimage(x,y,p^,copyput);

                                    end;

                  if a=chr(32) then begin for m:=y-2 downto 56 do begin

                                                        putimage(x+8,m,p1^,copyput);

                                                        delay(5);

                                                                  end;

                                                        if m<90 then

                                                        if round(n/3)>(x-50) then

                                                        if round(n/3)<(x+10) then begin

                                                        sound(800);delay(2000);

                                                        nosound;putimage(round(n/3),60,pp^,copyput);

                                                        putimage(v,10,p1^,copyput);n:=1;

                                                        v:=v+15;if v>500 then begin gameover(b,v);goto 3;end;end;

                                         putimage(x+8,56,p2^,copyput);

                                    end;

2:                                 end;putimage(b,24,p3^,copyput);b:=b+50;

  if b>500 then begin gameover(b,v);goto 3;end;

                            if a=chr(113) then begin

                                  v:=550;gameover(b,v);goto 3;

                                     end;

      until a=chr(27);

  end;

begin{Основная программа}

1:   clrscr;

     gotoxy(30,10);

     write('Введение');

     gotoxy(30,11);

     write('Постановка задачи');

     gotoxy(30,12);

     write('Математические методы...');

     gotoxy(30,13);

     write('Описание данных');

     gotoxy(30,14);

     write('Алгоритмы и блок-схемы');

     gotoxy(30,15);

     write('ПРОГРАММА');

     gotoxy(30,16);

     write('Текстовые примеры');

     gotoxy(30,17);

     write('Руководство пользователю');

     gotoxy(30,18);

     write('Заключение');

     gotoxy(30,19);

     write('Список литературы');{Это всё менюшка}

     gotoxy(26,10);

     write('>>>');

     gotoxy(25,10);

     repeat

           a:=readkey;

           if a=chr(80) then begin{движениекурсоравниз}

                                   b:=wherey;

                                   gotoxy(26,b);

                                   write('   ');

                                   if b>=19 then b:=9;

                                   gotoxy(26,b+1);

                                   write('>>>');

                                   gotoxy(25,b+1);

                                   sound(3000);

                                   delay(1000);

                                   nosound;

                              end;

           if a=chr(72) then begin{движениекурсоравверх}

                                   b:=wherey;

                                   gotoxy(26,b);

                                   write('   ');

                                   if b<=10 then b:=20;

                                   gotoxy(26,b-1);

                                   write('>>>');

                                   gotoxy(25,b-1);

                                   sound(4000);

                                   delay(1000);

                                   nosound;

                              end;

           if a=chr(13) then begin {Опросклавиши ENTER}

                              b:=wherey;

                              if b=19 then begin{Списоклитературы}

                                           sound(3000);

                                           delay(1000);

                               nosound;

                                           clrscr;

                                           gotoxy(30,b);

                                           write('Книжка по Турбо-Паскалю');

                                           repeat

                                                 a:=readkey;

                                           until a=chr(13);

                                           sound(4000);

                                           delay(1000);

                                           nosound;

                                           goto 1;

                                           end;

                              if b=10 then begin {Введение}

                                           sound(3000);

                                           delay(1000);

                                           nosound;

                                           clrscr;

                                           gotoxy(30,b);

                               writeln('Основной целью данного курсового проекта');

                                           gotoxy(30,b+1);

                                writeln('является закрепление и демонстрация знаний,');

                                           gotoxy(30,b+2);

                                writeln('полученых при изучении курса информатики');

                                           repeat

                                                 a:=readkey;

                                           until a=chr(13);

                                           sound(4000);

                                           delay(1000);

                                           nosound;

                                           goto 1;

                                           end;

                              if b=11 then begin{Постановказадачи}

                                           sound(3000);

                                           delay(1000);

                                           nosound;

                                           clrscr;

                                           gotoxy(30,b);

                                           write('Сделать игру: леталку-стрелялку');

                                           repeat

                                                 a:=readkey;

                                           until a=chr(13);

                                           sound(4000);

                                           delay(1000);

                                           nosound;

                                           goto 1;

                                           end;

                              if b=18 then begin{Заключение}

                                           sound(3000);

                                           delay(1000);

                                           nosound;

                                           clrscr;

                                           gotoxy(30,b);

                                           write('Мне понравилась моя прога   :-)');

                                           repeat

                                                 a:=readkey;

                                           until a=chr(13);

                                           sound(4000);

                                           delay(1000);

                                           nosound;

                                           goto 1;

                                           end;

                              if b=17 then begin{руководствопользователю}

                                           sound(3000);

                                           delay(1000);

                                           nosound;

                                           clrscr;

                                           gotoxy(30,b);

                                        write('Если Вы в этой проге ничего не поменяете');

                                           gotoxy(30,b+1);

                                           write('она будет работать ВЕЧНО...');

                                           repeat

                                                 a:=readkey;

                                           until a=chr(13);

                                           sound(4000);

                               delay(1000);

                                           nosound;

                                           goto 1;

                                           end;

                               if b=12 then begin{математическиеметоды}

                                           sound(3000);

                                           delay(1000);

                                           nosound;

                                           clrscr;

                                           gotoxy(30,b);

                                           write('Задача сама по себе не математическая,');

                                           gotoxy(30,b+1);

write('значит и математических методов никаких нет');

                                           repeat

                                                 a:=readkey;

                                           until a=chr(13);

                                           sound(4000);

                                           delay(1000);

                                           nosound;

                                           goto 1;

                                           end;

                                if b=13 then begin{Описаниеданных}

                                           sound(3000);

                                           delay(1000);

                                           nosound;

                                           clrscr;

                                           gotoxy(30,b);

                                           write('Данных нет...');

                                           repeat

                                                 a:=readkey;

                                           until a=chr(13);

                                           sound(4000);

                                           delay(1000);

                                           nosound;

                                           goto 1;

                                           end;

if b=14 then begin{Алгоритм.блок-схема}

                                           sound(3000);

                                           delay(1000);

                                           nosound;

                                           clrscr;

                                           gotoxy(30,b);

                                           write('Смотри Пояснителную записку');

                                           repeat

                                                 a:=readkey;

                                           until a=chr(13);

                                           sound(4000);

                                           delay(1000);

                                           nosound;

                                           goto 1;

                                           end;

                                  if b=16 then begin{Текстовыепримеры}

                                           sound(3000);

                                           delay(1000);

                                           nosound;

                                           clrscr;

                                           gotoxy(30,b);

                                           write('Текстовых примеров у меня тоже нет');

                                           repeat

                                                 a:=readkey;

                                           until a=chr(13);

                                           sound(4000);

                                           delay(1000);

                                           nosound;

                                           goto 1;

                                           end;

                                  if b=15 then begin

                                           sound(3000);

                                           delay(1000);

                                           nosound;

                                           jim;

                                           closegraph;

                                           goto 1;

                                           end;

                              end;

     until a=chr(27);

end.

4 Руководство пользователя для работы в программе.

При запуске программы появляется меню, предлагающее широкий выбор пунктов.

Курсор перемещается при помощи клавиш курсора, выбор осуществляется клавишей ENTER .

При выборе какого-либо пункта меню появляется соответствующее сообщение, однако же, при выборе пункта «Программа» запускается непосредственно сама игра.

Суть игры заключается в сбивании летающих тарелок средством ПВО.

Средство ПВО может с помощью курсора перемещаться по экрану в горизонтальном направлении. При нажатии клавиши «пробел» средство ПВО совершает выстрел. Если снаряд попадает в летающую тарелку, то она считается сбитой и зачисляется в фонд игрока, что символизируется появлением значка снаряда в верхнем правом углу. Если же выпущенные снаряды не достигают цели и летающая тарелка долетает до правого края экрана, то это отмечается также в правом верхнем углу появлением значка летающей тарелки.

Игрок проигрывает в случае достижения числа не сбитых тарелок правого края экрана.

Игрок выигрывает в случае достижения числа сбитых тарелок правого края экрана.

После проигрыша либо выигрыша игра повторяется.

Заключение.

В процессе отладки программы возникли сложности с тем, что при сканировании полного экрана и последующем использовании этого объекта программа начинала резко замедлять скорость своей работы. Преодоление этого препятствиязаключалось в сканировании небольших частей экрана и дальнейшем их использовании.

Длителен также процесс детальной прорисовки графики.

Необходимо, чтобы в той папке, где лежит данная программа, находился файл egavga.bgi . Этот файл имеется во многих версиях ТР в папке bin, он отвечает за инициализацию графики.

Список использованной литературы.

1 Меженный О.А. «TurboPascal-учитесь программировать»;Москва-С.Петербург-Киев; «Диалектика»;2001;448с.

2 Бабушкин И.А.; «Практикум по ТР»-учебное пособие по курсам ИВТ; Москва, 1998.

3 http://www.freepascal.org;

4 http://www.geocities.com/~franzglaser/tp.htm;

5 http://www.garbo.uwasa.fi/pc/turboobj.html;