[EA] Server Panel Character Editor

[Ertzel]

The following tutorial will show you how to add a character editor to the server program. The editor will allow you to edit player levels, exp, stats and also inventory item/amounts and bank items/amounts.

First go to frmServer and click on the SSTab1 (The background of the frm) Scroll down in the Properties panel until you find the Tabes and TabesPerRow sections. Change both of those from 3 to 4\. Now click on the 4th tab you will now see at the top. Change it's caption to Character Editor (or whatever you want it called) **(*NOTE: If using Dragon Eclipse, Tables and TablesPerRow will already be 4 and need to be changed too 5)**

Now download the [following link](http://www.mediafire.com/download.php?bq9gohijo28azv8) and open the project in vb6\. Copy-Paste everything from the frmCharEditorTab in this project onto your new tab created in your server source.

Now click anywhere on frmServer and add the following at the bottom:

```

'''''''''''''''''''''

'' Character Editor''

'''''''''''''''''''''

Private Sub cmdEBankLoad_Click()

Dim i As Long

If txtEInvNum.Text > MAX_INV Then

txtEInvNum.Text = MAX_INV

Exit Sub

End If i = FindPlayer(txtEName.Text)

If FindPlayer(txtEName.Text) Then

txtEBItemNum.Text = GetPlayerBankItemNum(i, txtEBankNum.Text)

txtEBItemQty.Text = GetPlayerBankItemValue(i, txtEBItemQty.Text)

Else

Call MsgBox("Player Not Found!", vbOKOnly)

End If

End Sub

Private Sub cmdEBankLoadNext_Click()

Dim i As Long

If txtEInvNum.Text + 1 > MAX_BANK Then Exit Sub

txtEBItemNum.Text = txtEBItemNum.Text + 1

i = FindPlayer(txtEName.Text)

If FindPlayer(txtEName.Text) Then

txtEBItemNum.Text = GetPlayerBankItemNum(i, txtEBItemNum.Text)

txtEBItemQty.Text = GetPlayerBankItemValue(i, txtEBItemQty.Text)

Else

Call MsgBox("Player Not Found!", vbOKOnly)

End If

End SubPrivate Sub cmdEBankSave_Click()

Dim i As Long

i = FindPlayer(txtEName.Text)

If FindPlayer(txtEName.Text) Then

SetPlayerBankItemNum i, txtEBankNum.Text, txtEBItemNum.Text

SetPlayerBankItemValue i, txtEBankNum.Text, txtEBItemQty.Text

SaveBank i

SavePlayer i

SendPlayerData i

Else

Call MsgBox("Player Not Found!", vbOKOnly)

End If

End SubPrivate Sub cmdEInvLoad_Click()

Dim i As Long

If txtEInvNum.Text > MAX_INV Then

txtEInvNum.Text = MAX_INV

Exit Sub

End If

i = FindPlayer(txtEName.Text)

If FindPlayer(txtEName.Text) Then

txtEItemNum.Text = GetPlayerInvItemNum(i, txtEInvNum.Text)

txtEItemQty.Text = GetPlayerInvItemValue(i, txtEInvNum.Text)

Else

Call MsgBox("Player Not Found!", vbOKOnly)

End If

End SubPrivate Sub cmdEInvLoadNext_Click()

Dim i As Long

If txtEInvNum.Text + 1 > MAX_INV Then Exit Sub

txtEInvNum.Text = txtEInvNum.Text + 1

i = FindPlayer(txtEName.Text)

If FindPlayer(txtEName.Text) Then

txtEItemNum.Text = GetPlayerInvItemNum(i, txtEInvNum.Text)

txtEItemQty.Text = GetPlayerInvItemValue(i, txtEInvNum.Text)

Else

Call MsgBox("Player Not Found!", vbOKOnly)

End If

End Sub

Private Sub cmdEInvSave_Click()

Dim i As Long

i = FindPlayer(txtEName.Text)

If FindPlayer(txtEName.Text) Then

SetPlayerInvItemNum i, txtEInvNum.Text, txtEItemNum.Text

SetPlayerInvItemValue i, txtEInvNum.Text, txtEItemQty.Text

SendInventoryUpdate i, txtEInvNum.Text

SendPlayerData i

SavePlayer i

Else

Call MsgBox("Player Not Found!", vbOKOnly)

End IfEnd Sub

Private Sub cmdELoad_Click()

Dim i As Long

i = FindPlayer(txtEName.Text)

If Not FindPlayer(txtEName.Text) = 0 Then

txtELvl.Text = GetPlayerLevel(i)

txtEExp.Text = GetPlayerExp(i)

txtEPts.Text = GetPlayerPOINTS(i)

txtEStr.Text = GetPlayerStat(i, Strength)

txtEEnd.Text = GetPlayerStat(i, Endurance)

txtEInt.Text = GetPlayerStat(i, Intelligence)

txtEAgi.Text = GetPlayerStat(i, Agility)

txtEWill.Text = GetPlayerStat(i, Willpower)

txtEInvNum.Text = 1

txtEItemNum.Text = GetPlayerInvItemNum(i, 1)

txtEItemQty.Text = GetPlayerInvItemValue(i, 1)

txtEBankNum.Text = 1

txtEBItemNum.Text = GetPlayerBankItemNum(i, 1)

txtEBItemQty.Text = GetPlayerBankItemValue(i, 1)

Else

Call MsgBox("Player Not Found!", vbOKOnly)

End If

End Sub

Private Sub cmdESave_Click()

Dim i As Long

i = FindPlayer(txtEName.Text)

If Not FindPlayer(txtEName.Text) = 0 Then

If GetPlayerLevel(i) < txtELvl.Text Then

SetPlayerPOINTS i, GetPlayerPOINTS(i) + (3 * (txtELvl.Text - GetPlayerLevel(i)))

SendPlayerData i

txtEPts.Text = GetPlayerPOINTS(i)

End If

SetPlayerLevel i, txtELvl.Text

SetPlayerExp i, txtEExp.Text

SetPlayerPOINTS i, txtEPts.Text

SetPlayerStat i, Strength, txtEStr.Text

SetPlayerStat i, Endurance, txtEEnd.Text

SetPlayerStat i, Intelligence, txtEInt.Text

SetPlayerStat i, Agility, txtEAgi.Text

SetPlayerStat i, Willpower, txtEWill.Text

SetPlayerInvItemNum i, txtEInvNum.Text, txtEItemNum.Text

SetPlayerInvItemValue i, txtEInvNum.Text, txtEItemQty.Text

SetPlayerBankItemNum i, txtEBankNum.Text, txtEBItemNum.Text

SetPlayerBankItemValue i, txtEBankNum.Text, txtEBItemQty.Text

SendInventoryUpdate i, txtEInvNum.Text

SendEXP i

CheckPlayerLevelUp i

SaveBank i

SavePlayer i

SendPlayerData i

Else

Call MsgBox("Player Not Found!", vbOKOnly)

End If

End Sub

```

After adding the above tutorial and labels your Server should look something like this for the Character Editor tab:

>! 

[TheLordOfTheManor]

Nice! Will be adding this to AVSW soon!

[clark]

Me too 

PS: it won't surcharge the server ?

[Ertzel]

> PS: it won't surcharge the server ?

Now sure what this question means.. If you are downloading the files, replacing the ones in your source with them should work right away.

[clark]

> Now sure what this question means.. If you are downloading the files, replacing the ones in your source with them should work right away.

I mean adding this script won't decrease the performances of the server right?

Like : (less players , more lags etc..) ?

[Zzbrandon]

It depends if you are paying for a host for your game you can hold more players with less lag if it is running on one computer then more lag if more player's It works with Dragon Eclipse just have to edit some lines. Hope I helped!

[clark]

Ok thanks !

[iSnow]

Useful indeed. Loving the amount of devotion Advanced is getting with it's progress xD Although I'll definitely have to check this.

[tslusny]

Good job Ertzel 

[Joyce]

Wouldn't this make much more sense on a properly worked and tabbed out admin panel in the game? I mean in general when you host your server you're not going to stare at the server computer through an RDP all day.

[clark]

> Wouldn't this make much more sense on a properly worked and tabbed out admin panel in the game? I mean in general when you host your server you're not going to stare at the server computer through an RDP all day.

+1 That's true i forgot about that

You can do it as Joyce said , or maybe make an .exe acount editor that connect to the server

[Joyce]

Aherm, just to re-iterate.. I don't mean the tutorial is useless or bad, not by any stretch of the imagination.

[damian666]

i used to do exactly that, watch my server tru teamviewer xd

so i think this is great 

[Ertzel]

Okay, I created the same thing but client side also. I'll upload it sometime today when I have time and fix one final bug (it randomly adds numbers to the strength stat when saving)

It will do all the same things this tutorial does and look the same, but be accessed through the Admin Panel opening a new editor in-game for people Developer status or higher.

[Alerd]

Work on eo 2.3??

[Ertzel]

It should, you may need to rename some of the variables, but I don't think you will have to.

[TheLordOfTheManor]

> It depends if you are paying for a host for your game you can hold more players with less lag if it is running on one computer then more lag if more player's It works with Dragon Eclipse just have to edit some lines. Hope I helped!

What lines specifically?

[Ertzel]

From my own tests of adding this to Dragon Eclipse, nothing had to be changed except you had to create all the buttons/text boxes/labels on your own. I have changed the download link now to be a new project constraining all the labels/buttons/text boxes and to add it to your server you now follow these step:

> First go to frmServer and click on the SSTab1 (The background of the frm) Scroll down in the Properties panel until you find the Tabes and TabesPerRow sections. Change both of those from 3 to 4\. Now click on the 4th tab you will now see at the top. Change it's caption to Character Editor (or whatever you want it called) **(*NOTE: If using Dragon Eclipse, Tables and TablesPerRow will already be 4 and need to be changed too 5)**
>
> Now download the [following link](http://www.mediafire.com/download.php?bq9gohijo28azv8) and open the project in vb6\. Copy-Paste everything from the frmCharEditorTab in this project onto your new tab created in your server source.

Then the rest from the tutorial at the top. I have also updated the main post to have this new setup link and instructions.

[Ganjika]

Does this work on EO Nightly Dx8? I am getting a type mismatch errorat```
If txtEInvNum.Text > MAX_INV Then
```

nvm - there was some typos in tutorial i believe.