Author: Leighland
Difficulty: 2/5 (May require some modifications.)
"
Note that you can modify the events that take place upon resetting the players level. Example: I chose to divide the players stats by 4, but you could also have them keep the stats they have. The only problem would be that die hard players might eventually "overflow" their stats, so don't forget to cap them."
:: SERVER SIDE ::In modConstants, add:
Code:
Public Const MAX_LEVEL = (your max level here) 'Mine is 100
In modGamelogic, add these two subs:
Code:
Function GetPlayerRebirth(ByVal index As Long) As Long
GetPlayerRebirth = Player(index).Char(Player(index).CharNum).Rebirth
End Function
Sub SetPlayerRebirth(ByVal index As Long, ByVal Rebirth As Long)
Player(index).Char(Player(index).CharNum).Rebirth = Rebirth
End Sub
In the CheckPlayerLevelUp sub, find:
Code:
Call SetPlayerLevel(index, GetPlayerLevel(index) + 1)
Beneath it, add:
Code:
If GetPlayerLevel(index) > MAX_LEVEL Then
Call SetPlayerPOINTS(index, 0)
Call SetPlayerExp(index, 0)
Call SetPlayerLevel(index, 1)
Call SetPlayerStr(index, GetPlayerStr(index) / 4)
Call SetPlayerDEF(index, GetPlayerDEF(index) / 4)
Call SetPlayerMAGI(index, GetPlayerMAGI(index) / 4)
Call SetPlayerSPEED(index, GetPlayerSPEED(index) / 4)
Call SetPlayerRebirth(index, GetPlayerRebirth(index) + 1)
Call GlobalMsg(GetPlayerName(index) & " has been reborn!", Brown)
Call PlayerMsg(index, "You have been reborn!", BrightBlue)
Call SendStats(index)
Exit Sub
End If
Now, there's where you choose what you want to do to the player after they are "reborn". I have a variable set up so that I can keep track of player's rebirths. The reason for this is after the player resets, because they start with so many points, I use the rebirth level to make the NPC's stronger. See my reply to this topic for details.
In modDatabase, in the SavePlayer sub, find:
Code:
Call PutVar(FileName, "CHAR" & i, "PK", STR(Player(index).Char(i).PK))
Beneath it, add:
Code:
Call PutVar(FileName, "CHAR" & i, "Rebirth", STR(Player(index).Char(i).Rebirth))
Then, In the same module, in the LoadPlayer sub, add:
Code:
Player(index).Char(i).Rebirth = Val(GetVar(FileName, "CHAR" & i, "Rebirth"))
Now, open modTypes, and in Type PlayerRec, add:
Code:
Rebirth As Long
NOTE: If you want, in the SendStats packet, you can add the rebirth level as well and display it on the user's stat menu.
Code:
Sub SendStats(ByVal index As Long)
Dim Packet As String
Packet = "PLAYERSTATS" & SEP_CHAR & GetPlayerStr(index) & SEP_CHAR & GetPlayerDEF(index) & SEP_CHAR & GetPlayerSPEED(index) & SEP_CHAR & GetPlayerMAGI(index) & SEP_CHAR & GetPlayerLevel(index) & SEP_CHAR & GetPlayerPOINTS(index) & SEP_CHAR & GetPlayerExp(index) & SEP_CHAR & GetPlayerNextLevel(index) & SEP_CHAR & GetPlayerPK(index) & SEP_CHAR & GetPlayerGuild(index) & SEP_CHAR & GetPlayerGuildAccess(index) & SEP_CHAR & GetPlayerAccess(index) & SEP_CHAR & GetPlayerRebirth(index) & SEP_CHAR & END_CHAR
Call SendDataTo(index, Packet)
End Sub
Your packet might have different things in it, but that's how mine is. I don't think I've changed it but just make sure that your only includes those stats above with the addition of the rebirth level, otherwise it might mess up your game.
Login
Register
FAQ
Search
Members
