Module:SourcesQuery
From IdleOn MMO Wiki
Documentation for this module may be created at Module:SourcesQuery/doc
local p = {}
local cargo = mw.ext.cargo
local Utility = require('Module:Utility')
local function concatSourceStings(...)
local strings = {...}
local fullString = ''
for n=1, #strings do
if strings[n] ~= '' then
if fullString ~= '' then fullString = fullString .. ', ' end
fullString = fullString .. strings[n]
end
end
return fullString ~= '' and fullString or 'Unobtainable'
end
local function SmithingSources(item)
local tables = 'AnvilCraft'
local fields = 'RecipeFrom'
local args = {
where = 'AnvilCraft.Item="'.. item ..'"',
orderBy = 'AnvilCraft.Item'
}
local results = cargo.query( tables, fields, args )
if #results == 0 then return end -- if no results, return original string and continue.
local from = ''
-- Unless there are two recipes for an item, this should only have one entry.
if 'Start' ~= results[1].RecipeFrom then
from = string.format(' (%s)', results[1].RecipeFrom)
end
return string.format('[[Smithing]]%s', from)
end
local function NormalDropTableSources(item)
local fullList = {}
local tables = 'NormalDropTables'
local fields = 'DropSource'
local args = {
where = 'NormalDropTables.DroppedItem="'.. item .. '"',
groupBy = 'NormalDropTables.DropSource',
orderBy = 'NormalDropTables.DropSource ASC'
}
local results = cargo.query( tables, fields, args )
if #results == 0 then return end -- if no results, return original string and continue.
local source = ''
for r = 1, #results do
source = results[r].DropSource
fullList[r] = string.format('[[%s]]', source)
end
return table.concat(fullList, ", ")
end
local function EnemiesByRareTable(rareTableName, rarityID)
local results = {}
-- Find all Enemies that append the rare table denoted by rareTableName and return a list of their page links.
if rarityID == 'R' then
-- Query NormalDropTables for every source that 'drops' the table.
local tables = 'NormalDropTables'
local fields = 'DropSource'
local args = {
where = 'DroppedItem IN ('.. rareTableName ..')',
groupBy = 'DropSource',
}
local sources = cargo.query( tables, fields, args )
if #sources == 0 then return '' end
local source = ''
for r = 1, #sources do
results[r] = sources[r].DropSource
end
return table.concat(results, ", ")
elseif rarityID == 'MR' then
-- Query RareDropTables for every source that 'drops' the table. Then get every enemy in the NormalDropTables that drops that table.
local tables = 'RareDropTables'
local fields = 'DropSourceEntity'
local args = {
where = 'DropItem='.. rareTableName,
groupBy = 'DropSourceEntity',
}
local sources = cargo.query( tables, fields, args )
if #sources == 0 then return '' end
local source = ''
for r = 1, #sources do
source = sources[r].DropSourceEntity
results[r] = string.format('"%s"', source)
end
-- Return the values generated by the Rare tables that call this Super Drop Table.
return EnemiesByRareTable(table.concat(results, ", "), "R")
else
return "Enemy Lookup Error. Unknown Table Structure for table: " .. rareTableName
end
end
local function RareDropTableSources(item)
local fullList = {}
local tables = 'RareDropTables'
local fields = 'DropSourceEntity'
local args = {
where = 'RareDropTables.DropItem="'.. item ..'" AND NOT (DropSourceEntity LIKE "DropTable%" AND TableType="Mega")',
groupBy = 'RareDropTables.DropSourceEntity',
orderBy = 'RareDropTables.DropSourceEntity ASC'
}
local results = cargo.query( tables, fields, args )
if #results == 0 then return end -- if no results, return original string and continue.
local source = ''
local prettytext = ''
local enemylist = ''
local prefix = ''
for r = 1, #results do
source = results[r].DropSourceEntity
prefix = source:sub(1, 1) == 'S' and 'MR' or 'R' -- If first letter is S then MR, else R for prefix.
-- Get Substring of source that is a digit followed by any letters,
prettytext = prefix .. '-' .. source:sub(source:find("(%d+)(%a*)"))
enemylist = EnemiesByRareTable('"'..source..'"', prefix)
fullList[r] = string.format('[[%s|%s]] (%s)', source, prettytext, string.format(Utility.tooltipstruct, enemylist, "Sources"))
end
return table.concat(fullList, ", ")
end
local function QuestSources(item)
local fullList = {}
local tables = 'Quests'
local fields = '_pageName'
local args = {
where = 'Quests.Rewards HOLDS LIKE "%>'.. item ..'<%"',
groupBy = 'Quests._pageName',
}
local results = cargo.query( tables, fields, args )
if #results == 0 then return end -- if no results, return original string and continue.
local source = ''
for r = 1, #results do
source = results[r]._pageName
fullList[r] = string.format('[[%s]]', source)
end
return table.concat(fullList, ", ")
end
local function VendorSources(item)
local fullList = {}
local tables = 'VendorItems'
local fields = 'Vendor'
local args = {
where = 'VendorItems.Item="'.. item ..'"',
orderBy = 'VendorItems.Vendor',
}
local results = cargo.query( tables, fields, args )
if #results == 0 then return end -- if no results, return original string and continue.
local vendor = ''
for r = 1, #results do
vendor = results[r].Vendor
fullList[r] = string.format('[[Vendors#%s|%s]] (Shop)', vendor, vendor)
end
return table.concat(fullList, ", ")
end
local function PostOfficeSources(item)
local fullList = {}
local companies = {'Simple Shippin', 'Plan-it Express', 'Dudes Next Door', 'Down Undelivery', 'Alpine Suppliers', 'Cosmic Carrier'}
local shortNames = {'SS', 'PE', 'DND', 'DU', 'AS', 'CC'} -- Handling it this way so we can control the order.
local boolTracker = {0, 0, 0, 0, 0, 0} --Used to track which Company offers the same item as a reward.
local tables = 'PORewards'
local fields = 'Company'
local args = {
where = 'PORewards.Item="'.. item ..'"',
}
local results = cargo.query( tables, fields, args )
if #results == 0 then return end -- if no results, return original string and continue.
local company = ''
for r = 1, #results do
company = results[r].Company
for c = 1, #companies do
if company == companies[c] then boolTracker[c] = 1 end
end
end
local compTable = {}
for b = 1, #boolTracker do
if boolTracker[b] == 1 then
compTable[#compTable+1] = string.format('<span class="simple-tooltip simple-tooltip-inline tooltipstered" style="color: #b847cb;" data-simple-tooltip="%s">[[Post Office#%s|%s]]</span>', companies[b], companies[b], shortNames[b])
end
end
return string.format('[[Post Office#Companies & Rewards|Post Office]] (%s)', table.concat(compTable, ", "))
end
local function CustomSources(item)
local fullList = {}
local tables = 'ExtraSourceData'
local fields = 'Link, SpecialText, EventRules'
local args = {
where = 'ExtraSourceData.Item="'.. item ..'"',
orderBy = 'ExtraSourceData.Source',
}
local results = cargo.query( tables, fields, args )
if #results == 0 then return end -- if no results, return original string and continue.
local EventRulesCounter = 0
local link = ''
local sText = ''
local tableSize = #fullList
for r = 1, #results do
link = results[r].Link
sText = results[r].SpecialText
EventRulesCounter = EventRulesCounter + results[r].EventRules
if sText ~= 'None' then
sText = string.format(' (%s)', sText)
else
sText = ''
end
fullList[tableSize+r] = string.format('[[%s]]%s', link, sText)
end
-- If item is a special drop then append the following to the last entry so it isn't split by commas later.
if EventRulesCounter > 0 then fullList[#fullList] = fullList[#fullList] .. "<br/>''Additional Event drop.''" end
return table.concat(fullList, ", ")
end
local function RareDropChance(item)
local tables = 'RareDropTables'
local fields = 'DropRate'
local args = {
where = 'RareDropTables.DropItem = "'.. item ..'"',
orderBy = 'RareDropTables.DropRate DESC'
}
local results = cargo.query( tables, fields, args )
return results
end
function p.PullSourcesFromList(frame)
local item = frame.args.item
local tables = 'ItemSources'
local fields = 'SourcesList'
local args = {
where = 'ItemSources.Item="'.. item ..'"',
orderBy = 'ItemSources.Item'
}
local results = cargo.query( tables, fields, args )
if #results == 0 then return end -- if no results, return original string and continue.
-- There should only ever be one option if it exists so return that.
return results[1].SourcesList
end
-- This one is just to get the Drop Chance value for an Item.
function p.DropChance(frame)
local item = frame.args.item
local result = ''
local raretext = ''
local tables = 'NormalDropTables'
local fields = 'DropRate'
local args = {
where = 'NormalDropTables.DroppedItem = "'.. item ..'"',
orderBy = 'NormalDropTables.DropRate DESC'
}
local results = cargo.query( tables, fields, args )
-- If no results in the Normal tables, then query the rare tables.
if #results == 0 then
results = RareDropChance(item)
raretext = '|raretip=y'
end
if #results == 0 then result = 0; raretext = '' else result = tostring(results[1].DropRate) end -- Gets the highest drop rate.
mw.ext.VariablesLua.vardefine('Chance', result)
return result .. raretext
end
function p.Main( frame )
local item = frame.args.item
local smith = SmithingSources(item) or ''
local drops = NormalDropTableSources(item) or ''
local rdrop = RareDropTableSources(item) or ''
local quest = QuestSources(item) or ''
local shops = VendorSources(item) or ''
local posts = PostOfficeSources(item) or ''
local custm = CustomSources(item) or ''
local result = concatSourceStings(smith, drops, rdrop, quest, shops, posts, custm)
return result
end
return p