Среда, 28 Сентября 2022, 23:12

Приветствую Вас Гость

[ Новые сообщения · Игроделы · Правила · Поиск ]
  • Страница 9 из 10
  • «
  • 1
  • 2
  • 7
  • 8
  • 9
  • 10
  • »
Форум игроделов » Записи участника » -Mikle- [196]
Результаты поиска
-Mikle-Дата: Вторник, 29 Марта 2011, 09:50 | Сообщение # 161 | Тема: TubeRoll.
Изобретатель велосипедов
Сейчас нет на сайте
Перепроверил - качает.

Мой рекорд - 170!

Сообщение отредактировал -Mikle- - Вторник, 29 Марта 2011, 09:51
-Mikle-Дата: Понедельник, 28 Марта 2011, 10:56 | Сообщение # 162 | Тема: TubeRoll.
Изобретатель велосипедов
Сейчас нет на сайте
"Стрельнула" мысль - сделал игру на 4 кБ размером:
TubeRoll
Где-то за два часа :).

Visual Basic 6, WinAPI.

Не стал это в "Готовые проекты" отправлять.

-Mikle-Дата: Пятница, 25 Марта 2011, 15:28 | Сообщение # 163 | Тема: Утилитка для зацикливания звука.
Изобретатель велосипедов
Сейчас нет на сайте
Оцените утилитку:
Choir
Распакуйте архив, там лежит программа Choir.exe и небольшой .wav файл, перетащите мышкой .wav файл на Choir.exe, через долю секунды возникнет ещё один .wav файл, длиной ровно 1 сек., стерео, начало с концом файла стыкуется без щелчка, то есть его можно зацикливать, да и сам звук в полученном файле гораздо ровнее, чем в исходном. Годится для протяжных звуков, типа хора, оркестровых скрипок...
Полученный звук "хорусит", поэтому для звука двигателя, например, подходит не очень.
Исходный файл должен быть моно, 16 бит, 44.1 кГц, не менее 2.5 сек. длиной, без атаки и затухания - то есть записываем какое-нибудь "ААА" через микрофон, потом в любом редакторе отрезаем неровные начало и конец, оставляя не менее 2.5 сек. - получен исходный файл.
-Mikle-Дата: Четверг, 24 Марта 2011, 14:03 | Сообщение # 164 | Тема: Кто же пишет на VB???
Изобретатель велосипедов
Сейчас нет на сайте
Quote (IIIypuk)
Есть что показать?

игра
статья
Могу ещё накидать.
Замеры будут.


Сообщение отредактировал -Mikle- - Четверг, 24 Марта 2011, 14:05
-Mikle-Дата: Среда, 23 Марта 2011, 20:14 | Сообщение # 165 | Тема: Кто же пишет на VB???
Изобретатель велосипедов
Сейчас нет на сайте
Я пишу игры на VB6. Его низкая производительность - миф, то есть ниже, конечно, чем у C++, но примерно такая же, как у Дельфи, шарпа, vb.net.
-Mikle-Дата: Среда, 23 Марта 2011, 10:24 | Сообщение # 166 | Тема: [3D] Access of Speed 2 [автогонки]
Изобретатель велосипедов
Сейчас нет на сайте
Делать разделение экрана для игры вдвоём не хотел - очень тяжело найти на клаве взаимно не блокирующие клавиши на двоих игроков, тем более, даже если найти - игроки начинают читерить, нажимая, как бы случайно, лишнюю клавишу, которая, как они предварительно выяснили, заблокирует управление соперника, проверено smile

А заметили, чем КПП для школьников и для блондинок отличаются от обычного автомата и между собой?

Звук реально неудачный, буду рад, если кто-нибудь подкинет хороший семпл.

Небольшой рэндомайз уже сделал, пока не перезаливал архив.

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

Добавлено (23.03.2011, 10:24)
---------------------------------------------
Перезалил по той же ссылке релизную версию для конкурса, добавил новый вид гонки - не пускать соперников на финиш (устраивать аварии), это для тех, кому просто всех обогнать слишком легко.

