Transmogger

    This site uses cookies. By continuing to browse this site, you are agreeing to our Cookie Policy.

    • Transmogger

      Hallo Zusammen

      Hier möchte ich Euch meinen Transmog NPC zur Verfügung stellen, dessen Transmoggs bleiben bestehen auch wenn Ihr Euch ausgeloggt habt.

      Menü:



      Habt Ihr kein Item in der Tasche bekommt Ihr eine Fehlermeldung:



      Mainhand Auswahl:



      Vorher:



      Transmoggen:





      Transmogs Entfernen:

      ACHTUNG!!! Ihr könnt auch Einzelne Transmogs Entfernen wie Im (Mainhand Auswahl:) Screen zu sehen ist.










      Und Hier das Script und die SQL dazu:



      C Source Code: Transmogger.lua

      1. --[[ Scripted by Batidadekill ]]--
      4. local NPCENTRY = 90013 -- Your NPC's entry
      6. -- Warning! Executes quite some code. Delay in milliseconds. (applies transmogs)
      7. local DELAY = 500 -- 500 (best visual update, very low population), 1000 (good visual update, very low population), 2000+ (slow visual update, medium to high population)
      9. -- DO NOT TOUCH ANYTHING BELOW!
      11. -- Transmog table and functions.
      12. local Transmogs, Hello, Select, AddTransmog, RemoveTransmog, GetValidSources, LoadTransmogs, ApplyTransmogs
      14. -- Key0 is the key for inv_slots table, which contains the slotID. Key0 is also used for the inv_slot_names table
      15. local inv_slots = {0, 2, 4, 5, 6, 7, 8, 9, 14, 15, 16, 17}
      16. local inv_slot_names = {"|TInterface\\Icons\\inv_helmet_99.png:25|t|cffff0000>->|r|cff6666FF Kopf|cffff0000<-<|r", "|TInterface\\Icons\\inv_shoulder_63.png:25|t|cffff0000>->|r|cff6666FF Schulter|cffff0000<-<|r", "|TInterface\\Icons\\inv_chest_cloth_66.png:25|t|cffff0000>->|r|cff6666FF Brust|cffff0000<-<|r", "|TInterface\\Icons\\inv_belt_07.png:25|t|cffff0000>->|r|cff6666FF G\195\188rtel|cffff0000<-<|r", "|TInterface\\Icons\\inv_pants_cloth_27.png:25|t|cffff0000>->|r|cff6666FF Hose|cffff0000<-<|r", "|TInterface\\Icons\\inv_boots_cloth_07.png:25|t|cffff0000>->|r|cff6666FF Schuhe|cffff0000<-<|r", "|TInterface\\Icons\\inv_bracer_10.png:25|t|cffff0000>->|r|cff6666FF Handgelenke|cffff0000<-<|r", "|TInterface\\Icons\\inv_gauntlets_63.png:25|t|cffff0000>->|r|cff6666FF H\195\164nde|cffff0000<-<|r", "|TInterface\\Icons\\inv_misc_cape_naxxramas_03.png:25|t|cffff0000>->|r|cff6666FF Umhang|cffff0000<-<|r", "|TInterface\\Icons\\inv_weapon_glave_01.png:25|t|cffff0000>->|r|cff6666FF Main Hand|cffff0000<-<|r", "|TInterface\\Icons\\inv_misc_book_06.png:25|t|cffff0000>->|r|cff6666FF Off Hand|cffff0000<-<|r", "|TInterface\\Icons\\inv_weapon_bow_39.png:25|t|cffff0000>->|r|cff6666FF Ranged|cffff0000<-<|r"}
      18. local INV_BAG, INV_START, INV_END = 255, 1, #inv_slots
      19. local VISIBLE_ITEM_ENTRY_0 = 283
      20. local BAGS =
      21. {
      22. {BAG = INV_BAG, START = 23, END = 38},
      23. {BAG = 19, START = 0, END = 35},
      24. {BAG = 20, START = 0, END = 35},
      25. {BAG = 21, START = 0, END = 35},
      26. {BAG = 22, START = 0, END = 35},
      27. }
      29. -- bags -1 inventory and backpack, 19-22 other bags
      30. -- slots 0-18 equipment
      31. -- slots 19-22 bags
      32. -- slots 23-38 backpack
      33. -- slots 0-35 other bags
      35. local space = 20
      36. local opt_space = 100
      37. local opt_amount = 13 -- Warning! Do not use over 30
      39. local Data = {}
      41. function Hello(unit, event, player)
      42. Data[tostring(player:GetGUID())] = nil
      43. unit:GossipCreateMenu(100, player, 0)
      44. for Key0 = INV_START, INV_END do
      45. unit:GossipMenuAddItem(3, inv_slot_names[Key0], Key0+space, 0, "", 0)
      46. end
      47. unit:GossipMenuAddItem(4, "|cffff0000>->|rAlle Transmog's entfernen|cffff0000<-<|r", 0, 0, "Wirklich alle Transmog's entfernen?", 0)
      48. unit:GossipSendMenu(player)
      49. end
      51. function Select(unit, event, player, id, intid, code)
      52. local pGUID = tostring(player:GetGUID())
      53. if(intid == 0) then -- remove all transmogs
      54. for Key0 = INV_START, INV_END do
      55. RemoveTransmog(inv_slots[Key0], player)
      56. end
      57. player:SendAreaTriggerMessage("|cff00FF00Transmog's entfernt")
      58. Hello(unit, event, player)
      59. elseif(intid == 1) then
      60. Hello(unit, event, player)
      61. elseif(intid > INV_START and intid <= INV_END+1) then -- remove one transmog
      62. RemoveTransmog(inv_slots[intid-1], player)
      63. player:SendAreaTriggerMessage("|cff00FF00Transmogrification entfernt von "..inv_slot_names[intid-1])
      64. Select(unit, event, player, id, intid+space-1, code)
      65. elseif(intid >= INV_START+space and intid <= INV_END+space) then
      66. local Key0 = intid-space
      67. local sources = GetValidSources(inv_slots[Key0], player)
      68. if(not sources) then
      69. player:SendAreaTriggerMessage("|cff00FF00Du hast f\195\188r diese Aktion keine Items")
      70. Hello(unit, event, player)
      71. elseif(#sources < 2) then
      72. player:SendAreaTriggerMessage("|cff00FF00Kein passendes Item in der Tasche")
      73. Hello(unit, event, player)
      74. else
      75. Data[pGUID] = {Key0, sources}
      76. unit:GossipCreateMenu(100, player, 0)
      77. for k = 1, #sources-1 do
      78. unit:GossipMenuAddItem(4, sources[k]:GetName(), k+INV_END+space, 0, "", 0)
      79. end
      80. unit:GossipMenuAddItem(4, "Transmog's entfernen von "..inv_slot_names[Key0], Key0+1, 0, "Remove transmogrif ication from "..inv_slot_names[Key0].."?", 0)
      81. unit:GossipMenuAddItem(7, ">----> |cffff0000[<<]|rZur\195\188ck|cffff0000[>>]|r <----<..", 1, 0, "", 0)
      82. unit:GossipSendMenu(player)
      83. end
      84. elseif(intid > INV_END+space and intid <= INV_END+space+opt_amount) then
      85. local slot = inv_slots[Data[pGUID][1]]
      86. local target = player:GetInventoryItem(INV_BAG, slot)
      87. local origGUID = Data[pGUID][2][#Data[pGUID][2]] -- no cheating with swapping items on the fly
      88. if(target and tostring(target:GetGUID()) == origGUID) then
      89. local source = Data[pGUID][2][intid-INV_END-space]
      90. if(source and source:GetOwner():IsInWorld() and pGUID == tostring(source:GetOwner():GetGUID())) then
      91. AddTransmog(slot, player, source:GetEntryId())
      92. player:SendAreaTriggerMessage(inv_slot_names[Data[pGUID][1]].." Transmogd")
      93. else
      94. player:SendAreaTriggerMessage("|cff00FF00Item nicht in deiner Tasche")
      95. end
      96. else
      97. player:SendAreaTriggerMessage("|cff00FF00Ausgew\195\164hltes Item ist nicht angelegt")
      98. end
      99. Select(unit, event, player, id, Data[pGUID][1]+space, code)
      100. end
      101. end
      103. function AddTransmog(slot, player, fake)
      104. local item = player:GetInventoryItem(INV_BAG, slot)
      105. if (item) then
      106. local pGUID, iGUID = tostring(player:GetGUID()), tostring(item:GetGUID())
      107. player:SetUInt32Value(VISIBLE_ITEM_ENTRY_0+(slot * 2), fake)
      108. if (not Transmogs[pGUID]) then
      109. Transmogs[pGUID] = {}
      110. end
      111. if (not Transmogs[pGUID][slot]) then
      112. Transmogs[pGUID][slot] = {}
      113. end
      114. Transmogs[pGUID][slot][iGUID] = fake
      115. CharDBQuery('REPLACE INTO Transmog_items (player_GUID, item_GUID, slot, fake) VALUES ("'..pGUID..'", "'..iGUID..'", '..slot..', '..fake..')')
      116. return true
      117. end
      118. return false
      119. end
      121. function RemoveTransmog(slot, player)
      122. local pGUID = tostring(player:GetGUID())
      123. if (Transmogs[pGUID] and Transmogs[pGUID][slot]) then
      124. local item = player:GetInventoryItem(INV_BAG, slot)
      125. if (item) then
      126. local iGUID = tostring(item:GetGUID())
      127. if (Transmogs[pGUID][slot][iGUID]) then
      128. player:SetUInt32Value(VISIBLE_ITEM_ENTRY_0+(slot * 2), item:GetEntryId())
      129. Transmogs[pGUID][slot][iGUID] = nil
      130. CharDBQuery('DELETE FROM Transmog_items WHERE item_GUID = "'..iGUID..'"')
      131. return true
      132. end
      133. end
      134. end
      135. return false
      136. end
      138. function GetValidSources(inv_slot, player) -- returns nil or a table containing the items (can be empty)
      139. local item = player:GetInventoryItem(INV_BAG, inv_slot)
      140. if (not item) then return nil end
      141. local items = {}
      142. local entries = {}
      143. local hasitems = false
      144. for k, DATA in ipairs(BAGS) do
      145. if (DATA.BAG == INV_BAG or player:GetInventoryItem(INV_BAG, DATA.BAG)) then -- skip nonexistant bags
      146. for slot = DATA.START, DATA.END do
      147. local item = player:GetInventoryItem(DATA.BAG, slot)
      148. if(item) then
      149. table.insert(entries, item:GetEntryId())
      150. items[item:GetEntryId()] = item
      151. if (not hasitems) then hasitems = true end
      152. end
      153. end
      154. end
      155. end
      156. if (hasitems) then
      157. local Q = WorldDBQuery("SELECT inventorytype FROM items WHERE entry = "..item:GetEntryId())
      158. if (Q) then
      159. local Q = WorldDBQuery("SELECT entry FROM items WHERE entry IN("..table.concat(entries, ',')..") and inventorytype = "..Q:GetColumn(0):GetULong().." LIMIT "..opt_amount)
      160. if (Q) then
      161. local suitable = {}
      162. for i = 1, Q:GetRowCount() do
      163. table.insert(suitable, items[Q:GetColumn(0):GetULong()]) -- Could possibly add performance if we let this security off
      164. Q:NextRow()
      165. end
      166. table.insert(suitable, tostring(item:GetGUID()))
      167. return suitable
      168. end
      169. end
      170. end
      171. return {}
      172. end
      174. function LoadTransmogs()
      175. local Time = os.time()
      176. print("Loading transmogrifications..")
      177. Transmogs = {}
      178. -- CharDBQuery("DELETE FROM transmog_items WHERE NOT EXISTS (SELECT 1 FROM playeritems WHERE item_GUID = guid) OR NOT EXISTS (SELECT 1 FROM characters WHERE player_GUID = guid)") -- cleanup before load
      179. local Q = CharDBQuery("SELECT player_GUID, item_GUID, slot, fake FROM Transmog_items")
      180. if (Q) then
      181. for i = 1, Q:GetRowCount() do
      182. local pGUID, iGUID, slot, fake = Q:GetColumn(0):GetString(), Q:GetColumn(1):GetString(), Q:GetColumn(2):GetULong(), Q:GetColumn(3):GetULong()
      183. if (not Transmogs[pGUID]) then
      184. Transmogs[pGUID] = {}
      185. end
      186. if (not Transmogs[pGUID][slot]) then
      187. Transmogs[pGUID][slot] = {}
      188. end
      189. Transmogs[pGUID][slot][iGUID] = fake
      190. Q:NextRow()
      191. end
      192. end
      193. print("Transmogrifications loaded in "..(os.time()-Time).." seconds")
      194. end
      196. function ApplyTransmogs() -- minimum looping and checking
      197. local players = GetPlayersInWorld()
      198. for k, player in ipairs(players) do -- loop players
      199. if (player and player:IsInWorld()) then -- player exists
      200. local pGUID = tostring(player:GetGUID())
      201. if (Transmogs[pGUID]) then -- has transmogs
      202. for slot, Data in pairs(Transmogs[pGUID]) do -- looop transmog slots
      203. local item = player:GetInventoryItem(INV_BAG, slot)
      204. if (item) then -- has item in slot
      205. local iGUID = tostring(item:GetGUID())
      206. if(Data[iGUID]) then -- check if item has transmog saved
      207. player:SetUInt32Value(283+(slot * 2), Data[iGUID]) -- apply transmog
      208. end
      209. end
      210. end
      211. end
      212. end
      213. end
      214. end
      216. RegisterUnitGossipEvent(NPCENTRY, 1, Hello)
      217. RegisterUnitGossipEvent(NPCENTRY, 2, Select)
      218. LoadTransmogs()
      219. CreateLuaEvent(ApplyTransmogs, DELAY, 0)
      Display All


      Diese DB Struktur müsst Ihr in Eure Char DB einfügen:



      C Source Code: transmog_items.sql

      1. SET FOREIGN_KEY_CHECKS=0;
      3. -- ----------------------------
      4. -- Table structure for transmog_items
      5. -- ----------------------------
      6. DROP TABLE IF EXISTS `transmog_items`;
      7. CREATE TABLE `transmog_items` (
      8. `player_GUID` text NOT NULL COMMENT 'owner guid',
      9. `item_GUID` text NOT NULL COMMENT 'item guid',
      10. `slot` int(10) unsigned NOT NULL COMMENT 'equip slot',
      11. `fake` int(10) unsigned NOT NULL COMMENT 'fake entry'
      12. ) ENGINE=InnoDB DEFAULT CHARSET=latin1 COMMENT='This table is used for storing the transmogrification information.\r\nDo not edit this table or it''s contents.';
      Display All

      Viel Spass damit.
      mfg Batida :thumbup:

    • Hallo Batida,

      mir ist aufgefallen das der Transmogifikator Script nicht der deiniger ist, bitte gebe die Quelle und Herkunft an.

      Weil hier ist der Original Script:

      pastebin.com/Rt7xw5pR

      Ich meine jeder kann Quellcode Kopieren, Editiren und es dann sein Eigen nennen.

      Bedenke bitte das leute wie Ich für Online projecte etwas Programmieren und Scripten und dafür bezahlt werden. Klar darf mann den Server rein Schreiben auf dem das läuft und die Rechte für diesen Script gehören auch dem Server aber selbst Free Scripts wurden von jemanden gemacht und haben es verdient Ihren urtühmlichen Coder rein zu schreiben.


      MFG,

      PassCody

      The post was edited 1 time, last by PassCody ().