forum.boolean.name
Страница 75 из 102 « Первая < 2565697071727374 75 76777879808185 > Последняя »
Показывать 64 сообщений этой темы на одной странице

forum.boolean.name (http://forum.boolean.name/index.php)
-   Blitz3D (http://forum.boolean.name/forumdisplay.php?f=45)
-   -   Вопрос-Ответ (для новичков) (http://forum.boolean.name/showthread.php?t=7886)

pepel 10.11.2010 17:58
Ответ: Вопрос-Ответ (для новичков)
 
хотя нет.. всеравно есть зазор, он ваще маленький но ощущается очень
так что вопрос в силе :
помогите плз как можно узнать длинну звукового файла mp3
просто нужно чтоб музыка была зацикленная ,без прерываний
если проверять через ChannelPlaying () и включать когда перестает играть, то появляется зазор в милисекундах

Ganociy 10.11.2010 18:28
Ответ: Вопрос-Ответ (для новичков)
 
Function SaveMap(dir$)

file=WriteFile (dir$)

For b.Block= Each Block
WriteFloat file, EntityX (b\cube)
WriteFloat file, EntityY (b\cube)
WriteFloat file, EntityZ (b\cube)
Next

End Function

Function LoadMap(dir$)
file=ReadFile(dir$)
While Not Eof(file)

For b.Block=Each Block
x#=ReadFloat(File)
y#=ReadFloat(File)
z#=ReadFloat(File)
CreateBlock(x#,y#,z#,8,1.5,4)
Next

Wend
End Function


Type Block
Field cube
Field Texture
End Type

Function CreateBlock(x#,y#,z#,mw#,mh#,md#)
a.Block=New Block
a\cube=CreateCube ()
a\texture=LoadTexture ("Data\Textures\2.jpg")
EntityTexture a\cube, a\texture
ScaleEntity a\cube,mw#,mh#,md#
PositionEntity a\cube,x#,y#,z#-4.1
End Function

Type Sphere
Field model
Field Texture
End Type

Function CreateSphere(x#,y#,z#,mw#,mh#,md#)
a.Sphere=New Sphere
a\cube=CreateSphere ()
a\texture=LoadTexture ("Data\Textures\3.jpg")
EntityTexture a\model, a\texture
ScaleEntity a\model,mw#,mh#,md#
PositionEntity a\model,x#,y#,z#-4.1
End Function

Ganociy 10.11.2010 18:29
Ответ: Вопрос-Ответ (для новичков)
 
Вот как засунуть сюда сферу?.. Я пытался. Не получается!

pepel 10.11.2010 18:41
Ответ: Вопрос-Ответ (для новичков)
 
ну поидее так:
(поправил)
Код:
Function SaveMap(dir$)

file=WriteFile (dir$)

For b.Block= Each Block
WriteFloat file, EntityX (b\model)
WriteFloat file, EntityY (b\model)
WriteFloat file, EntityZ (b\model)
Next

file=WriteFile (dir$)

For s.Sphere= Each Sphere
WriteFloat file, EntityX (s\model)
WriteFloat file, EntityY (s\model)
WriteFloat file, EntityZ (s\model)
Next
CloseFile(file)
End Function

Function LoadMap(dir$)
file=ReadFile(dir$)
While Not Eof(file)

For b.Block=Each Block
x#=ReadFloat(File)
y#=ReadFloat(File)
z#=ReadFloat(File)
CreateBlock(x#,y#,z#,8,1.5,4)
Next

For s.Sphere=Each Sphere
x#=ReadFloat(File)
y#=ReadFloat(File)
z#=ReadFloat(File)
Create_Sphere(x#,y#,z#,8,1.5,4)
Next

Wend
CloseFile(file)
End Function


Type Block
Field model
Field Texture
End Type

Function CreateBlock(x#,y#,z#,mw#,mh#,md#)
a.Block=New Block
a\model=CreateCube()
a\texture=LoadTexture ("Data\Textures\2.jpg")
EntityTexture a\model, a\texture
ScaleEntity a\model,mw#,mh#,md#
PositionEntity a\model,x#,y#,z#-4.1
End Function

Type Sphere
Field model
Field Texture
End Type

Function Create_Sphere(x#,y#,z#,mw#,mh#,md#)
a.Sphere=New Sphere
a\model=CreateSphere ()
a\texture=LoadTexture ("Data\Textures\3.jpg")
EntityTexture a\model, a\texture
ScaleEntity a\model,mw#,mh#,md#
PositionEntity a\model,x#,y#,z#-4.1
End Function

Ganociy 10.11.2010 18:57
Ответ: Вопрос-Ответ (для новичков)
 
Ах блин!!!! Как я не додумался второй раз записать фаил!!! Спасибо!

pepel 10.11.2010 18:59
Ответ: Вопрос-Ответ (для новичков)
 
данезачто. тебе собсно все это и пытались сказать))

Ganociy 10.11.2010 19:05
Ответ: Вопрос-Ответ (для новичков)
 
Чёт зависает при загрузки) и всё

pepel 10.11.2010 19:11
Ответ: Вопрос-Ответ (для новичков)
 
ну если ты просто скопировал мой код и вставил себе в проект, то посмотри - я там исправил Field model и
Function Create_Sphere

Ganociy 10.11.2010 19:21
Ответ: Вопрос-Ответ (для новичков)
 
нет, я всё исправил, но...

pepel 10.11.2010 19:26
Ответ: Вопрос-Ответ (для новичков)
 
а дебаг че пишет?
знач дело в самом проекте
и я не зря исправил Create_Sphere , т.к. такая функция уже есть в самом блитце

ну и филд заменил т.к. у тебя там была гдето ошибка, и так удобней

baton4ik 10.11.2010 19:28
Ответ: Вопрос-Ответ (для новичков)
 
Цитата:
Сообщение от Ganociy (Сообщение 167888)
Просто в цикле пишешь LoopSound и название твоего звука.
Вообще-то не в цикле. Достаточно один раз включить loop для звука и не надо делать это каждый кадр.

pepel 10.11.2010 19:29
Ответ: Вопрос-Ответ (для новичков)
 
baton4ik ну эт то понятно, ток вот вопрос с зазором так и не решен=(

baton4ik 10.11.2010 19:32
Ответ: Вопрос-Ответ (для новичков)
 
Цитата:
Сообщение от pepel (Сообщение 167924)
baton4ik ну эт то понятно, ток вот вопрос с зазором так и не решен=(
Не знаю, что у тебя за страшный зазор, я никогда большого зазора не наблюдал.

pepel 10.11.2010 19:41
Ответ: Вопрос-Ответ (для новичков)
 
вот пример с ехе и бб
зазор есть
http://dl.dropbox.com/u/10482515/test.rar

FireOwl 10.11.2010 20:05
Ответ: Вопрос-Ответ (для новичков)
 
Все дело не не в loop'е, а в музыкальном файле.
У него в начале еле заметная пауза.


Часовой пояс GMT +4, время: 03:36.
Страница 75 из 102 « Первая < 2565697071727374 75 76777879808185 > Последняя »
Показывать 64 сообщений этой темы на одной странице

vBulletin® Version 3.6.5.
Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
Перевод: zCarot