Разработка Игры Путник

@PhotOn · Регистрация: 17.05.2011

Author24 — интернет-сервис помощи студентам

Здраствуйте Все. Я давно знаком с Вашим форум))). Здесь общаются очень неплохие люди. Я новичок в программировании. Мне очень нужна помощь((( Я разрабатываю игру под названием Путник. Смысл этой игры в том, что Путник, некий объект, передвигается по квадранту и огибает препятствия. За квадрант я взял StringGrid, сам Путник как закрашенная ячейка, препятствия создаются кликом мыши по ячейке. Подскажите как реализовать движение Путника по ячейкам? И как можно с помощью двух Edit'ов изменять размер квадранта? И еще, как привязать к BitButton'у значение нажатия клавиши, и создать системное предписание, т.е. набор команд, которые можно вводить в какое-нибудь поле, и которые означают движение Путника (т.е. вводишь команды и он двигается), с возможностью ввода одновременно несколких команд. Помогите пожалуйста, заранее спасибо)))

Добавлено через 25 минут
А, забыл сказать, все это я создаю в Borland C++ Builder 6.0 )))

@koldun · 17.05.2011, 18:30

а кроме идеи игры, есть какието наработки ?

@PhotOn · 17.05.2011, 18:45 **[ТС]**

Ну настроен интерфейс программы и немного кода

@PhotOn · 17.05.2011, 18:55 **[ТС]**

LK · 17.05.2011, 19:19

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

1. как можно с помощью двух Edit'ов изменять размер квадранта?
2. как привязать к BitButton'у значение нажатия клавиши
3. создать системное предписание, т.е. набор команд, которые можно вводить в какое-нибудь поле, и которые означают движение Путника (т.е. вводишь команды и он двигается), с возможностью ввода одновременно несколких команд.

1.

C++

1 2	квадранта->Width = IntToStr(Edit1->Text); квадранта->Height = IntToStr(Edit2->Text);

2. При нажатии BitButton подставляете VK (виртуальный код) нужной клавиши клавиатуры.
3. Вводите , например, в Edit3 текст

налево направо вверх вниз

, потом заносите текст Эдита в СтрингЛист , в каждой строке - одно слово, пробегаете по нему циклом и движете Путника по условию:

C++

if (StringList->Strings[0]) { // тут у нас, предположим, "налево"
  Key = VK_LEFT;
}
else if (и т.д.) {...}

ну и еще нужно предусмотреть, чтобы

C++

1	StringList->Strings[]

всегда соотвествовало налево:

C++

1
2
3

if (StringList->Strings[i]=="налево") {
  Key = VK_LEFT;
}

как-то так

@PhotOn · 17.05.2011, 19:41 **[ТС]**

А можно еще совет насчет закрашивания ячейки и движения закрашенной ячейки плиз?)))

LK · 17.05.2011, 19:44

1. Закрашивание ячеек в StringGrid
StringGridDrawItem
2. движение куда

? я так понимаю, красить нужно ту ячейку, куда занесло Путника

@PhotOn · 17.05.2011, 19:53 **[ТС]**

Ну скажем, Путник-это закрашенная ячейка, а если нажать кнопку скажем влево, закрашивается ячейка левее, а прежняя становится белой по умолчанию :-)

LK · 17.05.2011, 20:07

1. я понял, см. п.2
2. ваш Путник, по сути, "змейка" без хвоста, реализация на форуме обсуждалась http://www.google.com.ua/searc... uk___UA420 - можно усложнить игру - например, закрашивать ячейки, где путник уже побывал , и обходить их десятой дорогой

@PhotOn · 17.05.2011, 20:11 **[ТС]**

Спасибо за информацию)))

@PhotOn · 19.05.2011, 20:50 **[ТС]**

C++

