[Quest API] Add Potion Belt Methods

[Kinglykrab]

Description

• Adds Potion Belt methods to Perl and Lua.

Type of change

• New feature

Perl

• Add $client->GetPotionBeltItemIcon(slot_id)
• Add $client->GetPotionBeltItemID(slot_id)
• Add $client->GetPotionBeltItemName(slot_id)

Testing

Example

sub EVENT_SAY {
	if ($text=~/#a/i) {
		for (my $slot_id = 0; $slot_id < 5; $slot_id++) {
			my $item_icon = $client->GetPotionBeltItemIcon($slot_id);
			my $item_id = $client->GetPotionBeltItemID($slot_id);
			my $item_name = $client->GetPotionBeltItemName($slot_id);
			quest::message(315, "[Perl] Slot: $slot_id Icon: $item_icon ID: $item_id Name: $item_name");
		}
	}
}

Lua

• Add client:GetPotionBeltItemIcon(slot_id)
• Add client:GetPotionBeltItemID(slot_id)
• Add client:GetPotionBeltItemName(slot_id)

Testing

Example

function event_say(e)
	if e.message:findi("#a") then
		for slot_id = 0, 4 do
			local item_icon = e.self:GetPotionBeltItemIcon(slot_id)
			local item_id = e.self:GetPotionBeltItemID(slot_id)
			local item_name = e.self:GetPotionBeltItemName(slot_id)

			eq.message(315, string.format("[Lua] Slot: %d Icon: %d ID: %d Name: %s", slot_id, item_icon, item_id, item_name))
		end
	end
end

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