LUA-335a-TC

Bosskiller.lua

@@ -0,0 +1,44 @@
+-- DEVKM
+local T = {}
+
+local function KilledCreature(event, player, enemy)
+    if(not enemy:IsWorldBoss()) then return end -- No jefe del mundo, omita
+    local pguid, cguid = player:GetGUIDLow(), enemy:GetGUIDLow() -- obtener guids
+
+    local ktime = 0 -- obtener time (default to 0)
+    if(T[pguid] and T[pguid][cguid]) then
+        ktime = os.time() - T[pguid][cguid] -- (now - start) = passed time (seconds)
+        T[pguid][cguid] = nil -- erase record
+    end
+
+    local participants
+        if(player:IsInGroup()) then
+                participants = "con sus amigos (Total: "..player:GetGroup():GetMembersCount().." chicos, "
+        else
+                participants = "Solo! ("
+        end
+
+    SendWorldMessage("[PVE] |Hplayer:"..player:GetName().."|h["..player:GetName().."]|h asesina a ["..enemy:GetName().."] "..participants.."Estuvo: "..ktime.." segundos)")
+end
+
+local function EnterCombat(event, player, enemy)
+    if(not enemy:IsWorldBoss()) then return end -- not world boss, skip saving time etc
+    local pguid, cguid = player:GetGUIDLow(), enemy:GetGUIDLow() -- obtener guids
+
+    if(not T[pguid]) then -- if the player doesnt have a table
+        T[pguid] = {} -- create a new table for him
+    elseif(T[pguid][cguid]) then -- check that we are not already in combat with the creature (already saved a time)
+        return -- we are, already a time saved. Stop before saving
+    end
+    T[pguid][cguid] = os.time() -- save combat start time
+end
+
+local function LeaveCombat(event, player)
+        if(T[player:GetGUIDLow()]) then
+                T[player:GetGUIDLow()] = nil -- erase combat time records
+        end
+end
+
+RegisterPlayerEvent(7, KilledCreature) -- executes when a player kills a creature
+RegisterPlayerEvent(33, EnterCombat) -- executes on each player attack attempt (spammy)
+RegisterPlayerEvent(34, LeaveCombat) -- executes when a player leaves combat

Buffos.lua

@@ -0,0 +1,23 @@
+--DEVKM
+local Cost = 10000
+local BUFFIDS = {48074, 48170, 43223, 36880, 467, 48469, 48162}     
+local POWERBUFFIDS = {48074, 48170, 43223, 36880, 467, 48469, 48162, 41924} 
+
+function Buff(event, player, message, type, language)
+    if(message:lower() == "#buff") then
+        if (player:GetCoinage() >= Cost) then
+        player:ModifyMoney(-Cost) -- Remove this line if you don't want player to loose golds.
+                for k, v in pairs(POWERBUFFIDS) do
+                        player:AddAura(v, player)
+                        end
+        else
+        for k, v in pairs(BUFFIDS) do
+                        player:AddAura(v, player)
+                        end
+                        end
+        player:SendBroadcastMessage("|cff00ff00Recibes un par de Buff!|r")
+    return false
+        end
+end
+
+RegisterPlayerEvent(18, Buff)

Cambio_genero.lua

@@ -0,0 +1,32 @@
+--DEVKM
+local NPC_ENTRY = 190003
+
+function ChangeGenderMenu(event, player, unit)
+    if player:GetGender() == 0 then
+        player:GossipMenuAddItem(0, "Cambiar a Mujer", 0, 1)
+    else
+        player:GossipMenuAddItem(0, "Cambiar a Hombre", 0, 2)
+    end
+    player:GossipMenuAddItem(0, "Olvidalo..", 0, 3)
+    player:GossipSendMenu(1, unit)
+end
+
+function ChangeGenderSelect(event, player, unit, sender, intid, code)
+    if (intid == 1) then
+        player:SendBroadcastMessage("|cFFFFA500Tu genero se cambio con exito!")
+        player:SetGender(1)
+        player:SaveToDB()
+        player:GossipComplete()
+    elseif (intid == 2) then
+        player:SendBroadcastMessage("|cFFFFA500Tu genero se cambio con exito!")
+        player:SetGender(0)
+        player:SaveToDB()
+        player:GossipComplete()
+    elseif (intid == 3) then
+        player:GossipComplete()
+    end
+end
+
+
+RegisterCreatureGossipEvent(NPC_ENTRY, 1, ChangeGenderMenu)
+RegisterCreatureGossipEvent(NPC_ENTRY, 2, ChangeGenderSelect)

Cambio_moneda.lua