void __fastcall TForm1::BitBtn2Click(TObject *Sender)
{
  StringGrid1->Canvas->Brush->Color=1234;
  StringGrid1->Canvas->FillRect(StringGrid1->CellRect(0,0));
  StringGrid1->Canvas->Brush->Color=4321;
}
//---------------------------------------------------------------------------
 
 
 
void __fastcall TForm1::StringGrid1Click(TObject *Sender)
{
StringGrid1->Canvas->Brush->Color=clBlack;
StringGrid1->Canvas->FillRect(StringGrid1->CellRect(StringGrid1->Col,StringGrid1->Row));
 
}

Добавлено через 13 минут
Вот пока это все, что у меня есть из кода проги. Получается, что кликом мыши ячейка закрашивается в черный цвет. А при нажатии BitBtn2 закрашивается в красный цвет левая верхняя ячейка. Надо бы как-нибудь сделать так, чтобы после нажатия BitBtn2 закрашенная клетка могла пошагово двигаться по ячейкам(т.е. при нажатии на клавишу ячейка сдвигается на одну клетку). И не могла ходить по черным ячейкам. Помогите пожалуйста)))

@Grey · 21.05.2011, 01:38

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

(т.е. при нажатии на клавишу ячейка сдвигается на одну клетку). И не могла ходить по черным ячейкам.

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

@PhotOn · 21.05.2011, 14:41 **[ТС]**

А как это будет в виде кода?

@Grey · 21.05.2011, 20:20

C++

TForm1 *Form1;
int a[5][5]={{0,0,0,0,0}, //игровое поле 0-пусто 1-стена
             {0,0,0,1,0},
             {0,0,0,1,0},
             {0,0,1,0,0},
             {0,0,0,0,0}};
int b[2]={0,0};           //координаты игрока
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
//тут я при включении перерисовываю поле---------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{
for (int i=0;i<5;i++)
{
 for (int j=0;j<5;j++)
 {
  if (a[i][j]==0)
  {
   StringGrid1->Canvas->Brush->Color=clBlue;
   StringGrid1->Canvas->FillRect(StringGrid1->CellRect(j,i));
  }
  if (a[i][j]==1)
  {
   StringGrid1->Canvas->Brush->Color=clBlack;
   StringGrid1->Canvas->FillRect(StringGrid1->CellRect(j,i));
  }
  if (a[i][j]==2)
  {
   StringGrid1->Canvas->Brush->Color=clRed;
   StringGrid1->Canvas->FillRect(StringGrid1->CellRect(j,i));
  }  
 }
}
}
//вверх---------------------------------------------------------------------
void __fastcall TForm1::Button3Click(TObject *Sender)
{
if (b[0]>0 && a[b[0]-1][b[1]]==0)//если не вышли за поле и следующая свободна
{
 a[b[0]][b[1]]=0;   //обнуляем где стоим
 b[0]=b[0]-1;       //записываем новые координаты
 a[b[0]][b[1]]=2;   //ставим туда игрока
 FormPaint(Sender); //перерисовываем
}
}
//вниз----------------------------------------------------------------------
void __fastcall TForm1::Button6Click(TObject *Sender)
{
if (b[0]<5 && a[b[0]+1][b[1]]==0)
{
 a[b[0]][b[1]]=0;
 b[0]=b[0]+1;
 a[b[0]][b[1]]=2;
 FormPaint(Sender);
}
}
//влево---------------------------------------------------------------------
void __fastcall TForm1::Button4Click(TObject *Sender)
{
if (b[1]>0 && a[b[0]][b[1]-1]==0)
{
 a[b[0]][b[1]]=0;
 b[1]=b[1]-1;
 a[b[0]][b[1]]=2;
 FormPaint(Sender);
}
}
//вправо--------------------------------------------------------------------
void __fastcall TForm1::Button5Click(TObject *Sender)
{
if (b[1]<5 && a[b[0]][b[1]+1]==0)
{
 a[b[0]][b[1]]=0;
 b[1]=b[1]+1;
 a[b[0]][b[1]]=2;
 FormPaint(Sender);
}
}
//ставим игрока-------------------------------------------------------------
void __fastcall TForm1::FormCreate(TObject *Sender)
{
a[b[0]][b[1]]=2;
FormPaint(Sender);
}
//перерисовка---------------------------------------------------------------
void __fastcall TForm1::FormPaint(TObject *Sender)
{
for (int i=0;i<5;i++)
{
 for (int j=0;j<5;j++)
 {
  if (a[i][j]==0)
  {
   StringGrid1->Canvas->Brush->Color=clBlue;
   StringGrid1->Canvas->FillRect(StringGrid1->CellRect(j,i));
  }
  if (a[i][j]==1)
  {
   StringGrid1->Canvas->Brush->Color=clBlack;
   StringGrid1->Canvas->FillRect(StringGrid1->CellRect(j,i));
  }
  if (a[i][j]==2)
  {
   StringGrid1->Canvas->Brush->Color=clRed;
   StringGrid1->Canvas->FillRect(StringGrid1->CellRect(j,i));
  }
 }
}
}

