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!

Adaptando Reset

Ver o tópico anterior Ver o tópico seguinte Ir em baixo

Adaptando Reset

Mensagem por thales12 em 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 >>> [Você precisa estar registrado e conectado para ver este link.]

thales12
Moderador
Moderador

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

http://www.rdmgames.tk

Voltar ao Topo Ir em baixo

Re: Adaptando Reset

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

Muito bom bastante organizado!!


Divulgue nosso Forum!
[Você precisa estar registrado e conectado para ver este link.]
Código:
[url=http://makersbrasil.forumeiros.com/]
src="http://img841.imageshack.us/img841/9522/92324935.png"
border="0">[/url]



E meu fan? entao use:

Código:
[img]http://www.baixa.la/arquivos/3908525_imagem.gif[/img]

Sign:
Spoiler:




spectrus
Administrador
Administrador

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

Voltar ao Topo Ir em baixo

Re: Adaptando Reset

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

como o spectrus disse acima + 1 cred pois esta bem organizado ;D

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

Voltar ao Topo Ir em baixo

Re: Adaptando Reset

Mensagem por Conteúdo patrocinado


Conteúdo patrocinado


Voltar ao Topo Ir em baixo

Ver o tópico anterior Ver o tópico seguinte Voltar ao Topo

- Tópicos similares

 
Permissão deste fórum:
Você não pode responder aos tópicos neste fórum