collect_merchant.lua

   1 QuestHelper_File["collect_merchant.lua"] = "Development Version"
   2 QuestHelper_Loadtime["collect_merchant.lua"] = GetTime()
   3
   4 -- http://www.penny-arcade.com/comic/2005/01/05/
   5
   6 local debug_output = false
   7 if QuestHelper_File["collect_merchant.lua"] == "Development Version" then debug_output = true end
   8
   9 local QHCM
  10
  11 local IsMonsterGUID
  12 local GetMonsterType
  13 local GetItemType
  14
  15 local function AddChatType(typ)
  16   local target = UnitGUID("target")
  17   if not target then return end
  18
  19   if not IsMonsterGUID(target) then return end
  20
  21   target = GetMonsterType(target)
  22
  23   if not QHCM[target] then QHCM[target] = {} end
  24   QHCM[target]["chat_" .. typ] = (QHCM[target]["chat_" .. typ] or 0) + 1
  25   return QHCM[target]
  26 end
  27
  28 local function MerchantShow()
  29   local ct = GetMerchantNumItems()
  30   for i = 1, ct do if not GetMerchantItemLink(i) then return end end  -- We want to make sure it's cached, otherwise we'll return wonky data. Technically this biases things away from "yes he's a shopkeeper", but honestly, it doesn't matter that much.
  31
  32   targ = AddChatType("shop")
  33   if not targ then return end -- welllllp
  34
  35   local ct = GetMerchantNumItems()
  36   --QuestHelper:TextOut(string.format("nitems %d", ct))
  37
  38   for i = 1, ct do
  39     local itemid = GetMerchantItemLink(i)
  40     QuestHelper: Assert(itemid)
  41     itemid = GetItemType(itemid)
  42     local _, _, price, quant, avail, _, _ = GetMerchantItemInfo(i)
  43     local dstr = string.format("%d@@%d@@%d@@%d", itemid, quant, avail, price)
  44     --if debug_output then QuestHelper:TextOut(dstr) end
  45     targ["shop_" .. dstr] = (targ["shop_" .. dstr] or 0) + 1
  46   end
  47 end
  48
  49 local function GossipShow()
  50   AddChatType("talk")
  51 end
  52
  53 local function QuestGreeting()
  54   AddChatType("quest")
  55 end
  56
  57
  58 function QH_Collect_Merchant_Init(QHCData, API)
  59    if not QHCData.monster then QHCData.monster = {} end
  60   QHCM = QHCData.monster
  61
  62   API.Registrar_EventHook("MERCHANT_SHOW", MerchantShow)
  63   API.Registrar_EventHook("GOSSIP_SHOW", GossipShow)
  64   API.Registrar_EventHook("QUEST_GREETING", QuestGreeting)
  65
  66   IsMonsterGUID = API.Utility_IsMonsterGUID
  67   GetMonsterType = API.Utility_GetMonsterType
  68   GetItemType = API.Utility_GetItemType
  69   QuestHelper: Assert(IsMonsterGUID)
  70   QuestHelper: Assert(GetMonsterType)
  71   QuestHelper: Assert(GetItemType)
  72 end