8 replies to this topic

[loloallo]

File Name: Bird Fly

File Submitter: loloallo

File Submitted: 21 Mar 2022

File Category: VPX Originals

Author(s): Loloallo
Permission to MOD?: Yes, with approval

Welcome to "Bird Fly" pinball.
 
This is the 0.9.0 late version under VPX10.7
 
This pinball is a DMD/B2S game but if you prefer a single screen version set "TwoScreens=True" to ""TwoScreens=False" in code.
 
All graphics and 3D are home made.
 
Sounds come from : https://lasonotheque.org/
Please visit this site to give good vibes to his creator.
 
Please download the second file Bird_Fly_Music_folder.zip and move it in the music folder.
 
These music ars bird songs or wind sound...., not really music.
 
Some players experienced bugs in music managment, so in this case you can modifiy the value MusicOn=True and setting it to False.
 
Now play and enjoy "Bird Fly".
 
Loloallo.
 

Note : Loop champion recording new feature make program crash on prior Bird Fly installations (non existing parameters on 0.8 versions)
          Please, launch Bird Fly again and/or delete ../User/Bird_Fly.txt file first
 

Click here to download this file

[STAT]

Very cool visual Look

[CaptainPeacock]

An interesting and different design & nice sound efects too.

[Greynurse]

bil, on 23 Mar 2022 - 12:31 AM, said:

line 929 path not found.

Can someone explain to me;
thank you in advance

 

Solved the problem. The music script had an error in it. Copy and paste this at line 924, overwriting what is there;

 

    Dim FileSystemObject, folder, r, ct, file, musicPath, myMusicFolder

    myMusicFolder = "\Bird_Fly" ' the directory name where your mp3 files are storied, must be a subfolder of Visual Pinball\music

    Set FileSystemObject = CreateObject("Scripting.FileSystemObject")

    musicPath = FileSystemObject.GetAbsolutePathName(".") ' get path to Visual Pinball\table

    musicPath = Left(musicPath, Len(musicPath) - 6) + "music\" 'get path to Visual Pinball\music

    Set folder = FileSystemObject.GetFolder(musicPath + myMusicFolder)

    Randomize

    r = INT(folder.Files.Count * Rnd + 1)

    ct=1

    For Each file in folder.Files 'get every file in myMusicFolder, for each one count it and see if the count matches the random number

        if ct = r Then  ' random file found

            if (LCase(Right(file,4))) = ".mp3" Then ' can only play mp3 files

               PlayMusic Mid(file, Len(musicPath) + 1, 1000) ' PlayMusic defaults to Visual Pinball\music\, need to get myMusicFolder\song name

            End If 

       End If

   ct = ct + 1

   Next

 End Sub

 

Or go to line 925 and put a backslash in front of the folder name so it reads "\Bird_Fly", as above.

 

If this had been tested then there would be no dramas.

[bil]

Hello Greynurse.
I tried both solutions....but in both cases I got an error at line 929.
Anyway, thank you very much for looking for a solution.

 

Set folder = FileSystemObject.GetFolder(musicPath + myMusicFolder)

Edited by bil, 23 March 2022 - 04:19 PM.

[Greynurse]

Hi Bil,

 

I'm surprised it didn't work for you. I also tried all types of variations until I hit on this. It took a while for the penny to drop, but once I inserted the backslash in front of Bird_Fly", the table fired up. But having said that, you're not missing much. Just a bunch of bird songs.

[bil]

Hello, after doing a lot of tests and reading the errors that came up, I found a solution.
I removed line 858 "jouer musique" and now the table works perfectly.

This is all very strange

Edited by bil, 24 March 2022 - 07:15 AM.

[bha19]

Hello, after doing a lot of tests and reading the errors that came up, I found a solution.
I removed line 858 "jouer musique" and now the table works perfectly.

This is all very strange

Worked for me too. I know the problem has to do with set folder music path line. 

[bha19]

Tried the new version and set the music path, but it says can't open rack mp3. If I hit OK it still plays though.