@PhotOn · 22.05.2011, 11:18 **[ТС]**

Спасибо большое :-)

@PhotOn · 01.06.2011, 16:34 **[ТС]**

А нельзя сделать так, чтобы весь StringGrid был как эта матрица? А то размерность менять надо(я это умею). Я тут пытался химичить с этим, но закраска не получается.

C++

__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
int W=5,H=5;
int z,x,N;
//---------------------------------------------------------------------------
void __fastcall TForm1::StringGrid1Click(TObject *Sender)
{
StringGrid1->Canvas->Brush->Color=clBlack;
StringGrid1->Canvas->FillRect(StringGrid1->CellRect(StringGrid1->Col,StringGrid1->Row));
StringGrid1->Cells[StringGrid1->Col][StringGrid1->Row]=="1";
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Button1Click(TObject *Sender)
{
W=StrToInt(Edit1->Text);
H=StrToInt(Edit2->Text);
StringGrid1->ColCount=W;
StringGrid1->RowCount=H;
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::FormCreate(TObject *Sender)
{
N=1000;
Edit1->Text=FloatToStr(W);
Edit2->Text=FloatToStr(H);
StringGrid1->ColCount=W;
StringGrid1->RowCount=H;
for(z=0;z<N;z++)
for(x=0;x<N;x++)
StringGrid1->Cells[z][x]=IntToStr(0);
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::FormPaint(TObject *Sender)
{
for (int i=0;i<5;i++)
{
 for (int j=0;j<5;j++)
 {
  if (StringGrid1->Cells[StringGrid1->Col][StringGrid1->Row]=="0")
  {
   StringGrid1->Canvas->Brush->Color=clBlue;
   StringGrid1->Canvas->FillRect(StringGrid1->CellRect(StringGrid1->Col,StringGrid1->Row));
  }
  if (StringGrid1->Cells[StringGrid1->Col][StringGrid1->Row]==1)
  {
   StringGrid1->Canvas->Brush->Color=clBlack;
   StringGrid1->Canvas->FillRect(StringGrid1->CellRect(StringGrid1->Col,StringGrid1->Row));
  }
  if (StringGrid1->Cells[StringGrid1->Col][StringGrid1->Row]==2)
  {
   StringGrid1->Canvas->Brush->Color=clRed;
   StringGrid1->Canvas->FillRect(StringGrid1->CellRect(StringGrid1->Col,StringGrid1->Row));
  }
 }
}
}
//---------------------------------------------------------------------------

@pomkalk · 01.06.2011, 18:44

А почему ты решил все это в стринггриде делать????
С массивом самое правильное решение в данной ситуации, а брось ты этот стринггрид, а рисуй канвой на форме или еще где тебе удобно!!!

@PhotOn · 01.06.2011, 19:30 **[ТС]**

Ну задание такое, и с Стрингом проще, да и уже поздно что-то менять

@pomkalk · 01.06.2011, 19:53

Стринггрид, это тот же самый двух мерный массив, только ты его сразу, наглядно видишь!!!! и все!!!

LK · 01.06.2011, 21:50

PhotOn, в редакторе сообщений на панели внизу есть кнопка С++ , которая вставляет тег [CPP ]без пробелов[ /CPP] для вставки кода - поверь - использование этого простого способа очень повышает вероятность ответа на вопрос

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

C++

__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
}
int W=5,H=5;
int z,x,N;
//---------------------------------------------------------------------------
void __fastcall TForm1::StringGrid1Click(TObject *Sender)
{
StringGrid1->Canvas->Brush->Color=clBlack;
StringGrid1->Canvas->FillRect(StringGrid1->CellRect(StringGrid1->Col,StringGrid1->Row));
StringGrid1->Cells[StringGrid1->Col][StringGrid1->Row]=="1";
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Button1Click(TObject *Sender)
{
W=StrToInt(Edit1->Text);
H=StrToInt(Edit2->Text);
StringGrid1->ColCount=W;
StringGrid1->RowCount=H;
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::FormCreate(TObject *Sender)
{
N=1000;
Edit1->Text=FloatToStr(W);
Edit2->Text=FloatToStr(H);
StringGrid1->ColCount=W;
StringGrid1->RowCount=H;
for(z=0;z<N;z++)
for(x=0;x<N;x++)
StringGrid1->Cells[z][x]=IntToStr(0);
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::FormPaint(TObject *Sender)
{
for (int i=0;i<5;i++)
{
for (int j=0;j<5;j++)
{
if (StringGrid1->Cells[StringGrid1->Col][StringGrid1->Row]=="0")
{
StringGrid1->Canvas->Brush->Color=clBlue;
StringGrid1->Canvas->FillRect(StringGrid1->CellRect(StringGrid1->Col,StringGrid1->Row));
}
if (StringGrid1->Cells[StringGrid1->Col][StringGrid1->Row]==1)
{
StringGrid1->Canvas->Brush->Color=clBlack;
StringGrid1->Canvas->FillRect(StringGrid1->CellRect(StringGrid1->Col,StringGrid1->Row));
}
if (StringGrid1->Cells[StringGrid1->Col][StringGrid1->Row]==2)
{
StringGrid1->Canvas->Brush->Color=clRed;
StringGrid1->Canvas->FillRect(StringGrid1->CellRect(StringGrid1->Col,StringGrid1->Row));
}
}
}
}
//---------------------------------------------------------------------------

.
Также неплохо иметь привычку использовать фигурные скобки - {} - для определения рьласти видимости, что поверь, далеко не второстепенная вещь, например, здесь:

C++

StringGrid1->RowCount=H;
for (z=0;z<N;z++) {
  for(x=0;x<N;x++) {
    StringGrid1->Cells[z][x]=IntToStr(0);
  }
}

@PhotOn 1 / 1 / 1 Регистрация: 17.05.2011 Сообщений: 54
	22.05.2011, 11:18 [ТС]	15
	Спасибо большое :-) 0

@PhotOn 1 / 1 / 1 Регистрация: 17.05.2011 Сообщений: 54
		1
	Разработка Игры Путник 17.05.2011, 18:12. Показов 3380. Ответов 31 Метки нет (Все метки) Здраствуйте Все. Я давно знаком с Вашим форум))). Здесь общаются очень неплохие люди. Я новичок в программировании. Мне очень нужна помощь((( Я разрабатываю игру под названием Путник. Смысл этой игры в том, что Путник, некий объект, передвигается по квадранту и огибает препятствия. За квадрант я взял StringGrid, сам Путник как закрашенная ячейка, препятствия создаются кликом мыши по ячейке. Подскажите как реализовать движение Путника по ячейкам? И как можно с помощью двух Edit'ов изменять размер квадранта? И еще, как привязать к BitButton'у значение нажатия клавиши, и создать системное предписание, т.е. набор команд, которые можно вводить в какое-нибудь поле, и которые означают движение Путника (т.е. вводишь команды и он двигается), с возможностью ввода одновременно несколких команд. Помогите пожалуйста, заранее спасибо))) Добавлено через 25 минут А, забыл сказать, все это я создаю в Borland C++ Builder 6.0 ))) 0

