VPF::Не компилиться код игры - Форум программистов

Cupac

Дата 11.11.2007, 12:40 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 10
Регистрация: 27.10.2007

Репутация: нет
Всего: нет

Нашёл интересный код хороший игры вот только он не компилиться.
Помогите запустить её..

Присоединённый файл ( Кол-во скачиваний: 13 )

XONIX2.PAS 18,36 Kb

volvo877

Дата 11.11.2007, 12:52 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 2073
Регистрация: 15.11.2004

Репутация: 2
Всего: 116

Цитата(Cupac @ 11.11.2007, 11:40

)

вот только он не компилиться.

Вот как раз Турбо Паскалем все прекрасно компилится. А если ты пользуешься FPC (судя по одному из твоих предыдущих вопросов), то проблемы вот где:

1.

Код


          for time_to_black:=6300 downto 1 do
          begin
               time_to_black:=time_to_black-1; { <--- Вот это компилятор ни за что не пропустит... }
               delay (1);
               sound (time_to_black+100);
          end;

... потому как внутри цикла For нельзя менять переменную - счетчик цикла. Или вообще убери отмеченную строку (переменная time_to_black сама будет меняться), либо замени этот For на While (или Repeat)

2.

Код


var
   flag:boolean; 
   gd,gm: smallint; { <--- измени тип с Integer на вот этот }

Так программа компилируется, пробуй запускать. smile

Cupac

Дата 11.11.2007, 23:00 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 10
Регистрация: 27.10.2007

Репутация: нет
Всего: нет

Когда начинаешь играть, при удачном откусывание участка вылетает с ошибкой “Error 202: Stack overflow error”
На строчке 125..

P.S Как Turbo Pascal заставать создавать exe файл?

orthrus

Дата 12.11.2007, 07:26 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 400
Регистрация: 30.10.2007
Где: г. Усть-Илимск(Ир кутская обл.)

Репутация: нет
Всего: 16

В Turbo Pascal делается в меню Compile->Destination->Disk

--------------------

У того, кто ничего не делает, всегда много помощников.© Л.Н. Толстой
user posted image

Cupac

Дата 16.11.2007, 20:40 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 10
Регистрация: 27.10.2007

Репутация: нет
Всего: нет

Так не подскажите, в чём проблемка-с?

"Когда начинаешь играть, при удачном откусывание участка вылетает с ошибкой “Error 202: Stack overflow error”
На строчке 125.."

volvo877

Дата 16.11.2007, 21:27 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 2073
Регистрация: 15.11.2004

Репутация: 2
Всего: 116

Cupac,

Во-первых, заходишь Options -> Memory Sizes и Stack Size меняешь с 16384 (по умолчанию) на 64000... А во-вторых, чтоб потом не было Range Check Error - переписываешь процедуру CheckFill хотя бы вот так:

Код


procedure check_fill (x,y,n:integer);
begin
     board[x,y]:=9;
     if n<3000 then { <--- Непонятно, откуда взялось 3000 }
     begin
          if (x < 161) and (board[x+1,y] mod 2 = 0) then check_fill (x+1,y,n+1);
          if (x > 0) and (board[x-1,y] mod 2 = 0) then check_fill (x-1,y,n+1);
          if (y < 111) and (board[x,y+1] mod 2 = 0) then check_fill (x,y+1,n+1);
          if (y > 0) and (board[x,y-1] mod 2 = 0) then check_fill (x,y-1,n+1);
     end else
     board[x,y]:=8;
end;

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Object Pascal: кроссплатформенные технологии \| Следующая тема »