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

 
 Ответить  Открыть новую тему 
> Welcome !
сообщение
Сообщение #1


Бывалый
***

Группа: Пользователи
Сообщений: 209

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


Этот раздел, посвящен созданию игр на Pascal'е
Можете выкладывать здесь свои исходники, или спрашивать чего не получается, постараемся помочь.

А также думаю замутим пару проектов по написанию какой нить игрулины.

Best regards, Ivs


--------------------
Если вы хотите чаще встречаться с понравившейся девушкой установите ей Windows'95
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #2


Гость






Ага.. Обязательно замутим.... Всех с обновлением !!!
 К началу страницы 
+ Ответить 
сообщение
Сообщение #3


Бывалый
***

Группа: Пользователи
Сообщений: 209

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


Clane есть небольшая проблемка, на форуме нельзя постить большие мессаги, а игры как правило не маленького размера, так вот может увеличите размер мессаг, это же можно зделать, а ?


--------------------
Если вы хотите чаще встречаться с понравившейся девушкой установите ей Windows'95
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #4


Профи
****

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

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


Надеюсь - это будет действительно интересный и полезный раздел. Поздравляю с открытием :D
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #5


Гость






Цитата
Clane есть небольшая проблемка, на форуме нельзя постить большие мессаги, а игры как правило не маленького размера, так вот может увеличите размер мессаг, это же можно зделать, а ?

Сейчас посмотрю....
 К началу страницы 
+ Ответить 
сообщение
Сообщение #6


...
*****

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

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


Максимум - 5000 символов!
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #7


Lonely_Raven
****

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

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


НЮ ЛАДНО


--------------------
Программа делает то что вы ей приказали а не то что бы ВАМ хотелось бы.
МЕРФИ
---------------------
RTFM - Read the fucking manual
---------------------
http://www.livejournal.com/users/lonley_raven/
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #8


Lonely_Raven
****

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

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


ВОТ ТИПА ПЕРВЫЙ ИСХОДНИК
ТОЛЬКО НЕ РУГАЙТЕ ЗА КОД
ПЕРВАЯ МОЯ ВЕСТЧ

Uses Graph,crt,lbmptpu,Keypress;{biblioteca po klave}
var
key:Char;
  ex:boolean;

    size,size2,size3,
    d,e12,e13,m,xm,
    ym,y,x,dx,dy:integer;

   xa,ya,dxa,dya:integer;
   sc,sc1,sc2:pointer;
   x1,y1,x2,y2,x3,y3:integer;
   x0,y0:Integer;
     modul,i,i1,i2,i3,i4:byte;

Procedure snd;
begin
Sound(40);delay(40);Nosound;
end;

Procedure FireR;
begin
SetColor(200);
  OutTextXY(200,100,'Vistrel v Pravo');
 end;

Procedure FireL;
begin
SetColor(84);
  OutTextXY(200,200,'Vistrel v Levo');
 end;
(*========NACHINAEM OSNOVNOE JADRO========*)
BEGIN
Ingr(3);{Instal to Graph}
LoadBMP('c:gampole.dat',800,600); {Load BMP files}
  size:=imagesize(141,151,169,177);   {------------------}
     getmem(sc,size);                 {|Spreite v pamjat|}
        GetImage(141,151,169,177,sc^);{------------------}
         PutImage(141,151,sc^,xorput);
 size2:=imagesize(174,149,220,165);
     getmem(sc1,size2);
        GetImage(174,149,220,165,sc1^);{rocetca}
         PutImage(174,149,sc1^,xorput);

 Size3:=imagesize(250,151,278,172);
    getmem(sc2,size3);                {black cvadro}
     GetImage(250,151,278,172,sc2^);
      { PutImage(250,151,sc2^,xorput);}
{-----------------------------------}
 x0:=141;{nachalnoe mesto racetci}
 y0:=411;{^----------------------}
 x1:=150;{nachalnoe mesto smeiles}
 y1:=200;{^----------------------}
 e12:=1;
 e13:=1;
 m:=1;
 dx:=10;
