Игра "Зона" на ДВК

[hobot]

Но неужели нигде не сохранилась неиспорченная версия?

их вообще куча ;-) STALK.SAV, PIKNIK.GME, - и по размеру, и по текстовым сообщениям могут различаться +
версия для БК11М... есть исходник - в нём все текста можно поправить и пересобрать игру (это под другие платформы \ ОС), а уж в RT-11 можно исполняемый файл как хочешь мучить с помощью DESS

STALK .SAV    49P 13-Dec-1991     
PIKNIK.SAV    50P 07-Mar-1989

- - - Добавлено - - -

едой запасся, побегу дальше ;-)

   ПОДЗЕМЕЛЬЕ             1
  3 -   -   -   -   -   -   -   -   -   -   -   -   -     -   -  РЕЙТИНГ   41
  !                                                              ЭНЕРГИЯ   24
  !                                                             !ОРУЖИЕ     0
                                                                !ЗАЩИТА     5
                                                                 В БАНКЕ  120
  !
  !                                 # - -       - - !           !ВРЕДНОСТЬ  4
                                  . . . .     . . . !           !
                                . . . . .   . . . . !             РЮКЗАК:
  !                           ! . . ! . . ! . . . 5                < : ; : . .
  !               . . .     . . . . ! . . ! . . .               !
                  . ю . - - - . . -   - - . . .                 !
                  . . . . . . . .       . . .
  !               . . . . . . .
  !                 . . М . .                                   !
    -   -   -   -   - - - - -   -   -   -   -   -   -   -   -   -
БЕРЕМ

[Advertiser]

[Hunta]

Мне кажется, ошибка в комментарии:

	VAR6:	integer; { новый X игрока }
	VAR10:	integer; { новый Y игрока }
	VAR12:	integer; { Позиция Y игрока (строка) }
	VAR14:	integer; { Позиция X игрока (столбец) }

Но судя по использованию

				V11070:=@F[VAR4,VAR12,VAR14]; {L03644}
				V33074:=@F2[VAR4,VAR12,VAR14]; {L03716}
				V11072:=@F[VAR4,VAR6,VAR10]; {L04000}
				V33076:=@F2[VAR4,VAR6,VAR10]; {L04052}

а так же

		VAR6:=VAR12+VAR16; { новый Y }
		VAR10:=VAR14+VAR20; { новый X }
		V11072:=@F[VAR4,VAR6,VAR10]; {L12552}
		V33076:=@F2[VAR4,VAR6,VAR10]; {L12624}

ну и по порядку перечисления, VAR6 - это новый Y, а VAR10 - новый X игрока

[hobot]

ну и по порядку перечисления, VAR6 - это новый Y, а VAR10 - новый X игрока

это логично - потому как строка идёт первой в позиционировании, а столбец вторым - на самом деле.

[Sandro]

Мне кажется, ошибка в комментарии:
ну и по порядку перечисления, VAR6 - это новый Y, а VAR10 - новый X игрока

ЧИТАЙТЕ ИСХОДНИК С МОИМИ КОММЕНТАРИЯМИ.
Я разобрал весь движок.

[svofski]

Все-таки p2c это не то. Я набрался мужества и спортировал на труъ MT-Pascal для CP/M. Пришлось перепахать очень много, потому что у этого компилятора строгач с максимально допустимым размером процедуры (вот бы во всех компиляторах так было!) и еще кое чем.

Много менял, наверняка чего-то сломал. Текущий сорец в гисте.
Игра для Вектора-06ц (хотя наверное для любого CP/M + vt52 в принципе) тут.

Поиграл сам, конечно, но терпения зайти слишком далеко пока не набралось:

[nzeemin]

С целого пинка все-таки получилось http://sensi.org/~svo/b/stalk1-win32.zip

Хотелось бы поюзать результат p2c конвертации (исходник на Си), можно как есть сырой - мне бы пригодилось тут в одном месте.

[Hunta]

Внимательно следим за руками (или я чего то не понимаю?)
Это строки примерно с 419 по 423

while true do begin {L12254}
{ Начало игрового цикла }
V11070:=@F[VAR4,VAR12,VAR14]; {L12266}
V33074:=@F2[VAR4,VAR12,VAR14]; {L12340}
for VAR16:=-1 to 1 do begin {L12422}
	for VAR20:=-1 to 1 do begin {L12462}
		VAR6:=VAR12+VAR16; { новый Y }
		VAR10:=VAR14+VAR20; { новый X }

Эти два цикла заканчиваются вот здесь (599-600):

	end; { for VAR20 }
end; { for VAR16 }

А теперь смотрим внутрь (528-531):

						VAR16:=1;
						while (V33122[VAR16] <> V11070^) and (VAR16 < 4) do
							VAR16:=VAR16+1;
						V33122[VAR16]:=' ';

Как минимум VAR16 мы похерили...

Или я что то не помню про Паскаль?

[nzeemin]

Как минимум VAR16 мы похерили...

Как бы да, походу бага.
Могу ещё про одно место сказать, которое всё время мне кажется подозрительным - в procedure L03362 странные условия по поводу текущего этажа и движения вверх/вниз - я думаю там тоже не всё хорошо.
Но тут уже - мы воссоздали как есть, "художник (автор) так видит". 8-)

- - - Updated - - -

А тем временем, я ещё начал делать JS-версию Сталкера.



По поводу кнопок внизу - идея в том чтобы показывать набор команд, который доступен именно в данный момент. Но с сохранением управления с клавиатуры.
Для этой версии приходится разбивать логику на функции, внутри которых нет ожиданий по времени или ожидания ввода от пользователя.

[Alex_K]

Как минимум VAR16 мы похерили...

Или я что то не помню про Паскаль?

В этом месте обрабатывается встреча со зверем. Звери бывают разные. Есть такие которые начинают к вам бежать из другого места, которое далеко от вас. Возможно что-то здесь и обрабатывается.

[Hunta]

Возможно что-то здесь и обрабатывается

Вот только у меня программа вылетела, когда зверь был достаточно близко к границе - на строке 15. VAR16 после встречи со зверем стал 4 и дальше (во внутреннем цикле) - вылет при попытке обработать строку с номером 19