Mirage Source

Dim RS As ADODB.Recordset
        Set RS = New ADODB.Recordset
        RS.Open "QUERY", Conn_Client, adOpenStatic, adLockOptimistic ' now this are a lot of params, google them and you will know what them all do.
       
        RS.MoveFirst
        Variable = RS.Fields("FKey") ' blablabla
       
        RS.Close
    Set RS = Nothing

For I = 1 To MAX_MAPS
    Call SetStatus("Loading Map " & I & "/" & MAX_MAPS)
    With Map(I)
        .FKey = CLng(RS("FKey"))
        .Name = Trim(CStr(RS("Name")))
        .Revision = CLng(RS("Revision"))
        .Moral = CByte(RS("Moral"))
        .Up = CInt(RS("Up"))
        .Down = CInt(RS("Down"))
        .Left = CInt(RS("mLeft"))
        .Right = CInt(RS("mRight"))
        .Music = CByte(RS("Music"))
        .BootMap = CInt(RS("BootMap"))
        .BootX = CByte(RS("BootX"))
        .BootY = CByte(RS("BootY"))
        .Shop = CByte(RS("Shop"))
        .Indoors = CByte(RS("Indoors"))
        'Load Tiles
        Tiles = Split(Trim(CStr(RS("Tiles"))), "|")
        Q = 0
        For X = 0 To MAX_MAPX
            For Y = 0 To MAX_MAPY
                TileSet() = Split(Tiles(Q), "-")
                .Tile(X, Y).Ground = CInt(TileSet(0))
                .Tile(X, Y).Mask = CInt(TileSet(1))
                .Tile(X, Y).Anim = CInt(TileSet(2))
                .Tile(X, Y).Fringe = CInt(TileSet(3))
                .Tile(X, Y).Type = CInt(TileSet(4))
                .Tile(X, Y).Data1 = CInt(TileSet(5))
                .Tile(X, Y).Data2 = CInt(TileSet(6))
                .Tile(X, Y).Data3 = CInt(TileSet(7))
                Q = Q + 1
            Next Y
        Next X
       
        'Load NPCs
        NPCs = Split(Trim(CStr(RS.Fields("NPCS"))), "-")
        For Q = LBound(NPCs) To UBound(NPCs)
            .Npc(Q + 1) = CByte(NPCs(Q))
        Next Q
       
    End With
    DoEvents
    If I <> MAX_MAPS Then
        RS.MoveNext
    End If
Next I

Public Function GetRecordCount(dbTable As String, Optional WH As String = "0") As Long
'Setup database stuff
Dim RS As ADODB.Recordset
Dim i As Long
Dim SQL As String
    Set RS = New ADODB.Recordset
    If WH = "0" Then
        SQL = "SELECT * FROM " & dbTable & ";"
    Else
        SQL = "SELECT * FROM " & dbTable & " WHERE " & WH & ";"
    End If
   
    RS.Open SQL, Conn_Client, adOpenStatic, adLockReadOnly
   
    RS.MoveFirst
    i = RS.RecordCount
   
    RS.Close
    Set RS = Nothing
    GetRecordCount = i
End Function

Public Sub CheckItems()
'Check to see if max items is how many items there are in the database.
Dim RecCount As Long
Dim i As Long
Dim OffSet As Long
Dim RS As ADODB.Recordset

RecCount = GetRecordCount("Items")
OffSet = MAX_ITEMS - RecCount
If OffSet = 0 Then Exit Sub
Set RS = New ADODB.Recordset
RS.Open "SELECT * FROM Items;", Conn_Client, adOpenStatic, adLockOptimistic

If RS.EOF = True Then Exit Sub

RS.MoveFirst
For i = MAX_ITEMS - OffSet + 1 To MAX_ITEMS
    RS.AddNew
   
    RS!FKey = i
    RS!Name = "   "
    RS!Descricao = "   "
    RS!Pic = 0
    RS!Type = 0
    RS!ClassReq = 0
    RS!Data1 = 0
    RS!Data2 = 0
    RS!Data3 = 0
    RS!TwoHanded = 0
    RS!GuildReq = 0
    RS!Poison_Length = 0
    RS!Poisons = False
    RS!Poison_Vital = 0
    RS!IsRangeWeapon = 0
    RS!RangeAmmo = 0
   
    RS.Update
Next i
RS.Close
Set RS = Nothing
End Sub

Set RS = New ADODB.Recordset
RS.Open "SELECT count(*) FROM shops;", Conn_Server, adOpenStatic, adLockReadOnly
RS.MoveFirst

ShopCount = RS(0)

RS.Close

For I = 1 To MAX_SHOPS

For I = 1 To ShopCount