[EO] Counter kill and dead

[iHero]

**Client~Side**

In Type PlayerRec at the end before the End Type, add:

```
    Kill As Long
    Dead As Long
``` **Find:

```
    Call SetPlayerPK(i, Buffer.ReadLong)
```
Look for:

```
    Player(i).Kill = Buffer.ReadLong
    Player(i).Dead = Buffer.ReadLong
```
**Serve~Side**

In Type PlayerRec at the end before the End Type, add:

```
    Kill As Long
    Dead As Long
``` **In Sub AddChar and find it:

```
        Player(Index).Vital(Vitals.MP) = GetPlayerMaxVital(Index, Vitals.MP)
```
Add below:

```
        Player(Index).Kill = 0
        Player(Index).Dead = 0
```
Now in Sub PlayerAttackPlayer look for:

```
        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)
```
And add up:

```
        ' Kill and Dead
        Player(attacker).Kill = Player(attacker).Kill + 1
        Call PlayerMsg(attacker, "Now you have " & Player(attacker).Kill & " Kill's", BrightRed)
        Player(victim).Dead = Player(victim).Dead + 1
        Call PlayerMsg(victim, "Now you have " & Player(victim).Dead & " Deaths", BrightRed)
```
In Function PlayerData look for:

```
    Buffer.WriteLong GetPlayerPK(Index)
```
And add below:

```
    Buffer.WriteLong Player(Index).Kill
    Buffer.WriteLong Player(Index).Dead
```
Credits:

iHero****

[Justn]

> Call PlayerMsg(victim, "Now you have " & Player(victim).Dead & " Dead's", BrightRed)

Deaths*

=p sorry was bugging me

[kibbelz]

could you please stop posting your code in centered. It is annoying to read.

[iHero]

Ok, ok, ok, Soon I edit my post

[vincent329]

one part of you're post i dont understand first you go find (such and such code) then you put look for (such and such code) then it goes to server side that does not really make since

[erkro1]

Thats programming my friend. :P

[Whackeddie99]

Just add that code in where it says find this here add

[Justn]

@vincent329:

> one part of you're post i dont understand first you go find (such and such code) then you put look for (such and such code) then it goes to server side that does not really make since

Find:

```
Call SetPlayerPK(i, Buffer.ReadLong)
```
Add this:

```
Player(i).Kill = Buffer.ReadLong
Player(i).Dead = Buffer.ReadLong
```That better:)?

[Whackeddie99]

I don't really think this works though, I think it just adds a kill and death every time you attack a player lol

[Whackeddie99]

Okay, so this does actually work, but it only sends a player message to count the kills and deaths, which will get annoying after each and every kill and death you get. So I made some labels in frmMain that display your Kills and Deaths, and right now I'm remaking the Player Info Window, and placing all these stats in it, so that when you click on a player whose stats you want to see, it displays name, stats, player kills, player deaths, and NPC kills, NPC deaths, and I'll probably add more things like Guild, Class, etc.