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

> Бродилка
сообщение
Сообщение #1


Новичок
*

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

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


Код игры:
Код

program platformer;
uses crt;
var x,y:integer;
    xr,yr:integer;
    key:char;
    room:array[1..80,1..5]of integer;
    file1:text;
    exit:integer;
    score:integer;
procedure load_room;
begin
assign(file1,'room');
reset(file1);
for yr:=1 to 5 do
  begin
  for xr:=1 to 80 do
   begin
   read(file1,room[xr,yr]);
   end;
  end;
close(file1);
end;
procedure draw_room;
begin
for yr:=1 to 5 do
  begin
   for xr:=1 to 80 do
    begin
    gotoxy(xr,yr);
    case room[xr,yr] of
     1: write(chr(219));
     7: write(chr(178));
     0: write('0');
     2: write('|');
     end;
    end;
   end;
  end;
procedure main;
begin
x:=1;
y:=4;
exit:=0;
end;
procedure control;
begin
key:=readkey;
case ord(key) of
  72: if room[x,y-1]<>1 then y:=y-1;
  80: if room[x,y+1]<>1 then y:=y+1;
  75: if room[x-1,y]<>1 then x:=x-1;
  77: if room[x+1,y]<>1 then x:=x+1;
  27: exit:=1;
end;
if room[x,y]=2 then
  begin
  room[x,y]:=0;
  score:=score+1;
  end;
end;
procedure draw_player;
begin
gotoxy(x,y);
write(chr(2));
gotoxy(80,6);
end;
procedure rez;
begin
gotoxy(1,6);
write(score,'score');
end;

begin
clrscr;
main;
load_room;
repeat
  draw_room;
  draw_player;
  control;
  rez;
until exit=1;
end.


Скачать обязательно, и вставить в одну дерикторию с игрой!

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


Новичок
*

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

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


Вот!

Добавлено через 5 мин.
Правда, я тока новичёк mega_chok.gif

Сообщение отредактировано: ilua_great -


Прикрепленные файлы
Прикрепленный файл  room.rar ( 192 байт ) Кол-во скачиваний: 443
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

Сообщений в этой теме


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

 





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