Вопрос-Ответ (для новичков)

[pepel]

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

[Ganociy]

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]

Вот как засунуть сюда сферу?.. Я пытался. Не получается!

[pepel]

ну поидее так:
(поправил)

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]

Ах блин!!!! Как я не додумался второй раз записать фаил!!! Спасибо!

[pepel]

данезачто. тебе собсно все это и пытались сказать))

[Ganociy]

Чёт зависает при загрузки) и всё

[pepel]

ну если ты просто скопировал мой код и вставил себе в проект, то посмотри - я там исправил Field model и
Function Create_Sphere

[Ganociy]

нет, я всё исправил, но...

[pepel]

а дебаг че пишет?
знач дело в самом проекте
и я не зря исправил Create_Sphere , т.к. такая функция уже есть в самом блитце

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

[baton4ik]

Сообщение от Ganociy

Просто в цикле пишешь LoopSound и название твоего звука.

Вообще-то не в цикле. Достаточно один раз включить loop для звука и не надо делать это каждый кадр.

[pepel]

baton4ik ну эт то понятно, ток вот вопрос с зазором так и не решен=(

[baton4ik]

Сообщение от pepel

baton4ik ну эт то понятно, ток вот вопрос с зазором так и не решен=(

Не знаю, что у тебя за страшный зазор, я никогда большого зазора не наблюдал.

[pepel]

вот пример с ехе и бб
зазор есть
http://dl.dropbox.com/u/10482515/test.rar

[FireOwl]

Все дело не не в loop'е, а в музыкальном файле.
У него в начале еле заметная пауза.