Mirage Source
[Feature] Custom Experience - Printable Version

+- Mirage Source (https://mirage-engine.uk/forums)
+-- Forum: Mirage Source (Nostalgia) (https://mirage-engine.uk/forums/forumdisplay.php?fid=61)
+--- Forum: Archive (2006-2011) (https://mirage-engine.uk/forums/forumdisplay.php?fid=18)
+---- Forum: Source Code Development (https://mirage-engine.uk/forums/forumdisplay.php?fid=51)
+----- Forum: Mirage Source 4 (Visual Basic 6) (https://mirage-engine.uk/forums/forumdisplay.php?fid=44)
+------ Forum: Tutorials (https://mirage-engine.uk/forums/forumdisplay.php?fid=13)
+------ Thread: [Feature] Custom Experience (/showthread.php?tid=2996)

[Feature] Custom Experience - JokeofWeek - 31-07-2009

Custom Experience Values
Difficulty: 1/5 - This is a fairly easy tutorial, and is entirely Copy and Paste!
Alright, so there used to be a tutorial for this on the old forums, but I beleive it is gone, so I decided to write my own. What this does is let's you set the experience required for every level. Alright so first things first, create a file called experience.ini and place it in the Data folder of the server side. The format of the .ini file should be like so :
Code:
[EXP]
MaxLevel=100
Exp1=1500
Exp2=2000
Exp3=2500
....
Exp99=1000000
Exp100=100500
It is basically saying that to level up at level 1, you need 1500 experience points. Note however that once you have reached the last level, even if you get the required ammount of experience points, you will not level up.

[ATTACHMENT NOT FOUND]

Now for the code itself!

Server Side
modTypes
  • Look for the following line :
    Code:
    Public Spell(1 To MAX_SPELLS) As SpellRec
    and under it add :
    Code:
    Public ExpReq() As Long

modGeneral
  • In sub LoadGameData, under the line :
    Code:
    Call SetStatus("Loading spells...")
        Call LoadSpells
    Add the following :
    Code:
    Call SetStatus("Loading experience values...")
        Call LoadExperience


modDatabase
  • Anywhere in the module, add the following sub :
    Code:
    Public Sub LoadExperience()
        Dim FileName As String
        Dim I As Long
        
        FileName = App.Path & "\data\experience.ini"
        
        ReDim ExpReq(1 To (Val(GetVar(FileName, "EXP", "MaxLevel")) - 1)) As Long
        
        For I = 1 To UBound(ExpReq)
            ExpReq(I) = Val(GetVar(FileName, "EXP", "EXP" & I))
        Next I
    End Sub

    Next up, look for the GetPlayerNextLevel function and replace it with the following :
    Code:
    Public Function GetPlayerNextLevel(ByVal Index As Long) As Long
        GetPlayerNextLevel = ExpReq(GetPlayerLevel(Index))
    End Function

modGameLogic
  • Lastly, find the sub CheckPlayerLevelUp. Right under the line :
    Code:
    If GetPlayerExp(Index) >= GetPlayerNextLevel(Index) Then
    Add the following code snippet, this will prevent players from leveling over the max level:
    Code:
    If GetPlayerLevel(Index) = UBound(ExpReq) Then
                Call SetPlayerExp(Index, GetPlayerNextLevel(Index))
                Exit Sub
            End If

And there you go! You can now place your own custom experience values! Another simple way to do this is through the GetPlayerNextLevel function, if you replace it with your own formula, thus eliminating the need for a file Smile. Enjoy! Try it out, and if you have any questions or need any help, feel free to ask! Smile

Re: [Feature] Custom Experience - Rian - 01-08-2009

+5 Rating for this old-school-style tutorial. Fool proof. Thanks, Joke.

Re: [Feature] Custom Experience - ShadowMaster - 09-08-2009

What next is the Exp Share for parties.