Case "SKILLSLIBRES"

If tIndex = 0 Then
Call WriteVar(CharPath & Replace$(ReadField(1, rData, 32), "+", " ") & ".chr", "STATS", "SkillPtsLibres", Arg2)
Call SendData(SendTarget.ToIndex, UserIndex, 0, "||Charfile Alterado:" & tStr & FONTTYPE_INFO)

Else
UserList(tIndex).Stats.SkillPts = val(Arg2)
End If
Exit Sub
Case Else
Call SendData(SendTarget.ToIndex, UserIndex, 0, "||Comando no permitido." & FONTTYPE_INFO)
Exit Sub
End Select

Exit Sub


NECESITO ESO PERO PARA PUNTOS DE TORNEO :S