var/database/EquipDatabase

proc
    InitializeEquipDatabase()
        if(!fexists("Game Data/Equip Database.db"))
            EquipDatabase = new/database("Game Data/Equip Database.db")

            //Test output
            world << "Successfully created Equip Database.db file."
            /////////////

            var/database/query/q = new

            q.Add("CREATE TABLE EquipInfo(RefID UNIQUE, Name, Description, Icon)")
            q.Execute(EquipDatabase)

            q.Add("CREATE TABLE EquipStats(RefID UNIQUE, Category, EquipType, DamageType, DamageCalc, AttackMultiplier, MagicMultiplier, ATK, MAG, DEF, MDEF, ACC, EVA)")
            q.Execute(EquipDatabase)

            q.Add("CREATE TABLE EquipEffects(RefID, EffectID, Type, Name, Description, Icon)")
            q.Execute(EquipDatabase)
        else EquipDatabase = new/database("Game Data/Equip Database.db")

database/proc
    AddRow(Table, RefID, list/Data)
        var/Columns, Values
        for(var/D in Data)
            Columns += "[D]"
            Values += "NULL"

            if(D != Data[Data.len])
                Columns += ", "
                Values += ", "

        var/database/query/q = new

        q.Add("INSERT INTO [Table] (RefID, [Columns]) VALUES (?, [Values])", RefID)
        q.Execute(src)

        EditData(Table, RefID, Data)

    EditData(Table, RefID, list/Data)
        var/database/query/q = new

        for(var/D in Data)
            q.Add("UPDATE [Table] SET [D] = ? WHERE RefID = \"[RefID]\" AND [D] IS NULL", Data[D])
            q.Execute(src)

    QueryRow(Table, RefID, list/Cells)
        var/Columns

        if(Cells)
            for(var/D in Cells)
                Columns += "[D]"
                if(D != Cells[Cells.len]) Columns += ", "
        else Columns = "*"

        var/database/query/q = new

        q.Add("SELECT [Columns] FROM [Table] WHERE RefID = \"[RefID]\"")
        q.Execute(src)

        while(q.NextRow())
            var/list/RowData = q.GetRowData()

            //Just a test output to see if the table cells are actually getting read.
            var/Desc = "\[[RefID]] "

            for(var/D in RowData)
                if(D == "RefID") continue
                Desc += "[D]: [RowData[D]]"
                if(D != RowData[RowData.len]) Desc += ", "

            world << Desc
            //////////////////

Equip/Excalibur
    RefID = "QUEST001"
    Quest = 1

EquipDatabase.AddRow("EquipInfo", "QUEST001", list("Name" = "Excalipur", "Description" = "A fake."))
EquipDatabase.AddRow("EquipInfo", "QUEST002", list("Name" = "Excalibur", "Description" = "A real."))