Permalink
Browse files

Added converted UDB 0.12.0 (391) for MaNGOS 9999 with SD2 SQL for rev…

…. 1702 - 391 database for use with 3.3.3a client.

Spurious333a.rar contains the MySQL dump of the converted database.

Please see the Readme.txt file under the 333a directory for further information.
  • Loading branch information...
wow_adict
wow_adict committed Jun 16, 2010
1 parent 04d97e8 commit 49d6c67c6d332c670e71bdb65795fc0d0b53f9c4
Showing with 39,037 additions and 0 deletions.
  1. BIN 333a/Backups/spuriousmssql.rar
  2. BIN 333a/Backups/udbmssql.rar
  3. +27 −0 333a/Readme.txt
  4. BIN 333a/Spurious333a.rar
  5. +20 −0 333a/UDBtoSpurious/UDBtoSpurious.sln
  6. +62 −0 333a/UDBtoSpurious/UDBtoSpurious/DBCDatabase.vb
  7. +170 −0 333a/UDBtoSpurious/UDBtoSpurious/DBCLoad.vb
  8. +245 −0 333a/UDBtoSpurious/UDBtoSpurious/Form1.Designer.vb
  9. +120 −0 333a/UDBtoSpurious/UDBtoSpurious/Form1.resx
  10. +1,777 −0 333a/UDBtoSpurious/UDBtoSpurious/Form1.vb
  11. +29 −0 333a/UDBtoSpurious/UDBtoSpurious/Functions.vb
  12. +38 −0 333a/UDBtoSpurious/UDBtoSpurious/My Project/Application.Designer.vb
  13. +11 −0 333a/UDBtoSpurious/UDBtoSpurious/My Project/Application.myapp
  14. +35 −0 333a/UDBtoSpurious/UDBtoSpurious/My Project/AssemblyInfo.vb
  15. +62 −0 333a/UDBtoSpurious/UDBtoSpurious/My Project/Resources.Designer.vb
  16. +117 −0 333a/UDBtoSpurious/UDBtoSpurious/My Project/Resources.resx
  17. +134 −0 333a/UDBtoSpurious/UDBtoSpurious/My Project/Settings.Designer.vb
  18. +54 −0 333a/UDBtoSpurious/UDBtoSpurious/My Project/Settings.settings
  19. +159 −0 333a/UDBtoSpurious/UDBtoSpurious/UDBtoSpurious.vbproj
  20. +46 −0 333a/UDBtoSpurious/UDBtoSpurious/app.config
  21. +251 −0 333a/UDBtoSpurious/UDBtoSpurious/fileDBC.vb
  22. +756 −0 333a/UDBtoSpurious/UDBtoSpurious/spurious.dbml
  23. +192 −0 333a/UDBtoSpurious/UDBtoSpurious/spurious.dbml.layout
  24. +15,876 −0 333a/UDBtoSpurious/UDBtoSpurious/spurious.designer.vb
  25. +849 −0 333a/UDBtoSpurious/UDBtoSpurious/udb.dbml
  26. +228 −0 333a/UDBtoSpurious/UDBtoSpurious/udb.dbml.layout
  27. +17,779 −0 333a/UDBtoSpurious/UDBtoSpurious/udb.designer.vb
View
Binary file not shown.
View
Binary file not shown.
View
@@ -0,0 +1,27 @@
This is the UDB UDB 0.12.0 (391) for MaNGOS 9999 with SD2 SQL for rev. 1702 - 391 database converted to Spurious Format.
Some of the tables I was unable to figure out at the moment, so I am sure there will be database fixes needed.
In order to write a conversion program in the shortest amount of time, I used LINQ to SQL however, due to major bugs
in the open source project DLinq, the LINQ provider for MySQL (it could not handle most of the linq queries needed),
I had to convert the databases to MSSQL and back to MySQL in order to do the conversion.
The version of MSSQL I am using is Microsoft SQL Server 2008 Express Edition R2, therefore the database backups are in
the format created by R2, and may not restore to earlier version of MSSQL.
If you intend to run the UDBtoSpurious conversion program, you will need to change the connection strings in the app.config file.
You will also need to create a directory called dbc under the directory the executable is in, and copy the following dbc files into
the /dbc directory:
BattlemasterList.dbc
ChrClasses.dbc
ChrRaces.dbc
QuestFactionReward.dbc
QuestXP.dbc
Spell.dbc
If you find any bugs with this database, please leave a bug report on the forums at www.spuriousemu.com.
Thanks.
W@WAdict.
View
BIN +11.1 MB 333a/Spurious333a.rar
Binary file not shown.
@@ -0,0 +1,20 @@

