pa/eqemu-server
2
0
Fork 0
mirror of https://github.com/EQEmu/Server.git synced 2026-06-09 22:20:24 +00:00
Code Issues Actions Packages Projects Releases Wiki Activity

[Quest API] Add Bot Methods to Perl/Lua (#4113)

Browse Source 
* [Quest API] Add Bot Methods to Perl/Lua

# Perl
- Add `quest::GetBotClassByID(bot_id)`.
- Add `quest::GetBotGenderByID(bot_id)`.
- Add `quest::GetBotIDsByCharacterID(character_id)`.
- Add `quest::GetBotIDsByCharacterID(character_id, class_id)`.
- Add `quest::GetBotLevelByID(bot_id)`.
- Add `quest::GetBotNameByID(bot_id)`.
- Add `quest::GetBotRaceByID(bot_id)`.

# Lua
- Add `eq.get_bot_class_by_id(bot_id)`.
- Add `eq.get_bot_gender_by_id(bot_id)`.
- Add `eq.get_bot_ids_by_character_id(character_id)`.
- Add `eq.get_bot_ids_by_character_id(character_id, class_id)`.
- Add `eq.get_bot_level_by_id(bot_id)`.
- Add `eq.get_bot_name_by_id(bot_id)`.
- Add `eq.get_bot_race_by_id(bot_id)`.

# Notes
- Allows operators to get a list of a player's bot IDs, get a bot's class, gender, level, name, and race.

* Update bot_database.cpp
This commit is contained in:
Alex King
2024-02-24 23:53:21 -05:00
committed by GitHub
parent 29720f95ed
commit 8314f2348c
4 changed files with 193 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files
zone/embparser_api.cpp
+58
View File
@@ -5782,6 +5782,57 @@ std::string Perl__convert_money_to_string(perl::hash table)
return Strings::Money(platinum, gold, silver, copper);
}
uint8 Perl__GetBotClassByID(uint32 bot_id)
{
return database.botdb.GetBotClassByID(bot_id);
}
uint8 Perl__GetBotGenderByID(uint32 bot_id)
{
return database.botdb.GetBotGenderByID(bot_id);
}
perl::array Perl__GetBotIDsByCharacterID(uint32 character_id)
{
perl::array result;
const auto bot_ids = database.botdb.GetBotIDsByCharacterID(character_id);
for (int i = 0; i < bot_ids.size(); i++) {
result.push_back(bot_ids[i]);
}
return result;
}
perl::array Perl__GetBotIDsByCharacterID(uint32 character_id, uint8 class_id)
{
perl::array result;
const auto bot_ids = database.botdb.GetBotIDsByCharacterID(character_id, class_id);
for (int i = 0; i < bot_ids.size(); i++) {
result.push_back(bot_ids[i]);
}
return result;
}
uint8 Perl__GetBotLevelByID(uint32 bot_id)
{
return database.botdb.GetBotLevelByID(bot_id);
}
std::string Perl__GetBotNameByID(uint32 bot_id)
{
return database.botdb.GetBotNameByID(bot_id);
}
uint16 Perl__GetBotRaceByID(uint32 bot_id)
{
return database.botdb.GetBotRaceByID(bot_id);
}
void perl_register_quest()
{
perl::interpreter perl(PERL_GET_THX);
@@ -5812,6 +5863,13 @@ void perl_register_quest()
package.add("FlagInstanceByGroupLeader", &Perl__FlagInstanceByGroupLeader);
package.add("FlagInstanceByRaidLeader", &Perl__FlagInstanceByRaidLeader);
package.add("FlyMode", &Perl__FlyMode);
package.add("GetBotClassByID", &Perl__GetBotClassByID);
package.add("GetBotGenderByID", &Perl__GetBotGenderByID);
package.add("GetBotIDsByCharacterID", (perl::array(*)(uint32))&Perl__GetBotIDsByCharacterID);
package.add("GetBotIDsByCharacterID", (perl::array(*)(uint32, uint8))&Perl__GetBotIDsByCharacterID);
package.add("GetBotLevelByID", &Perl__GetBotLevelByID);
package.add("GetBotNameByID", &Perl__GetBotNameByID);
package.add("GetBotRaceByID", &Perl__GetBotRaceByID);
package.add("GetCharactersInInstance", &Perl__GetCharactersInInstance);
package.add("GetInstanceID", &Perl__GetInstanceID);
package.add("GetInstanceIDByCharID", &Perl__GetInstanceIDByCharID);