[ALL] Descrição para cada classe.

Código:


Name = txtDescri
Locked = True
Multiline = True


Código:

    frmNewChar.txtDescri.Text = Class(cmbClass.ListIndex + 1).Descri

Código:

    ' :::::::::::::::::::::::::::::::::::::::
    ' :: New character classes data packet ::
    ' :::::::::::::::::::::::::::::::::::::::
    If Parse(0) = "newcharclasses" Then
        n = 1
       
        ' Max classes
        Max_Classes = Val(Parse(n))
        ReDim Class(1 To Max_Classes) As ClassRec
       
        n = n + 1

        For I = 1 To Max_Classes
            Class(I).name = Parse(n)
           
            Class(I).HP = Val(Parse(n + 1))
            Class(I).MP = Val(Parse(n + 2))
            Class(I).SP = Val(Parse(n + 3))
           
            Class(I).STR = Val(Parse(n + 4))
            Class(I).DEF = Val(Parse(n + 5))
            Class(I).speed = Val(Parse(n + 6))
            Class(I).MAGI = Val(Parse(n + 7))
            'Class(i).INTEL = Val(Parse(n + 8))
            Class(I).MaleSprite = Val(Parse(n + 8))
            Class(I).FemaleSprite = Val(Parse(n + 9))
            Class(I).Locked = Val(Parse(n + 10))
           
        n = n + 11
        Next I

Código:

    ' :::::::::::::::::::::::::::::::::::::::
    ' :: New character classes data packet ::
    ' :::::::::::::::::::::::::::::::::::::::
    If Parse(0) = "newcharclasses" Then
        n = 1
       
        ' Max classes
        Max_Classes = Val(Parse(n))
        ReDim Class(1 To Max_Classes) As ClassRec
       
        n = n + 1

        For I = 1 To Max_Classes
            Class(I).name = Parse(n)
           
            Class(I).HP = Val(Parse(n + 1))
            Class(I).MP = Val(Parse(n + 2))
            Class(I).SP = Val(Parse(n + 3))
           
            Class(I).STR = Val(Parse(n + 4))
            Class(I).DEF = Val(Parse(n + 5))
            Class(I).speed = Val(Parse(n + 6))
            Class(I).MAGI = Val(Parse(n + 7))
            'Class(i).INTEL = Val(Parse(n + 8))
            Class(I).MaleSprite = Val(Parse(n + 8))
            Class(I).FemaleSprite = Val(Parse(n + 9))
            Class(I).Locked = Val(Parse(n + 10))
       
            Class(I).Descri = Parse(n + 11)
           
        n = n + 12
        Next I

Código:

Type ClassRec
    name As String * NAME_LENGTH
    MaleSprite As Long
    FemaleSprite As Long
   
    Locked As Long
   
    STR As Long
    DEF As Long
    speed As Long
    MAGI As Long
   
    ' For client use
    HP As Long
    MP As Long
    SP As Long
End Type

Código:

Type ClassRec
    name As String * NAME_LENGTH
    Descri As String
    MaleSprite As Long
    FemaleSprite As Long
   
    Locked As Long
   
    STR As Long
    DEF As Long
    speed As Long
    MAGI As Long
   
    ' For client use
    HP As Long
    MP As Long
    SP As Long
End Type

Código:

Type ClassRec
    Name As String * NAME_LENGTH
    AdvanceFrom As Long
    LevelReq As Long

    Type As Long
    Locked As Long
    MaleSprite As Long
    FemaleSprite As Long
    STR As Long
    DEF As Long
    Speed As Long
    Magi As Long
    Map As Long
    x As Byte
    y As Byte
End Type

Código:

Type ClassRec
    Name As String * NAME_LENGTH
    AdvanceFrom As Long
    LevelReq As Long
    Descri As String

    Type As Long
    Locked As Long
    MaleSprite As Long
    FemaleSprite As Long
    STR As Long
    DEF As Long
    Speed As Long
    Magi As Long
    Map As Long
    x As Byte
    y As Byte
End Type

Código:

Sub ClearClasses()
    Dim i As Long

    For i = 1 To Max_Classes
        Class(i).Name = vbNullString
        Class(i).AdvanceFrom = 0
        Class(i).LevelReq = 0
        Class(i).Descri = vbNullString
        Class(i).Type = 1
        Class(i).STR = 0
        Class(i).DEF = 0
        Class(i).Speed = 0
        Class(i).Magi = 0
        Class(i).FemaleSprite = 0
        Class(i).MaleSprite = 0
        Class(i).Map = 0
        Class(i).x = 0
        Class(i).y = 0
    Next

End Sub

Código:

