Как сделать управляемый интерфейс?

Question

[Макар Герасимов]

Доброго вечера. Столкнулся с проблемой под названием "курсовая работа". Тема гласит: "написать игру 'Балда'". Собственно приступил к написанию интерфейса, разработал класс который рисует при помощи модуля GraphABC шахматную сетку 5x5.

Суть игры: есть два игрока, изначально дается рандомное слово, в нем необходимо найти другое слово или слово + символ в пустой клетке.

Собственно проблема: Ячейки отрисовываю, но контролировать их не могу. Например что бы игрок мог воспользоваться клавишами (UP,DOWN,LEFT,RIGHT) и перемещать курсор(просто квадратик другого цвета) по сетке и если ячейка пуста, была возможность прописать букву. А после как-то записать полученное новое слово (что бы произвести поиск по словарю)



Project:

uses GraphABC, ABCButtons, System, UserFriendly, Canvas;

 
var
  gameBtn: ButtonABC;
  
{Сгенерировать игровой экран}
procedure initGamePage();
begin
  SetWindowSize(500,400); 
  gameBtn.Destroy;
  Window.Clear();
  
  var number := 5;
  var canvas := new RowRectanglesStamp(30,30,50,50,number);
  
  canvas.Stamp;
  for var i:=1 to number-1 do
  begin
    canvas.y += canvas.height - 1;
    canvas.Stamp;
  end;
end; {initGamePage}
{Сгенерировать стартовый экран}
procedure initStartPage();
begin
  SetWindowSize(250,200);
  SetWindowIsFixedSize(true);
  SetWindowCaption('Игра: Балда (вер. 1)');

  gameBtn := generateButton('СТАРТ', 20, clwhite, true, true, 0, 20);
  gameBtn.OnClick := initGamePage;
  
  addText('Игра Балда', 20, clred, false, true, 0, 50);
end; {initStartPage}

begin
  initStartPage;
end.

UserFriendly.pas:

unit UserFriendly;

interface
  uses GraphABC, ABCButtons;
  function generateButton(name: string; fontSize: integer; color: System.Drawing.Color; hCenter: boolean := false; vCenter: boolean := false; x: integer := 0; y: integer := 0): ButtonABC;
  procedure addText(str: string; fontSize: integer; color: System.Drawing.Color; hCenter: boolean := false; vCenter: boolean := false; x: integer := 0; y: integer := 0);
implementation
{Добавление кнопки на полотно}
function generateButton: ButtonABC;
begin
  Font.Size := fontSize;
  var textWidth := TextWidth(name);
  var textHeight := TextHeight(name);
  
  if vCenter=true then
    x += (Window.Width - textWidth) div 2;
  
  if hCenter=true then
    y += (Window.Height - textHeight) div 2;
    
  Result := new ButtonABC(x,y,textWidth,textHeight,name,color);
end; {generateButton}
{Добавление текста на полотно}
procedure addText;
begin
  Font.Size := fontSize;
  Font.Color := color;

  var textWidth := TextWidth(str);
  var textHeight := TextHeight(str);
  
  if vCenter=true then
    x += (Window.Width - textWidth) div 2;
  
  if hCenter=true then
    y += (Window.Height - textHeight) div 2;
  
  TextOut(x, y, str);
end; {addText}

end.

Canvas.pas:

unit Canvas;

interface
  uses GraphABC;
  type 
    RectangleStamp = class
      x,y,w,h: integer;
      constructor (xx,yy,ww,hh: integer);
      begin
        x := xx; y := yy;
        w := ww; h := hh;
      end;
      procedure Stamp;
      begin
        Rectangle(x,y,x+w,y+h);
      end;
    end;
  
  type
    RowRectanglesStamp = class
      x,
      y,
      width,
      height,
      number: integer;
      constructor (_x,_y,_width,_height,_number: integer);
      begin
        x := _x;
        y := _y;
        width := _width;
        height := _height;
        number := _number;
      end;
      procedure Stamp;
      begin
        var _result := new RectangleStamp(x,y,width,height);
        _result.Stamp;
        for var i:=1 to number-1 do
        begin
          _result.x += _result.w - 1;
          _result.Stamp;
        end;
      end;
    end;
  implementation
end.

Answer 1

[RedHairOnMyHead]

Слишком уж заморочисто делать Балду через словарь. Проще сделать проверку другим игроком: игрок А ввел слово и когда нажал кнопку "ОК", у игрока Б высвечивается текст бокс с выбором, применять ли введенное слово или нет (т.е. существует ли такое слово или нет).

Ни разу не видел чтобы кто-то пользовался UP, DOWN - стрелками. Юзайте мышь. Отслеживайте просто координаты попадания курсора в клетку ячейку, и если она пуста, подсвечивайте каретку для того чтобы пользователь мог ввести букву. А далее запускайте выбор слова поочередным кликом по соседним буквам до тех пор, пока не будет нажата кнопка "ОК", ну или применить.

