Description

• Adds charm events for NPCs to Perl and Lua.

Perl

• Add EVENT_CHARM_START and EVENT_CHARM_END, no exports.

Example

sub EVENT_CHARM_START {
	my $owner_name = $client->GetCleanName();
	quest::shout("[Perl] I just got charmed by $owner_name.");
}

sub EVENT_CHARM_END {
	my $owner_name = $client->GetCleanName();
	quest::shout("[Perl] My charm from $owner_name wore off.");
}

Image

Lua

• Add event_charm_start and event_charm_end, exports e.other.

Example

function event_charm_start(e)
	local owner_name = e.other:GetCleanName()
	e.self:Shout(string.format("[Lua] I just got charmed by %s.", owner_name))
end

function event_charm_end(e)
	local owner_name = e.other:GetCleanName()
	e.self:Shout(string.format("[Lua] My charm from %s wore off.", owner_name));
end

Image

Type of change

• New feature

Checklist

• I have tested my changes
• I have performed a self-review of my code. Ensuring variables, functions and methods are named in a human-readable way, comments are added only where naming of variables, functions and methods can't give enough context.
• I own the changes of my code and take responsibility for the potential issues that occur