Points pre lvl

[Domino_]

Hi all!
I need little help.. I'm using Eclipse Stable Server and i want to know hot to change points pre lvl from 1 to 3 ?

[Godlord]

@Maiks1994:

> Hi all!
> I need little help.. I'm using Eclipse Stable Server and i want to know hot to change points pre lvl from 1 to 3 ?

If you meant the level you start with, then just change the class files in your server folder.

Regards,
  Godlord.

[Domino_]

I mean free points who can get by leveling up.
in class is not written theat… :S

[CLASS]
Name=Warrior
MaleSprite=254
FemaleSprite=255
Desc=
STR=5
DEF=4
SPEED=2
MAGI=0
MAP=1
X=3
Y=12
Locked=0

[Godlord]

Try Stats.ini or Data.ini.

Regards,
  Godlord.

[Domino_]

There is no anything about level up points… maybe need to use script?  :huh:

[xelander]

Or a simple script. :D
But I don't really bother to explain everything, it's about 1 hour of training to do it yourself, and you earn on it, or do as Godlord says.

Warning - while you were typing 3 new replies have been posted. You may wish to review your post.

Damn…

[Godlord]

@Maiks1994:

> There is no anything about level up points… maybe need to use script?  :huh:

Should be LevelUp.ess or whatever then, if you're using Godlord's Main (or Eclipse Stable), or Main.txt (Eclipse Evolution).

Regards,
  Godlord.

[Domino_]

I found PlayerLevelUp.ess but there i cannot find anything… :S

>! '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' Module: PlayerLevelUp.ess '
' Author: Stephan J.R. van Schaik '
' Date: August 30th, 2009. '
' Version: 1.0.0 '
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
>! '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' Function: PlayerLevelUp '
' Brief: executes when a player levels up. '
' Parameters: '
' Index: the index number of the player. '
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Sub PlayerLevelUp(Index)
Dim PlayerExp
>! If GetPlayerExp(Index) < GetPlayerNextLevel(Index) Then
Exit Sub
End If
>! Do While GetPlayerExp(Index) >= GetPlayerNextLevel(Index)
PlayerExp = GetPlayerNextLevel(Index)
>! Call SetPlayerLevel(Index, GetPlayerLevel(Index) + 1)
Call SetPlayerPOINTS(Index, GetPlayerPOINTS(Index) + 1)
Call SetPlayerExp(Index, GetPlayerExp(Index) - PlayerExp)
Call SetPlayerHP(Index, GetPlayerMaxHP(Index))
Call SetPlayerMP(Index, GetPlayerMaxMP(Index))
Call SetPlayerSP(Index, GetPlayerMaxSP(Index))
Call SendPlayerData(Index)
Call SendStats(Index)
Call SendHP(Index)
Call SendMP(Index)
Call SendSP(Index)
Call SendPTS(Index)
Loop
>! Call BattleMsg(Index, "You have " & GetPlayerPOINTS(Index) & " stat points.", BRIGHTBLUE, LEFT)
End Sub

[Godlord]

```
      Call SetPlayerPOINTS(Index, GetPlayerPOINTS(Index) + 1)
```Change the one to the amount of points you want to add.

Regards,
  Godlord.

[Domino_]

I must to turn On scripts yes?
because file is in Server/scripts/ES/events

[Godlord]

@Maiks1994:

> I must to turn On scripts yes?
> because file is in Server/scripts/ES/events

If they aren't enabled already.

Regards,
  Godlord.

[Domino_]

not working… :S

[Godlord]

@Maiks1994:

> not working… :S

What isn't? Please be specific. I don't even know what you want exactly as your posts are pretty vague.

Regards,
  Godlord.

[Domino_]

sorry now it works!
Need to change:
Server/Scripts/Events/PlayerLevelUp.ess
And Server/Scripts/ES/Events/PlayerLevelUp.ess

from

