pa/eqemu-server
2
0
Fork 0
mirror of https://github.com/EQEmu/Server.git synced 2025-12-13 14:41:28 +00:00
Code Issues Actions Packages Projects Releases Wiki Activity

[Quest API] Add GetEXPForLevel() to Perl/Lua (#3403)

Browse Source 
# Perl
- Add `$client->GetEXPForLevel(check_level)`.

# Lua
- Add `client:GetEXPForLevel(check_level)`.

# Notes
- This allows operators to see the required experience for a level based on the client provided, this takes race/class modifiers into account as well if enabled.
This commit is contained in:
Alex King 2023-06-12 20:18:39 -04:00 committed by GitHub
parent 152e99444c
commit c5c575b028
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
4 changed files with 15 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
zone/client.h
View File

@ -1641,6 +1641,7 @@ public:
PlayerEvent::PlayerEvent GetPlayerEvent(); PlayerEvent::PlayerEvent GetPlayerEvent();
void RecordKilledNPCEvent(NPC *n); void RecordKilledNPCEvent(NPC *n);
uint32 GetEXPForLevel(uint16 check_level);
protected: protected:
friend class Mob; friend class Mob;
void CalcEdibleBonuses(StatBonuses* newbon); void CalcEdibleBonuses(StatBonuses* newbon);
@ -1816,7 +1817,6 @@ private:
bool temp_pvp; bool temp_pvp;
void NPCSpawn(const Seperator* sep); void NPCSpawn(const Seperator* sep);
uint32 GetEXPForLevel(uint16 level);
void SendLogoutPackets(); void SendLogoutPackets();
void SendZoneInPackets(); void SendZoneInPackets();

7
zone/lua_client.cpp
View File

@ -3054,6 +3054,12 @@ bool Lua_Client::ReloadDataBuckets() {
return DataBucket::GetDataBuckets(self); return DataBucket::GetDataBuckets(self);
} }
uint32 Lua_Client::GetEXPForLevel(uint16 check_level)
{
Lua_Safe_Call_Int();
return self->GetEXPForLevel(check_level);
}
luabind::scope lua_register_client() { luabind::scope lua_register_client() {
return luabind::class_<Lua_Client, Lua_Mob>("Client") return luabind::class_<Lua_Client, Lua_Mob>("Client")
.def(luabind::constructor<>()) .def(luabind::constructor<>())
@ -3217,6 +3223,7 @@ luabind::scope lua_register_client() {
.def("GetDisciplineTimer", (uint32(Lua_Client::*)(uint32))&Lua_Client::GetDisciplineTimer) .def("GetDisciplineTimer", (uint32(Lua_Client::*)(uint32))&Lua_Client::GetDisciplineTimer)
.def("GetDuelTarget", (int(Lua_Client::*)(void))&Lua_Client::GetDuelTarget) .def("GetDuelTarget", (int(Lua_Client::*)(void))&Lua_Client::GetDuelTarget)
.def("GetEXP", (uint32(Lua_Client::*)(void))&Lua_Client::GetEXP) .def("GetEXP", (uint32(Lua_Client::*)(void))&Lua_Client::GetEXP)
.def("GetEXPForLevel", (uint32(Lua_Client::*)(uint16))&Lua_Client::GetEXPForLevel)
.def("GetEXPModifier", (double(Lua_Client::*)(uint32))&Lua_Client::GetEXPModifier) .def("GetEXPModifier", (double(Lua_Client::*)(uint32))&Lua_Client::GetEXPModifier)
.def("GetEXPModifier", (double(Lua_Client::*)(uint32,int16))&Lua_Client::GetEXPModifier) .def("GetEXPModifier", (double(Lua_Client::*)(uint32,int16))&Lua_Client::GetEXPModifier)
.def("GetEbonCrystals", (uint32(Lua_Client::*)(void))&Lua_Client::GetEbonCrystals) .def("GetEbonCrystals", (uint32(Lua_Client::*)(void))&Lua_Client::GetEbonCrystals)

1
zone/lua_client.h
View File

@ -468,6 +468,7 @@ public:
void UseAugmentContainer(int container_slot); void UseAugmentContainer(int container_slot);
bool IsAutoAttackEnabled(); bool IsAutoAttackEnabled();
bool IsAutoFireEnabled(); bool IsAutoFireEnabled();
uint32 GetEXPForLevel(uint16 check_level);
void ApplySpell(int spell_id); void ApplySpell(int spell_id);
void ApplySpell(int spell_id, int duration); void ApplySpell(int spell_id, int duration);

6
zone/perl_client.cpp
View File

@ -2912,6 +2912,11 @@ bool Perl_Client_ReloadDataBuckets(Client* self)
return DataBucket::GetDataBuckets(self); return DataBucket::GetDataBuckets(self);
} }
uint32 Perl_Client_GetEXPForLevel(Client* self, uint16 check_level)
{
return self->GetEXPForLevel(check_level);
}
void perl_register_client() void perl_register_client()
{ {
perl::interpreter perl(PERL_GET_THX); perl::interpreter perl(PERL_GET_THX);
@ -3075,6 +3080,7 @@ void perl_register_client()
package.add("GetDuelTarget", &Perl_Client_GetDuelTarget); package.add("GetDuelTarget", &Perl_Client_GetDuelTarget);
package.add("GetEnvironmentDamageModifier", &Perl_Client_GetEnvironmentDamageModifier); package.add("GetEnvironmentDamageModifier", &Perl_Client_GetEnvironmentDamageModifier);
package.add("GetEXP", &Perl_Client_GetEXP); package.add("GetEXP", &Perl_Client_GetEXP);
package.add("GetEXPForLevel", &Perl_Client_GetEXPForLevel);
package.add("GetEXPModifier", (double(*)(Client*, uint32))&Perl_Client_GetEXPModifier); package.add("GetEXPModifier", (double(*)(Client*, uint32))&Perl_Client_GetEXPModifier);
package.add("GetEXPModifier", (double(*)(Client*, uint32, int16))&Perl_Client_GetEXPModifier); package.add("GetEXPModifier", (double(*)(Client*, uint32, int16))&Perl_Client_GetEXPModifier);
package.add("GetEbonCrystals", &Perl_Client_GetEbonCrystals); package.add("GetEbonCrystals", &Perl_Client_GetEbonCrystals);