Доработать игру

@young for best · Регистрация: 17.06.2020

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

Всем доброго дня
Нашел в интернете игру case briks (как то так).Игра отлично работает но я хотел чтобы когда блоки удаляются они занова регенерировались вместо того чтобы превратиться белый цвет. Проект оставлю ниже

@young for best · 21.06.2020, 04:57 **[ТС]**

UR1004SWL, не работает

@AzAtom · 21.06.2020, 05:16

young for best, ты в OnCreate формы вызываешь btStartGame.Click;, который включает таймер.

@young for best · 21.06.2020, 05:33 **[ТС]**

AzAtom, большое спасибо

такое ошибка и такие проблемы

@young for best · 21.06.2020, 16:57 **[ТС]**

AzAtom, можешь объяснить этот код

Pascal
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
procedure Tlevel1.SlideBricksDown;
var
  i, j, islider, jbottom, jup, k: Integer;
begin
  for j := 0 to DrawGrid1.RowCount - 1 do
    for i := 0 to DrawGrid1.ColCount - 1 do
      if ColorOfBrick[MAX_COLUMNS - 1-i , MAX_ROWS - 1-j ] = WALL_COLOR then
      begin
        islider := MAX_COLUMNS - 1 - i; jbottom := MAX_ROWS - 1 - j;
        jup:=-1; k:=jbottom - 1;
 
        while ((jup = -1) and (k > -1)) do
        begin
          if ColorOfBrick[islider, k] <> WALL_COLOR then jup := k;
          k:=k-1;
        end;
        if jup<>-1 then
          while (jup>-1) do
          begin
            ColorOfBrick[islider, jbottom]:=ColorOfBrick[islider, jup];
            ColorOfBrick[islider, jup]:=WALL_COLOR;
            jbottom:=jbottom-1; jup:=jup-1;
          end;
      end;
end;

@mr-Crocodile · 22.06.2020, 10:32

Сообщение от young for best

AzAtom, можешь объяснить этот код

я не AzAtom, но код объяснить могу.

Delphi
1
SlideBricksDown

после удаления блока квадратов одинакового цвета на поле образуются "пустоты",
в которые "падают" сверху вниз квадраты, под которыми внизу пропала "опора".
Вот это перемещение квадратов вниз и реализовано данных кодом.

Сообщение от young for best

такое ошибка и такие проблемы

Это не ошибка.
Это кто-то сделал специально - чтобы игра сразу начиналась после запуска.
Тебя раньше не смущало, что есть на поле кнопка "Начать игру", но что игра и так идёт сразу же, как открылась форма?

@young for best · 22.06.2020, 10:42 **[ТС]**

mr-Crocodile, я не AzAtom, но код объяснить могу.

Я уже сдал проект все нормально кстати спасибо тебе вот серьезно очень сильно выручил

@mr-Crocodile · 22.06.2020, 10:49

young for best, поздравляю.

Новые блоги и статьи Все статьи Все блоги /
Часы электронные Uhbif79 12.08.2026 Выкладываю программу часов. Программа позволяет: 1. Использовать системное время и дату, 2. Есть возможность вводить время и дату вручную. 3. Реализованы 2 будильника: начало и конец рабочего дня. . . .	Часы с будильником на основе класса QLCDNumber Uhbif79 12.08.2026 Всем добрый день, выкладываю программу часов с будильником на основе класса QLCDNumber. Здесь я пробовал самостоятельно создавал классы, впервые столкнулся с видимостью переменной одного класса из. . .	Установка MinGW GCC 16.2 и CMake 8Observer8 10.08.2026 VK Видео: https:/ / vkvideo. ru/ video-240781534_456239017 YouTube: eY5-5PyI9NM Текстовая версия	Неделя из жизни имитационной модели склада: мои кривые руки растут, откуда надо anaschu 10.08.2026 Неделя из жизни имитационной модели склада: как я почти написал неправильную логику и что с этим делать Работаю сейчас над учебно-рабочим проектом: строю в AnyLogic имитационную модель процессов. . .
Калькулятор для расчета родства russiannick 07.08.2026 1. Задача: Создать калькулятор для расчета родства. Родственных связей существует 8 ступеней, такие как: p - отец P - мать q - муж Q - жена b - брат B - сестра s - сын S - дочь	Мир по моей воле kumehtar 07.08.2026 Когда-то кажется, что всё просто. Ты весь такой светлый. Причиняешь добро. Борешься за справедливость в этом тёмном мире. Потом начинаешь замечать одну неприятную вещь. Почти каждый хороший. . .	Кредитный калькулятор Maks 05.08.2026 Решение задачи по прикладной информатике средствами 1С. Задача: Напишите приложение-калькулятор, которое помогает рассчитывать параметры кредита для аннуитетного и дифференцированного видов. . .	У нас сейчас поговорку "Опять 25" нужно переделать на "Опять +35". kumehtar 04.08.2026 С ностальгией вспоминаю времена моего детства, когда у нас и правда +25 - была максимальная температура летом. Раньше +25 °C реально казались вершиной жары, когда можно было весь день пропадать на. . .

@young for best 2 / 1 / 1 Регистрация: 17.06.2020 Сообщений: 134

	Доработать игру 17.06.2020, 13:46. Показов 6181. Ответов 46 Метки delphi, delphi 2010 (Все метки) Всем доброго дня Нашел в интернете игру case briks (как то так).Игра отлично работает но я хотел чтобы когда блоки удаляются они занова регенерировались вместо того чтобы превратиться белый цвет. Проект оставлю ниже 0

@young for best 2 / 1 / 1 Регистрация: 17.06.2020 Сообщений: 134
	21.06.2020, 04:57 [ТС]
	UR1004SWL, не работает 0

@AzAtom Модератор 4153 / 2362 / 814 Регистрация: 15.11.2015 Сообщений: 9,495
	21.06.2020, 05:16
	young for best, ты в OnCreate формы вызываешь btStartGame.Click;, который включает таймер. 0

@young for best 2 / 1 / 1 Регистрация: 17.06.2020 Сообщений: 134
	21.06.2020, 05:33 [ТС]
	AzAtom, большое спасибо такое ошибка и такие проблемы 0

@young for best 2 / 1 / 1 Регистрация: 17.06.2020 Сообщений: 134
	22.06.2020, 10:42 [ТС]
	mr-Crocodile, я не AzAtom, но код объяснить могу. Я уже сдал проект все нормально кстати спасибо тебе вот серьезно очень сильно выручил 0

@mr-Crocodile 3054 / 1673 / 657 Регистрация: 19.03.2019 Сообщений: 5,380
	22.06.2020, 10:49
	young for best, поздравляю. 1