set_handler;{yvkljychaem klavishi}
SetColor(14);
OutTextXY(250,145,'Press Enter To Start');
ReadLn;{gotovimsja}
{\\\\\\}
{**===============General jadro=======================**}
{**=======For mov smeiles and mov racetcka============**}
{\\\\\\}
{dvijenie smeiles and racetjki}
Repeat
x1:=x1+e12;{smeiles}
y1:=y1+e13;
{ delay(40);}
{pin-pong algoritm}
If x1>640 then begin snd;e12:=-e12 end;
If x1<131 then begin snd;e12:=-e12 end;


{princip racetci argoritm}
if{nakonec nashol bug >}y1=395{<} then if (x0-x1)<22{kolobok} then if (x1-x0)<45{racetka} then
 {bilo y1>395}
BEGIN snd; e13:=-e13; end;
{conec principa racetci}
 {vivod o neudache}       {  **********}
If y1>395 then begin      {<<*tud BUGS*}
                          {  ***bil****}
                                     {**************************}
PutImage(x1,y1,sc^,copyput);{sync;}    {<<<<mesto v razrabotke>>>>}
        if y1>445 then begin
   dx:=dx-2;{znack menjaem}e13:=-e13;
      {zvet manjaem}  m:=m+15;SetColor(m);
        OutTextXY(10,100,'-=Lamer Brothers=-');
         end;
end;

{otscok ot versha}
If y1<138 then begin snd;dx:=dx+1;e13:=-e13 end;
PutImage(x1,y1,sc^,copyput);{delay(400);}{sync;}{ball-smeiles}
PutImage(x0,416,sc1^,copyput);{racetka}
  If keypressed then key:=readkey {elcli nachata}
    else key:=#$ff;{255 ne nashata}
    {x1:=x1+e12;
     y1:=y1+e13;}
If pright=true then
{Idem v pravo i streljaem}
begin
if pspace=true then begin FireR; end;
 x0:=x0+2;
  if x0>625 then x0:=625;
   PutImage(x0,416,sc1^,copyput);{sync;}
end;
{Idem v levo i strelaem}
If pleft=true then
Begin
if pspace=true then begin FireL; end;
 x0:=x0-2;
  if x0<131 then x0:=131;
   PutImage(x0,416,sc1^,copyput);{sync;}
end;
   Until key=#27;  {vihod po ESC}

    remove_handler;{vozvrashaem klavu v zad}
   Freemem(sc1,1000); {svoboda pamjati po spreitu -sc^-}
    Freemem(sc,1000); Freemem(sc2,1000);
  { ClearDevice;}
 LoadBmp('c:firez.bmp',800,600);
 ReadLn;
 CloseGraph;{zakriv grafiky}
 Write('vi nabrali = ',dx, ' ochkov');
 ReadLn;
 if dx>150 then write('-=xorosho igrali=-');
 if dx<50 then write('-=ploho igrali=-') else write('-=sredne igrali=-');
 ReadLn;

end.


--------------------
Программа делает то что вы ей приказали а не то что бы ВАМ хотелось бы.
МЕРФИ
---------------------
RTFM - Read the fucking manual
---------------------
http://www.livejournal.com/users/lonley_raven/
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #9


Бывалый
***

Группа: Пользователи
Сообщений: 209

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


Shadow, ты бы еще модули свои кинул.
Кинь мне на мыл два модуля
lbmptpu,Keypress
буду благодарен. ;)


--------------------
Если вы хотите чаще встречаться с понравившейся девушкой установите ей Windows'95
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #10


Профи
****

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

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


Хм, а и мне пожалуйста (вместе с библ-ми)...
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #11


Бывалый
***

Группа: Пользователи
Сообщений: 201

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


Shadow, кинь мне обе библиотеки(главное keypress).И можешь описание к keypress прислать!??
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #12


Пионер
**

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

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


а мне можно всё вышеперечисленное? ;D

romario4@yandex.ru

:smile.gif
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

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

 





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