@koldun 145 / 100 / 6 Регистрация: 11.03.2010 Сообщений: 477
	17.05.2011, 18:30	2
	а кроме идеи игры, есть какието наработки ? 0

@PhotOn 1 / 1 / 1 Регистрация: 17.05.2011 Сообщений: 54
	17.05.2011, 18:45 [ТС]	3
	Ну настроен интерфейс программы и немного кода 0

@PhotOn 1 / 1 / 1 Регистрация: 17.05.2011 Сообщений: 54
	17.05.2011, 18:55 [ТС]	4
	0

@PhotOn 1 / 1 / 1 Регистрация: 17.05.2011 Сообщений: 54
	17.05.2011, 19:41 [ТС]	6
	А можно еще совет насчет закрашивания ячейки и движения закрашенной ячейки плиз?))) 0

LK Заблокирован
	17.05.2011, 19:44	7
	1. Закрашивание ячеек в StringGrid StringGridDrawItem 2. движение куда ? я так понимаю, красить нужно ту ячейку, куда занесло Путника 1

@PhotOn 1 / 1 / 1 Регистрация: 17.05.2011 Сообщений: 54
	17.05.2011, 19:53 [ТС]	8
	Ну скажем, Путник-это закрашенная ячейка, а если нажать кнопку скажем влево, закрашивается ячейка левее, а прежняя становится белой по умолчанию :-) 0