-Mikle-Дата: Четверг, 17 Марта 2011, 16:19 | Сообщение # 167 | Тема: [3D] Access of Speed 2 [автогонки]
Изобретатель велосипедов
Сейчас нет на сайте
Делаю аркадные гонки в стиле ранних NFS, вот моя, близкая к завершению, работа:
AoS2
Размер - 3 мБ.

Технологии:
Visual Basic 6
DirectX9

Управление:
Стрелки - газ, тормоз, руль.
"A", "Z" - переключение передачи.
"C" - смена камеры.
"Esc" - выход.

Системные требования:
Win XP или новее, шейдеры 2_0 или выше.

Зацените ИИ - честным образом использует то же управление, что и игрок, никакого фейка.

Скрины:


Сообщение отредактировал -Mikle- - Вторник, 19 Июня 2012, 09:12
-Mikle-Дата: Понедельник, 14 Марта 2011, 10:08 | Сообщение # 168 | Тема: Видео в игре
Изобретатель велосипедов
Сейчас нет на сайте
Чтобы не пользоваться медиаплеером (он может быть в системе изменён, перенастроен), лучше воспользоваться DirectShow:
Создаём проект с одной формой, подключаем ссылку на "ActiveMovie control type library", добавляем модуль с таким кодом:
Код:
Code

Option Explicit  

Private m_objMediaPosition As IMediaPosition  
Private m_objVideoWindow As IVideoWindow  
Private m_objMediaControl As IMediaControl  
Private m_objBasicAudio  As IBasicAudio  

Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer  
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)  

Public Sub RunAudio(fName As String, ByVal Volume As Single)  
Dim meVol As Integer  
   meVol = 67 - 67 * Exp((1 - Volume) * 5)  
   If meVol < -9999 Then meVol = -9999  
   If meVol > 0 Then meVol = 0  
    
   Set m_objMediaControl = New FilgraphManager  
   Set m_objBasicAudio = m_objMediaControl  
   m_objMediaControl.RenderFile fName  
   m_objBasicAudio.Volume = meVol  
   m_objMediaControl.Run  
End Sub  

Public Sub RunVideo(fName As String, ByVal Volume As Single)  
Dim d1 As Double, d2 As Double  
Dim meVol As Integer  
   meVol = 67 - 67 * Exp((1 - Volume) * 5)  
   If meVol < -9999 Then meVol = -9999  
   If meVol > 0 Then meVol = 0  
    
   Set m_objMediaControl = New FilgraphManager  
   m_objMediaControl.RenderFile fName  

   Set m_objVideoWindow = m_objMediaControl  
   Set m_objBasicAudio = m_objMediaControl  
   m_objVideoWindow.WindowStyle = CLng(&H6000000)  
   m_objVideoWindow.Top = 0  
   m_objVideoWindow.Left = 0  
   m_objVideoWindow.Width = Screen.Width / Screen.TwipsPerPixelX  
   m_objVideoWindow.Height = Screen.Height / Screen.TwipsPerPixelY  
   m_objVideoWindow.HideCursor -1  
   Set m_objMediaPosition = m_objMediaControl  
   m_objBasicAudio.Volume = meVol  
   m_objMediaControl.Run  
   d2 = -1  
   Do  
     Sleep 50  
     d1 = m_objMediaPosition.CurrentPosition  
     If d1 = d2 Then Exit Do Else d2 = d1  
     If GetAsyncKeyState(vbKeyEscape) < 0 Then Exit Do  
   Loop  
   DShowStop  
End Sub  

Public Sub DShowStop()  
   If Not m_objMediaControl Is Nothing Then  
     m_objMediaControl.Stop  
     Set m_objBasicAudio = Nothing  
     Set m_objMediaPosition = Nothing  
     Set m_objVideoWindow = Nothing  
     Set m_objMediaControl = Nothing  
   End If  
End Sub

