Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > разработка игр, графический дизайн и моделирование > Gamedev - cоздание игр: Unity, OpenGL, DirectX
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Закрытая тема
Ваша тема закрыта, почему это могло произойти? Возможно,
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу.
Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста".
Название темы слишком короткое или не отражает сути вашего вопроса.
Тема исчерпала себя, помните, один вопрос - одна тема
Прочитайте правила и заново правильно создайте тему.
 
Опции темы Поиск в этой теме
Старый 11.01.2007, 22:50   #1
Rozalinda
Пользователь
 
Аватар для Rozalinda
 
Регистрация: 11.01.2007
Сообщений: 54
По умолчанию Игрушка. Принцип подобен игре Линии.

Пишу игрушку. Принцип подобен игре Линии. не хочется реализовывать поиск линий одинакового цвета в тупую перебором, а в делфе уже год как не работала, ни одного алгоритма путнего не помню. Поделитесь предложениями
P.S. не студент (училась на программиста, но вынуждена была бросить ), прога любительская...
нашедшего выход - затаптывают
Rozalinda вне форума
Старый 12.01.2007, 09:34   #2
-=DeS=-
Форумчанин
 
Аватар для -=DeS=-
 
Регистрация: 20.12.2006
Сообщений: 135
По умолчанию

где находятся шарики?
writeln('Hello Dude!!!');
-=DeS=- вне форума
Старый 12.01.2007, 21:04   #3
Rozalinda
Пользователь
 
Аватар для Rozalinda
 
Регистрация: 11.01.2007
Сообщений: 54
По умолчанию

Поле состоит из разноцветных шариков, при определенных перемещениях, если составляется полоска более трех шариков одного цвета, она исчезает. Вот. Не хочется при каждом перемещении прочесывать все шарики...
нашедшего выход - затаптывают
Rozalinda вне форума
Старый 12.01.2007, 22:03   #4
-=DeS=-
Форумчанин
 
Аватар для -=DeS=-
 
Регистрация: 20.12.2006
Сообщений: 135
По умолчанию

Да я спрашиваю где хранится это поле, массив или ещё что?
writeln('Hello Dude!!!');
-=DeS=- вне форума
Старый 12.01.2007, 23:51   #5
Rozalinda
Пользователь
 
Аватар для Rozalinda
 
Регистрация: 11.01.2007
Сообщений: 54
По умолчанию

в задумке был массив
нашедшего выход - затаптывают
Rozalinda вне форума
Старый 13.01.2007, 00:25   #6
AVer
Андрей
Форумчанин
 
Аватар для AVer
 
Регистрация: 21.11.2006
Сообщений: 457
По умолчанию

Вот код:
Код:
Const N = 10;

Type Lines = 0..5;

Var Mas:Array[1..N,1..N] of Lines;

Function FindVert:Boolean;
Var I,J:Integer;
    A:Boolean;
Begin
For I:=1 to N-2 do
For J:=1 to N-2 do
If (Mas[I,J] = Mas[I+1,J]) and (Mas[I+1,J] = Mas[I+2,J]) Then
Begin
Mas[I,J] := 0;
Mas[I+1,J] := 0;
Mas[I+2,J] := 0;
A:=True;
End;
FindVert:=A;
End;

Function FindHor:Boolean;
Var I,J:Integer;
    A:Boolean;
Begin
For I:=1 to N-2 do
For J:=1 to N-2 do
If (Mas[I,J] = Mas[I,J+1]) and (Mas[I,J+1] = Mas[I,J+2]) Then
Begin
Mas[I,J] := 0;
Mas[I,J+1] := 0;
Mas[I,J+2] := 0;
A:=True;
End;
FindHor:=A;
End;

Procedure Find;
Begin
If FindHor or FindVert Then
...  //Здесь процедуры добавления очков и перерисовки поля
end.
Поле - N x N. Цветов - 5 (Lines). Lines = 0 - Нет шара.
Процедуру Find надо вызывать после процедуры передвижения шаров.
ICQ: 5311314
[SIGPIC][/SIGPIC]
AVer вне форума
Старый 13.01.2007, 05:51   #7
-=DeS=-
Форумчанин
 
Аватар для -=DeS=-
 
Регистрация: 20.12.2006
Сообщений: 135
По умолчанию

Вот тебе код игры Lines думаю поможет в написании...
Вложения
Тип файла: zip Lines.zip (40.9 Кб, 58 просмотров)
writeln('Hello Dude!!!');
-=DeS=- вне форума
Старый 13.01.2007, 07:58   #8
Virtson
Владимир М.
Участник клуба
 
Аватар для Virtson
 
Регистрация: 30.10.2006
Сообщений: 1,289
По умолчанию

шарик встает в определенную клетку.
она на пересещении строки, столбца.
вот их и нуждо проверять ..
(возможно, еще диагонали - по правилам игры)
Берегите друг друга!
Virtson вне форума
Старый 14.01.2007, 21:05   #9
Rozalinda
Пользователь
 
Аватар для Rozalinda
 
Регистрация: 11.01.2007
Сообщений: 54
По умолчанию

Пасиб, ребята, агромное теперь есть с чем поразбираться
нашедшего выход - затаптывают
Rozalinda вне форума
Старый 14.01.2007, 22:00   #10
-=DeS=-
Форумчанин
 
Аватар для -=DeS=-
 
Регистрация: 20.12.2006
Сообщений: 135
По умолчанию

Пожалуйста, заходи ещё!
writeln('Hello Dude!!!');
-=DeS=- вне форума
Закрытая тема


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Delphi 7 задача на графику, игрушка Agent[PNZ] Помощь студентам 2 29.04.2008 10:54
игрушка в курсовике EDG_aka_Dima Помощь студентам 2 25.05.2007 06:13