[Quest API] Add convert_money_to_string() to Perl/Lua

[Kinglykrab]

Perl

• Add quest::convert_money_to_string(money_hash).

Lua

• Add eq.convert_money_to_string(money_table).

Notes

• Allows operators to convert money in to a readable string using Strings::Money.

Examples

Perl

sub EVENT_SAY {
	if ($text=~/#a/i) {
		my %money_data = (
			"platinum" => 3123,
			"gold" => 5692,
			"copper" => 9
		);
		quest::message(315, quest::convert_money_to_string(%money_data));
	}
}

Lua

function event_say(e)
	if e.message:find("#a") then
		local money_data = {
			gold = 12,
			silver = 523904,
			copper = 3
		}
		eq.message(315, "Lua: " .. eq.convert_money_to_string(money_data))
	end
end