Comments

[Макар Герасимов]

Получается, предлагаете сделать так: Если игрок 1 ввел слово, ход переключился на второго игрока. Если он подтверждает правильность слова, ему засчитываем балл, а второму игроку разрешаем сделать свой ход? Но подскажите, как тогда сделать возможность щелчка по каждой ячейке и что бы из суммы активных ячеек собиралось слово?

[RedHairOnMyHead]

Макар Герасимов: Да, вы все верно поняли.
Игрок кликнул в каком-то месте поля (допустим ячейка 40х40 пикселей и все поле 8х8 таких ячеек), делаем проверку на координаты курсора, тем самым вычисляя, в какой ячейке произошел клик.
Все поле должно быть представлено в виде двумерного массива и когда игрок ввел букву, нужно заносить ее в этот массив.
Далее когда буква есть, нужно выбрать слово: игрок поочередно щелкает в желаемые ячейки (нужно проверять, чтобы они были соседними) и буква из каждой ячейки (здесь так же нужно искать куда он кликнул и теперь не заносить в ячейку букву, а доставать) будет заноситься в новый одномерный массив. Таким образом когда игрок жмет "ОК", на экран выводится слово из этого одномерного массива и задается вопрос второму игроку.

Касательно кода, сложновато так объяснить, у меня есть поиск ячейки (куда кликнул игрок), но я писал на плюсах. Можешь написать на почту (в профиле), помогу уже с алгоритмом. Тут сложно объяснять что-то)

[Макар Герасимов]

Ryuk ...: написал вам на почту !

Answer 2

[Mercury13]

Дело тут вот в чём. Оконные ОС работают в событийном режиме: пришло событие «перерисовать», мы рисуем; пришло событие «щёлкнуть», мы щёлкаем. Но поскольку учебным программам надо быть предельно простыми, куда удобнее написать: нарисовать, дождаться нажатия клавиши — как во времена ДОС, когда процессорное время было полностью вашим от точки входа до передачи управления, когда был прямой доступ к видеопамяти… Для консольных программ всю эту событийщину скрыли, хитрым образом на уровне ОС засинхронизировав два потока: один отвечает за поддержание консольного окна, второй — собственно программа. А Pascal.ABC пришлось наладить простейшую эмуляцию, сделав «видеопамять» в виде внутреннего буфера.

Так что придётся подключать события — см. pascalabc.net/downloads/pabcnethelp/scr/PABCUnits/... — и смотреть, какие в этой абстракции найдутся дыры. А они, по Спольскому, будут обязательно: TCP — это протокол гарантированной доставки, но кто её гарантирует, когда физически выдернули провод…

Comments

[Макар Герасимов]

Подскажите пожалуйста, а как составить слово из отдельных выбранных ячеек? Представляю некий массив, который хранит в себе текущие значения ячеек и на этом все :(

[Mercury13]

Тут уже надо переходить на событийное программирование, наладив такую вещь, как «состояние игры». События переводят игру из одного состояния в другое и соотвествующим образом перерисовывают окошко.

[Mercury13]

> Подскажите пожалуйста, а как составить слово из отдельных выбранных ячеек?
На каком уровне? На уровне интеллекта? На уровне интерфейса? На уровне управления вводом?

На уровне управления вводом — в состояние придётся ввести и тот кусок слова, который выбран игроком. Например, массив из кортежей (X, Y), количество реально задействованных позиций и введённая игроком буква (если есть пустая позиция; по нажатию кнопки «стереть» её придётся занулить, если зануляем ту букву, что ввёл игрок).

На уровне интерфейса есть два варианта ввода, и какой лучше — покажет тестирование на прототипах. 1) Установить букву, затем набрать слово — как на бумаге, зато больше нажатий; 2) Щёлкать на клетках по одной; если попали на пустую — открывается окошечка с буквами алфавита.

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

[Mercury13]

Я бы интеллект начал вот с чего. Завёл бы бор (хитрую разновидность поискового дерева, см. алгоритм Ахо-Корасик) префиксов длины не менее floor(len/2) (в обратном порядке) и суффиксов (в прямом порядке) словаря (как эффективно этот бор сжать — отдельный вопрос). Каждый узел бора нагружен списком тех слов, которые имеют этот префикс или суффикс. Делаем перебор по возможным точкам, куда ставить; из точки делаем перебор по имеющимся буквам, руководствуясь бором и битовым массивом: использована точка или нет.