Sub SendNewCharClasses(ByVal Index As Long)
    Dim i As Long
    Dim Packet As String

    Packet = "NEWCHARCLASSES" & SEP_CHAR & Max_Classes & SEP_CHAR

    For i = 1 To Max_Classes
        Packet = Packet & GetClassName(i) & SEP_CHAR & GetClassMaxHP(i) & SEP_CHAR & GetClassMaxMP(i) & SEP_CHAR & GetClassMaxSP(i) & SEP_CHAR & Class(i).STR & SEP_CHAR & Class(i).DEF & SEP_CHAR & Class(i).Speed & SEP_CHAR & Class(i).Magi & SEP_CHAR & Class(i).MaleSprite & SEP_CHAR & Class(i).FemaleSprite & SEP_CHAR & Class(i).Locked & SEP_CHAR
    Next

    Packet = Packet & END_CHAR
    Call SendDataTo(Index, Packet)
End Sub

Código:

Sub SendNewCharClasses(ByVal Index As Long)
    Dim i As Long
    Dim Packet As String

    Packet = "NEWCHARCLASSES" & SEP_CHAR & Max_Classes & SEP_CHAR

    For i = 1 To Max_Classes
        Packet = Packet & GetClassName(i) & SEP_CHAR & GetClassMaxHP(i) & SEP_CHAR & GetClassMaxMP(i) & SEP_CHAR & GetClassMaxSP(i) & SEP_CHAR & Class(i).STR & SEP_CHAR & Class(i).DEF & SEP_CHAR & Class(i).Speed & SEP_CHAR & Class(i).Magi & SEP_CHAR & Class(i).MaleSprite & SEP_CHAR & Class(i).FemaleSprite & SEP_CHAR & Class(i).Locked & SEP_CHAR & Class(i).Descri & SEP_CHAR
    Next

    Packet = Packet & END_CHAR
    Call SendDataTo(Index, Packet)
End Sub

Código:

Sub LoadClasses()
    Dim FileName As String
    Dim i As Long

    Call CheckClasses
    FileName = App.Path & "\Classes\info.ini"
    Max_Classes = Val(GetVar(FileName, "INFO", "MaxClasses"))
    ReDim Class(1 To Max_Classes) As ClassRec
    Call ClearClasses

    For i = 1 To Max_Classes
        Call SetStatus("Carregando classes... " & Int((i / Max_Classes) * 100) & "%")
        FileName = App.Path & "\Classes\Classe" & i & ".ini"
        Class(i).Name = GetVar(FileName, "CLASS", "Name")
        Class(i).Descri = GetVar(FileName, "CLASS", "Descri")
        Class(i).MaleSprite = GetVar(FileName, "CLASS", "MaleSprite")
        Class(i).FemaleSprite = GetVar(FileName, "CLASS", "FemaleSprite")
        Class(i).STR = Val(GetVar(FileName, "CLASS", "STR"))
        Class(i).DEF = Val(GetVar(FileName, "CLASS", "DEF"))
        Class(i).Speed = Val(GetVar(FileName, "CLASS", "SPEED"))
        Class(i).Magi = Val(GetVar(FileName, "CLASS", "MAGI"))
        Class(i).Map = Val(GetVar(FileName, "CLASS", "MAP"))
        Class(i).x = Val(GetVar(FileName, "CLASS", "X"))
        Class(i).y = Val(GetVar(FileName, "CLASS", "Y"))
        Class(i).Locked = Val(GetVar(FileName, "CLASS", "Locked"))

        DoEvents
    Next

End Sub

Código:

Sub SaveClasses()
    Dim FileName As String
    Dim i As Long

    FileName = App.Path & "\Classes\info.ini"

    If Not FileExist("Classes\info.ini") Then
        Call SpecialPutVar(FileName, "INFO", "MaxClasses", 3)
        Max_Classes = 3
    End If

    For i = 1 To Max_Classes
        Call SetStatus("Salvando classes... " & Int((i / Max_Classes) * 100) & "%")

        DoEvents
        FileName = App.Path & "\Classes\Classe" & i & ".ini"

        If Not FileExist("Classes\Classe" & i & ".ini") Then
            Call PutVar(FileName, "CLASS", "Name", Trim$(Class(i).Name))
            Call PutVar(FileName, "CLASS", "Descri", Trim$(Class(i).Descri))
            Call PutVar(FileName, "CLASS", "MaleSprite", STR(Class(i).MaleSprite))
            Call PutVar(FileName, "CLASS", "FemaleSprite", STR(Class(i).FemaleSprite))
            Call PutVar(FileName, "CLASS", "STR", STR(Class(i).STR))
            Call PutVar(FileName, "CLASS", "DEF", STR(Class(i).DEF))
            Call PutVar(FileName, "CLASS", "SPEED", STR(Class(i).Speed))
            Call PutVar(FileName, "CLASS", "MAGI", STR(Class(i).Magi))
            Call PutVar(FileName, "CLASS", "MAP", STR(Class(i).Map))
            Call PutVar(FileName, "CLASS", "X", STR(Class(i).x))
            Call PutVar(FileName, "CLASS", "Y", STR(Class(i).y))
            Call PutVar(FileName, "CLASS", "Locked", STR(Class(i).Locked))
        End If

    Next

End Sub

Descri= Descrição da classe e blá, blá, blá.