[JorJe]

Всем доброго времени суток. Прошу помочь разобраться в коде программы (игры "Японский кроссворд"), а именно написать, как работает программа, т.е. ее алгоритм, или чем другим. Буду признателен любой помощи.
сам *.pas файл.

[angvelem]

Может автор посчитал, что данного файла достаточно для понимания алгоритма всей программы, но, как мне кажется, этого маловато.

[Pilot_Red]

Сообщение от JorJe

Всем доброго времени суток. Прошу помочь разобраться в коде программы (игры "Японский кроссворд"), а именно написать, как работает программа, т.е. ее алгоритм, или чем другим. Буду признателен любой помощи.
сам *.pas файл.

т.е. Вы тупо предлагаете копаться в чужом гов.. куче??
Вы на основе этого кода что вообще хотите получить. прогу или узнать как работает некий алгоритм

[JorJe]

Сообщение от Pilot_Red

т.е. Вы тупо предлагаете копаться в чужом гов.. куче??

сколько эмоций)

Сообщение от Pilot_Red

Вы на основе этого кода что вообще хотите получить. прогу или узнать как работает некий алгоритм

программа есть и работает нормально, я просто прошу помочь разобраться в коде и понять, как работает игра.

Сообщение от angvelem

Может автор посчитал, что данного файла достаточно для понимания алгоритма всей программы, но, как мне кажется, этого маловато.

ссылка на игру

[Pilot_Red]

Сообщение от JorJe

сколько эмоций)

абсолютно без эмоций, я бы даже сказал с неким спокойствием.

а какие моменты не понятны

[JorJe]

Сообщение от Pilot_Red

а какие моменты не понятны

ну раз вы согласны покопаться в моей куче)
не пойму какие переменные за что отвечают.

Код:

  i,a,o,xcor,ycor,x1,y1,x2,y2,x3,y3,z,v,x0,y0,x4,y4,xcor0,ycor0,king:integer;
  coordinate               :array [1..30000] of byte;
  x_tg, y_tg, x_tg2, y_tg2 :array [1..50,1..12] of integer;
  p,t                      :textfile;
  ch                       :char;
  stroka                   :string;
  rang                     :boolean;

[angvelem]

Код:

  i,
  a,
  o,
  xcor,ycor,
  x1,y1,x2,y2,x3,y3,
  z,
  v,
  x0,y0,x4,y4,
  xcor0,ycor0,
  king                        :integer;
  coordinate               :array [1..30000] of byte;
  x_tg, y_tg, x_tg2, y_tg2 :array [1..50,1..12] of integer; // координаты игрового поля
  p,t                      :textfile; // переменные для текстового файла
  ch                       :char;
  stroka                   :string; // строка для чтения числового значения
  rang                     :boolean;

дальше не смотрел

[Pilot_Red]

Сообщение от JorJe

ну раз вы согласны покопаться в моей куче)

не не не........... ни в коем случае даже в код смотреть не буду
Я имел ввиду то, что может быть вам понравилось графическое оформление, или еще что-нибудь. И вы не знаете как это реализовать.
А вообще мой вам совет, раз уж вас зацепила игра, попробуйте сделать такую сами, и даже еще лучше. Я вам дело говорю

Не, может конечно кто-нибудь займется, например за копеечку. Но я все таки пас!