[Duvida]transformaçao por level automatico[Duvida]

bom, estou com duvida na transformaçao por level fiz tudo certo e n foi vo mostrar meu server side:
Sub CheckPlayerLevelUp(ByVal index As Long)
Dim i As Long
Dim d As Long
Dim c As Long
Dim Points As Long
c = 0

If GetPlayerExp(index) >= GetPlayerNextLevel(index) Then
If GetPlayerLevel(index) < MAX_LEVEL Then
Do Until GetPlayerExp(index) < GetPlayerNextLevel(index)
DoEvents
If GetPlayerLevel(index) < MAX_LEVEL Then
If GetPlayerExp(index) >= GetPlayerNextLevel(index) Then
d = GetPlayerExp(index) - GetPlayerNextLevel(index)
Call SetPlayerLevel(index, GetPlayerLevel(index) + 1)
i = Int(GetPlayerSPEED(index) / 10)
If i < 1 Then
i = 1
End Sub
If i > 3 Then
i = 3

' Transformação por level
Public Sub Transformaçao(ByVal index As Long)
If GetPlayerSprite(index) = 12 Then ' sprite requerida
If GetPlayerLevel(index) = 50 Then ' level requerido
SetPlayerSprite index, 13 ' sprite q o player vai virar
SetPlayerStat index, Stats.strength, GetPlayerStat(index, Stats.strength) + 10 'stats que ira ganhar força
SetPlayerStat index, Stats.Endurance, GetPlayerStat(index, Stats.Endurance) + 10 ' stats que ira ganhar defesa
SetPlayerStat index, Stats.Intelligence, GetPlayerStat(index, Stats.Intelligence) + 10 ' stats que ira ganhar inteligencia
SetPlayerStat index, Stats.Agility, GetPlayerStat(index, Stats.Agility) + 10 ' stats que ira ganhar em agilidade
SetPlayerStat index, Stats.Willpower, GetPlayerStat(index, Stats.Willpower) + 10 'stats que ira ganhar em willpower
Call PlayerMsg(index, "O tempo se passou... E Você acaba de evoluir para o ssj1!", BRIGHTGREEN) ' mensagem ao mudar de sprite
SendPlayerData index
SendStats index
End If
Exit Sub '
End If
End Sub

q isso vei, cole vai se lascar arruma essa topico posta a imagem sobre seu erro e coloque o [code][*/code] sem o * ...

ja to disendo que n vai vei

alguem me ajuda ai plis

cuidado com o double post...

ja to dizendo que não vai vei: vc deve por o [code] mensagem aqui [* /code] sem o asterisco -.- '