1. --[[
  2. 4.0
  3. Transmogrification TBC - Gossip Menu
  4. By Rochet2
  6. Eluna version
  8. TODO:
  9. Make DB saving even better (Deleting)? What about coding?
  11. Fix the cost formula
  13. TODO in the distant future:
  15. Are the qualities right? Blizzard might have changed the quality requirements.
  16. What can and cant be used as source or target..?
  18. Cant transmogrify:
  19. rediculus items -- Foereaper: would be fun to stab people with a fish
  20. -- Cant think of any good way to handle this easily
  22. Cataclysm:
  23. Test on cata : implement UI xD?
  24. Item link icon to Are You sure text
  25. ]]
  27. local NPC_Entry = 60000
  29. local RequireGold = 1
  30. local GoldModifier = 1.0
  31. local GoldCost = 100000
  33. local RequireToken = false
  34. local TokenEntry = 49426
  35. local TokenAmount = 1
  37. local Qualities =
  38. {
  39. [0] = false, -- AllowPoor
  40. [1] = false, -- AllowCommon
  41. [2] = true , -- AllowUncommon
  42. [3] = true , -- AllowRare
  43. [4] = true , -- AllowEpic
  44. [5] = false, -- AllowLegendary
  45. [6] = false, -- AllowArtifact
  46. [7] = true , -- AllowHeirloom
  47. }
  49. local EQUIPMENT_SLOT_START = 0
  50. local EQUIPMENT_SLOT_HEAD = 0
  51. local EQUIPMENT_SLOT_NECK = 1
  52. local EQUIPMENT_SLOT_SHOULDERS = 2
  53. local EQUIPMENT_SLOT_BODY = 3
  54. local EQUIPMENT_SLOT_CHEST = 4
  55. local EQUIPMENT_SLOT_WAIST = 5
  56. local EQUIPMENT_SLOT_LEGS = 6
  57. local EQUIPMENT_SLOT_FEET = 7
  58. local EQUIPMENT_SLOT_WRISTS = 8
  59. local EQUIPMENT_SLOT_HANDS = 9
  60. local EQUIPMENT_SLOT_FINGER1 = 10
  61. local EQUIPMENT_SLOT_FINGER2 = 11
  62. local EQUIPMENT_SLOT_TRINKET1 = 12
  63. local EQUIPMENT_SLOT_TRINKET2 = 13
  64. local EQUIPMENT_SLOT_BACK = 14
  65. local EQUIPMENT_SLOT_MAINHAND = 15
  66. local EQUIPMENT_SLOT_OFFHAND = 16
  67. local EQUIPMENT_SLOT_RANGED = 17
  68. local EQUIPMENT_SLOT_TABARD = 18
  69. local EQUIPMENT_SLOT_END = 19
  71. local INVENTORY_SLOT_BAG_START = 19
  72. local INVENTORY_SLOT_BAG_END = 23
  74. local INVENTORY_SLOT_ITEM_START = 23
  75. local INVENTORY_SLOT_ITEM_END = 39
  77. local INVTYPE_CHEST = 5
  78. local INVTYPE_WEAPON = 13
  79. local INVTYPE_ROBE = 20
  80. local INVTYPE_WEAPONMAINHAND = 21
  81. local INVTYPE_WEAPONOFFHAND = 22
  83. local ITEM_CLASS_WEAPON = 2
  84. local ITEM_CLASS_ARMOR = 4
  86. local ITEM_SUBCLASS_WEAPON_BOW = 2
  87. local ITEM_SUBCLASS_WEAPON_GUN = 3
  88. local ITEM_SUBCLASS_WEAPON_CROSSBOW = 18
  89. local ITEM_SUBCLASS_WEAPON_FISHING_POLE = 20
  91. local PLAYER_VISIBLE_ITEM_1_ENTRYID = 260
  93. local INVENTORY_SLOT_BAG_0 = 255
  95. local SlotNames = {
  96. [EQUIPMENT_SLOT_HEAD ] = {"Head", nil, nil, nil, nil, nil, nil, nil, nil},
  97. [EQUIPMENT_SLOT_SHOULDERS ] = {"Shoulders", nil, nil, nil, nil, nil, nil, nil, nil},
  98. [EQUIPMENT_SLOT_BODY ] = {"Shirt", nil, nil, nil, nil, nil, nil, nil, nil},
  99. [EQUIPMENT_SLOT_CHEST ] = {"Chest", nil, nil, nil, nil, nil, nil, nil, nil},
  100. [EQUIPMENT_SLOT_WAIST ] = {"Waist", nil, nil, nil, nil, nil, nil, nil, nil},
  101. [EQUIPMENT_SLOT_LEGS ] = {"Legs", nil, nil, nil, nil, nil, nil, nil, nil},
  102. [EQUIPMENT_SLOT_FEET ] = {"Feet", nil, nil, nil, nil, nil, nil, nil, nil},
  103. [EQUIPMENT_SLOT_WRISTS ] = {"Wrists", nil, nil, nil, nil, nil, nil, nil, nil},
  104. [EQUIPMENT_SLOT_HANDS ] = {"Hands", nil, nil, nil, nil, nil, nil, nil, nil},
  105. [EQUIPMENT_SLOT_BACK ] = {"Back", nil, nil, nil, nil, nil, nil, nil, nil},
  106. [EQUIPMENT_SLOT_MAINHAND ] = {"Main hand", nil, nil, nil, nil, nil, nil, nil, nil},
  107. [EQUIPMENT_SLOT_OFFHAND ] = {"Off hand", nil, nil, nil, nil, nil, nil, nil, nil},
  108. [EQUIPMENT_SLOT_RANGED ] = {"Ranged", nil, nil, nil, nil, nil, nil, nil, nil},
  109. [EQUIPMENT_SLOT_TABARD ] = {"Tabard", nil, nil, nil, nil, nil, nil, nil, nil},
  110. }
  111. local Locales = {
  112. {"Update menu", nil, nil, nil, nil, nil, nil, nil, nil},
  113. {"Remove all transmogrifications", nil, nil, nil, nil, nil, nil, nil, nil},
  114. {"Remove transmogrifications from all equipped items?", nil, nil, nil, nil, nil, nil, nil, nil},
  115. {"Using this item for transmogrify will bind it to you and make it non-refundable and non-tradeable.\nDo you wish to continue?", nil, nil, nil, nil, nil, nil, nil, nil},
  116. {"Remove transmogrification from %s?", nil, nil, nil, nil, nil, nil, nil, nil},
  117. {"Back..", nil, nil, nil, nil, nil, nil, nil, nil},
  118. {"Remove transmogrification", nil, nil, nil, nil, nil, nil, nil, nil},
  119. {"Transmogrifications removed from equipped items", nil, nil, nil, nil, nil, nil, nil, nil},
  120. {"You have no transmogrified items equipped", nil, nil, nil, nil, nil, nil, nil, nil},
  121. {"%s transmogrification removed", nil, nil, nil, nil, nil, nil, nil, nil},
  122. {"No transmogrification on %s slot", nil, nil, nil, nil, nil, nil, nil, nil},
  123. {"%s transmogrified", nil, nil, nil, nil, nil, nil, nil, nil},
  124. {"Selected items are not suitable", nil, nil, nil, nil, nil, nil, nil, nil},
  125. {"Selected item does not exist", nil, nil, nil, nil, nil, nil, nil, nil},
  126. {"Equipment slot is empty", nil, nil, nil, nil, nil, nil, nil, nil},
  127. {"You don't have enough %ss", nil, nil, nil, nil, nil, nil, nil, nil},
  128. }
  129. local function LocText(id, p) -- "%s":format("test")
  130. if(Locales[id]) then
  131. local s = Locales[id][p:GetDbcLocale()+1] or Locales[id][1]
  132. if(s) then
  133. return s
  134. end
  135. end
  136. return "Text not found: "..(id or 0)
  137. end
  138. --[[
  139. typedef UNORDERED_MAP<uint32, uint32> transmogData
  140. typedef UNORDERED_MAP<uint32, transmogData> transmogMap
  141. static transmogMap entryMap -- entryMap[pGUID][iGUID] = entry
  142. static transmogData dataMap -- dataMap[iGUID] = pGUID
  143. ]]
  144. local entryMap = {}
  145. local dataMap = {}
  147. local function GetSlotName(slot, locale)
  148. if(not SlotNames[slot]) then return end
  149. return SlotNames[slot][locale and locale+1 or 1]
  150. end
  152. local function GetFakePrice(item)
  153. local sellPrice = item:GetSellPrice()
  154. local minPrice = item:GetRequiredLevel() * 1176
  155. if (sellPrice < minPrice) then
  156. sellPrice = minPrice
  157. end
  158. return sellPrice
  159. end
  161. local function GetFakeEntry(item)
  162. local guid = item and item:GetGUIDLow()
  163. if(guid and dataMap[guid]) then
  164. if(entryMap[dataMap[guid]]) then
  165. return entryMap[dataMap[guid]][guid]
  166. end
  167. end
  168. end
  170. local function DeleteFakeFromDB(itemGUID)
  171. if (dataMap[itemGUID]) then
  172. if(entryMap[dataMap[itemGUID]]) then
  173. entryMap[dataMap[itemGUID]][itemGUID] = nil
  174. end
  175. dataMap[itemGUID] = nil
  176. end
  177. CharDBExecute("DELETE FROM custom_transmogrification WHERE GUID = "..itemGUID)
  178. end
  180. local function DeleteFakeEntry(item)
  181. if (not GetFakeEntry(item)) then
  182. return false
  183. end
  184. item:GetOwner():UpdateUInt32Value(PLAYER_VISIBLE_ITEM_1_ENTRYID + (item:GetSlot() * 12), item:GetEntry())
  185. DeleteFakeFromDB(item:GetGUIDLow())
  186. return true
  187. end
  189. local function SetFakeEntry(item, entry)
  190. local player = item:GetOwner()
  191. if(player) then
  192. local pGUID = player:GetGUIDLow()
  193. local iGUID = item:GetGUIDLow()
  194. player:UpdateUInt32Value(PLAYER_VISIBLE_ITEM_1_ENTRYID + (item:GetSlot() * 12), entry)
  195. if(not entryMap[pGUID]) then
  196. entryMap[pGUID] = {}
  197. end
  198. entryMap[pGUID][iGUID] = entry
  199. dataMap[iGUID] = pGUID
  200. CharDBExecute("REPLACE INTO custom_transmogrification (GUID, FakeEntry, Owner) VALUES ("..iGUID..", "..entry..", "..pGUID..")")
  201. end
  202. end
  204. local function SuitableForTransmogrification(player, oldItem, newItem)
  205. -- not possibly the best structure here, but atleast I got my head around this
  206. if (not Qualities[newItem:GetQuality()]) then
  207. return false
  208. end
  209. if (not Qualities[oldItem:GetQuality()]) then
  210. return false
  211. end
  213. if(oldItem:GetDisplayId() == newItem:GetDisplayId()) then
  214. return false
  215. end
  216. --if (GetFakeEntry(oldItem))
  217. -- if (const ItemTemplate* fakeItemTemplate = sObjectMgr:GetItemTemplate(GetFakeEntry(oldItem)))
  218. -- if (fakeItemTemplate:DisplayInfoID == newItem:GetTemplate():DisplayInfoID)
  219. -- return false
  220. local fentry = GetFakeEntry(oldItem)
  221. if(fentry and fentry == newItem:GetEntry()) then
  222. return false
  223. end
  225. if (player:CanUseItem(newItem) ~= 0) then
  226. return false
  227. end
  228. local newClass = newItem:GetClass()
  229. local oldClass = oldItem:GetClass()
  230. local newSubClass = newItem:GetSubClass()
  231. local oldSubClass = oldItem:GetSubClass()
  232. local newInventorytype = newItem:GetInventoryType()
  233. local oldInventorytype = oldItem:GetInventoryType()
  234. if (newClass ~= oldClass) then
  235. return false
  236. end
  237. if (newClass == ITEM_CLASS_WEAPON and newSubClass ~= ITEM_SUBCLASS_WEAPON_FISHING_POLE and oldSubClass ~= ITEM_SUBCLASS_WEAPON_FISHING_POLE) then
  238. if (newSubClass == oldSubClass or ((newSubClass == ITEM_SUBCLASS_WEAPON_BOW or newSubClass == ITEM_SUBCLASS_WEAPON_GUN or newSubClass == ITEM_SUBCLASS_WEAPON_CROSSBOW) and (oldSubClass == ITEM_SUBCLASS_WEAPON_BOW or oldSubClass == ITEM_SUBCLASS_WEAPON_GUN or oldSubClass == ITEM_SUBCLASS_WEAPON_CROSSBOW))) then
  239. if (newInventorytype == oldInventorytype or (newInventorytype == INVTYPE_WEAPON and (oldInventorytype == INVTYPE_WEAPONMAINHAND or oldInventorytype == INVTYPE_WEAPONOFFHAND))) then
  240. return true
  241. else
  242. return false
  243. end
  244. else
  245. return false
  246. end
  247. elseif (newClass == ITEM_CLASS_ARMOR) then
  248. if (newSubClass == oldSubClass) then
  249. if (newInventorytype == oldInventorytype or (newInventorytype == INVTYPE_CHEST and oldInventorytype == INVTYPE_ROBE) or (newInventorytype == INVTYPE_ROBE and oldInventorytype == INVTYPE_CHEST)) then
  250. return true
  251. else
  252. return false
  253. end
  254. else
  255. return false
  256. end
  257. end
  258. return false
  259. end
  261. local menu_id = math.random(1000)
  263. local function OnGossipHello(event, player, creature)
  264. player:GossipClearMenu()
  265. for slot = EQUIPMENT_SLOT_START, EQUIPMENT_SLOT_END-1 do
  266. local newItem = player:GetItemByPos(-1, slot)
  267. if (newItem) then
  268. if (Qualities[newItem:GetQuality()]) then
  269. local slotName = GetSlotName(slot, player:GetDbcLocale())
  270. if (slotName) then
  271. player:GossipMenuAddItem(3, slotName, EQUIPMENT_SLOT_END, slot)
  272. end
  273. end
  274. end
  275. end
  276. player:GossipMenuAddItem(4, LocText(2, player), EQUIPMENT_SLOT_END+2, 0, false, LocText(3, player), 0)
  277. player:GossipMenuAddItem(7, LocText(1, player), EQUIPMENT_SLOT_END+1, 0)
  278. player:GossipSendMenu(100, creature, menu_id)
  279. end
  281. local _items = {}
  282. local function OnGossipSelect(event, player, creature, sender, uiAction)
  283. if sender == EQUIPMENT_SLOT_END then -- Show items you can use
  284. local oldItem = player:GetItemByPos(-1, uiAction)
  285. if (oldItem) then
  286. local lowGUID = player:GetGUIDLow()
  287. _items[lowGUID] = {} -- Remove this with logix
  288. local limit = 0
  289. local price = 0
  290. if(RequireGold == 1) then
  291. price = GetFakePrice(oldItem)*GoldModifier
  292. elseif(RequireGold == 2) then
  293. price = GoldCost
  294. end
  296. for i = INVENTORY_SLOT_ITEM_START, INVENTORY_SLOT_ITEM_END-1 do
  297. if (limit > 30) then
  298. break
  299. end
  300. local newItem = player:GetItemByPos(-1, i)
  301. if (newItem) then
  302. local display = newItem:GetDisplayId()
  303. if (SuitableForTransmogrification(player, oldItem, newItem)) then
  304. if (not _items[lowGUID][display]) then
  305. limit = limit + 1
  306. _items[lowGUID][display] = newItem
  307. local popup = LocText(4, player).."\n\n"..newItem:GetItemLink(player:GetDbcLocale()).."\n"
  308. if(RequireToken) then
  309. popup = popup.."\n"..TokenAmount.." x "..GetItemLink(TokenEntry, player:GetDbcLocale())
  310. end
  311. player:GossipMenuAddItem(4, newItem:GetItemLink(player:GetDbcLocale()), uiAction, display, false, popup, price)
  312. end
  313. end
  314. end
  315. end
  317. for i = INVENTORY_SLOT_BAG_START, INVENTORY_SLOT_BAG_END-1 do
  318. local bag = player:GetItemByPos(-1, i)
  319. if (bag) then
  320. for j = 0, bag:GetBagSize()-1 do
  321. if (limit > 30) then
  322. break
  323. end
  324. local newItem = player:GetItemByPos(i, j)
  325. if (newItem) then
  326. local display = newItem:GetDisplayId()
  327. if (SuitableForTransmogrification(player, oldItem, newItem)) then
  328. if (not _items[lowGUID][display]) then
  329. limit = limit + 1
  330. _items[lowGUID][display] = newItem
  331. player:GossipMenuAddItem(4, newItem:GetItemLink(player:GetDbcLocale()), uiAction, display, false, popup, price)
  332. end
  333. end
  334. end
  335. end
  336. end
  337. end
  339. player:GossipMenuAddItem(4, LocText(7, player), EQUIPMENT_SLOT_END+3, uiAction, false, LocText(5, player):format(GetSlotName(uiAction, player:GetDbcLocale())))
  340. player:GossipMenuAddItem(7, LocText(6, player), EQUIPMENT_SLOT_END+1, 0)
  341. player:GossipSendMenu(100, creature, menu_id)
  342. else
  343. OnGossipHello(event, player, creature)
  344. end
  345. elseif sender == EQUIPMENT_SLOT_END+1 then -- Back
  346. OnGossipHello(event, player, creature)
  347. elseif sender == EQUIPMENT_SLOT_END+2 then -- Remove Transmogrifications
  348. local removed = false
  349. for slot = EQUIPMENT_SLOT_START, EQUIPMENT_SLOT_END-1 do
  350. local newItem = player:GetItemByPos(-1, slot)
  351. if (newItem) then
  352. if (DeleteFakeEntry(newItem) and not removed) then
  353. removed = true
  354. end
  355. end
  356. end
  357. if (removed) then
  358. player:SendAreaTriggerMessage(LocText(8, player))
  359. -- player:PlayDirectSound(3337)
  360. else
  361. player:SendNotification(LocText(9, player))
  362. end
  363. OnGossipHello(event, player, creature)
  364. elseif sender == EQUIPMENT_SLOT_END+3 then -- Remove Transmogrification from single item
  365. local newItem = player:GetItemByPos(-1, uiAction)
  366. if (newItem) then
  367. if (DeleteFakeEntry(newItem)) then
  368. player:SendAreaTriggerMessage(LocText(10, player):format(GetSlotName(uiAction, player:GetDbcLocale())))
  369. -- player:PlayDirectSound(3337)
  370. else
  371. player:SendNotification(LocText(11, player):format(GetSlotName(uiAction, player:GetDbcLocale())))
  372. end
  373. end
  374. OnGossipSelect(event, player, creature, EQUIPMENT_SLOT_END, uiAction)
  375. else -- Transmogrify
  376. local lowGUID = player:GetGUIDLow()
  377. if(not RequireToken or player:GetItemCount(TokenEntry) >= TokenAmount) then
  378. local oldItem = player:GetItemByPos(-1, sender)
  379. if (oldItem) then
  380. if (_items[lowGUID] and _items[lowGUID][uiAction] and _items[lowGUID][uiAction]) then
  381. local newItem = _items[lowGUID][uiAction]
  382. if (newItem:GetOwnerGUID() == player:GetGUID() and (newItem:IsInBag() or newItem:GetBagSlot() == INVENTORY_SLOT_BAG_0) and SuitableForTransmogrification(player, oldItem, newItem)) then
  383. local price
  384. if(RequireGold == 1) then
  385. price = GetFakePrice(oldItem)*GoldModifier
  386. elseif(RequireGold == 2) then
  387. price = GoldCost
  388. end
  389. if(price) then player:ModifyMoney(-1*price) end
  390. if(RequireToken) then
  391. player:RemoveItem(TokenEntry, TokenAmount)
  392. end
  393. SetFakeEntry(oldItem, newItem:GetEntry())
  394. -- newItem:SetNotRefundable(player)
  395. newItem:SetBinding(1)
  396. -- player:PlayDirectSound(3337)
  397. player:SendAreaTriggerMessage(LocText(12, player):format(GetSlotName(sender, player:GetDbcLocale())))
  398. else
  399. player:SendNotification(LocText(13, player))
  400. end
  401. else
  402. player:SendNotification(LocText(14, player))
  403. end
  404. else
  405. player:SendNotification(LocText(15, player))
  406. end
  407. else
  408. player:SendNotification(LocText(16, player):format(GetItemLink(TokenEntry, player:GetDbcLocale())))
  409. end
  410. _items[lowGUID] = {}
  411. OnGossipSelect(event, player, creature, EQUIPMENT_SLOT_END, sender)
  412. end
  413. end
  415. local function OnLogin(event, player)
  416. local playerGUID = player:GetGUIDLow()
  417. entryMap[playerGUID] = {}
  418. local result = CharDBQuery("SELECT GUID, FakeEntry FROM custom_transmogrification WHERE Owner = "..playerGUID)
  419. if (result) then
  420. repeat
  421. local itemGUID = result:GetUInt32(0)
  422. local fakeEntry = result:GetUInt32(1)
  423. -- if (sObjectMgr:GetItemTemplate(fakeEntry)) then
  424. -- {
  425. dataMap[itemGUID] = playerGUID
  426. entryMap[playerGUID][itemGUID] = fakeEntry
  427. -- }
  428. -- else
  429. -- sLog:outError(LOG_FILTER_SQL, "Item entry (Entry: %u, itemGUID: %u, playerGUID: %u) does not exist, deleting.", fakeEntry, itemGUID, playerGUID)
  430. -- Transmogrification::DeleteFakeFromDB(itemGUID)
  431. -- end
  432. until not result:NextRow()
  434. for slot = EQUIPMENT_SLOT_START, EQUIPMENT_SLOT_END-1 do
  435. local item = player:GetItemByPos(-1, slot)
  436. if (item) then
  437. if(entryMap[playerGUID]) then
  438. if(entryMap[playerGUID][item:GetGUIDLow()]) then
  439. player:UpdateUInt32Value(PLAYER_VISIBLE_ITEM_1_ENTRYID + (item:GetSlot() * 12), entryMap[playerGUID][item:GetGUIDLow()])
  440. end
  441. end
  442. end
  443. end
  444. end
  445. end
  447. local function OnLogout(event, player)
  448. local pGUID = player:GetGUIDLow()
  449. entryMap[pGUID] = nil
  450. end
  452. local function OnEquip(event, player, item, bag, slot)
  453. local fentry = GetFakeEntry(item)
  454. if (fentry) then
  455. if(item:GetOwnerGUID() ~= player:GetGUID()) then
  456. DeleteFakeFromDB(item:GetGUIDLow())
  457. return
  458. end
  459. player:SetUInt32Value(PLAYER_VISIBLE_ITEM_1_ENTRYID + (slot * 12), fentry)
  460. else
  461. -- player:SetUInt32Value(PLAYER_VISIBLE_ITEM_1_ENTRYID + (slot * 12), pItem:GetEntry())
  462. end
  463. end
  465. -- Note, Query is instant when Execute is delayed
  466. CharDBQuery([[
  467. CREATE TABLE IF NOT EXISTS `custom_transmogrification` (
  468. `GUID` INT(10) UNSIGNED NOT NULL COMMENT 'Item guidLow',
  469. `FakeEntry` INT(10) UNSIGNED NOT NULL COMMENT 'Item entry',
  470. `Owner` INT(10) UNSIGNED NOT NULL COMMENT 'Player guidLow',
  471. PRIMARY KEY (`GUID`)
  472. )
  473. COMMENT='version 4.0'
  474. COLLATE='latin1_swedish_ci'
  475. ENGINE=InnoDB;
  476. ]])
  478. print("Deleting non-existing transmogrification entries...")
  479. CharDBQuery("DELETE FROM custom_transmogrification WHERE NOT EXISTS (SELECT 1 FROM item_instance WHERE item_instance.guid = custom_transmogrification.GUID)")
  481. RegisterPlayerEvent(3, OnLogin)
  482. RegisterPlayerEvent(4, OnLogout)
  483. RegisterPlayerEvent(29, OnEquip)
  485. -- Test code
  486. --RegisterPlayerEvent(18, function(e,p,m,t,l) if(m == "test") then OnGossipHello(e,p,p) end end)
  487. --RegisterPlayerGossipEvent(menu_id, 2, OnGossipSelect)
  489. RegisterCreatureGossipEvent(NPC_Entry, 1, OnGossipHello)
  490. RegisterCreatureGossipEvent(NPC_Entry, 2, OnGossipSelect)
  492. local plrs = GetPlayersInWorld()
  493. if(plrs) then
  494. for k, player in ipairs(plrs) do
  495. OnLogin(k, player)
  496. end
  497. end