[WIP] Store System

config.lua

@@ -29,6 +29,10 @@ statusTimeout = 5000
 replaceKickOnLogin = true
 maxPacketsPerSecond = 25
 
+-- Store configuration
+storeImagesUrl = "http://otserv.info/images/store/"
+storeCoinsPacketSize = 25
+
 -- Deaths
 -- NOTE: Leave deathLosePercent as -1 if you want to use the default
 -- death penalty formula. For the old formula, set it to 10. For

data/events/events.xml

@@ -16,7 +16,7 @@
 	<event class="Player" method="onLookInBattleList" enabled="1" />
 	<event class="Player" method="onLookInTrade" enabled="1" />
 	<event class="Player" method="onLookInShop" enabled="0" />
-	<event class="Player" method="onMoveItem" enabled="0" />
+	<event class="Player" method="onMoveItem" enabled="1" />
 	<event class="Player" method="onMoveCreature" enabled="0" />
 	<event class="Player" method="onReport" enabled="1" />
 	<event class="Player" method="onTurn" enabled="0" />

data/events/scripts/player.lua

@@ -86,6 +86,25 @@ function Player:onLookInShop(itemType, count)
 end
 
 function Player:onMoveItem(item, count, fromPosition, toPosition, fromCylinder, toCylinder)
+	-- Store Inbox
+	local containerIdFrom = fromPosition.y - 64
+	local containerFrom = self:getContainerById(containerIdFrom)
+	if containerFrom then
+		if containerFrom:getId() == ITEM_STORE_INBOX and toPosition.y >= 1 and toPosition.y <= 11 and toPosition.y ~= 3 then
+			self:sendCancelMessage(RETURNVALUE_CONTAINERNOTENOUGHROOM)
+			return false
+		end
+	end
+
+	local containerTo = self:getContainerById(toPosition.y - 64)
+	if containerTo then
+		if (containerTo:getId() == ITEM_STORE_INBOX) then
+			self:sendCancelMessage(RETURNVALUE_CONTAINERNOTENOUGHROOM)
+			return false
+		end
+	end
+	-- End Store Inbox
+
 	return true
 end
 

data/items/items.xml

@@ -31181,6 +31181,13 @@
 		<attribute key="weight" value="2504" />
 		<attribute key="description" value="Only the real killers can touch me!" />
 	</item>
+	<item id="24770" article="a" name="Store coin">
+		<attribute key="weight" value="0" />
+		<attribute key="description" value="Store Coins are needed to shop exclusive products in the Store, including fabulous mounts, classy outfits, a Name Change or even Premium Time." />
+	</item>
+	<item id="26052" name="your store inbox">
+		<attribute key="containerSize" value="20" />
+	</item>
 	<item id="30001" name="water" />
 	<item id="30002" name="blood" />
 	<item id="30003" name="beer" />

data/migrations/19.lua

@@ -1,3 +1,9 @@
 function onUpdateDatabase()
-	return false
+	print("> Updating database to version 19 (store system)")
+
+	db.query("ALTER TABLE `accounts` ADD COLUMN `coins` int(11) NOT NULL DEFAULT '0'")
+
+	db.query("CREATE TABLE IF NOT EXISTS `store_history` ( `id` int(10) unsigned NOT NULL AUTO_INCREMENT, `account_id` int(11) NOT NULL, `coins` int(10) NOT NULL DEFAULT '0', `description` varchar(256) NOT NULL DEFAULT '', `timestamp` bigint(20) unsigned NOT NULL, PRIMARY KEY (`id`), FOREIGN KEY (`account_id`) REFERENCES `accounts`(`id`) ON DELETE CASCADE ) ENGINE=InnoDB;")
+
+	return true
 end

data/migrations/20.lua

@@ -0,0 +1,3 @@
+function onUpdateDatabase()
+	return false
+end

data/store/scripts/blessings.lua

@@ -0,0 +1,36 @@
+local blessings = {
+	['the wisdom of solitude'] = 1,
+	['the spark of the phoenix'] = 2,
+	['the fire of the suns'] = 3,
+	['the spiritual shielding'] = 4,
+	['the embrace of server'] = 5,
+	['twist of fate'] = 6
+}
+
+local function getAffectedBlessings(offerName)
+	if offerName == 'all regular blessings' then
+		return {1, 2, 3, 4, 5}
+	end
+
+	return {blessings[offerName]}
+end
+
+function onRender(player, offer)
+	local checkBlessings = getAffectedBlessings(offer:getName():lower())
+	for _, blessing in ipairs(checkBlessings) do
+		if player:hasBlessing(blessing) then
+			return false
+		end
+	end
+
+	return true
+end
+
+function onBuy(player, offer)
+	local affectedBlessings = getAffectedBlessings(offer:getName():lower())
+	for _, blessing in ipairs(affectedBlessings) do
+		player:addBlessing(blessing)
+	end
+
+	return true
+end

data/store/scripts/items.lua

@@ -0,0 +1,21 @@
+function onRender(player, offer)
+	local itemType = ItemType(offer:getName())
+	if itemType:getId() == 0 then
+		return false, "Item not found. Please contact an administrator."
+	end
+
+	return true
+end
+
+function onBuy(player, offer)
+	local itemType = ItemType(offer:getName())
+	local inbox = player:getSlotItem(CONST_SLOT_STORE_INBOX)
+	if inbox and inbox:getEmptySlots() >= 1 then
+		inbox:addItem(itemType:getId(), 1)
+	else
+		player:sendStoreError(STORE_ERROR_PURCHASE, "Please make sure you have free slots in your store inbox.")
+		return false
+	end
+
+	return true
+end

data/store/scripts/mounts.lua

