[Quest API] Add DoAnim Overloads to Perl/Lua. (#2627)

# Perl
- Add `$mob->DoAnim(animation_id, animation_speed, ackreq)`.
- Add `$mob->DoAnim(animation_id, animation_speed, ackreq, filter)`.
- Add `quest::doanim(animation_id, animation_speed)`.
- Add `quest::doanim(animation_id, animation_speed, ackreq)`.
- Add `quest::doanim(animation_id, animation_speed, ackreq, filter)`.

# Lua
- Add `eq.do_anim(animation_id)`.
- Add `eq.do_anim(animation_id, animation_speed)`.
- Add `eq.do_anim(animation_id, animation_speed, ackreq)`.
- Add `eq.do_anim(animation_id, animation_speed, ackreq, filter)`.

# Notes
- Adds overloads and cleans up spots where `animation_speed` was named `type` erroneously.
This commit is contained in:
Alex King
2022-12-10 18:30:40 -05:00
committed by GitHub
parent b1c4e7c23f
commit 1d06a4117a
7 changed files with 74 additions and 21 deletions
+19 -1
View File
@@ -640,6 +640,21 @@ void Perl__doanim(int animation_id)
quest_manager.doanim(animation_id);
}
void Perl__doanim(int animation_id, int animation_speed)
{
quest_manager.doanim(animation_id, animation_speed);
}
void Perl__doanim(int animation_id, int animation_speed, bool ackreq)
{
quest_manager.doanim(animation_id, animation_speed, ackreq);
}
void Perl__doanim(int animation_id, int animation_speed, bool ackreq, int filter)
{
quest_manager.doanim(animation_id, animation_speed, ackreq, static_cast<eqFilterType>(filter));
}
void Perl__addskill(int skill_id, int value)
{
quest_manager.addskill(skill_id, value);
@@ -4263,7 +4278,10 @@ void perl_register_quest()
package.add("disablerecipe", &Perl__disablerecipe);
package.add("disabletask", &Perl__disabletask);
package.add("discordsend", &Perl__discordsend);
package.add("doanim", &Perl__doanim);
package.add("doanim", (void(*)(int))&Perl__doanim);
package.add("doanim", (void(*)(int, int))&Perl__doanim);
package.add("doanim", (void(*)(int, int, bool))&Perl__doanim);
package.add("doanim", (void(*)(int, int, bool, int))&Perl__doanim);
package.add("echo", &Perl__echo);
package.add("emote", &Perl__emote);
package.add("enable_proximity_say", &Perl__enable_proximity_say);