"Морской бой" на "Турбе"

[Cezar]

У меня такая проблема:
Мне нужно написать простенький морской бой в текстовом режиме, минимум удобств, простенький интерфейс, управление клавой и все такое.
Перешнарил весь нЭтъ, нахожу только под Дельфи, а если под ДОС то обязательно в графическом режиме. Но мне нужно в текстовом!!!
Товарищи, есль кто нить имеет такой исходник или ссылку на него, скиньте пожалуйста, у меня только один день, курсовая работа однако...

ЗЫ. Да я знаю что про МОРдоБОЙ уже были посты, но фсе это не то!

[Alar]

Был исходник... 2 недели писал...

Сам не пробовал сделать? очень жизнеутверждает.

P.S. сейчас кода нет.

[Cezar]

Сам не пробовал сделать? очень жизнеутверждает.

Пробовал, не выходит, а сроки поджимают...

P.S. сейчас кода нет.

А эт очнь обнадежывает.

[rpy3uH]

расслабься, у него этого кода больше не будет.

[Cezar]

расслабься, у него этого кода больше не будет.

В смысле?

Ладн, мож кто-нить подскажет как написать движок к морбою???
Меня только направить нужно в правильную сторону, а дальше как-то сам сделаю...

[zetrix]

Держи, нашёл в своих архивах... Случайно.
Требование: DelphiX

Блин... только потом прочитал, что на pascal-e надо. Ну... может кому-нибудь пригодится.

[Cezar]

Может когда-то и пригодится, но не сейчас эт точно :/ .
И ешшэ одно: подходят и исходники с/с++ !!!

ЗЫ. Да хоть на Фортране, только в текстовом режиме(лучше под Винды)...

[Fainder]

Я писал эту ботву лет сем назад. Исходники к сожалению не выжили (сдох винт), но концепция в общем такова:
1: поля - двухмерные интегерные массивы от 0 до 11, задаёшь значения, например 0 - пусто, 1 - стреляли, 2 - корабль, 3 - корабль подбит/сбит.
На экране псевдографика и метки А-К, 1-10. Ячейки 0 и 11 нужны для размещения кораблей, они не видимы (см. дальше).
2. размещение кораблей. Предлагай по очереди, далее ввод с клавы координат и проверка совместимости (т.е. не установлен ли рядом корабль). Для проверки совместимости нужно опрашивать соседние клетки. именно для этого нужны 0 и 11.
3. Ход компьютера. Задаёшь сложность (например от 1 до 10) и используешь это, как коэффициент. Дальше случайный выбор умножаешь на коэф. и, если да, то комп ищет ближайший твой корабль, если нет - стреляет случайно. Это первый выстрел. Если не добил, то обшариваешь рядом.
В общем так, жаль, что исходники не выжили

[Cezar]

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

Я писал эту ботву лет сем назад. Исходники к сожалению не выжили (сдох винт), но концепция в общем такова:
1: поля - двухмерные интегерные массивы от 0 до 11, задаёшь значения, например 0 - пусто, 1 - стреляли, 2 - корабль, 3 - корабль подбит/сбит.
На экране псевдографика и метки А-К, 1-10. Ячейки 0 и 11 нужны для размещения кораблей, они не видимы (см. дальше).
2. размещение кораблей. Предлагай по очереди, далее ввод с клавы координат и проверка совместимости (т.е. не установлен ли рядом корабль). Для проверки совместимости нужно опрашивать соседние клетки. именно для этого нужны 0 и 11.
3. Ход компьютера. Задаёшь сложность (например от 1 до 10) и используешь это, как коэффициент. Дальше случайный выбор умножаешь на коэф. и, если да, то комп ищет ближайший твой корабль, если нет - стреляет случайно. Это первый выстрел. Если не добил, то обшариваешь рядом.
В общем так, жаль, что исходники не выжили

Гм...
Потроху начинаю вникать, объяснил неплохо.
Ладн, с этим как-то разберусь, хуже будет с расстановкой, так как она должна быть автоматической .
Комп должен расставлять корабли рандомайзом, шобы не стыкалить, эт уже прабл для меня...

[Alar]

Я делал так
0 - вода.
1 - одинарный корабль.
2 2 - двойной.
3 3 3 - тройной
4 4 4 4 - четверной