[Quest API] Add Marquee methods to Perl/Lua. (#2544)

* [Quest API] Add zonemarquee to Perl/Lua.

# Perl
- Add `quest::zonemarquee(type, priority, fade_in, fade_out, duration, message)` to Perl.

# Lua
- Add `eq.zone_marquee(type, priority, fade_in, fade_out, duration, message)` to Lua.

# Notes
- Allows operators to easily send a zone-wide marquee, similar to `quest::ze`/`eq.zone_emote`.

* Update lua_general.cpp

* Add other methods.

* Add entity list marquee

* Update client.cpp

* Add more shorthands.
This commit is contained in:
Kinglykrab
2022-11-16 08:23:39 -05:00
committed by GitHub
parent 8c994fef97
commit bb58a9cd20
16 changed files with 280 additions and 42 deletions
+18
View File
@@ -531,6 +531,21 @@ NPC* Perl_EntityList_GetRandomNPC(EntityList* self, float x, float y, float z, f
return entity_list.GetRandomNPC(glm::vec3(x, y, z), (distance * distance), exclude_npc);
}
void Perl_EntityList_Marquee(EntityList* self, uint32 type, std::string message)
{
self->Marquee(type, message);
}
void Perl_EntityList_Marquee(EntityList* self, uint32 type, std::string message, uint32 duration)
{
self->Marquee(type, message, duration);
}
void Perl_EntityList_Marquee(EntityList* self, uint32 type, uint32 priority, uint32 fade_in, uint32 fade_out, uint32 duration, std::string message)
{
self->Marquee(type, priority, fade_in, fade_out, duration, message);
}
void perl_register_entitylist()
{
perl::interpreter perl(PERL_GET_THX);
@@ -596,6 +611,9 @@ void perl_register_entitylist()
package.add("HalveAggro", &Perl_EntityList_HalveAggro);
package.add("IsMobSpawnedByNpcTypeID", &Perl_EntityList_IsMobSpawnedByNpcTypeID);
package.add("MakeNameUnique", &Perl_EntityList_MakeNameUnique);
package.add("Marquee", (void(*)(EntityList*, uint32, std::string))&Perl_EntityList_Marquee);
package.add("Marquee", (void(*)(EntityList*, uint32, std::string, uint32))&Perl_EntityList_Marquee);
package.add("Marquee", (void(*)(EntityList*, uint32, uint32, uint32, uint32, uint32, std::string))&Perl_EntityList_Marquee);
package.add("Message", &Perl_EntityList_Message);
package.add("MessageClose", &Perl_EntityList_MessageClose);
package.add("MessageGroup", &Perl_EntityList_MessageGroup);