[Pets] Add Pet Constants and Methods (#4987)

* [Pets] Add Pet Constants and Methods

* Remove GetID

* GetPetTypeName()

* Cleanup
This commit is contained in:
Alex King
2025-08-17 01:00:31 -04:00
committed by GitHub
parent 207ee2daa0
commit a4e47d9180
28 changed files with 1209 additions and 742 deletions
+16 -4
View File
@@ -1114,11 +1114,16 @@ uint16 Perl_Mob_GetOwnerID(Mob* self) // @categories Script Utility, Pet
return self->GetOwnerID();
}
int Perl_Mob_GetPetType(Mob* self) // @categories Script Utility, Pet
uint8 Perl_Mob_GetPetType(Mob* self) // @categories Script Utility, Pet
{
return self->GetPetType();
}
std::string Perl_Mob_GetPetTypeName(Mob* self) // @categories Script Utility, Pet
{
return PetType::GetName(self->GetPetType());
}
int Perl_Mob_GetBodyType(Mob* self) // @categories Stats and Attributes
{
return self->GetBodyType();
@@ -1254,12 +1259,12 @@ float Perl_Mob_GetAssistRange(Mob* self) // @categories Stats and Attributes, Ha
return self->GetAssistRange();
}
void Perl_Mob_SetPetOrder(Mob* self, int order) // @categories Pet
void Perl_Mob_SetPetOrder(Mob* self, uint8 pet_order) // @categories Pet
{
self->SetPetOrder(static_cast<Mob::eStandingPetOrder>(order));
self->SetPetOrder(pet_order);
}
int Perl_Mob_GetPetOrder(Mob* self) // @categories Script Utility, Pet
uint8 Perl_Mob_GetPetOrder(Mob* self) // @categories Script Utility, Pet
{
return self->GetPetOrder();
}
@@ -3597,6 +3602,11 @@ perl::array Perl_Mob_GetTimers(Mob* self)
return a;
}
void Perl_Mob_SetPetType(Mob* self, uint8 pet_type)
{
self->SetPetType(pet_type);
}
void perl_register_mob()
{
perl::interpreter perl(PERL_GET_THX);
@@ -3926,6 +3936,7 @@ void perl_register_mob()
package.add("GetPetID", &Perl_Mob_GetPetID);
package.add("GetPetOrder", &Perl_Mob_GetPetOrder);
package.add("GetPetType", &Perl_Mob_GetPetType);
package.add("GetPetTypeName", &Perl_Mob_GetPetTypeName);
package.add("GetPhR", &Perl_Mob_GetPhR);
package.add("GetRace", &Perl_Mob_GetRace);
package.add("GetRaceName", &Perl_Mob_GetRaceName);
@@ -4187,6 +4198,7 @@ void perl_register_mob()
package.add("SetPet", &Perl_Mob_SetPet);
package.add("SetPetID", &Perl_Mob_SetPetID);
package.add("SetPetOrder", &Perl_Mob_SetPetOrder);
package.add("SetPetType", &Perl_Mob_SetPetType);
package.add("SetRace", &Perl_Mob_SetRace);
package.add("SetRunAnimSpeed", &Perl_Mob_SetRunAnimSpeed);
package.add("SetRunning", &Perl_Mob_SetRunning);