@@ -0,0 +1,41 @@
+-- DEVKM
+-- No borrar los derechos de autor
+-- 2015
+
+local NPC_ENTRY = 54 -- ID del NPC
+
+local ITEM_1 = 57000 -- ID del item
+
+local CANTIDAD_1 = 1 -- Cantidad a entregar
+
+local NOMBRE_1 = GetItemLink(ITEM_1)
+
+local function ItemExChangeOnHello(event, player, unit)
+        player:GossipMenuAddItem(0, "Cambiar honor x" ..NOMBRE_1.."", 0, 1)
+        player:GossipMenuAddItem(0, "Salir..", 0, 2)
+        player:GossipSendMenu(1, unit)
+end
+
+local function ItemExChangeOnSelect(event, Player, unit, sender, intid, code)
+    if (intid == 1) then
+        if (Player:GetHonorPoints(10) <=10 )then
+        Player:SendBroadcastMessage("|CFF7BBEF7 No tienes el suficiente honor")
+        return false;
+    end
+        if (Player:GetHonorPoints(10) >=10 )then
+        Player:SendBroadcastMessage("|CFF7BBEF7 Se ha añadido " ..NOMBRE_1.. "|r")
+        Player:AddItem(ITEM_1, CANTIDAD_1)
+        Player:ModifyHonorPoints(-10)
+        Player:GossipComplete()
+        return false;
+    end
+    elseif (intid == 2) then
+        Player:GossipComplete()
+    end
+    if (intid == 2) then
+        Player:GossipComplete()
+    end
+end
+
+RegisterCreatureGossipEvent(NPC_ENTRY, 1, ItemExChangeOnHello)
+RegisterCreatureGossipEvent(NPC_ENTRY, 2, ItemExChangeOnSelect)

DuelReset.lua

@@ -0,0 +1,20 @@
+function duelreset(event, winner, loser, type)
+  winner:ResetAllCooldowns() --Removes winner's CD
+  loser:ResetAllCooldowns() --Removes loser's CD
+  winner:SetHealth(winner:GetMaxHealth()) --Restores winner's Health
+  loser:SetHealth(loser:GetMaxHealth()) --Restores loser's Health
+  winner:SetPower(0, winner:GetMaxPower(0)) --Restores winner's Mana
+  loser:SetPower(0, loser:GetMaxPower(0)) --Restores loser's Mana
+  winner:SetPower(1, winner:GetMaxPower(1)) --Restores winner's Rage
+  loser:SetPower(1, loser:GetMaxPower(1)) --Restores loser's Rage
+  winner:SetPower(2, winner:GetMaxPower(2)) --Restores winner's Focus
+  loser:SetPower(2, loser:GetMaxPower(2)) --Restores loser's Focus
+  winner:SetPower(3, winner:GetMaxPower(3)) --Restores winner's Energy
+  loser:SetPower(3, loser:GetMaxPower(3)) --Restores loser's Energy
+  winner:SetPower(5, winner:GetMaxPower(5)) --Restores winner's Runes
+  loser:SetPower(5, loser:GetMaxPower(5)) --Restores loser's Runes
+  winner:SetPower(6, winner:GetMaxPower(6)) --Restores winner's Runic Power
+  loser:SetPower(6, loser:GetMaxPower(6)) --Restores loser's Runic Power
+end
+
+RegisterPlayerEvent(11, duelreset)

GM_Announcer.lua

@@ -0,0 +1,22 @@
+local ChatPrefix = "#announce"
+
+if (ChatPrefix:sub(-1) ~= " ") then
+    ChatPrefix = ChatPrefix.." ";
+end
+
+local function ChatSystem(event, player, msg, _, lang)
+    if (msg:sub(1, ChatPrefix:len()) == ChatPrefix) then
+        if player:IsGM() then
+            -- local t = table.concat({"|cff7DFF00[", player:GetName(), "]:|r ", msg:sub(ChatPrefix:len()+1), ""});
+            local t = table.concat({msg:sub(ChatPrefix:len()+1),});
+            for _, p in ipairs(GetPlayersInWorld()) do
+                player:SendChatMessageToPlayer(40, 0, t, p)
+            end
+        else
+            PrintInfo("No eres GM o estas en modo OFF")
+        end
+        return false;
+    end
+end
+
+RegisterPlayerEvent(18, ChatSystem)

README.md

@@ -0,0 +1,12 @@
+# TrinityCore-335a
+TrinityCore Release 335a
+
+FixCore es una empresa de desarrollo con especialidad en el juego world of warcraft. @FixStore - @FixDevs - @FixCMS son propiedad de @FixCore.
+
+El 80% de los trabajos que realiza @FixCore y sus demás subempresas son de manera gratuita sin embargo el 20% de los demás trabajos suelen ser de cobro debido a que se pudo haber requerido de algún pago extra para algún template, linea etc.. No acepte cosas de cobro que estén a nombre de @FixCore sin que usted esté seguro de que sea de manera legal ** En caso de tener dudas, inquietudes o desea contactarnos puede enviarnos un E-Mail ** [email protected]
+
+---
+
+FixCore is a development company specializing in the game world of warcraft. @FixStore - @FixDevs - @FixCMS Are owned by @FixCore.
+
+80% of the work done @FixCore and other sub-companies are free however 20% of other jobs usually collection because it could have required some extra payment for a template, line etc .. Do not accept things that are a collection @FixCore name without you sure it legally ** If you have questions, concerns or want to contact you can send an E-Mail ** [email protected]

Reload_LUA.lua

@@ -0,0 +1,12 @@
+--DEVKM
+function reloadElunaEngine(event, player, command)
+  if command == "reload scripts" or command == "km" then 
+	if player == nil or player:IsGM() then -- console or gm
+		ReloadEluna()
+	else
+		player:SendBroadcastMessage("Debes activar el modo <GM> para poder usar este comando")
+	end
+  end
+end
+
+RegisterPlayerEvent(42, reloadElunaEngine)