LK Заблокирован
	17.05.2011, 20:07	9
	1. я понял, см. п.2 2. ваш Путник, по сути, "змейка" без хвоста, реализация на форуме обсуждалась http://www.google.com.ua/searc... uk___UA420 - можно усложнить игру - например, закрашивать ячейки, где путник уже побывал , и обходить их десятой дорогой 2

@PhotOn 1 / 1 / 1 Регистрация: 17.05.2011 Сообщений: 54
	17.05.2011, 20:11 [ТС]	10
	Спасибо за информацию))) 0

@Grey Тутошний я 2146 / 1201 / 225 Регистрация: 03.11.2009 Сообщений: 4,416 Записей в блоге: 2
	21.05.2011, 01:38	12
	Сообщение от PhotOn (т.е. при нажатии на клавишу ячейка сдвигается на одну клетку). И не могла ходить по черным ячейкам. Берёшь двухмерный массив по количеству ячеек. Записываешь в массив где у тебя чёрные ячейки. При нажатии на клавишу, в массиве проверяешь цвет следующей ячейки, если чёрный остаешься на месте. 1

@PhotOn 1 / 1 / 1 Регистрация: 17.05.2011 Сообщений: 54
	21.05.2011, 14:41 [ТС]	13
	А как это будет в виде кода? 0

@pomkalk 365 / 247 / 24 Регистрация: 03.04.2011 Сообщений: 558 Записей в блоге: 1
	01.06.2011, 18:44	17
	А почему ты решил все это в стринггриде делать???? С массивом самое правильное решение в данной ситуации, а брось ты этот стринггрид, а рисуй канвой на форме или еще где тебе удобно!!! 0

@PhotOn 1 / 1 / 1 Регистрация: 17.05.2011 Сообщений: 54
	01.06.2011, 19:30 [ТС]	18
	Ну задание такое, и с Стрингом проще, да и уже поздно что-то менять 0

@pomkalk 365 / 247 / 24 Регистрация: 03.04.2011 Сообщений: 558 Записей в блоге: 1
	01.06.2011, 19:53	19
	Стринггрид, это тот же самый двух мерный массив, только ты его сразу, наглядно видишь!!!! и все!!! 0