|
2D-программирование Вопросы, касающиеся двумерного программирования |
05.08.2009, 21:04
|
#16
|
Бывалый
Регистрация: 06.04.2009
Сообщений: 612
Написано 276 полезных сообщений (для 858 пользователей)
|
Ответ: Чтение файла
а если сделать это самому будет ещё круче, поверьте...)
Если будет время то допишу свой пример с Вашими потребностями...
|
(Offline)
|
|
05.08.2009, 22:25
|
#17
|
Ференька
Регистрация: 26.01.2007
Адрес: улица Пушкина дом Колотушкина
Сообщений: 10,742
Написано 5,461 полезных сообщений (для 15,675 пользователей)
|
Ответ: Чтение файла
Вот уже много дней наблюдаю за этим топиком.
Таки решил помочь.
Работы на 10 минут, а флуда на 2 страницы.
Автор, научись уже включать мозги
FFFFFFFFFFFFFFUUUUUUUUUUUUUUUUUUUU-
__________________
Мои проекты:
Анальное Рабство
Зелёный Слоник
Дмитрий Маслов*
Различие**
Клюква**
* — в стадии разработки
** — в стадии проектирования
Для проектов в стадии проектирования приведены кодовые имена
|
(Offline)
|
|
Эти 3 пользователя(ей) сказали Спасибо ABTOMAT за это полезное сообщение:
|
|
06.08.2009, 13:46
|
#18
|
ПроЭктировщик
Регистрация: 26.08.2008
Сообщений: 149
Написано 10 полезных сообщений (для 18 пользователей)
|
Ответ: Чтение файла
И все равно как я вижу не то что нужно код читает только 1,2,3 а не 10,11,12 видемо нужно как нибуть подругому делат или учить функции чтения-записи файла. Может у кого есть инфа по этим функциям.
|
(Offline)
|
|
06.08.2009, 13:52
|
#19
|
Blitz's Shame !!
Регистрация: 31.03.2007
Сообщений: 3,639
Написано 832 полезных сообщений (для 2,013 пользователей)
|
Ответ: Чтение файла
учить функции чтения-записи файла. Может у кого есть инфа по этим функциям.
|
учи !! а инфа в достаточном объеме в справке блица !!
|
(Offline)
|
|
09.08.2009, 22:38
|
#20
|
|
Ответ: Чтение файла
Local LvlFile%, Num%, NFlag%, Char%, X%, Y%
LvlFile = OpenFile("*путь к файлу*")
; ...
While Not Eof(LvlFile)
Char = ReadByte(LvlFile)
Select True
Case Char >= 48 And Char <= 57 : Num = Num * 10 + (Char - 48) : NFlag = True
Case Char = 10 : X = 0 : Y = Y + 1
Default
If NFlag : LvlArray(X, Y) = Num : Num = 0 : NFlag = False : X = X + 1 : EndIf
End Select
Wend
; ...
CloseFile(LvlFile)
...Вот как-то так (если с разделителями).
Последний раз редактировалось Chrono Syndrome, 10.08.2009 в 10:29.
|
|
|
09.08.2009, 23:51
|
#21
|
Бывалый
Регистрация: 22.08.2006
Сообщений: 700
Написано 146 полезных сообщений (для 267 пользователей)
|
Ответ: Чтение файла
Согласен с АВТОМАТом, это просто FFFFFFFFFFFUUUUUUUUUUUUUUUUU-
Ну можно хоть чуть-чуть напрячь мозг? И изменить 2 строчки в его примере?
|
(Offline)
|
|
Эти 2 пользователя(ей) сказали Спасибо MiXaeL за это полезное сообщение:
|
|
10.08.2009, 13:59
|
#22
|
|
Ответ: Чтение файла
Ну можно хоть чуть-чуть напрячь мозг? И изменить 2 строчки в его примере?
|
...Да вот сдается мне, что изменений там стоит произвести чуть больше:
Function LoadLevel(levelfile$)
Local FHandle%, Word%, X%, Y%
FHandle = OpenFile(levelfile)
While Not Eof(FHandle)
Word = ReadShort(FHandle)
If Word <> $A0D Then
GameField(X, Y) = (Word And $FF - 48) * 10 + (Word - $3000) Shr 8
X = X + 1
Else : X = 0 : Y = Y + 1
EndIf
Wend
CloseFile(FHandle)
End Function
|
|
|
12.08.2009, 13:45
|
#23
|
ПроЭктировщик
Регистрация: 26.08.2008
Сообщений: 149
Написано 10 полезных сообщений (для 18 пользователей)
|
Ответ: Чтение файла
Спасибо всем за помощь все работает, но есть еще вопрос. Как можна сделать проверку ячеек на соединение.Вот допустим есть поле 8х8, при щелчке мыши по ячейке она изменяет картинку, картинок 20 шт на них нарисованы проводники, лампочки,батареи, при правильном соединении должна картинка лампочки поменятся на картинку загоревшейся лампочки каким образом можна сделать проверку на правильность соединения. Я думал так: сделать загрузку уровня (неправильного конорий надо изменять) и загрузить уровень (правильный где все как надо правильно соединять) и както это все проверять. Может ктото подскажет как можна по другому сделать?
|
(Offline)
|
|
12.08.2009, 14:10
|
#24
|
Знающий
Регистрация: 28.07.2008
Адрес: Киев
Сообщений: 228
Написано 61 полезных сообщений (для 191 пользователей)
|
Ответ: Чтение файла
Если это 2D то достаточно проверить колизию курсора и картинки (coll =RectsOverlap(t3\x,t3\y+t3\h+5,t3\w,5, t1\x,t1\y,t1\w,t1\h)). Если нажата клавиша мышки и колизия присутствует, то данную картинку заменяем новой. Если использовать типы, то сделать это раз плюнуть.
Принцип: подводим курсор к изображению, проверяем его колизию с курсором (к примеру тип t3 - это курсор, тип t1 - изображение лампочки), если нажата клавиша мыши и поле лампочки light = 0 то включаем лампочку и изменяем изображение (t1\light=1 : t1\image = LoadImage("light.jpg")). В 3-х мерке будет немного другой способ, но принцип такой же
__________________
Тяжела жизнь программиста: радость находки своего бага всегда омрачает осознание собственной тупости...
|
(Offline)
|
|
12.08.2009, 18:12
|
#25
|
ПроЭктировщик
Регистрация: 26.08.2008
Сообщений: 149
Написано 10 полезных сообщений (для 18 пользователей)
|
Ответ: Чтение файла
Вот что уже есть сдесь при повороте батарейки должна гаснуть лампочка попробуйте может у кого получится.
|
(Offline)
|
|
12.08.2009, 20:14
|
#26
|
Бывалый
Регистрация: 06.04.2009
Сообщений: 612
Написано 276 полезных сообщений (для 858 пользователей)
|
Ответ: Чтение файла
Petrofan, что за энергия заставит гореть лампочку с одним подключенным полюсом? Или там всё невидим0 заземлено?
З.Ы. Клёвая идея, орфографию подправь на сайте =)
А по делу, надо наверно юзать что-то типа модифицированного алгоритма А* чтобы проверерять замкнутость цепи.
Ну и напоследок:
Вот что уже есть сдесь при повороте батарейки должна гаснуть лампочка попробуйте может у кого получится.
|
Согласен с АВТОМАТом, это просто FFFFFFFFFFFUUUUUUUUUUUUUUUUU-
Ну можно хоть чуть-чуть напрячь мозг?
|
Последний раз редактировалось Mhyhr, 12.08.2009 в 20:36.
|
(Offline)
|
|
12.08.2009, 21:03
|
#27
|
|
Ответ: Чтение файла
А по делу, надо наверно юзать что-то типа модифицированного алгоритма А* чтобы проверерять замкнутость цепи.
|
Да сойдет и обычный, надо просто с умом генерировать карту проходимости.
Но не кажется ли вам, что дальнейшее обсуждение стоит вынести в отдельную тему ?
|
|
|
Эти 2 пользователя(ей) сказали Спасибо за это полезное сообщение:
|
|
13.08.2009, 12:47
|
#28
|
ПроЭктировщик
Регистрация: 26.08.2008
Сообщений: 149
Написано 10 полезных сообщений (для 18 пользователей)
|
Ответ: Чтение файла
Ты правильно отметил минус батарейки это масса а алгоритм что нужен так нужен полюбому. Ну а как вам мое решение проблеми что я сделал для каждого блока катринок свой поворот.
|
(Offline)
|
|
Ваши права в разделе
|
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения
HTML код Выкл.
|
|
|
Часовой пояс GMT +4, время: 04:13.
|