[AJUDA] Sistema de tradução de STATS

oqbendis escreveu:

Olá gente! Então, um colega aqui da Aldeia me falou sobre como eu podia trocar o nome dos atributos de inglês para os que eu queria, no caso os do Naruto. Porém, acontece que eu traduzi os negócios lá e agora o VB6 Não quer deixar eu executar o .exe pra ver como ta ficando com atualização que eu fiz, e isso ta afetando o outro Sistema que eu coloquei, vendo tutoriais aqui da Aldeia (O de Level Max. 1000)

O erro é esse:

Spoiler:

Obrigado, espero que me ajudem

Apertando Control + F

driko escreveu:Não poderia mudar só o nome exibido na janela do personagem?
Tipo, no cliente, em ModGraphics procure por DrawCharacter, e verá algo como os atributos escritos entre "". 

Mas obrigado, mudarei lá também

oqbendis escreveu:

driko escreveu:Não poderia mudar só o nome exibido na janela do personagem?
Tipo, no cliente, em ModGraphics procure por DrawCharacter, e verá algo como os atributos escritos entre "". 

Então, é que quando eu upo um atributo, o nome dele sobe em inglês, sabe? Ai a pessoa upa TAI no jogo e sobe Strength, se a pessoa não souber os significados ou não souber inglês ela vai ficar {??}. 

Fora que colocando os nomes certos, ficaria bem melhor no jogo em sí

Mas obrigado, mudarei lá também

Código:

' ::::::::::::::::::::::
' :: Use stats packet ::
' ::::::::::::::::::::::
Sub HandleUseStatPoint(ByVal index As Long, ByRef Data() As Byte, ByVal StartAddr As Long, ByVal ExtraVar As Long)
Dim PointType As Byte
Dim Buffer As clsBuffer
Dim sMes As String
   
    Set Buffer = New clsBuffer
    Buffer.WriteBytes Data()
    PointType = Buffer.ReadByte 'CLng(Parse(1))
    Set Buffer = Nothing

    ' Prevent hacking
    If (PointType < 0) Or (PointType > Stats.Stat_Count) Then
        Exit Sub
    End If

    ' Make sure they have points
    If GetPlayerPOINTS(index) > 0 Then
        ' make sure they're not maxed#
        If GetPlayerRawStat(index, PointType) >= 255 Then
            PlayerMsg index, "You cannot spend any more points on that stat.", BrightRed
            Exit Sub
        End If
       
        ' Take away a stat point
        Call SetPlayerPOINTS(index, GetPlayerPOINTS(index) - 1)

        ' Everything is ok
        Select Case PointType
            Case Stats.Strength
                Call SetPlayerStat(index, Stats.Strength, GetPlayerRawStat(index, Stats.Strength) + 1)
                sMes = "Strength"
            Case Stats.Endurance
                Call SetPlayerStat(index, Stats.Endurance, GetPlayerRawStat(index, Stats.Endurance) + 1)
                sMes = "Endurance"
            Case Stats.Intelligence
                Call SetPlayerStat(index, Stats.Intelligence, GetPlayerRawStat(index, Stats.Intelligence) + 1)
                sMes = "Intelligence"
            Case Stats.Agility
                Call SetPlayerStat(index, Stats.Agility, GetPlayerRawStat(index, Stats.Agility) + 1)
                sMes = "Agility"
            Case Stats.Willpower
                Call SetPlayerStat(index, Stats.Willpower, GetPlayerRawStat(index, Stats.Willpower) + 1)
                sMes = "Willpower"
        End Select
       
        SendActionMsg GetPlayerMap(index), "+1 " & sMes, White, 1, (GetPlayerX(index) * 32), (GetPlayerY(index) * 32)

    Else
        Exit Sub
    End If

    ' Send the update
    'Call SendStats(Index)
    SendPlayerData index
End Sub