@@ -0,0 +1,15 @@
+function onRender(player, offer)
+	local enabled = not player:hasMount(offer:getName())
+	local reason = enabled and "" or "You already have " .. offer:getName() .. " Mount."
+	return enabled, reason
+end
+
+function onBuy(player, offer)
+	local success = player:addMount(offer:getName())
+	if not success then
+		player:sendStoreError(STORE_ERROR_PURCHASE, "Mount '" .. offer:getName() .. "' was not found. Please contact the administrator.")
+		return false
+	end
+
+	return true
+end

data/store/scripts/namechange.lua

@@ -0,0 +1,18 @@
+function onRender(player, offer)
+	return true
+end
+
+function onBuy(player, offer, param)
+	local result = db.storeQuery("SELECT `id` FROM `players` WHERE `name` = " .. db.escapeString(param))
+	if result then
+		player:sendStoreError(STORE_ERROR_PURCHASE, "The name '" .. param .. "' is already being used.")
+		return false
+	end
+
+	if not db.query("UPDATE `players` SET `name` = " .. db.escapeString(param) .. " WHERE `id` = " .. player:getGuid()) then
+		player:sendStoreError(STORE_ERROR_PURCHASE, "Something went wrong, please try again later.")
+		return false
+	end
+
+	return true
+end

data/store/scripts/outfits.lua

@@ -0,0 +1,76 @@
+-- Load outfits
+local outfits = {}
+
+for line in io.lines('data/XML/outfits.xml') do
+    local sex = tonumber(line:match('type.-=[\'"](%d-)[\'"]'))
+    local lookType = tonumber(line:match('looktype.-=[\'"](.-)[\'"]'))
+    local name = line:match('name.-=[\'"](.-)[\'"]')
+    local enabled = line:match('enabled.-=[\'"](.-)[\'"]') == 'yes'
+    local unlocked = line:match('unlocked.-=[\'"](.-)[\'"]') == 'yes'
+
+	if enabled then
+		local outfit = outfits[name:lower()]
+		if not outfit then
+			outfit = {}
+			outfits[name:lower()] = outfit
+		end
+		table.insert(outfit, lookType)
+		outfit.unlocked = unlocked
+	end
+end
+
+local function getAffectedOutfit(offerName)
+    local outfitName
+    local addons
+    if offerName:sub(1, 5) == 'full ' then
+        outfitName = offerName:match('^full (.-) outfit$')
+        addons = {1, 2}
+    else
+        outfitName = offerName:match('^(.+) outfit')
+        addons = {tonumber(offerName:match('outfit addon (.-)$'))}
+    end
+
+    return outfits[outfitName], addons
+end
+
+function onRender(player, offer)
+    local lookTypes, addons = getAffectedOutfit(offer:getName():lower())
+
+    if not lookTypes then
+        return false, 'Outfit "' .. offer:getName() .. '" was not found. Please contact the administrator.'
+    end
+
+    for _, lookType in ipairs(lookTypes) do
+        if #addons == 0 then
+            if player:hasOutfit(lookType, 0) or lookTypes.unlocked then
+                return false, "You already have " .. offer:getName() .. " Outfit."
+            end
+        elseif #addons == 1 then
+			local enabled = (player:hasOutfit(lookType, 0) or lookTypes.unlocked) and not player:hasOutfit(lookType, addons[1])
+			local reason = enabled and "" or "You already have this addon."
+            return enabled, reason
+        else
+            for _, addon in ipairs(addons) do
+                if player:hasOutfit(lookType, addon) then
+                    return false, "You already have one these addons."
+                end
+            end
+        end
+    end
+
+    return true
+end
+
+function onBuy(player, offer)
+    local lookTypes, addons = getAffectedOutfit(offer:getName():lower())
+
+    for _, lookType in ipairs(lookTypes) do
+        player:addOutfit(lookType)
+
+        for _, addon in ipairs(addons) do
+            player:addOutfitAddon(lookType, addon)
+        end
+    end
+
+    return true
+end

data/store/scripts/premiumtime.lua

@@ -0,0 +1,14 @@
+function onRender(player, offer)
+	return true
+end
+
+function onBuy(player, offer)
+	local days = tonumber(offer:getName():match('(%d+) days$'))
+	if days then
+		player:addPremiumDays(days)
+		return true
+	end
+
+	player:sendStoreError(STORE_ERROR_PURCHASE, 'Offer "' .. offer:getName() .. '" not found. Please contact the administrator.')
+	return false
+end

data/store/scripts/sexchange.lua

@@ -0,0 +1,13 @@
+function onRender(player, offer)
+	return true
+end
+
+function onBuy(player, offer)
+	player:setSex(player:getSex() == PLAYERSEX_FEMALE and PLAYERSEX_MALE or PLAYERSEX_FEMALE)
+
+	local playerOutfit = player:getOutfit()
+	playerOutfit.lookType = player:getSex() == PLAYERSEX_FEMALE and 137 or 129
+	player:setOutfit(playerOutfit)
+
+	return true
+end

data/store/scripts/templeteleport.lua

@@ -0,0 +1,22 @@
+local MIN_DISTANCE = 50 -- Distance in SQM's
+
+function onRender(player, offer)
+	if player:isPzLocked() then
+		return false, "You can not purchase a transportation service while PZ Locked."
+	end
+
+	if Tile(player:getPosition()):hasFlag(TILESTATE_NOLOGOUT) then
+		return false, "You can not purchase a transportation service while in a no-logout zone."
+	end
+
+	if player:getPosition():getDistance(player:getTown():getTemplePosition()) < MIN_DISTANCE then
+		return false, "You can not purchase this transportation service this close to your temple."
+	end
+
+	return true
+end
+
+function onBuy(player, offer)
+	player:teleportTo(player:getTown():getTemplePosition())
+	return true
+end