[EEB] Mostrar número de resets na frmMirage

por Vicardosof Qua 26 Jan 2011, 13:09

Como muita gente está a adicionar-me para este tutorial, irei colocá-lo no fórum.
Requesitos:
1) Sistema de resets concluído e funcionando.

1º Passo:
Abra o servidor no Visual Basic.
Vá até a Class clsCommands
Nela adicione no final:

Código:: Public Sub SendResets(byval Index as long) call senddatato(index, "ACRESETS" & SEP_CHAR & trim$(player(index).char(player(index).charnum).resets) & SEP_CHAR & END_CHAR) end Sub

Esse código habilita um comando para enviar o número de resets para o cliente.

*** Fim da edição do Source do Servidor ***

2º Passo:
Abra Principal.txt (Onde tem os scripts) e procure por Sub JoinGame
Troque-o todo para:

Código:: Sub JoinGame(index) Dim GameName Dim MOTD GameName = Trim(GetVar("Dados.ini", "CONFIG", "GameName")) MOTD = GetVar("motd.ini", "MOTD", "Msg") ' Dar boas-vindas Call PlayerMsg(index, "Bem-vindo(a) ao " & GameName & "!", 15) Call SendResets(index) ' Send motd If Trim(MOTD) <> "" Then Call PlayerMsg(index, "MOTD: " & MOTD, 11) End If If GetPlayerAccess(index) = 0 Then Call GlobalMsg(GetPlayerName(index) & " Esta Online! ", 0) ElseIf GetPlayerAccess(index) = 1 Then Call GlobalMsg(GetPlayerName(index) & " (VIP) Esta Online! ", 14) ElseIf GetPlayerAccess(index) = 2 Then Call GlobalMsg(GetPlayerName(index) & " (VIP Premium) Esta Online! ", 9) ElseIf GetPlayerAccess(index) = 15 Then Call GlobalMsg(GetPlayerName(index) & " (Administrador) Esta ONline! ", 10) End if End Sub

3º Passo:
Procure por Sub PlayerLevelUp(index), ainda em principal.txt

Logo abaixo de:

Código:: Call PutVar("Rank.ini", "Resets", GetPlayerName(index), GetPlayerResets(index))

Coloque:

Código:: Call SendResets(index)

*** Fim da edição de scripts ***

4º Passo:
Abra o cliente pelo Visual Basic e adicione uma label na frmMirage, de nome lblResets.

5º Passo:
Ainda no cliente, procure por Sub HandleData.
Nele, logo acima de:

Código:: If Parse(0) = "maxinfo" then

Coloque:

Código:: If Parse(0) = "acresets" then frmmirage.lblresets.caption = "Resets: " & trim$(parse(1)) exit sub end if

***Fim da Edição do Cliente***
CÓDIGO TESTADO 100% sem erros

Obs: Colocar créditos caso poste em algum outro lugar!

por morenoo Qua 26 Jan 2011, 13:30

Valeu caraa vou por isso no meu Projeto +1 Cred

por hbo123 Qua 26 Jan 2011, 13:47

ideia minha e do coyotte lembre disso, na hora q por la, os creditos: HBO e Coyotte por pensar nisso Very Happy

zoa hehehe'.

Vlw manow Very Happy

+10 cred

por Coyotte Qua 26 Jan 2011, 19:09

Cara muito obrigado mesmo...

pela sua paciencia no msn por ter o trabalho de me ajuda em tudo que deu errado etc...

por todo seu esforço muito obrigado mesmo de coração xD

meu topico tava lá a 1 mes vc foi o unico que me ajudo!!

parabens pelo sistema e muito obrigado!!! +900creds [EEB] Mostrar número de resets na frmMirage 965439

[EEB] Mostrar número de resets na frmMirage 965439

por giovani18 Seg 23 Abr 2012, 21:55

aqui nao pe ga da erro aqui o

Public Sub SendResets(byval Index as long)
call senddatato(index, "ACRESETS" & SEP_CHAR & trim$(player(index).char(player(index).charnum).resets) & SEP_CHAR & END_CHAR)
end Sub

da esse erro aki Ambiguous name detected: SendResets