IPB
ЛогинПароль:

 
 Ответить  Открыть новую тему 
> Моя первая игрушка
сообщение
Сообщение #1


Четыре квадратика
****

Группа: Пользователи
Сообщений: 579
Пол: Мужской

Репутация: -  4  +


Вот... раскопал, когда чистил свой хард от мусора. Писал когда учился программировать. Детство, да и только!
=================================
PROGRAM igra;
USES graph,CRT;
VAR Device,Mode,torped,podbit,x,y,a,b:integer;
   imya,tor,pod:string;
   kl,otv:char;
   Procedure RISUNOK;forward;
   Procedure NACHALO;forward;
{=============================================================}

PROCEDURE ZAVERSH;
  BEGIN SetColor(Red);
  case podbit of
       0    :OutTextXY(200,200,'Very Bad');
       1,2  :OutTextXY(200,200,'Not Very Good...');
       9,10 :OutTextXY(200,200,'Excellent!!!');
       else  OutTextXY(200,200,'Good!');
  end;
  ReadLn;
  ClearDevice;
  OutTextXY(200,200,'Game Over!');
  ReadLn;
  CloseGraph;
  halt;
  END;
{=============================================================}

PROCEDURE POPAL;
  BEGIN SetColor(white);
        OutTextXY(200,100,'Hurra!');
        torped:=torped-1;
        podbit:=podbit+1;
        ReadLn;
         if torped<1 then ZAVERSH else risunok;
  END;
{=============================================================}

PROCEDURE NE_POPAL;
  BEGIN SetColor(white);
        OutTextXY(200,100,':-(');
        torped:=torped-1;
        readLn;
         if torped<1 then ZAVERSH else risunok;
        ReadLn;
  END;
{=============================================================}

PROCEDURE ATAKA;
  BEGIN y:=480;
         repeat
               SetColor(white);
               Ellipse(x,200,0,360,30,10);{korabl'}
               setColor(black);
               Ellipse(x,200,0,360,30,10);
               x:=x+3;
               SetColor(white);
               line(0,200,640,200);
               SetFillStyle(1,LightBlue);
               FloodFill(x+2,198,White);
               Ellipse(420,y,0,360,5,10);{torpeda}
               Delay(5);
               SetColor(black);
               Ellipse(420,y,0,360,5,10);
               SetFillStyle(1,blue);
               FloodFill(416,y+4,white);
               FloodFill(x+2,202,white);
               y:=y-3;
         until y<200;
         if(x>400) and (x<440) then popal else ne_popal;
  END;
{=============================================================}

PROCEDURE KORABL;
 BEGIN
REPEAT
  x:=40;
  repeat
          SetColor(white);
          Ellipse(x,200,0,360,30,10);
          randomize;
          a:=random(15);
          Delay (a);
          setColor(black);
          Ellipse(x,200,0,360,30,10);
          x:=x+1;
          SetColor(white);
          line(0,200,640,200);
          SetFillStyle(1,LightBlue);
          FloodFill(x+2,198,White);
          SetFillStyle(1,blue);
          FloodFill(x+2,202,white);
             If KeyPressed then begin
                         kl:=ReadKey;
                         if kl=' 'then ataka;
             end{if};
  until x>600;
  x:=600;
  repeat
          SetColor(white);
          Ellipse(x,200,0,360,30,10);
          Delay (a);
          setColor(black);
          Ellipse(x,200,0,360,30,10);
          x:=x-1;
          SetColor(white);
          line(0,200,600,200);
             If KeyPressed then begin
                         kl:=ReadKey;
                         if kl=' 'then ataka;
             End{if};
  until x<20;
UNTIL 3<2;
  END;
{============================================================}

PROCEDURE RISUNOK;
  BEGIN  ClearDevice;
         Line(0,200,640,200);
         Circle(450,50,30);
         SetFillStyle(1,Yellow);
         FloodFill(450,50,white);
         SetFillStyle(1,Lightblue);
         FloodFill(10,10,white);
         SetFillStyle(1,Blue);
         FloodFill(630,470,white);
         SetTextStyle(4,0,4);
         OutTextXY(10,10,imya);
         Str(Torped,tor);
         Str(Podbit,pod);
         OutTextXY(10,40,'Rockets:');
         OutTextXY(120,40,tor);
         OutTextXY(10,70,'Kills:');
         OutTextXY(100,70,pod);
         rectangle(410,470,430,480);
         KORABL;
  END;
{===========================================================}

PROCEDURE NACHALO;
  BEGIN  ClearDevice;
         SetColor(White);
         Torped:=10;
         Podbit:=0;
         Write('Enter your name : ');
         ReadLn(imya);
         RISUNOK;
  END;
{===========================================================}

BEGIN
    Device:=0;
    InitGraph(Device,Mode,'');
    DirectVideo:=false;
    NACHALO;
END.

ЗЫ: Простите что без единого комментария


--------------------
Закон добровольного труда Зимерги:
Люди всегда согласны сделать работу, когда необходимость в этом уже отпала
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #2


...
*****

Группа: Пользователи
Сообщений: 1 347
Пол: Мужской

Репутация: -  3  +


Отличная игра!
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #3


Пионер
**

Группа: Пользователи
Сообщений: 136
Пол: Мужской

Репутация: -  0  +


Да, интересная штука. Только постоянное обновление экраны стоит убрать...
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #4


Гость






Классео, что я нашел ету игру. А то я сам дуб в паскале....надеюсь смогу сам переделать ее))))
 К началу страницы 
+ Ответить 
сообщение
Сообщение #5


-
****

Группа: Пользователи
Сообщений: 480
Пол: Мужской

Репутация: -  4  +


Класс, похожа на мою первую, хм в графыческом интерфейсе. rolleyes.gif


--------------------
бб
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #6


Автооответчик
*****

Группа: Пользователи
Сообщений: 1 188
Пол: Мужской
Реальное имя: Александр

Репутация: -  16  +


Мда..я тоже такое когда-то писал, только у меня "самолет" летал и с него надо было бомбить "бункер". :p8:


--------------------
Неадекватная чушь может быть адекватным ответом на неадекватный вопрос. Понятно или разжевать?
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #7


Бывалый
***

Группа: Пользователи
Сообщений: 206
Пол: Мужской

Репутация: -  3  +


Что ли и себе чего выложить... это, правда, уже не совсем первая, первые не сохранились...
Это скриншот


Эскизы прикрепленных изображений
Прикрепленное изображение
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #8


Бывалый
***

Группа: Пользователи
Сообщений: 206
Пол: Мужской

Репутация: -  3  +


А это оно самое


Прикрепленные файлы
Прикрепленный файл  Labir.zip ( 21.18 килобайт ) Кол-во скачиваний: 262
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #9


Гость






Молодца что смог её дописать ..... я горжусь тобой :D :D :D
 К началу страницы 
+ Ответить 
сообщение
Сообщение #10


Новичок
*

Группа: Пользователи
Сообщений: 47
Пол: Мужской
Реальное имя: Диман

Репутация: -  0  +


Просто, но со вкусом... и ПОСТОЯННЫМ ОБНОВЛЕНИЕМ ЭКРАНА :fire: .
Может стоило бы с помощью видеостраниц писать? или с динамическими переменными? А?

Если чё съюзаю - покажу!


--------------------
Время есть сущность всех вещей.
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 





- Текстовая версия 1.11.2020 3:29
500Gb HDD, 6Gb RAM, 2 Cores, 7 EUR в месяц — такие хостинги правда бывают
Связь с администрацией: bu_gen в домене octagram.name