Microsoft Visual Studio Solution File, Format Version 10.00
# Visual Basic Express 2008
Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "UDBtoSpurious", "UDBtoSpurious\UDBtoSpurious.vbproj", "{7FA84191-E99F-45EF-B5E1-2F1919E72D5C}"
EndProject
Global
GlobalSection(SolutionConfigurationPlatforms) = preSolution
Debug|Any CPU = Debug|Any CPU
Release|Any CPU = Release|Any CPU
EndGlobalSection
GlobalSection(ProjectConfigurationPlatforms) = postSolution
{7FA84191-E99F-45EF-B5E1-2F1919E72D5C}.Debug|Any CPU.ActiveCfg = Debug|Any CPU
{7FA84191-E99F-45EF-B5E1-2F1919E72D5C}.Debug|Any CPU.Build.0 = Debug|Any CPU
{7FA84191-E99F-45EF-B5E1-2F1919E72D5C}.Release|Any CPU.ActiveCfg = Release|Any CPU
{7FA84191-E99F-45EF-B5E1-2F1919E72D5C}.Release|Any CPU.Build.0 = Release|Any CPU
EndGlobalSection
GlobalSection(SolutionProperties) = preSolution
HideSolutionNode = FALSE
EndGlobalSection
EndGlobal
@@ -0,0 +1,62 @@
Module DBCDatabase
#Region "BattlemasterList"
Public BattlemasterList As New Dictionary(Of Integer, BattleMasters)
Public Class BattleMasters
Public BattleMaster As Integer
Public Map1 As Integer
Public Map2 As Integer
Public Map3 As Integer
Public bType As Integer
Public Name As String
Public Band As Integer
Public MinLevel As Integer
Public MaxLevel As Integer
End Class
#End Region
#Region "QuestXP"
Public QuestXP As New Dictionary(Of Integer, QuestXPs)
Public Class QuestXPs
Public QuestLevel As Integer
Public RewXpID(9) As Integer
End Class
#End Region
#Region "QuestFactionReward"
Public QuestFactionReward As New Dictionary(Of Integer, QuestFactionRewards)
Public Class QuestFactionRewards
Public RepType As Integer
Public RewRepValue(9) As Integer
End Class
#End Region
#Region "Spell"
Public Spell As New Dictionary(Of Integer, Spells)
Public Class Spells
Public SpellID As Integer
Public SpellName As String
End Class
#End Region
#Region "ChrRaces"
Public Race As New Dictionary(Of Integer, Races)
Public Class Races
Public Race As Integer
Public Faction As Integer
Public Model_M As Integer
Public Model_F As Integer
Public TeamID As Integer
Public CinematicSequenceID As Integer
Public Name As String
Public Expansion As Integer
End Class
#End Region
#Region "ChrClasses"
Public Classe As New Dictionary(Of Integer, Classes)
Public Class Classes
Public Classe As Integer
Public PowerType As Integer
Public SpellFamily As Integer
Public CinematicSequenceID As Integer
Public Expansion As Integer
End Class
#End Region
End Module
@@ -0,0 +1,170 @@
Module DBCLoad
#Region "BattlemasterList"
Public Sub LoadBattlemasterList()
Try
Dim tmpDBC As DBC.BufferedDBC = New DBC.BufferedDBC("dbc\BattlemasterList.dbc")
Dim KeyID As Integer
Dim i As Integer = 0
For i = 0 To tmpDBC.Rows - 1
KeyID = tmpDBC.Item(i, 0, DBC.DBCValueType.DBC_INTEGER)
Dim BMaster As New BattleMasters
BMaster.BattleMaster = KeyID
BMaster.Map1 = tmpDBC.Item(i, 1, DBC.DBCValueType.DBC_INTEGER)
BMaster.Map2 = tmpDBC.Item(i, 2, DBC.DBCValueType.DBC_INTEGER)
If BMaster.Map2 = -1 Then BMaster.Map2 = 0
BMaster.Map3 = tmpDBC.Item(i, 3, DBC.DBCValueType.DBC_INTEGER)
If BMaster.Map3 = -1 Then BMaster.Map3 = 0
BMaster.bType = tmpDBC.Item(i, 9, DBC.DBCValueType.DBC_INTEGER)
BMaster.Name = tmpDBC.Item(i, 11, DBC.DBCValueType.DBC_STRING)
BMaster.Band = tmpDBC.Item(i, 28, DBC.DBCValueType.DBC_INTEGER)
BMaster.MinLevel = tmpDBC.Item(i, 30, DBC.DBCValueType.DBC_INTEGER)
BMaster.MaxLevel = tmpDBC.Item(i, 31, DBC.DBCValueType.DBC_INTEGER)
BattlemasterList.Add(KeyID, BMaster)
Next
tmpDBC.Dispose()
Catch e As System.IO.DirectoryNotFoundException
MessageBox.Show("DBC File : BattlemasterList missing.")
End Try
End Sub
#End Region
#Region "QuestXP"
Public Sub LoadQuestXP()
Try
Dim tmpDBC As DBC.BufferedDBC = New DBC.BufferedDBC("dbc\QuestXP.dbc")
Dim KeyID As Integer
Dim i As Integer = 0
For i = 0 To tmpDBC.Rows - 1
KeyID = tmpDBC.Item(i, 0, DBC.DBCValueType.DBC_INTEGER)
Dim Quest As New QuestXPs
Quest.QuestLevel = KeyID
For j = 0 To 9
Quest.RewXpID(j) = tmpDBC.Item(i, j + 1, DBC.DBCValueType.DBC_INTEGER)
Next
QuestXP.Add(KeyID, Quest)
Next
tmpDBC.Dispose()
Catch e As System.IO.DirectoryNotFoundException
MessageBox.Show("DBC File : QuestXP missing.")
End Try
End Sub
#End Region
#Region "QuestFactionReward"
Public Sub LoadQuestFactionReward()
Try
Dim tmpDBC As DBC.BufferedDBC = New DBC.BufferedDBC("dbc\QuestFactionReward.dbc")
Dim KeyID As Integer
Dim i As Integer = 0
For i = 0 To tmpDBC.Rows - 1
KeyID = tmpDBC.Item(i, 0, DBC.DBCValueType.DBC_INTEGER)
Dim FactionReward As New QuestFactionRewards
FactionReward.RepType = KeyID
For j = 0 To 9
FactionReward.RewRepValue(j) = tmpDBC.Item(i, j + 1, DBC.DBCValueType.DBC_INTEGER)
Next
QuestFactionReward.Add(KeyID, FactionReward)
Next
tmpDBC.Dispose()
Catch e As System.IO.DirectoryNotFoundException
MessageBox.Show("DBC File : QuestFactionReward missing.")
End Try
End Sub
#End Region
#Region "Spell"
Public Sub LoadSpells()
Try
Dim tmpDBC As DBC.BufferedDBC = New DBC.BufferedDBC("dbc\Spell.dbc")
Dim KeyID As Integer
Dim i As Integer = 0
For i = 0 To tmpDBC.Rows - 1
KeyID = tmpDBC.Item(i, 0, DBC.DBCValueType.DBC_INTEGER)
Dim SpellRecord As New Spells
SpellRecord.SpellID = KeyID
SpellRecord.SpellName = tmpDBC.Item(i, 136, DBC.DBCValueType.DBC_STRING)
Spell.Add(KeyID, SpellRecord)
Next
tmpDBC.Dispose()
Catch e As System.IO.DirectoryNotFoundException
MessageBox.Show("DBC File : Spell missing.")
End Try
End Sub
#End Region
#Region "ChrRaces"
Public Sub LoadRaces()
Try
Dim tmpDBC As DBC.BufferedDBC = New DBC.BufferedDBC("dbc\ChrRaces.dbc")
Dim KeyID As Integer
Dim i As Integer = 0
For i = 0 To tmpDBC.Rows - 1
KeyID = tmpDBC.Item(i, 0, DBC.DBCValueType.DBC_INTEGER)
Dim RaceRecord As New Races
RaceRecord.Race = KeyID
RaceRecord.Faction = tmpDBC.Item(i, 2, DBC.DBCValueType.DBC_INTEGER)
RaceRecord.Model_M = tmpDBC.Item(i, 4, DBC.DBCValueType.DBC_INTEGER)
RaceRecord.Model_F = tmpDBC.Item(i, 5, DBC.DBCValueType.DBC_INTEGER)
RaceRecord.TeamID = tmpDBC.Item(i, 7, DBC.DBCValueType.DBC_INTEGER)
RaceRecord.CinematicSequenceID = tmpDBC.Item(i, 12, DBC.DBCValueType.DBC_INTEGER)
RaceRecord.Name = tmpDBC.Item(i, 14, DBC.DBCValueType.DBC_STRING)
RaceRecord.Expansion = tmpDBC.Item(i, 68, DBC.DBCValueType.DBC_INTEGER)
Race.Add(KeyID, RaceRecord)
Next
tmpDBC.Dispose()
Catch e As System.IO.DirectoryNotFoundException
MessageBox.Show("DBC File : ChrRaces missing.")
End Try
End Sub
#End Region
#Region "ChrClasses"
Public Sub LoadClasses()
Try
Dim tmpDBC As DBC.BufferedDBC = New DBC.BufferedDBC("dbc\ChrClasses.dbc")
Dim KeyID As Integer
Dim i As Integer = 0
For i = 0 To tmpDBC.Rows - 1
KeyID = tmpDBC.Item(i, 0, DBC.DBCValueType.DBC_INTEGER)
Dim ClasseRecord As New Classes
ClasseRecord.Classe = KeyID
ClasseRecord.PowerType = tmpDBC.Item(i, 2, DBC.DBCValueType.DBC_INTEGER)
ClasseRecord.SpellFamily = tmpDBC.Item(i, 56, DBC.DBCValueType.DBC_INTEGER)
ClasseRecord.CinematicSequenceID = tmpDBC.Item(i, 58, DBC.DBCValueType.DBC_INTEGER)
ClasseRecord.Expansion = tmpDBC.Item(i, 59, DBC.DBCValueType.DBC_INTEGER)
Classe.Add(KeyID, ClasseRecord)
Next
tmpDBC.Dispose()
Catch e As System.IO.DirectoryNotFoundException
MessageBox.Show("DBC File : ChrClasses missing.")
End Try
End Sub
#End Region
End Module
Oops, something went wrong.

0 comments on commit 49d6c67

Please sign in to comment.