Серый форум — OFF: Морской бой

Re: OFF: Морской бой

null@example.com (Arigato) — Tue, 29 Oct 2013 15:29:29 +0000

Идея умерла так и не родившись?

Re: OFF: Морской бой

null@example.com (Rumata) — Sun, 07 Apr 2013 02:35:19 +0000

Александр_, из описаний не понятные следующие моменты:
-- какой протокол передачи данных предполагается использовать
-- верно ли что реализация ориентирована в первую очередь на языки семейства AHK
-- возможно ли будет реализовать свой клиент на других скриптовых языках (например, js, perl, другие языки)

----

Лог игры должен быть простым как запись шахматной партии и информативным, чтобы можно было воспроизвести игру в пошаговом режиме - программно или вручную. Например:


координаты выстрела
попадание - например, символ ":" (двоеточие)
уничтожение - "+" (плюс), "x" (латинское икс)

Простая запись - один выстрелил на e1, другой - на k0.


e1 k0

Первый выстрелил три раза: два раза удачно на b1, a1 и мимо на c1.
Аналогичная запись для второго игрока.


b1:a1+c1 k9+h8
ba1+c1 k9h8
bac1 k9h8

Вообще-то достаточно возвращать координаты выстрелов.

Re: OFF: Морской бой

null@example.com (teadrinker) — Sun, 07 Apr 2013 00:51:20 +0000

У меня такая наработка. Для поля

; клетки записываются сверху вниз и слева направо
str := "1000000000000001010100000101000000010000111001000000000000000100001100000100000100010010000001001000"

Letters := "abcdefghij"
Area := {}   ; именованый массив для всего поля, ключи будут называться по буквам

Loop 10   ; в каждом буквенном ключе будет массив со значениями клеток
   Area[Substr(Letters, A_Index, 1)] := []

