Contador de Dead e Kill (Com Experiência).txt

por Thales12 Dom 26 Fev 2012, 12:03

Seguinte galera, esse foi um pedido do usuário Flips03 que estou disponibilizando para vocês.

Como funciona : Ao matar 1 player, você ganha 1 Kill e se morrer ganha 1 Dead, com isso poderá criar infomações do player para rankings, torneios, o que bem entender. Ao matar o Player você ganha 10% da Experiência que ele tem, e o Player que morre perde 10% de sua Experiência.

Lembrando que este tutorial é somente para Player Vs Player. Se você matar 1 Npc, não ganhara 1 Kill.

Server~Side

No ModTypes, No Type PlayerRec Procure por :

Código:: PK As Byte

Abaixo adicione :

Código:: Kill As Long Dead As Long

No ModTypes, Na sub :

Código:: Sub ClearChar(ByVal Index As Long, _ ByVal CharNum As Long)

Procure por :

Código:: Player(Index).Char(CharNum).Magi = 0

Abaixo adicione :

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

Ainda na mesma Sub procure por :

Código:: Player(Index).Char(CharNum).Dir = 0

E abaixo adicione :

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

No Final do ModTypes adicione isso :

Código:: Function GetPlayerKill(ByVal Index As Long) As Long GetPlayerKill = Player(Index).Char(Player(Index).CharNum).Kill End Function Sub SetPlayerKill(ByVal Index As Long, _ ByVal Kill As Long) Player(Index).Char(Player(Index).CharNum).Kill = Kill End Sub Function GetPlayerDead(ByVal Index As Long) As Long GetPlayerDead = Player(Index).Char(Player(Index).CharNum).Dead End Function Sub SetPlayerDead(ByVal Index As Long, _ ByVal Dead As Long) Player(Index).Char(Player(Index).CharNum).Dead = Dead End Sub

No ModDatabase Na Sub AddChar Procure por :

Código:: Player(Index).Char(CharNum).Level = 1

E abaixo adicione :

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

Agora no ModGameLogic na Sub AttackPlayer procure por :

Código:: Call SendDataToMap(GetPlayerMap(Victim), "sound" & SEP_CHAR & "Morte" & END_CHAR)

E abaixo adicione :

Código:: Call SetPlayerDead(Victim, GetPlayerDead(Victim) + 1) Call SetPlayerKill(Attacker, GetPlayerKill(Attacker) + 1) Call SetPlayerExp(Attacker, GetPlayerExp(Attacker) + (GetPlayerExp(Victim) * 10) / 100) Call SetPlayerExp(Victim, GetPlayerExp(Victim) - (GetPlayerExp(Victim) * 10) / 100)

Pronto, Bom proveito a todos!

Créditos : Guardian

Como utilizar : Vocês utilizarão eles das seguintes maneiras :

GetPlayerDead(Index) e SetPlayerDead(Index, Mortes)
GetPlayerKill(Index) e SetPlayerKill(Index, Assassinatos)

por giovani18 Dom 22 Abr 2012, 11:04

otimo tutorial mais tem como fazer pra aparece na frm mirage mostrando pro player guantos ele matou???

por Guardian Dom 22 Abr 2012, 11:50

giovani18 escreveu:otimo tutorial mais tem como fazer pra aparece na frm mirage mostrando pro player guantos ele matou???

Só colocar uma label no frmMirage. e fazer nele aparecer o GetPlayerKill ou o GetPlayerDead. Neutral

Se não conseguir, tem um tutorial na parte do EO... Você pode usar ele como base que é praticamente a mesma coisa.

@Off : Nem sabia que esse meu tutorial tinha sido passado pra essa MMORPG. kkkkkkk'

por Sαkurαy Seg 23 Abr 2012, 17:32

Muito bom ein Thales, ajudando o pessoal, muito bom. +1 crédito.

por giovani18 Seg 23 Abr 2012, 20:35

vlw ai vo tenta fazer isso e se caso alguem fizer antes de mim posta aqui pra ajudar outras pessoas e amim tambem ^^ e que to com pouco tempo vlw ai galera

edit: ai gente tentei uma coisa mais nao ta pegando ve se fiz algo errado voposta aqui mesmo

eu fui em
frmMirage.lblLevel.Caption = "Level " & Val(Parse(7))

e coloquei asim
frmMirage.lblVitoria.Caption = "Vitorias : " & Val(Parse( Cool

)
frmMirage.lblDerrota.Caption = "Derrotas : " & Val(Parse(9))

depois criei 2 label numa picturi box aqui com o nome lblvitorias ea outra lblderrotas com as captions asim Vitorias : 0 e Derrotas : 0

mais guando eu mato nao muda nada ajuda ai

por pedrex Seg 07 maio 2012, 20:47

Onde vejo quantos kills e dead os players tem ?

por sushi123 Seg 21 maio 2012, 17:26

tbm qria sabe pedrex '--'

por Conteúdo patrocinado

Contador de Dead e Kill (Com Experiência).txt

Contador de Dead e Kill (Com Experiência).txt

Re: Contador de Dead e Kill (Com Experiência).txt

Re: Contador de Dead e Kill (Com Experiência).txt

Re: Contador de Dead e Kill (Com Experiência).txt

Re: Contador de Dead e Kill (Com Experiência).txt

Re: Contador de Dead e Kill (Com Experiência).txt

Re: Contador de Dead e Kill (Com Experiência).txt

Re: Contador de Dead e Kill (Com Experiência).txt