Makers Brasil
Bem Vindos a Maker´s Brasil (um forum para criação de servidores 2D e 3D)Nos desejamos boa sorte no seu projeto!


Participe do fórum, é rápido e fácil

Makers Brasil
Bem Vindos a Maker´s Brasil (um forum para criação de servidores 2D e 3D)Nos desejamos boa sorte no seu projeto!
Makers Brasil
Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Adaptando Reset

3 participantes

Ir para baixo

reset - Adaptando Reset Empty Adaptando Reset

Mensagem por thales12 Qua Jun 29, 2011 9:24 am

Server~Side

Vá em:

Código:
Sub SavePlayer(ByVal Index As Long)
Procure por:


Código:
  Call PutVar(FileName, "CHAR" & i, "Guildaccess", STR(Player(Index).Char(i).Guildaccess))
Abaixo adicione:


Código:
    Call PutVar(FileName, "CHAR" & i, "Resets", STR(Player(Index).Char(i).Resets))
Vá em:


Código:
Type PlayerRec
Procure por:


Código:
    PK As Byte

Abaixo adicione:

Código:
    Resets As Long
Coloque essa Sub e essa Function no Module modTypes e no Class Module clsCommands:


Código:
Function GetPlayerResets(ByVal Index As Long) As Long
    GetPlayerResets = Player(Index).Char(Player(Index).CharNum).Resets
End Function

Sub SetPlayerResets(ByVal Index As Long, _
  ByVal Resets As Long)
    Player(Index).Char(Player(Index).CharNum).Resets = Resets
End Sub
Vá em:

Código:
Sub LoadPlayer(ByVal Index As Long, _
  ByVal Name As String)
Procure por:


Código:
  Player(Index).Char(i).Guildaccess = Val(GetVar(FileName, "CHAR" & i, "Guildaccess"))
Abaixo adicione:

Código:
  Player(Index).Char(i).Resets = Val(GetVar(FileName, "CHAR" & i, "Resets"))
No classModule clsCommands adicione:


Código:
Sub SendPOINTS(ByVal Index As Long)
    Call SendDataTo(Index, "playerpoints" & SEP_CHAR & GetPlayerPOINTS(Index) & END_CHAR)
End Sub

Comando Reset >>> [Tens de ter uma conta e sessão iniciada para poderes visualizar este link]
thales12
thales12
Moderador
Moderador

Mensagens : 184
Estrelas Makers : 406
Creditos : 55
Data de inscrição : 22/03/2011
Idade : 29
Localização : Rio de Janeiro

http://www.rdmgames.tk

Ir para o topo Ir para baixo

reset - Adaptando Reset Empty Re: Adaptando Reset

Mensagem por spectrus Qua Jun 29, 2011 9:45 am

Muito bom bastante organizado!!
reset - Adaptando Reset Up1
spectrus
spectrus
Administrador
Administrador

Mensagens : 299
Estrelas Makers : 1466
Creditos : 49
Data de inscrição : 01/01/2011
Idade : 30
Localização : V.da conquista bahia

Ir para o topo Ir para baixo

reset - Adaptando Reset Empty Re: Adaptando Reset

Mensagem por Uchiha Ter Jul 05, 2011 7:49 pm

como o spectrus disse acima + 1 cred pois esta bem organizado ;D
Uchiha
Uchiha
Estagiário
Estagiário

Mensagens : 62
Estrelas Makers : 95
Creditos : 11
Data de inscrição : 03/07/2011
Localização : Vitoria Da Conquista - Ba

Ir para o topo Ir para baixo

reset - Adaptando Reset Empty Re: Adaptando Reset

Mensagem por Conteúdo patrocinado


Conteúdo patrocinado


Ir para o topo Ir para baixo

Ir para o topo

- Tópicos semelhantes

 
Permissões neste sub-fórum
Não podes responder a tópicos