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

[Quest API] Add Hate Entry Methods to Perl (#3459)

Browse Source 
# 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`.
This commit is contained in:
Alex King 2023-07-02 10:26:37 -04:00 committed by GitHub
parent a13fa07e68
commit e12368f002
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
3 changed files with 35 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
zone/lua_hate_list.cpp
View File

@ -37,8 +37,8 @@ void Lua_HateEntry::SetHate(int64 value) {
self->stored_hate_amount = value;
}
int Lua_HateEntry::GetFrenzy() {
Lua_Safe_Call_Int();
bool Lua_HateEntry::GetFrenzy() {
Lua_Safe_Call_Bool();
return self->is_entity_frenzy;
}

2
zone/lua_hate_list.h
View File

@ -24,7 +24,7 @@ public:
void SetDamage(int64 value);
int64 GetHate();
void SetHate(int64 value);
int GetFrenzy();
bool GetFrenzy();
void SetFrenzy(bool value);
};

34
zone/perl_hateentry.cpp
View File

@ -7,19 +7,44 @@
#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;
}
int64_t Perl_HateEntry_GetDamage(struct_HateList* self) // @categories Script Utility, Hate and Aggro
void Perl_HateEntry_SetDamage(struct_HateList* self, int64 value) // @categories Script Utility, Hate and Aggro
{
return self->hatelist_damage;
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()
@ -29,7 +54,12 @@ void perl_register_hateentry()
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