modgame.vb.svn-base

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

Module modGame

#Region "Load Exp"

    Public Sub LoadExp()
        MaxExpList(0) = 100
        MaxExpList(1) = 200
        MaxExpList(2) = 300
        MaxExpList(3) = 400
        MaxExpList(4) = 600
        MaxExpList(5) = 900
        MaxExpList(6) = 1200
        MaxExpList(7) = 1700
        MaxExpList(8) = 2500
        MaxExpList(9) = 6000
        MaxExpList(10) = 8000
        MaxExpList(11) = 10000
        MaxExpList(12) = 15000
        MaxExpList(13) = 30000
        MaxExpList(14) = 40000
        MaxExpList(15) = 50000
        MaxExpList(16) = 70000
        MaxExpList(17) = 100000
        MaxExpList(18) = 120000
        MaxExpList(19) = 140000
        MaxExpList(20) = 250000
        MaxExpList(21) = 300000
        MaxExpList(22) = 350000
        MaxExpList(23) = 400000
        MaxExpList(24) = 500000
        MaxExpList(25) = 700000
        MaxExpList(26) = 1000000
        MaxExpList(27) = 1400000
        MaxExpList(28) = 1800000
        MaxExpList(29) = 2000000
        MaxExpList(30) = 2400000
        MaxExpList(31) = 2800000
        MaxExpList(32) = 3200000
        MaxExpList(33) = 3600000
        MaxExpList(34) = 4000000
        MaxExpList(35) = 4800000
        MaxExpList(36) = 5600000
        MaxExpList(37) = 8200000
        MaxExpList(38) = 9000000
        MaxExpList(39) = 12000000
        MaxExpList(40) = 16000000
        MaxExpList(41) = 30000000
        MaxExpList(42) = 50000000
        MaxExpList(43) = 80000000
        MaxExpList(44) = 120000000
        MaxExpList(45) = 480000000
        MaxExpList(46) = 1000000000
        MaxExpList(47) = 3000000000
        MaxExpList(48) = 3500000000
        MaxExpList(49) = 4000000000
        MaxExpList(50) = 4500000000
    End Sub

#End Region
#Region "Load Notice"

    Public Sub LoadNotice()
        Dim DataStream As System.IO.TextReader

        If IO.File.Exists("Notice.txt") = False Then
            AddLog("Server", "Notice.txt not found.")
            Exit Sub
        End If
        DataStream = System.IO.File.OpenText("Notice.txt")
        Notice = DataStream.ReadToEnd
        DataStream.Close()
    End Sub

#End Region

#Region "Buffers"

#Region "GetPlayerStats"

    Public Function GetPlayerStats(ByVal Player As clsPlayer) As String
        Dim Output As String

        Output &= Player.AC
        Output &= "/"
        Output &= Player.MaxAC
        Output &= "/"
        Output &= Player.AMC
        Output &= "/"
        Output &= Player.MaxAMC
        Output &= "/"
        Output &= Player.DC
        Output &= "/"
        Output &= Player.MaxDC
        Output &= "/"
        Output &= Player.MC
        Output &= "/"
        Output &= Player.MaxMC
        Output &= "/"
        Output &= Player.SC
        Output &= "/"
        Output &= Player.MaxSC
        Output &= "/"
        Output &= Player.HP
        Output &= "/"
        Output &= Player.MaxHP
        Output &= "/"
        Output &= Player.MP
        Output &= "/"
        Output &= Player.MaxMP
        Output &= "/"
        Output &= Player.Exp
        Output &= "/"
        Output &= Player.MaxExp
        Output &= "/"
        Output &= Player.Accuracy
        Output &= "/"
        Output &= Player.Agility
        Output &= "/"
        Output &= Player.MagicEvasion
        Output &= "/"
        Output &= Player.PoisonEvasion
        Output &= "/"
        Output &= Player.HandWeight
        Output &= "/"
        Output &= Player.MaxHandWeight
        Output &= "/"
        Output &= Player.WearWeight
        Output &= "/"
        Output &= Player.MaxWearWeight
        Output &= "/"
        Output &= Player.Weight
        Output &= "/"
        Output &= Player.MaxWeight
        Output &= "/"
        Output &= Player.ASpeed
        Output &= "/"
        Output &= Player.Holy
        Output &= "/"
        Output &= Player.PoisonRecov
        Output &= "/"
        Output &= Player.MPRecov
        Output &= "/"
        Output &= Player.HPRecov
        Output &= "/"
        Output &= Player.Level
        'Output &= "/"
        'Output &= Player.Looks

        Return Output
    End Function

