Current version of Ogre3D
Posted: Fri Apr 19, 2024 1:10 pm
What is the current version/versions of Ogre3D used with the current version of PureBasic?
Thanks.
Thanks.
http://www.purebasic.com
https://www.purebasic.fr/english/
Ogre.log in Windows 10 x64 with PB 6.10 wrote:*-*-* Version 1.8.2 (Byatis)
Code: Select all
EnableExplicit
Define FileExtension.S
Define OgreTempFile.S
Define OgreVersion.S
Define Record.S
If InitEngine3D(#PB_Engine3D_DebugLog) = 0
CompilerSelect #PB_Compiler_OS
CompilerCase #PB_OS_Linux
FileExtension = ".so"
CompilerCase #PB_OS_MacOS
FileExtension = ".dylib"
CompilerCase #PB_OS_Windows
FileExtension = ".dll"
CompilerEndSelect
MessageRequester("Error",
"Unable to find file Engine3D" + FileExtension,
#PB_MessageRequester_Error)
Else
CompilerIf #PB_Compiler_OS = #PB_OS_Windows
If FileSize("Ogre.Log") < 0
MessageRequester("Error",
"Unable to find Ogre.Log",
#PB_MessageRequester_Error)
End
EndIf
While FileSize("Ogre.Log") < 500
Delay(20)
Wend
CompilerEndIf
OgreTempFile = GetTemporaryDirectory() + "Ogre.Log"
If CopyFile("Ogre.Log", OgreTempFile) = 0
MessageRequester("Error",
"Unable to copy Ogre.Log",
#PB_MessageRequester_Error)
End
EndIf
If FileSize(OgreTempFile) < 0
MessageRequester("Error",
"Unable to find " +
OgreTempFile + "!",
#PB_MessageRequester_Error)
Else
If ReadFile(0, OgreTempFile) = 0
MessageRequester("Error",
"Unable to open " + OgreTempFile + "!")
End
Else
While Eof(0) = #False
Record = ReadString(0)
If FindString(Record, "*-*-* Version")
OgreVersion = StringField(Record, 4, " ")
Break
EndIf
Wend
CloseFile(0)
If OgreVersion = ""
MessageRequester("Error",
"Unable to find Ogre version in Ogre.Log",
#PB_MessageRequester_Error)
Else
MessageRequester("Info",
"Ogre version: " + OgreVersion)
EndIf
EndIf
EndIf
DeleteFile(OgreTempFile)
EndIf