Robin Posted August 28, 2011 Share Posted August 28, 2011 It's an open-source project. You can do whatever you want with it as long as you don't break the license agreement. Link to comment Share on other sites More sharing options...
SpiceyWolf Posted August 28, 2011 Share Posted August 28, 2011 still i appreciate it O: Link to comment Share on other sites More sharing options...
Chukillz Posted September 14, 2011 Share Posted September 14, 2011 > Now in modGeneral, in Public sub PopulateLists, look for :> > Code: [Select]> ' music in map properties>   frmEditor_MapProperties.lstMusic.Clear>   frmEditor_MapProperties.lstMusic.AddItem "None.">   strLoad = Dir(App.Path & MUSIC_PATH & "*.mid")>   Do While strLoad > vbNullString>    frmEditor_MapProperties.lstMusic.AddItem strLoad>    strLoad = Dir>   Loop> > after that, add :> > Fix by Anthony:> Code: [Select]>   strLoad = Dir(App.Path & MUSIC_PATH & "*.mp3")>   Do While strLoad > vbNullString>     ReDim Preserve musicCache(1 To i) As String>     musicCache(i) = strLoad>     strLoad = Dir>     i = i + 1>   Loop> > this will make sure the mp3 files are found so they show up in mapeditor.all i have is```Public Sub PopulateLists()Dim strLoad As String, i As Long  ' If debug mode, handle error then exit out  If Options.Debug = 1 Then On Error GoTo errorhandler  ' Cache music list  strLoad = Dir(App.Path & MUSIC_PATH & "*.mid")  i = 1  Do While strLoad > vbNullString    ReDim Preserve musicCache(1 To i) As String    musicCache(i) = strLoad    strLoad = Dir    i = i + 1  Loop  ' Cache sound list  strLoad = Dir(App.Path & SOUND_PATH & "*.wav")  i = 1  Do While strLoad > vbNullString    ReDim Preserve soundCache(1 To i) As String    soundCache(i) = strLoad    strLoad = Dir    i = i + 1  Loop  ' Error handler  Exit Suberrorhandler:  HandleError "PopulateLists", "modGeneral", Err.Number, Err.Description, Err.Source, Err.HelpContext  Err.Clear  Exit SubEnd Sub```my code dont have that same thing? Link to comment Share on other sites More sharing options...
Whackeddie99 Posted December 21, 2011 Share Posted December 21, 2011 Does this work for EO2.0? and how do I rip it from CS:DE Robin Link to comment Share on other sites More sharing options...
SeMike Posted March 16, 2012 Share Posted March 16, 2012 Great! Thank you very much :) Link to comment Share on other sites More sharing options...
abhi2011 Posted May 20, 2012 Share Posted May 20, 2012 There is no```' music in map properties  frmEditor_MapProperties.lstMusic.Clear  frmEditor_MapProperties.lstMusic.AddItem "None."  strLoad = Dir(App.Path & MUSIC_PATH & "*.mid")  Do While strLoad > vbNullString   frmEditor_MapProperties.lstMusic.AddItem strLoad   strLoad = Dir  Loop``` Link to comment Share on other sites More sharing options...
abhi2011 Posted May 31, 2012 Share Posted May 31, 2012 Can't find the following```' music in map properties  frmEditor_MapProperties.lstMusic.Clear  frmEditor_MapProperties.lstMusic.AddItem "None."  strLoad = Dir(App.Path & MUSIC_PATH & "*.mid")  Do While strLoad > vbNullString   frmEditor_MapProperties.lstMusic.AddItem strLoad   strLoad = Dir  Loop``` Link to comment Share on other sites More sharing options...
abhi2011 Posted June 28, 2012 Share Posted June 28, 2012 Can't find```' music in map properties  frmEditor_MapProperties.lstMusic.Clear  frmEditor_MapProperties.lstMusic.AddItem "None."  strLoad = Dir(App.Path & MUSIC_PATH & "*.mid")  Do While strLoad > vbNullString   frmEditor_MapProperties.lstMusic.AddItem strLoad   strLoad = Dir  Loop```I did a full project check. The nearest I am getting to is``` ' Cache music list  strLoad = Dir(App.Path & MUSIC_PATH & "*.mid")  i = 1  Do While strLoad > vbNullString    ReDim Preserve musicCache(1 To i) As String    musicCache(i) = strLoad    strLoad = Dir    i = i + 1  Loop``` Link to comment Share on other sites More sharing options...
Ruins of Hell Posted June 28, 2012 Share Posted June 28, 2012 @abhi2011:> Can't find> ```> ' music in map properties> Â Â frmEditor_MapProperties.lstMusic.Clear> Â Â frmEditor_MapProperties.lstMusic.AddItem "None."> Â Â strLoad = Dir(App.Path & MUSIC_PATH & "*.mid")> Â Â Do While strLoad > vbNullString> Â Â Â frmEditor_MapProperties.lstMusic.AddItem strLoad> Â Â Â strLoad = Dir> Â Â Loop> > ```I did a full project check. The nearest I am getting to is> ```> Â ' Cache music list> Â Â strLoad = Dir(App.Path & MUSIC_PATH & "*.mid")> Â Â i = 1> Â Â Do While strLoad > vbNullString> Â Â Â Â ReDim Preserve musicCache(1 To i) As String> Â Â Â Â musicCache(i) = strLoad> Â Â Â Â strLoad = Dir> Â Â Â Â i = i + 1> Â Â Loop> Â Â > > ```And what happens if you put it after that?` Link to comment Share on other sites More sharing options...
lollicat Posted June 30, 2012 Share Posted June 30, 2012 @Soul:> And what happens if you put it after that?`"Compile error: sub or function not defined"highlights "LoopMp3" in modGameLogic Link to comment Share on other sites More sharing options...
abhi2011 Posted June 30, 2012 Share Posted June 30, 2012 I forgot about this topic. It never runs the MP3\. Link to comment Share on other sites More sharing options...
Ruins of Hell Posted June 30, 2012 Share Posted June 30, 2012 @Lollicat:> "Compile error: sub or function not defined"> highlights "LoopMp3" in modGameLogicDid you download both of the files that are attachments and add them to your project?@abhi2011:> I forgot about this topic. It never runs the MP3.Does it not run in the Map Editor, while playing, or both? Link to comment Share on other sites More sharing options...
lollicat Posted June 30, 2012 Share Posted June 30, 2012 @Soul:> Did you download both of the files that are attachments and add them to your project?Yes. Link to comment Share on other sites More sharing options...
abhi2011 Posted July 1, 2012 Share Posted July 1, 2012 Will do it in the editor but not in the map. Link to comment Share on other sites More sharing options...
Sora8981 Posted July 3, 2012 Share Posted July 3, 2012 When I set the music to the map, I go to a diffrent map, and the music keeps playing. I go back to the first map to edit it further, and the music choice didn't save. Link to comment Share on other sites More sharing options...
SAubryTV Posted August 1, 2012 Share Posted August 1, 2012 Does it work in CS:DE? Link to comment Share on other sites More sharing options...
Guest Posted August 2, 2012 Share Posted August 2, 2012 @Derp:> Does it work in CS:DE?I think CS:DE supports mp3,ogg,midi and such ,just try Link to comment Share on other sites More sharing options...
Wortel Angels Posted August 3, 2012 Share Posted August 3, 2012 For me its workingJust do it like the tutorial…and post this```  strLoad = Dir(App.Path & MUSIC_PATH & "*.mp3")  Do While strLoad > vbNullString    ReDim Preserve musicCache(1 To i) As String    musicCache(i) = strLoad    strLoad = Dir    i = i + 1  Loop```under this``` ' Cache music list  strLoad = Dir(App.Path & MUSIC_PATH & "*.mid")  i = 1  Do While strLoad > vbNullString    ReDim Preserve musicCache(1 To i) As String    musicCache(i) = strLoad    strLoad = Dir    i = i + 1  Loop```Dont forget to make an reference ;-) Link to comment Share on other sites More sharing options...
Dawntide Posted August 3, 2012 Share Posted August 3, 2012 I do not have```' music in map properties  frmEditor_MapProperties.lstMusic.Clear  frmEditor_MapProperties.lstMusic.AddItem "None."  strLoad = Dir(App.Path & MUSIC_PATH & "*.mid")  Do While strLoad > vbNullString   frmEditor_MapProperties.lstMusic.AddItem strLoad   strLoad = Dir  Loop```When i paste it in and then add everything as it is in the tutorial i get:"sub or function not defined" at "For i = 0 To UBound(**Sound**()) - 1"in```Private Sub HandleStopSound(ByVal Index As Long, ByRef Data() As Byte, ByVal StartAddr As Long, ByVal ExtraVar As Long)Dim Buffer As clsBufferDim str As String, i As Long  ' If debug mode, handle error then exit out  If Options.Debug = 1 Then On Error GoTo errorhandler  For i = 0 To UBound(Sound()) - 1    SoundStop (i)  Next  ' Error handler  Exit Suberrorhandler:  HandleError "HandleFadeoutBGM", "modHandleData", Err.Number, Err.Description, Err.Source, Err.HelpContext  Err.Clear  Exit SubEnd Sub```fix this or delete this very bad tutorial Link to comment Share on other sites More sharing options...
Wortel Angels Posted August 3, 2012 Share Posted August 3, 2012 Dawntide just read my post… please Link to comment Share on other sites More sharing options...
Dawntide Posted August 3, 2012 Share Posted August 3, 2012 Try it yourself with an clean copy of Eclipse Origins Even System 2.3, i am pretty sure it does not work…...Here is what i do:I download the 2 attached files, i place them in client/src, i add ModDxShow.bas to my project, i add the reference.I Post```strLoad = Dir(App.Path & MUSIC_PATH & "*.mp3")  Do While strLoad > vbNullString    ReDim Preserve musicCache(1 To i) As String    musicCache(i) = strLoad    strLoad = Dir    i = i + 1  Loop```under this``` ' Cache music list  strLoad = Dir(App.Path & MUSIC_PATH & "*.mid")  i = 1  Do While strLoad > vbNullString    ReDim Preserve musicCache(1 To i) As String    musicCache(i) = strLoad    strLoad = Dir    i = i + 1  Loop```  The .mp3 files show up now in the Map Properties, but they do not play at all, not even if i click on "Play". And the .mp3 file i added to the .ini for the main music does not play neither.Usually i would have to add this:```'loop mapmusic if needed and its a mp3 file LoopMp3```But as soon as i add this i get this error:"Sub or function not defined" at:Private Sub HandleStopSound(ByVal Index As Long, ByRef Data() As Byte, ByVal StartAddr As Long, ByVal ExtraVar As Long)Dim Buffer As clsBufferDim str As String, i As Long  ' If debug mode, handle error then exit out  If Options.Debug = 1 Then On Error GoTo errorhandler  For i = 0 To UBound(Sound()) - 1    SoundStop (i)  Next  ' Error handler  Exit Suberrorhandler:  HandleError "HandleFadeoutBGM", "modHandleData", Err.Number, Err.Description, Err.Source, Err.HelpContext  Err.Clear  Exit SubEnd SubSo it does not work Link to comment Share on other sites More sharing options...
Wortel Angels Posted August 8, 2012 Share Posted August 8, 2012 I dont know what you do false but i got it workingCan't add it ???Erledigt ;-)[Download it](http://www.file-upload.net/download-4650023/Eclipse---Event-System-2.3----Mortal-Angels.rar.html) Link to comment Share on other sites More sharing options...
santa-clause Posted April 11, 2013 Share Posted April 11, 2013 Can someone please give me the attachments for this tutorial? Link to comment Share on other sites More sharing options...
Wortel Angels Posted April 11, 2013 Share Posted April 11, 2013 Why not adding direct FMoD ? xD If you need an Tutorial tell me Link to comment Share on other sites More sharing options...
santa-clause Posted April 11, 2013 Share Posted April 11, 2013 I can add FMOD myself mortal angels i'll just do that ![;)](http://www.touchofdeathforums.com/community/public/style_emoticons/<#EMO_DIR#>/wink.png) Link to comment Share on other sites More sharing options...
Recommended Posts
Create an account or sign in to comment
You need to be a member in order to leave a comment
Create an account
Sign up for a new account in our community. It's easy!
Register a new accountSign in
Already have an account? Sign in here.
Sign In Now