На форму три кнопки "bAudio", "bVideo", "bStop" и такой код:
Код:
Code

Option Explicit  

Private Sub bAudio_Click()  
   RunAudio "1.mp3", 1 'Громкость от 0 до 1  
End Sub  

Private Sub bStop_Click()  
   DShowStop  
End Sub  

Private Sub bVideo_Click()  
   DoEvents  
   RunVideo "1.wmv", 1 'Громкость от 0 до 1  
End Sub  

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)  
   DShowStop  
End Sub

В папке с проектом должны быть файлы "1.mp3" и "1.wmv".
Позволяет проигрывать видео в полноэкранном режиме, например заставку перед игрой, воспроизведение можно прервать, нажав "Esc", приложение ждёт окончание воспроизведения.
Так же проигрывает Audio в фоновом режиме (не прерывая работу приложения), например фоновую музыку.
-Mikle-Дата: Четверг, 24 Февраля 2011, 13:46 | Сообщение # 169 | Тема: Наша живая звукозапись.
Изобретатель велосипедов
Сейчас нет на сайте
NeZnayu
Quote
почему игры не выкладываешь?

Раздел то для музыки. А мои игры можно тут посмотреть:
http://www.gamedev.ru/users/?id=1187
Quote
как у вас погода там?

+12, солнце светит, птички поют smile


Сообщение отредактировал -Mikle- - Четверг, 24 Февраля 2011, 15:52
-Mikle-Дата: Четверг, 24 Февраля 2011, 11:19 | Сообщение # 170 | Тема: Наша живая звукозапись.
Изобретатель велосипедов
Сейчас нет на сайте
Ещё одна тема, тут добавлен оргАн. Мы и на концертах, как правило, берём сессионного музыканта, чтобы помог на клавишах в этой композиции:
New
-Mikle-Дата: Воскресенье, 20 Февраля 2011, 19:02 | Сообщение # 171 | Тема: Вопрос/Ответ
Изобретатель велосипедов
Сейчас нет на сайте
Quote
нечего не получается. Все равно карлючки!!!

В меню vb6: Tools/Options/Editor Format выбери шрифт, который заканчивается на "CYR", например "Courier New CYR"
-Mikle-Дата: Воскресенье, 13 Февраля 2011, 11:34 | Сообщение # 172 | Тема: Наша живая звукозапись.
Изобретатель велосипедов
Сейчас нет на сайте
Записали ещё одну композицию:
56
Пока без названия (просто 5-6). С гармониями тут по-проще, но вот с ритмом экспериментируем, интересно мнение общественности.
Звук гитары не ахти, знаю, ищем.
Это по-тяжелее, значительно сложнее ритмически, понравится явно не всем :).

Вот наша старая (где-то 2.5 года) запись в стиле, подобном первой композиции:
NeBlues
Аппаратура была чуть похуже тогда.

Сообщение отредактировал -Mikle- - Воскресенье, 13 Февраля 2011, 11:38
-Mikle-Дата: Среда, 09 Февраля 2011, 22:18 | Сообщение # 173 | Тема: Наша живая звукозапись.
Изобретатель велосипедов
Сейчас нет на сайте
TheShowMustGoOn, я имел ввиду, что кроме меня нет.
-Mikle-Дата: Среда, 09 Февраля 2011, 14:18 | Сообщение # 174 | Тема: Наша живая звукозапись.
Изобретатель велосипедов
Сейчас нет на сайте
TheShowMustGoOn, программистов, тем более геймдевелоперов, у нас нет. Музыканты - есть. cool
-Mikle-Дата: Среда, 09 Февраля 2011, 12:01 | Сообщение # 175 | Тема: Наша живая звукозапись.
Изобретатель велосипедов
Сейчас нет на сайте
Бомбер, пожалуйста :).
TheShowMustGoOn, да, Туапсинец.
Вокала нет - инструментальная группа.
-Mikle-Дата: Вторник, 08 Февраля 2011, 19:45 | Сообщение # 176 | Тема: Наша живая звукозапись.
Изобретатель велосипедов
Сейчас нет на сайте
Я играю в рок-группе, сейчас мы принимаемся за запись альбома.
Это пробы перед записью, ещё не релиз, но уже близко.
Новая композиция нашей группы Quits - Cool:
http://tuapse-mikle.narod.ru/Cool.mp3
Конкретно эта вещь может показаться не очень рОковой, будут и другие.
Я - басист и композитор.
-Mikle-Дата: Суббота, 15 Января 2011, 17:13 | Сообщение # 177 | Тема: Программирование 3D графики на Visual Basic 6 и DirectX 8
Изобретатель велосипедов
Сейчас нет на сайте
Статья:
Ссылка


