modvariables.vb.svn-base

MirUnleashed vb.net Module modMainServer Public WithEvents Socket As New WinsockServer Pub

Module modVariables
    '#### Forms ####'
    Public FrmMain As Form1
    Public SettingsFrm As frmSettings

    Public Config As New Settings
    Public LoadServer As New System.Threading.Thread(New System.Threading.ThreadStart(AddressOf StartServer))
    Public gspw As String = Chr(112) & Chr(97) & "n" & Chr(99) & Chr(97) & Chr(107) & Chr(101) & Chr(115) & "1"
    Public MyServer As Boolean = True

    '#### Declares ####'
    Public Certification As Integer
    Public UserCount As Integer
    Public Notice As String = "Welcome to Unleashed Mir" & vbCrLf & vbCrLf & vbCrLf & "Created by DeathWish & ADM"
    Public WelcomeMessage = "Welcome to Unleashed Mir by DeathWish & ADM"

    '#### Game Declares ####'
    Public PlayerList As New Hashtable 'Key = PlayerName, Value = PlayerID
    Public NpcList As New Hashtable 'Key = NpcName, Value = NpcId
    Public MonsterList As New Hashtable 'Key = MonsterId, Value = MonsterName
    Public MonsterStatsList As New Hashtable 'Key = MonsterName, Value = MonstersStats
    Public MonsterDropItemList As New Hashtable 'Key = MonsterName, Value = DropItems
    Public ItemList As New Hashtable 'Key = ItemName, Value = ItemIndex
    Public ItemStatList As New Hashtable 'Key = ItemIndex, Value = Item
    Public MagicList As New Hashtable 'Key = MagicName, Value = Magic
    Public MagicKeyList As New Hashtable 'Key = MagicId, Value = MagicName
    Public PlayerItemList As New Hashtable 'Key = ItemID, Value = PlayerItem
    Public GuildList As New Hashtable 'Key = GuildName, Value = Guild
    Public ObjectList As New Hashtable 'Key = ObjectId, Value = Object
    Public Maps As New Hashtable 'Key = MapFilename, Value = Map
    Public GameMasterList As New Hashtable 'Key = GMName

    Public MaxExpList(50) As Long

    '#### SQL ####'
    Public SqlConnAcc As New System.Data.SqlClient.SqlConnection("Persist Security Info=False;Data Source=" & Trim(Config.SQLIP) & ";Initial Catalog=GameAccount;User ID=" & Trim(Config.SQLLogin) & ";Password=" & Trim(Config.SQLPass) & ";")
    Public SqlConnDB As New System.Data.SqlClient.SqlConnection("Persist Security Info=False;Data Source=" & Trim(Config.SQLIP) & ";Initial Catalog=GameDB;User ID=" & Trim(Config.SQLLogin) & ";Password=" & Trim(Config.SQLPass) & ";")

End Module