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

 
 Ответить  Открыть новую тему 
> ЗМЕЙКА, игра в текстовом режиме
сообщение
Сообщение #1


-
****

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

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


Вот наброски игрухи "змейка" в текстовом режиме. :D
Код

uses crt;
var
c:char;
x,y,x1,y1,s:byte;
df:byte;
lose:boolean;
procedure random_xy(var x_,y_:byte);forward;
{=============================}
procedure random_xy(var x_,y_:byte);
begin
repeat
x_:=random(79);
until x_>0;
repeat
y_:=random(24);
until y_>0;
end;
{=============================}
procedure beginn;
begin
random_xy(x,y);
random_xy(x1,y1);
lose:=false;
df:=2;
s:=0;
end;
{============================}
procedure writes(x_,y_:byte;ch_:byte);
begin
mem[$0b800:(y_-1)*80*2+(x_-1)*2]:=ch_;
end;
begin
textbackground(black);
clrscr;
randomize;
beginn;
writes(x,y,5);

repeat

repeat
gotoxy(1,25);
write(s);
writes(x1,y1,0);
case df of
1:begin
if y1=25 then lose:=true else inc(y1);
writes(x1,y1,2);
delay(15000);
end;
2:begin
if x1=80 then lose:=true else inc(x1);
writes(x1,y1,2);

delay(10000);
end;
3:begin
if y1=1 then lose:=true else dec(y1);
writes(x1,y1,2);
delay(15000);
end;
4:begin
if x1=1 then lose:=true else dec(x1);
writes(x1,y1,2);
delay(10000);
end;
end;
if ((x1=x) and (y1=y)) then begin

random_xy(x,y);
writes(x,y,5);
inc(s);
end;

until (keypressed or (lose));
c:=readkey;
case c of
#72:df:=3;
#75:df:=4;
#77:df:=2;
#80:df:=1;
end;
if lose then begin
gotoxy(20,12);
writeln('you lose. do you want to begin(y/n)');
repeat
c:=readkey;

case c of
'y':begin
beginn;
clrscr;
writes(x,y,5);
end;
end;
until (c='y') or (c='n');

end;
until ((ord(c)=27) or (lose));
end.


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


...
*****

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

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


Во Пакарисе я сузил границы до y>~5-8 и вверху сделал счет, жизни и уровень.
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #3


-
****

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

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


это только наброски.


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


-
****

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

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


а слабо на ПАКАРИС исходы выложить????? ;)


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


...
*****

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

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


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


-
****

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

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


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


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

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

 





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