2 questions

[Necromancer]

Is there a way to add a kill/death menu for a certain player? Like on the Online Players menu if you click on one player it will show their level kills/death?

Question 2:
Is there a way so that when it sends a packet it will send 3 instead of 1 that are closely named to the other one? Sorta like a hack tool thingy.

[westin444]

Q1- Yes, I'm sure you could do that in source (quite easy)

Q2- Not Sure

[Guest]

Q2 - im sure

[westin444]

good point, you could just send the packet 3 times…

Call senddata (blah)
call senddata (blah2)

[Guest]

lol thats exactly what he asked

[Bluedoom]

Q1: Yes but from the beggining of the game you would have to LOG all kills and deaths.

OnDeathSub, increment an INI value
OnKillSub (or whatever it is), increment an INI value

btw, i'd recommend a custom menu instead of source; even though source is faster custom menu's are easier to alter.
custom menu retrieves values.

DONE.

[Guest]

haha lol nice one,

BLUEDOOM CURSE U ON UR FAST POSTING!

[Necromancer]

Thanks for the quick replies!

[The Oracle]

for question two it would only make the work of a hacker a small bit slower and it would create tremendous lag, especially if there are a lot of people on.

[Patrick]

wouldn't it be 3 times slower?

[Necromancer]

Would it be possible for anyone to help me out with question 1?  I'm like no good with vb6 at all. (More of a vb.net guy myself)

And screw question 2 then if it would make it 3 times as laggy. lol.

[westin444]

Yes, i could help you with the first one.
I'll get it done by Wednesday at the latest (i'm quite busy)

[Necromancer]

@[BS:

> westin444 link=topic=43727.msg440723#msg440723 date=1241321913]
> Yes, i could help you with the first one.
> I'll get it done by Wednesday at the latest (i'm quite busy)

Alright, thanks.

[westin444]

Ok, i'm finished.

Go into server.vbp
go into modgamelogic and search for
"If Damage >= GetPlayerHP(Victim) Then"
in subattackplayer

add right under this line:
```
Dim attkills As String
            Dim vicdeaths As String
            attkills = GetVar(App.Path & "\profiles\" & GetPlayerName(Attacker) & ".ini\", "Stats", "Kills")
            vicdeaths = GetVar(App.Path & "\profiles\" & GetPlayerName(Victim) & ".ini\", "Stats", "Deaths")
            Call PutVar(App.Path & "\profiles\" & GetPlayerName(Attacker) & ".ini\", "Stats", "Kills", attkills + 1)
            Call Putvar(App.Path & "\profiles\" & GetPlayerName(Victim) & ".ini\", "Stats", "Deaths", defdeaths + 1)

```
below the code
"If Map(GetPlayerMap(Victim)).Moral <> MAP_MORAL_NO_PENALTY Then"
in sub npcattackplayer
add
```
Dim vicdeaths As String
            vicdeaths = GetVar(App.Path & "\profiles\" & GetPlayerName(Victim) & ".ini\", "Stats", "Deaths")
            Call Puutvar(App.Path & "\profiles\" & GetPlayerName(Victim) & ".ini\", "Stats", "Deaths", defdeaths + 1)

```
add below the code "If Damage >= MapNPC(MapNum, MapNpcNum).HP Then"
in sub attacknpc
```
Dim attkills As String
            attkills = GetVar(App.Path & "\profiles\" & GetPlayerName(Attacker) & ".ini\", "Stats", "Kills")
            Call Putvar(App.Path & "\profiles\" & GetPlayerName(Attacker) & ".ini\", "Stats", "Deaths", attkills + 1)

```
Create a folder called "profiles" in your server.

Now the winsock.

in subhandledata
below the line "Select Case LCase$(Parse(0))"
add this case:
```
Case "getprofilestats"
            Dim deaths As String
            Dim kills As String
            deaths = GetVar(App.Path & "\profiles\" & Parse(1) & ".ini\", "Stats", "Deaths")
            kills = GetVar(App.Path & "\profiles\" & Parse(1) & ".ini\", "Stats", "Kills")
            Call SendDataToAll("playerstats" & SEP_CHAR & Parse(1) & SEP_CHAR & Parse(2) & SEP_CHAR & deaths & SEP_CHAR & kills & END_CHAR)
            Exit Sub
```
Thats the server….

the client!

in mod handle data below "casestring = LCase$(parse(0))"
add this:
```
If casestring = "playerstats" Then
        If parse(2) = GetPlayerName(MyIndex) Then
        frmMirage.playerprof.Visible = True
        frmMirage.lblprofiledeaths.Caption = parse(3)
        frmMirage.lblprofilekills.Caption = parse(4)
        frmMirage.lblstatplayer.Caption = parse(1)
        End If
    End If
```
now, to trigger and get a player's stats you use the code:
```
Call SendData("getprofilestats" & SEP_CHAR & *playeryouwanttogetstatsof* & SEP_CHAR & Getplayername(myindex) & END_CHAR)

```

In frmmirage of the client now add a picture box called "playerprof"
a label inside of it called "lblstatplayer"
another label called "lblprofilekills"
another called "lblprofiledeaths"

lblstatplayer is the name of the player you have stats on.
lblprofilekills are player kills
lblprofiledeaths are profile deaths

[Necromancer]

Thank you very much, it's working for me.

[Guest]

q1 ill was about to say u can edit that in scorce

[westin444]

@Necromancer:

> Thank you very much, it's working for me.

Great, I didn't make a mistake (i didn't test it myself…)