#Region "OLD"

    'Public Function GetPlayerStats(ByVal Player As clsPlayer) As String
    '    Dim Output As String

    '    Output &= Player.AC
    '    Output &= "/"
    '    Output &= Player.MaxAC
    '    Output &= "/"
    '    Output &= Player.AMC
    '    Output &= "/"
    '    Output &= Player.MaxAMC
    '    Output &= "/"
    '    Output &= Player.DC

    '    Output &= "a"

    '    Output &= Player.MaxDC
    '    Output &= "/"
    '    Output &= Player.MC
    '    Output &= "/"
    '    Output &= Player.MaxMC
    '    Output &= "/"
    '    Output &= Player.SC
    '    Output &= "/"
    '    Output &= Player.MaxSC

    '    Output &= "a"

    '    Output &= Player.HP
    '    Output &= "/"
    '    Output &= Player.MaxHP
    '    Output &= "/"
    '    Output &= Player.MP
    '    Output &= "/"
    '    Output &= Player.MaxMP
    '    Output &= "/"
    '    Output &= Player.Exp

    '    '###########'
    '    Output &= "%"
    '    '###########'

    '    Output &= Player.MaxExp
    '    Output &= "/"
    '    Output &= Player.Accuracy
    '    Output &= "/"
    '    Output &= Player.Agility
    '    Output &= "/"
    '    Output &= Player.MagicEvasion
    '    Output &= "/"
    '    Output &= Player.PoisonEvasion

    '    Output &= "a"

    '    Output &= Player.HandWeight
    '    Output &= "/"
    '    Output &= Player.MaxHandWeight
    '    Output &= "/"
    '    Output &= Player.WearWeight
    '    Output &= "/"
    '    Output &= Player.MaxWearWeight
    '    Output &= "/"
    '    Output &= Player.Weight

    '    Output &= "a"

    '    Output &= Player.MaxWeight
    '    Output &= "/"
    '    Output &= Player.ASpeed
    '    Output &= "/"
    '    Output &= Player.Holy
    '    Output &= "/"
    '    Output &= Player.PoisonRecov
    '    Output &= "/"
    '    Output &= Player.MPRecov

    '    '###########'
    '    Output &= "%"
    '    '###########'

    '    Output &= Player.HPRecov
    '    Output &= "/"
    '    Output &= Player.Level
    '    'Output &= "/"
    '    'Output &= Player.Looks

    '    Return Output
    'End Function

#End Region

#End Region
#Region "GetPlayerBuffer"

    Public Function GetPlayerBuffer(ByVal Player As clsPlayer) As String
        Dim Output As String

        Output &= Player.Name
        Output &= "/"
        Output &= Player.NameColour
        Output &= "/"
        Output &= Player.GuildName
        Output &= "/"
        Output &= Player.X

        Output &= "/"

        Output &= Player.Y
        Output &= "/"
        Output &= Player.Dir
        Output &= "/"
        Output &= ToByte(Player.MagicShield)
        Output &= "/"
        Output &= Player.Hair

        Output &= "/"

        Output &= Player.Weapon
        Output &= "/"
        Output &= Player.Gender
        Output &= "/"
        Output &= Player.Looks
        Output &= "/"
        Output &= Player.HP

        Output &= "/"

        Output &= Player.MP
        Output &= "/"
        Output &= Player.MaxHP
        Output &= "/"
        Output &= Player.MaxMP
        Output &= "/"
        Output &= ToByte(Player.Reved)

        Output &= "/"

        Output &= Player.Light
        Output &= "/"
        Output &= ToByte(Player.IsDead)
        Output &= "/"
        Output &= Player.Poison

        Output &= "/"
        Output &= Player.GuildTitle
        Output &= "/"
        Output &= Player.GuildRank

        Return Output
    End Function

#Region "OLD"

    'Public Function GetPlayerBuffer(ByVal Player As clsPlayer) As String
    '    Dim Output As String

    '    Output &= Player.Name
    '    Output &= "/"
    '    Output &= Player.NameColour
    '    Output &= "/"
    '    Output &= Player.Guild
    '    Output &= "/"
    '    Output &= Player.X

    '    Output &= "