Contagem de Mortes e Execuções

por Ricardo Dom 26 Fev 2012, 12:57

Client~Side

modTypes

Na Type PlayerRec, no final antes do End Type, adicione:

Código:: Kill As Long Dead As Long

modHandleData

Procure por:

Código:: Call SetPlayerPK(i, Buffer.ReadLong)

E abaixo adicione:

Código:: Player(i).Kill = Buffer.ReadLong Player(i).Dead = Buffer.ReadLong

Serve~Side

modTypes

Na Type PlayerRec, no final antes do End Type, adicione:

Código:: Kill As Long Dead As Long

modDataBase

Na Sub AddChar e nela ache:

Código:: Player(Index).Vital(Vitals.MP) = GetPlayerMaxVital(Index, Vitals.MP)

E abaixo adicione:

Código:: Player(Index).Kill = 0 Player(Index).Dead = 0

modCombat

Agora na Sub PlayerAttackPlayer procure por:

Código:: If exp = 0 Then Call PlayerMsg(victim, "You lost no exp.", BrightRed) Call PlayerMsg(attacker, "You received no exp.", BrightBlue) Else Call SetPlayerExp(victim, GetPlayerExp(victim) - exp) SendEXP victim Call PlayerMsg(victim, "You lost " & exp & " exp.", BrightRed)

E acima adicione:

Código:: ' Kill e Dead Player(attacker).Kill = Player(attacker).Kill + 1 Call PlayerMsg(attacker, "Agora você tem " & Player(attacker).Kill & " Kill's", BrightRed) Player(victim).Dead = Player(victim).Dead + 1 Call PlayerMsg(victim, "Agora você tem " & Player(victim).Dead & " Dead's", BrightRed)

modServerTcp

Na Function PlayerData procure por:

Código:: Buffer.WriteLong GetPlayerPK(Index)

E abaixo adicione:

Código:: Buffer.WriteLong Player(Index).Kill Buffer.WriteLong Player(Index).Dead

Créditos

Ricardo

por St4rk Dom 26 Fev 2012, 13:03

Acho que não precisa enviar no PlayerData a taxa de quantos mato ou morreu, só sei o player quiser que apareça na tela Very Happy

por Sαkurαy Dom 26 Fev 2012, 13:12

Muito bom o sistema Ricardo xD

+1 crédito.

por Mystico Seg 30 Abr 2012, 00:50

ótimo mais keria saber se da pra criar tipo 1 form de informação pro player ver isso? por mim acho ke só por mysql não? ( 1 engine com mysql ) mais seila se vc souber pode me responder? tipo o player clica no outro e aperta em Informações : e ta la quantos kills e deaths daria pra fazer isso? sem ter mysql? ou tendo ? ( sei que ja tem meses esse tópico mais queria resolver essa questão em outra do mesmo genero )

por Ricardo Seg 30 Abr 2012, 07:49

É so criar 2 labeis na frmMain e na Sub HandlePlayerData, tem uma parte assim:

Código:: If i = MyIndex Then

Ai é so você adicionar um pouco mais para baixo isso:

Código:: lblKill.Caption = "Kills: " & Player(MyIndex).Kill lblDead.Caption = "Deads: " & Player(MyIndex).Dead

Acho que é isso

por Mystico Seg 30 Abr 2012, 16:01

Ricardo escreveu:É so criar 2 labeis na frmMain e na Sub HandlePlayerData, tem uma parte assim:

Código:
If i = MyIndex Then

Ai é so você adicionar um pouco mais para baixo isso:

Código:
lblKill.Caption = "Kills: " & Player(MyIndex).Kill lblDead.Caption = "Deads: " & Player(MyIndex).Dead

Acho que é isso

esse ai é só o player clicar no outro player e ir em informações?
pelo que vi parece ke isso mostra suas informações não a do player online keria a do outro player
Exemplo: eu tou la e vejo 1 malukinho e clica nele e dps em informações eu keria isso ai abri 1 form mostrando as informações do outro player obrigado des de já !

por Eduardo Seg 30 Abr 2012, 16:03

mais esse nao e o topico certo para vc fzer isso crie um topico de ajuda pedindo isso q ai acho q te ajudariam mais

por lraniel Qui 07 Jun 2012, 13:28

Finalmente encontrei qual era o sistema que tava bugando meu game, não sei se é pq aqui é a versão 2.6 starlight, mas quando eu boto esse sistema o negoço para de add os pontos dos stats!

por Naziozeno Dom 24 Jun 2012, 21:51

Opa, tem um bugzinho ai.
Em casos e eu me matar eu ganho 1 kill e 1 dead.

então seria uma boa escolha fazer isso

' Kill e Dead
If GetPlayerPK(attacker) = 1 Then
Player(attacker).Kill = Player(attacker).Kill + 1
Call PlayerMsg(attacker, "Agora você tem " & Player(attacker).Kill & " Kill's", Brown)
Player(victim).Dead = Player(victim).Dead + 1
Call PlayerMsg(victim, "Agora você tem " & Player(victim).Dead & " Dead's", Grey)
End If