mirror of
https://github.com/EQEmu/Server.git
synced 2025-12-11 16:51:29 +00:00
e12368f002
# Perl - Add `$hate_entry->GetFrenzy()`. - Add `$hate_entry->SetDamage(value)`. - Add `$hate_entry->SetEnt(mob)`. - Add `$hate_entry->SetFrenzy(is_frenzy)`. - Add `$hate_entry->SetHate(value)`. # Lua - Convert `hate_entry:GetFrenzy()` to `bool` instead of `int`, as `is_entity_frenzy` is a `bool`.
67 lines
1.8 KiB
C++
67 lines
1.8 KiB
C++
#include "../common/features.h"
|
|
#include "client.h"
|
|
|
|
#ifdef EMBPERL_XS_CLASSES
|
|
|
|
#include "../common/global_define.h"
|
|
#include "embperl.h"
|
|
#include "hate_list.h"
|
|
|
|
int64_t Perl_HateEntry_GetDamage(struct_HateList* self) // @categories Script Utility, Hate and Aggro
|
|
{
|
|
return self->hatelist_damage;
|
|
}
|
|
|
|
Mob* Perl_HateEntry_GetEnt(struct_HateList* self) // @categories Script Utility, Hate and Aggro
|
|
{
|
|
return self->entity_on_hatelist;
|
|
}
|
|
|
|
bool Perl_HateEntry_GetFrenzy(struct_HateList* self) // @categories Script Utility, Hate and Aggro
|
|
{
|
|
return self->is_entity_frenzy;
|
|
}
|
|
|
|
int64_t Perl_HateEntry_GetHate(struct_HateList* self) // @categories Script Utility, Hate and Aggro
|
|
{
|
|
return self->stored_hate_amount;
|
|
}
|
|
|
|
void Perl_HateEntry_SetDamage(struct_HateList* self, int64 value) // @categories Script Utility, Hate and Aggro
|
|
{
|
|
self->hatelist_damage = value;
|
|
}
|
|
|
|
void Perl_HateEntry_SetEnt(struct_HateList* self, Mob* mob) // @categories Script Utility, Hate and Aggro
|
|
{
|
|
self->entity_on_hatelist = mob;
|
|
}
|
|
|
|
void Perl_HateEntry_SetFrenzy(struct_HateList* self, bool is_frenzy) // @categories Script Utility, Hate and Aggro
|
|
{
|
|
self->is_entity_frenzy = is_frenzy;
|
|
}
|
|
|
|
void Perl_HateEntry_SetHate(struct_HateList* self, int64 value) // @categories Script Utility, Hate and Aggro
|
|
{
|
|
self->stored_hate_amount = value;
|
|
}
|
|
|
|
void perl_register_hateentry()
|
|
{
|
|
perl::interpreter perl(PERL_GET_THX);
|
|
|
|
auto package = perl.new_class<struct_HateList>("HateEntry");
|
|
package.add("GetDamage", &Perl_HateEntry_GetDamage);
|
|
package.add("GetEnt", &Perl_HateEntry_GetEnt);
|
|
package.add("GetFrenzy", &Perl_HateEntry_GetFrenzy);
|
|
package.add("GetHate", &Perl_HateEntry_GetHate);
|
|
package.add("SetDamage", &Perl_HateEntry_SetDamage);
|
|
package.add("SetEnt", &Perl_HateEntry_SetEnt);
|
|
package.add("SetFrenzy", &Perl_HateEntry_SetFrenzy);
|
|
package.add("SetHate", &Perl_HateEntry_SetHate);
|
|
}
|
|
|
|
#endif //EMBPERL_XS_CLASSES
|
|
|