>! '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' Module: PlayerLevelUp.ess '
' Author: Stephan J.R. van Schaik '
' Date: August 30th, 2009. '
' Version: 1.0.0 '
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
>! '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' Function: PlayerLevelUp '
' Brief: executes when a player levels up. '
' Parameters: '
' Index: the index number of the player. '
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Sub PlayerLevelUp(Index)
Dim PlayerExp
>! If GetPlayerExp(Index) < GetPlayerNextLevel(Index) Then
Exit Sub
End If
>! Do While GetPlayerExp(Index) >= GetPlayerNextLevel(Index)
PlayerExp = GetPlayerNextLevel(Index)
>! Call SetPlayerLevel(Index, GetPlayerLevel(Index) + 1)
Call SetPlayerPOINTS(Index, GetPlayerPOINTS(Index) + 1)
Call SetPlayerExp(Index, GetPlayerExp(Index) - PlayerExp)
Call SetPlayerHP(Index, GetPlayerMaxHP(Index))
Call SetPlayerMP(Index, GetPlayerMaxMP(Index))
Call SetPlayerSP(Index, GetPlayerMaxSP(Index))
Call SendPlayerData(Index)
Call SendStats(Index)
Call SendHP(Index)
Call SendMP(Index)
Call SendSP(Index)
Call SendPTS(Index)
Loop
>! Call BattleMsg(Index, "You have " & GetPlayerPOINTS(Index) & " stat points.", BRIGHTBLUE, LEFT)
End Sub
to
>! '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' Module: PlayerLevelUp.ess '
' Author: Stephan J.R. van Schaik '
' Date: August 30th, 2009. '
' Version: 1.0.0 '
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
>! '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' Function: PlayerLevelUp '
' Brief: executes when a player levels up. '
' Parameters: '
' Index: the index number of the player. '
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Sub PlayerLevelUp(Index)
Dim PlayerExp
>! If GetPlayerExp(Index) < GetPlayerNextLevel(Index) Then
Exit Sub
End If
>! Do While GetPlayerExp(Index) >= GetPlayerNextLevel(Index)
PlayerExp = GetPlayerNextLevel(Index)
>! Call SetPlayerLevel(Index, GetPlayerLevel(Index) + 1)
Call SetPlayerPOINTS(Index, GetPlayerPOINTS(Index) + 3)
Call SetPlayerExp(Index, GetPlayerExp(Index) - PlayerExp)
Call SetPlayerHP(Index, GetPlayerMaxHP(Index))
Call SetPlayerMP(Index, GetPlayerMaxMP(Index))
Call SetPlayerSP(Index, GetPlayerMaxSP(Index))
Call SendPlayerData(Index)
Call SendStats(Index)
Call SendHP(Index)
Call SendMP(Index)
Call SendSP(Index)
Call SendPTS(Index)
Loop
>! Call BattleMsg(Index, "You have " & GetPlayerPOINTS(Index) & " stat points.", BRIGHTBLUE, LEFT)
End Sub

Call SetPlayerPOINTS(Index, GetPlayerPOINTS(Index) + 3)
+3 change only 3 ! you can give 300 points pre lvl!
example:

>! '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' Module: PlayerLevelUp.ess '
' Author: Stephan J.R. van Schaik '
' Date: August 30th, 2009. '
' Version: 1.0.0 '
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
>! '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' Function: PlayerLevelUp '
' Brief: executes when a player levels up. '
' Parameters: '
' Index: the index number of the player. '
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Sub PlayerLevelUp(Index)
Dim PlayerExp
>! If GetPlayerExp(Index) < GetPlayerNextLevel(Index) Then
Exit Sub
End If
>! Do While GetPlayerExp(Index) >= GetPlayerNextLevel(Index)
PlayerExp = GetPlayerNextLevel(Index)
>! Call SetPlayerLevel(Index, GetPlayerLevel(Index) + 1)
Call SetPlayerPOINTS(Index, GetPlayerPOINTS(Index) + 300)
Call SetPlayerExp(Index, GetPlayerExp(Index) - PlayerExp)
Call SetPlayerHP(Index, GetPlayerMaxHP(Index))
Call SetPlayerMP(Index, GetPlayerMaxMP(Index))
Call SetPlayerSP(Index, GetPlayerMaxSP(Index))
Call SendPlayerData(Index)
Call SendStats(Index)
Call SendHP(Index)
Call SendMP(Index)
Call SendSP(Index)
Call SendPTS(Index)
Loop
>! Call BattleMsg(Index, "You have " & GetPlayerPOINTS(Index) & " stat points.", BRIGHTBLUE, LEFT)
End Sub