Loop, Parse, str   ; заполняем
   Area[Substr(Letters, (A_Index - 1)//10 + 1, 1)][Mod(A_Index - 1, 10) + 1] := A_LoopField

Ships := []   ; массив для кораблей

Loop 10   ; делаем в массиве 10 подмассивов, в каждом будут идентификаторы (вида "h10") клеток одного из кораблей
   Ships[A_Index] := []

i := 1
for Letter,Array in Area   ; заполняем массив кораблей, анализируя массив клеток
   for Number,Value in Array
      if Value
      {
         IsPrev := ""
         for k,v in Ships
            for n,s in v
               if ((SubStr(s, 1, 1) = Chr(Asc(Letter)-1) && SubStr(s, 2) = Number)
                  || (SubStr(s, 1, 1) = Letter && SubStr(s, 2) = Number - 1))
               {
                  v.Insert(Letter . Number), IsPrev := 1
                  break 2
               }
               
         if !IsPrev
            Ships[i++].Insert(Letter . Number)
      }

for k,v in Ships   ; смотрим, что получилось
{
   for m,n in v
      List .= (A_Index = 1 ? "" : ", ") . n
   List .= "`n"
}

MsgBox, % "Корабли:`n`n" List

Re: OFF: Морской бой

null@example.com (Александр_) — Tue, 02 Apr 2013 20:24:13 +0000

teadrinker пишет:

В общих чертах ясно, я тогда пока с графики начну.

Ну да, а я завтра уже какой-нибудь вариант сервера выложу, может ещё не совсем готовый, но работоспособный. Сегодня наверно уже не успею. Ну и пример элементарного скрипта на ahk сделаю.
upd. Прошу прощения, сегодня не смогу ничего выложить, только сейчас взялся за работу. Постараюсь закончить как можно быстрее.

Re: OFF: Морской бой

null@example.com (teadrinker) — Tue, 02 Apr 2013 20:17:33 +0000

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

Re: OFF: Морской бой

null@example.com (Александр_) — Tue, 02 Apr 2013 20:07:03 +0000

teadrinker пишет:

А в каком виде клиент должен подавать серверу свою расстановку

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

teadrinker пишет:

и как сервер будет определять, что корабль убит?

Это проблемы сервера(т.е. реализации). Я весь код клиента выложу вместе с исполняемым файлом.

Re: OFF: Морской бой

null@example.com (teadrinker) — Tue, 02 Apr 2013 19:48:33 +0000

Ну ладно, это не критично. А в каком виде клиент должен подавать серверу свою расстановку, и как сервер будет определять, что корабль убит?

Re: OFF: Морской бой

null@example.com (Александр_) — Tue, 02 Apr 2013 19:13:22 +0000

teadrinker пишет:

Можно и так, но если в ключи Area1 и Area2 писать все поля, как раз таки лог и получится гораздо больше. Может, проще придумать другой способ занесения в массив?

Ну процентов на 15 увеличится. Просто запись вида "Area1 = A1,B2B4,C7C10" будет не так удобно парсить.

Re: OFF: Морской бой

null@example.com (teadrinker) — Tue, 02 Apr 2013 18:38:28 +0000

Можно и так, но если в ключи Area1 и Area2 писать все поля, как раз таки лог и получится гораздо больше. Может, проще придумать другой способ занесения в массив?

Re: OFF: Морской бой

null@example.com (Александр_) — Tue, 02 Apr 2013 18:17:25 +0000

teadrinker пишет:

Я предложил ini, потому что в AHK с ними просто работать — указываешь название секции, название ключа и парсишь/изменяешь/добавляешь значение.

Я тоже про AHK_L писал, просто я боюсь, что лог окажется большого размера. Давай тогда попробуем с ini, если что поменяем формат. Я думаю файл будет примерно так выглядеть:

[general]
id1 = botVasya
id2 = MegaBotV101
TotalRounds = 100
CurrentRounds = 23
Score = 11-12

[Round1]
Area1 = ...
Area2 = ...
First = 1
Steps = 1A8M,2B9W,2B10K,...
[Round2]
...

1A8M - первый игрок выстрелил по A8 и промахнулся. Игрок указан чтобы было понятно чей ход, если писать ходы в разные ключи то будет непонятен порядок.

teadrinker пишет:

Ты, наверное, как-то по-своему всё это видишь. Зачем заносить всё поле, если можно занести только занятые клетки?

Я это вижу так:

Area := Object()
Loop, Parse, InputVar
   Area[%A_Index%//10+1][Mod(%A_Index%,10)+1] = %A_LoopField%

Дальше с Area удобно работать.

Re: OFF: Морской бой

null@example.com (teadrinker) — Tue, 02 Apr 2013 17:42:20 +0000

Александр_ пишет:

А это точно будет удобно? придётся ведь при каждом обновлении перечитывать весь файл.

Я предложил ini, потому что в AHK с ними просто работать — указываешь название секции, название ключа и парсишь/изменяешь/добавляешь значение. Как в других языках, не знаю, будет ли так же удобно — тебе виднее (кстати, никто пока на vbs не подписывался играть).

Александр_ пишет:

И вместо расположения кораблей проще всё игровое поле писать, его ведь потом всё равно в массив заносить.

Ты, наверное, как-то по-своему всё это видишь. Зачем заносить всё поле, если можно занести только занятые клетки?

Re: OFF: Морской бой

null@example.com (Александр_) — Tue, 02 Apr 2013 17:28:44 +0000

teadrinker пишет:

Что-то типа ini-файла можно.

А это точно будет удобно? придётся ведь при каждом обновлении перечитывать весь файл. Может лучше дать возможность последовательной обработки? Чтобы всю начальную информацию о партии и раунде можно было получить регулярным выражением, а ходы через Loop. А добавление новых данных удобно проверять через File.AtEOF.
И вместо расположения кораблей проще всё игровое поле писать, его ведь потом всё равно в массив заносить.

Re: OFF: Морской бой

null@example.com (teadrinker) — Tue, 02 Apr 2013 17:06:38 +0000

Да, вместо 10 можно 0 для простоты.

Re: OFF: Морской бой

null@example.com (teadrinker) — Tue, 02 Apr 2013 16:55:24 +0000

Ещё ключ "first=[идентификатор клиента]" — кто ходил первым.

Re: OFF: Морской бой

null@example.com (teadrinker) — Tue, 02 Apr 2013 16:46:16 +0000

Александр_ пишет:

Кстати формат лога какой будет?

Что-то типа ini-файла можно. Заголовок секции — идентификатор игры. Далее два ключа типа "[идентификатор клиента][pos]= ..." и далее позиции кораблей через разделитель. Два ключа "[идентификатор клиента][game]= A8M,B9W,B10K,...". Ключ "Winner=[идентификатор клиента]". Как-то так.