Bom esse tutorial é bem simples. Ele fará com que você possa trancar o char na hora de um jogador for fazer a conta simplesmente para ele não começar com um Char muito forte.
~TUDO LADO DO SERVIDOR~
Vá na sua pasta data do server e abra o Arquivo classes.ini, e em cada classe coloque isso"Locked=0"
Após ter feito tudo isso e salvo o arquivo, vamos para a programação:
MOD TYPES
- Código:
-
Private Type ClassRec
Procure por:[code]StartSpell() As Long[code]
Código:
[code]Class(i).Locked = Val(GetVar(filename, "CLASS" & i, "Locked"))[/code]
modServerTCP
[code]Sub SendNewCharClasses[/code]
Procure por:
[code]Buffer.WriteLong SNewCharClasses[code]
e adcione isso logo em baixo:
Código:
[code]Dim Class_Number As Long
Class_Number = 0
For i = 1 To Max_Classes
If Class(i).Locked = 0 Then
Class_Number = Class_Number + 1
End If[/code]
Next
Troque o
[code]Buffer.WriteLong Max_Classes por Buffer.WriteLong Class_Number[/code]
de Modo que fique essa parte assim
<...>
[code]Buffer.WriteLong SNewCharClasses
Dim Class_Number As Long
Class_Number = 0
For i = 1 To Max_Classes
If Class(i).Locked = 0 Then
Class_Number = Class_Number + 1
End If[/code]
Next
[code]Buffer.WriteLong Class_Number[/code]
Logo abaixo irá encontrar [code]For i = 1 To Class_Number[/code]
adcione esta linha abaixo:
Código:
[code]If Class(i).Locked = 0 Then[/code]
Ainda no mesmo local procure por:
Código:
[code]For q = 1 To Stats.Stat_Count - 1
Buffer.WriteLong Class(i).Stat(q)
Next
Next[/code]
Subistitua isso por isso:
[code]For q = 1 To Stats.Stat_Count - 1
Buffer.WriteLong Class(i).Stat(q)
Next
End If
Next[/code]
END
Bom agora você poderá restringir as suas classes. Se colocar LOCKED=1 então sua classe estará trancada se LOCKED =0 sua classe estará livre para escolha
CREDITOS:
Admiral Refuge(Por ter feito o código)
EU Por postar
[code]