[Quest API] Add CampAllBots() to Perl/Lua. (#2732)

# Perl
- Add `$client->CampAllBots()`.
- Add `$client->CampAllBots(class_id)`.

# Lua
- Add `client:CampAllBots()`.
- Add `client:CampAllBots(class_id)`.

# Notes
- Adds constants for `NO_CLASS` which is class `0` and uses `RACE_DOUG_0` for any spots that use race ID `0`.
- Cleans up magic number usage of race/class of `0`.
This commit is contained in:
Alex King
2023-01-14 10:14:50 -05:00
committed by GitHub
parent 095f4fb56c
commit f5523b40d2
20 changed files with 77 additions and 30 deletions
+8 -5
View File
@@ -6220,11 +6220,14 @@ void Bot::EquipBot(std::string* error_message) {
UpdateEquipmentLight();
}
void Bot::BotOrderCampAll(Client* c) {
if(c) {
std::list<Bot*> BotList = entity_list.GetBotsByBotOwnerCharacterID(c->CharacterID());
for(std::list<Bot*>::iterator botListItr = BotList.begin(); botListItr != BotList.end(); ++botListItr)
(*botListItr)->Camp();
void Bot::BotOrderCampAll(Client* c, uint8 class_id) {
if (c) {
const auto& l = entity_list.GetBotsByBotOwnerCharacterID(c->CharacterID());
for (const auto& b : l) {
if (!class_id || b->GetClass() == class_id) {
b->Camp();
}
}
}
}