Лабиринт.

@Apmyp /7 · Регистрация: 14.10.2009

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

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

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
//---------------------------------------------------------------------------
 
#include <vcl.h>
#pragma hdrstop
 
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Button1Click(TObject *Sender)
{
     Canvas->Pen->Color=clBlack;
     Canvas->MoveTo(90,40); Canvas->LineTo(360,40);
     Canvas->LineTo(360,190); Canvas->LineTo(360,190);
     Canvas->LineTo(240,190);
     Canvas->LineTo(90,190); Canvas->LineTo(90,70);
     Canvas->MoveTo(120,70); Canvas->LineTo(120,130);
     Canvas->MoveTo(90,160); Canvas->LineTo(120,160);
     Canvas->MoveTo(150,40); Canvas->LineTo(150,70);
     Canvas->MoveTo(120,100); Canvas->LineTo(180,100);
     Canvas->LineTo(180,130);
     Canvas->MoveTo(150,130); Canvas->LineTo(150,190);
     Canvas->MoveTo(180,160); Canvas->LineTo(210,160);
     Canvas->MoveTo(240,190); Canvas->LineTo(240,160);
     Canvas->MoveTo(240,130); Canvas->LineTo(270,130);
     Canvas->MoveTo(330,130); Canvas->LineTo(330,190);
     Canvas->MoveTo(270,160); Canvas->LineTo(330,160);
     Canvas->MoveTo(330,100); Canvas->LineTo(360,100);
     Canvas->MoveTo(300,70); Canvas->LineTo(300,130);
     Canvas->MoveTo(330,40); Canvas->LineTo(330,70);
     Canvas->MoveTo(270,70); Canvas->LineTo(330,70);
     Canvas->MoveTo(180,70); Canvas->LineTo(240,70);
     Canvas->MoveTo(240,40); Canvas->LineTo(240,100);
     Canvas->LineTo(270,100);
      Canvas->MoveTo(210,70); Canvas->LineTo(210,130);
 
 
 
 
     BitBtn1->Visible=true;
     Image1->Visible=True;
     Button1->Enabled=false;
     
     BitBtn1->SetFocus();
 
 
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::BitBtn1KeyUp(TObject *Sender, WORD &Key,
      TShiftState Shift)
{
   if (Key==37 && Canvas->Pixels[BitBtn1->Left-5][BitBtn1->Top]!=clBlack)
    BitBtn1->Left-=30;
 
   if (Key==39 && Canvas->Pixels[BitBtn1->Left+25][BitBtn1->Top]!=clBlack)
    BitBtn1->Left+=30;
 
    if (Key==38 && Canvas->Pixels[BitBtn1->Left][BitBtn1->Top-5]!=clBlack)
    BitBtn1->Top-=30;
 
    if (Key==40 && Canvas->Pixels[BitBtn1->Left][BitBtn1->Top+25]!=clBlack)
    BitBtn1->Top+=30;
 
    if ((BitBtn1->Top) == (Image1->Top) && (BitBtn1->Left) == (Image1->Left))
    {Label1->Visible=True; Label1->Caption="  Òû âûéãðàë!   Èãðà îêîí÷åííà" ;
         BitBtn1->Enabled=false;}
 
}
//---------------------------------------------------------------------------

Визуально это выглядит так:

@Patch · 05.05.2010, 20:15

делаешь массив с переменными-флагами.
если флаг установлен - рисуешь стенку, если нет - не рисуешь.
хоть в цикле, хоть на каждую стенку отдельно.

по таймеру меняешь состояния флагов.

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

@Apmyp /7 · 05.05.2010, 20:53 **[ТС]**

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

C++
1
2
3
 if ((BitBtn1->Top==75) && (BitBtn1->Left==125))
{ Canvas->MoveTo(150,70); Canvas->LineTo(150,100);
  Canvas->Pen->Color=clWindow; Canvas->MoveTo(150,40); Canvas->LineTo(150,70);}

@Patch · 05.05.2010, 21:12

Сообщение от Apmyp /7

Хорошо, возник ещё вопрос, как добавить стенку, что бы после повторного нажатия клавиши она не пропала снова

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

@Apmyp /7 · 05.05.2010, 21:15 **[ТС]**

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

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

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

C++
1
2
3
 if ((BitBtn1->Top==75) && (BitBtn1->Left==125))
{ Canvas->MoveTo(150,70); Canvas->LineTo(150,100);
  Canvas->Pen->Color=clWindow; Canvas->MoveTo(150,40); Canvas->LineTo(150,70);}

@Patch · 06.05.2010, 08:00

а почему

Сообщение от Apmyp /7

Canvas->Pen->Color=clWindow;

делай по-человечески.

@Apmyp /7 · 06.05.2010, 14:25 **[ТС]**

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

а почему

делай по-человечески.

не важно какой цвет я ставлю, всёравно проблема остаётся.

@Patch · 06.05.2010, 14:34

Сообщение от Apmyp /7

всёравно проблема остаётся.

кончено остается.
делаешь-то все равно через попу.

сделай все-таки массив. и будет тебе счастье.

@alex_x_x · 06.05.2010, 14:41

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

Новые блоги и статьи Все статьи Все блоги /
Расчёт токов в цепи постоянного тока igorrr37 05.01.2026 / * Дана цепь постоянного тока с сопротивлениями и напряжениями. Надо найти токи в ветвях. Программа составляет систему уравнений по 1 и 2 законам Кирхгофа и решает её. Последовательность действий:. . .	Новый CodeBlocs. Версия 25.03 palva 04.01.2026 Оказывается, недавно вышла новая версия CodeBlocks за номером 25. 03. Когда-то давно я возился с только что вышедшей тогда версией 20. 03. С тех пор я давно снёс всё с компьютера и забыл. Теперь. . .	Модель микоризы: классовый агентный подход anaschu 02.01.2026 Раньше это было два гриба и бактерия. Теперь три гриба, растение. И на уровне агентов добавится между грибами или бактериями взаимодействий. До того я пробовал подход через многомерные массивы,. . .	Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. Programma_Boinc 28.12.2025 Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. Налог на собак: https:/ / ********/ gallery/ V06K53e Финансовый отчет в Excel: https:/ / ********/ gallery/ bKBkQFf Пост отсюда. . .
Кто-нибудь знает, где можно бесплатно получить настольный компьютер или ноутбук? США. Programma_Boinc 26.12.2025 Нашел на реддите интересную статью под названием Anyone know where to get a free Desktop or Laptop? Ниже её машинный перевод. После долгих разбирательств я наконец-то вернула себе. . .	Thinkpad X220 Tablet — это лучший бюджетный ноутбук для учёбы, точка. Programma_Boinc 23.12.2025 Рецензия / Мнение/ Перевод Нашел на реддите интересную статью под названием The Thinkpad X220 Tablet is the best budget school laptop period . Ниже её машинный перевод. Thinkpad X220 Tablet —. . .	PhpStorm 2025.3: WSL Terminal всегда стартует в ~ and_y87 14.12.2025 PhpStorm 2025. 3: WSL Terminal всегда стартует в ~ (home), игнорируя директорию проекта Симптом: После обновления до PhpStorm 2025. 3 встроенный терминал WSL открывается в домашней директории. . .	Как объединить две одинаковые БД Access с разными данными VikBal 11.12.2025 Помогите пожалуйста !! Как объединить 2 одинаковые БД Access с разными данными.

@Patch 2343 / 499 / 22 Регистрация: 01.04.2009 Сообщений: 2,200
	05.05.2010, 20:15
	делаешь массив с переменными-флагами. если флаг установлен - рисуешь стенку, если нет - не рисуешь. хоть в цикле, хоть на каждую стенку отдельно. по таймеру меняешь состояния флагов. только вот проблема: если удалять/ставить стенки случайным образом - может получиться непроходимый лабиринт. чтобы этого не возникало - нужно еще делать функцию проверки проходимости... 0

@alex_x_x бжни 2473 / 1684 / 135 Регистрация: 14.05.2009 Сообщений: 7,162
	06.05.2010, 14:41
	массив можно сделать к тому же еще и упакованным, те хранить например только левую и верхнюю грань в каждой локации (в виду избыточности полного описания) 0

Опции темы