Index definition of the player when send a packet to the client

[iHero]

**Introduction**

In some packages, the index value of the player, which is sent from Sub HandleData, is always 1.

**Client~Side**

> modHandleData

Find:

```
CallWindowProc HandleDataSub(MsgType), 1, Buffer.ReadBytes(Buffer.Length), 0, 0
```

Replace for:

```
CallWindowProc HandleDataSub(MsgType), MyIndex, Buffer.ReadBytes(Buffer.Length), 0, 0
```

**Credits**

Ricardo

[hisherwin]

erm explain it when it was not fixed.. what is the problem,?

[abhi2011]

Index 1 = server. Since the Client socket wasn't an array. And Index was never used in the modHandleData Subs.

[iHero]

Actually has:

```
Private Sub HandlePlayerExp(ByVal Index As Long, ByRef Data() As Byte, ByVal StartAddr As Long, ByVal ExtraVar As Long)

Dim Buffer As clsBuffer

Dim i As Long

Dim TNL As Long

' If debug mode, handle error then exit out

If Options.Debug = 1 Then On Error GoTo errorhandler

Set Buffer = New clsBuffer

Buffer.WriteBytes Data()

SetPlayerExp Index, Buffer.ReadLong

TNL = Buffer.ReadLong

frmMain.lblEXP.Caption = GetPlayerExp(Index) & "/" & TNL

' mp bar

frmMain.imgEXPBar.width = ((GetPlayerExp(MyIndex) / EXPBar_Width) / (TNL / EXPBar_Width)) * EXPBar_Width

' Error handler

Exit Sub

errorhandler:

HandleError "HandlePlayerExp", "modHandleData", Err.Number, Err.Description, Err.Source, Err.HelpContext

Err.Clear

Exit Sub

End Sub
```

```

Private Sub HandlePlayerStats(ByRef Data() As Byte, ByVal StartAddr As Long, ByVal ExtraVar As Long)

Dim Buffer As clsBuffer

Dim i As Long

' If debug mode, handle error then exit out

If Options.Debug = 1 Then On Error GoTo errorhandler

Set Buffer = New clsBuffer

Buffer.WriteBytes Data()

For i = 1 To Stats.Stat_Count - 1

SetPlayerStat Index, i, Buffer.ReadLong

frmMain.lblCharStat(i).Caption = GetPlayerStat(MyIndex, i)

Next

' Error handler

Exit Sub

errorhandler:

HandleError "HandlePlayerStats", "modHandleData", Err.Number, Err.Description, Err.Source, Err.HelpContext

Err.Clear

Exit Sub

End Sub

```

[abhi2011]

Then that specific part should be changed to MyIndex. Index = 1 will always be the server connection index.

[iHero]

Would mean the same …

[JohnPony]

> Then that specific part should be changed to MyIndex. Index = 1 will always be the server connection index.

Go away.

[abhi2011]

> Go away.

Don't you guys have to fight a war and die or something?

[Alerd]

I'm sorry but I do not understand that is it helps or not?