Support charges and bulk item creation by talkaction (otland#4350)

Co-authored-by: Marcin Michalski <57528542+marmichalski@users.noreply.github.com>

data/talkactions/scripts/create_item.lua

@@ -26,31 +26,47 @@ function onSay(player, words, param)
 		return false
 	end
 
+	local keyNumber = 0
 	local count = tonumber(split[2])
+	local subType = 1
+	if not itemType:isStackable() and split[3] then
+		subType = math.max(1, tonumber(split[3]) or 1)
+	end
+
 	if count then
-		if itemType:isStackable() then
-			count = math.min(10000, math.max(1, count))
-		elseif not itemType:isFluidContainer() then
-			count = math.min(100, math.max(1, count))
+		if itemType:isFluidContainer() then
+			count = math.max(0, math.min(count, 99))
+		elseif itemType:isKey() then
+			keyNumber = count
+			count = 1
 		else
-			count = math.max(0, count)
+			count = math.min(10000, math.max(1, count))
 		end
 	else
 		if not itemType:isFluidContainer() then
-			count = 1
+			count = math.max(1, itemType:getCharges())
 		else
 			count = 0
 		end
 	end
 
-	local result = player:addItem(itemType:getId(), count)
+	local result = nil
+	if itemType:isStackable() then
+		result = player:addItem(itemType:getId(), count, true, subType)
+	else
+		result = player:addItem(itemType:getId(), subType, true, count)
+	end
+
 	if result then
 		if not itemType:isStackable() then
 			if type(result) == "table" then
 				for _, item in ipairs(result) do
 					item:decay()
 				end
 			else
+				if itemType:isKey() then
+					result:setAttribute(ITEM_ATTRIBUTE_ACTIONID, keyNumber)
+				end
 				result:decay()
 			end
 		end