Если нарвались на нагруженную вершину, для каждого слова из списка проверяем, префикс это или суффикс, и ищем на поле недостающую (короткую) часть: например, нашли последовательность ИВС, это даёт слова СВИНЬЯ, СВИНЕЦ, СВИНИНА (а вот СВИНОМАТКА уже не будет — вписаны только «длинные» префиксы/суффиксы). Находим на поле суффикс ЕЦ и со спокойной душой вписываем Н, получаем слово СВИНЕЦ.

[Mercury13]

Далее, хороший интеллект должен проверить: а не открылись ли мы? Может ли быть такое, что мы написали КОТ и дали возможность сопернику ввести СКОТ? Такие случаи надо отлавливать.

[Mercury13]

Но это уже исследовательская работа — и это ваше дело. Сделать бы бота, который просто играет по правилам…

[Mercury13]

Придумал 3-й вариант интерфейса, самый труднореализуемый, но и самый эффективный: вводим слово, после этого система делает перебор и расставляет в клетках возможные буквы. Щёлкаем на клетке — слово вписано. Если в одной клетке несколько вариантов — пишет «?», по щелчку открывается меню с вариантами букв.

[Mercury13]

Ну и не забывай про слова, которые уже были — их надо помечать и запрещать.

[Макар Герасимов]

Mercury13: спасибо за подробное описание множества вариантов. Буду думать как реализовать.

Answer 3

[Евгений Шатунов]

Макар Герасимов , такс, для начала отключись от рисования и восприятия процесса глазами.

Первое, что тебе надо - это модель игрового поля. Модель - от слова "данных". В первую очередь тебе надо представить игру в виде модели данных, а не визуального представления. Вот давай пробуем...

Тетрадный лист в клетку напоминает что? - правильно, двухмерный массив. Стало быть, игровое поле удобно представить в виде двухмерного массива. А какой тип ячейки массива? - раз у нас игра про слова, которые по буквам пишутся в клетках, то, пожалуй, в ячейках надо хранить символы.

Крутяк, придумали игровое поле, в котором хранятся символы! Только заметь, символа в ячейке может и не быть.

Хорошо, идем дальше. У нас есть два игрока, которые могут писать слова.
Ага... Если писать, то надо знать - куда. Пользователю нужно указание, куда он сейчас будет писать - указать ячейку, в которую он сейчас поставит символ. А ячейки у нас в двухмерном массиве. Удобнее всего будет хранить координаты текущей ячейки пользователя!

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

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

Когда пользователь вводит слово, нужно ограничивать движение его выделения только соседними клетками. Поставил пользователь первый символ, все, он вводит слово.

И заметь, это все полностью отвязано от графического представления. Сперва всегда надо продумывать именно модель данных.
На данном этапе описания у нас есть поле, пользователи с их выделениями и введенные слова. Модель данных дает полное представление как ее представлять пользователю.

Ну разве проблема отрисовать двухмерный массив символов? А по координатам закрасить другим цветом выделенную пользователем ячейку?

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

Когда твоя модель данных игры будет хоть немного готова, ее можно будет без труда хоть в консоль рисовать, хоть на поверхности окна.
Модель - это набор классов со связями. Поле, игра, игрок, ход, слово, словарь, таблица введенных слов... символ слова(?). Полный список сущностей ты знаешь лучше меня. Просто думай на уровне данных. Тогда и управлять ими сможешь. :)

Comments

[Макар Герасимов]

Большое спасибо, только тут даже немного проще получается. Игрок должен найти другое слово в заранее подставленное при инициализации игры. Но при этом у него есть возможность подставить один символ в одну ячейку. (таковы правила балды)

[Макар Герасимов]

И получается если это двухмерный массив, то в качестве его значения - одномерный массив в котором позиция ячейки x,y + символ. Вот только как заранее формировать этот двухмерный массив, когда ячейки не отрисованы и позиции их еще не знаем. Значит правильно ли я понимаю, на момента формирования начального двухмерного массива, нужно сразу отрисовывать ячейки? Или достаточно вручную указать ширину ячейки и множить ее каждый раз на индекс ?

[Евгений Шатунов]

Макар Герасимов , элементом игрового поля (двухмерного массива) может быть и объект (представлять элемент массивом - лишнее), в котором может храниться некоторая статистика. Минимально необходимыми являются только два поля - символ и булево значение занятости поля (это значение можно выразить и через нулевое значение символа).

Касательно отрисовки поля. Странно что ты задаешься этим вопросом. Визуально поле представлено регулярной сеткой, стало быть индекса ячейки двухмерного массива уже достаточно для правильной отрисовки на канве. Есть ширина клетки, есть (row/col)_index ячейки игрового поля, из этих данных никакого труда не составит выяснить квадрат ячейки на канве. Во время рисования этой ячейки можно спросить активного пользователя, не выделяет ли он именно эту ячейку и залить задник ячейки цветом выделения если надо.

[Nexeon]

Жень, где и как научиться также думать и уметь составлять модели данных? :)