Сообщение отредактировал -Mikle- - Суббота, 15 Января 2011, 17:14
-Mikle-Дата: Пятница, 14 Января 2011, 15:26 | Сообщение # 178 | Тема: Координаторская для авторов статей.
Изобретатель велосипедов
Сейчас нет на сайте
Название: Программирование 3D графики на Visual Basic 6 с использованием Direct3D8.
Краткое описание: Шаг за шагом на конкретных примерах учимся пользоваться Direct3D.
Сложность: Требуется знание VB6, знаний по программированию 3D графики не требуется.
Дата завершения статьи:15-01-2011 Ссылка


Сообщение отредактировал -Mikle- - Суббота, 15 Января 2011, 17:26
-Mikle-Дата: Среда, 12 Января 2011, 11:35 | Сообщение # 179 | Тема: Автофизика.
Изобретатель велосипедов
Сейчас нет на сайте
Это когда-то разрабатывалось для игры "Access of Speed", там не было перепадов высот - ландшафт плоский, 2.5D, но были наклоны машины, то есть, всё же, элемент 3D. Вот код с подробными коментариями и простейшей 2D визуализацией:
http://tuapse-mikle.narod.ru/Ss2d.rar
Если кто-то делает чистое 2D - там указано, что выкинуть из кода, становится ещё проще.
А вот уже полноценное 3D:
http://tuapse-mikle.narod.ru/SS3D.rar
Если у вас есть ландшафт на регулярной сетке и у него ф-ция GetHeight, возвращающая координату Y, принимая X и Z, то берёте отсюда два-три десятка строк кода, и движение по ландшафту, с переключением передач, заносами, полицейским разворотом и т. п., готово.
Правда тут визуализация на DX8 с использованием dx8vb.dll, то есть на Висте и Семёрке на пойдёт.
Предлагаю пользоваться всем желающим.


Сообщение отредактировал -Mikle- - Среда, 12 Января 2011, 11:36
-Mikle-Дата: Пятница, 07 Января 2011, 14:37 | Сообщение # 180 | Тема: 4k procedular graphics demo
Изобретатель велосипедов
Сейчас нет на сайте
Существует вид искусства - демосцена. Цель - программно создать видеозаставку либо статическую картинку. Размер программы, как правило, ограничивается.
Вот один из примеров с исходником на VB6:
Sunrise
В архиве есть файл, - "demo.bat", - это и есть демка, он может работать самостоятельно. Это файл "Unpacked.exe", сжатый в самораспаковывающийся ".bat" с помощью утилиты "dropper". Самораспаковка работает только в WinXP, поэтому, чтобы посмотреть из другой версии Windows, запускайте "Unpacked.exe".
После запуска через несколько секунд появится картинка, нажимая пробел, можно её изменить.
Это демо заняло на фестивале "Chaos Constructions'2010" в жанре "4k procedular graphics demo" второе место. Делюсь исходником.


Сообщение отредактировал -Mikle- - Пятница, 07 Января 2011, 14:39
Форум игроделов » Записи участника » -Mikle- [196]
  • Страница 9 из 10
  • «
  • 1
  • 2
  • 7
  • 8
  • 9
  • 10
  • »
Поиск:

Все права сохранены. GcUp.ru © 2008-2022 Рейтинг