[Trinity] Title Script

[darkpatato]

hello all i have a question
can someone make a script like this

--AMOUNT OF LIFETIME HONORABLE KILLS
local rank1 = 0 --keep this at 0
local rank2 = 59
local rank3 = 124
local rank4 = 249
local rank5 = 499
local rank6 = 749
local rank7 = 999
local rank8 = 1549
local rank9 = 2249
local rank10 = 2999
local rank11 = 3999
local rank12 = 5499
local rank13 = 7499
local rank14 = 9999

--DO NOT CHANGE ANYTHING BEYOND THIS POINT

--ALLIANCE RANKS
local Private = 1
local Corporal = 2
local Sergeant = 3
local Master_Sergeant = 4
local Sergeant_Major = 5
local Knight = 6
local Knight_Lieutenant = 7
local Knight_Captain = 8
local Knight_Champion = 9
local Lieutenant_Commander = 10
local Commander = 11
local Marshal = 12
local Field_Marshal = 13
local Grand_Marshal = 14

--HORDE RANKS
local Scout = 15
local Grunt = 16
local Sergeant = 17
local Senior_Sergeant = 18
local First_Sergeant = 19
local Stone_Guard = 20
local Blood_Guard = 21
local Legionnaire  = 22
local Centurion = 23
local Champion = 24
local Lieutenant_General = 25
local General = 26
local Warlord = 27
local High_Warlord = 28

--GLADIATOR TITLES
local Gladiator1 = 29
local Gladiator2 = 37
local Gladiator3 = 40
local Gladiator4 = 49
local Gladiaror5 = 56
local Gladiator6 = 132 
local Gladiator7 = 134
local Gladiator8 = 142
local Gladiator9A = 35 -- Justicar
local Gladiator9H = 34 -- Conqueror

STREAK = {}

local KillJoy = 102 --Merrymaker
function OnKillPlayer(event, pPlayer, pVictim)
local KILLS = pPlayer:LifeTimeKills(0, "0")
	if (KILLS >= rank1 and KILLS < rank2) and (pPlayer:GetTeam() == 0) then
		pPlayer:SetKnownTitle(Private)
	elseif (KILLS >= rank2 and KILLS < rank3) and (pPlayer:GetTeam() == 0) then
		pPlayer:SetKnownTitle(Corporal)
		pPlayer:UnsetKnownTitle(Private)
	elseif (KILLS >= rank3 and KILLS < rank4) and (pPlayer:GetTeam() == 0) then
		pPlayer:SetKnownTitle(Sergeant)
		pPlayer:UnsetKnownTitle(Corporal)
	elseif (KILLS >= rank4 and KILLS < rank5) and (pPlayer:GetTeam() == 0) then
		pPlayer:SetKnownTitle(Master_Sergeant)
		pPlayer:UnsetKnownTitle(Sergeant)
	elseif (KILLS >= rank5 and KILLS < rank6) and (pPlayer:GetTeam() == 0) then
		pPlayer:SetKnownTitle(Sergeant_Major)
		pPlayer:UnsetKnownTitle(Master_Sergeant)
	elseif (KILLS >= rank6 and KILLS < rank7) and (pPlayer:GetTeam() == 0) then
		pPlayer:SetKnownTitle(Knight)
		pPlayer:UnsetKnownTitle(Sergeant_Major)
	elseif (KILLS >= rank7 and KILLS < rank8) and (pPlayer:GetTeam() == 0) then
		pPlayer:SetKnownTitle(Knight_Lieutenant)
		pPlayer:UnsetKnownTitle(Knight)
	elseif (KILLS >= rank8 and KILLS < rank9) and (pPlayer:GetTeam() == 0) then
		pPlayer:SetKnownTitle(Knight_Captain)
		pPlayer:UnsetKnownTitle(Knight_Lieutenant)
	elseif (KILLS >= rank9 and KILLS < rank10) and (pPlayer:GetTeam() == 0) then
		pPlayer:SetKnownTitle(Knight_Champion)
		pPlayer:UnsetKnownTitle(Knight_Captain)
	elseif (KILLS >= rank10 and KILLS < rank11) and (pPlayer:GetTeam() == 0) then
		pPlayer:SetKnownTitle(Lieutenant_Commander)
		pPlayer:UnsetKnownTitle(Knight_Champion)
	elseif (KILLS >= rank11 and KILLS < rank12) and (pPlayer:GetTeam() == 0) then
		pPlayer:SetKnownTitle(Commander)
		pPlayer:UnsetKnownTitle(Lieutenant_Commander)
	elseif (KILLS >= rank12 and KILLS < rank13) and (pPlayer:GetTeam() == 0) then
		pPlayer:SetKnownTitle(Marshal)
		pPlayer:UnsetKnownTitle(Commander)
	elseif (KILLS >= rank13 and KILLS < rank14) and (pPlayer:GetTeam() == 0) then
		pPlayer:SetKnownTitle(Field_Marshal)
		pPlayer:UnsetKnownTitle(Marshal)
	elseif (KILLS >= rank14 and KILLS < rank13) and (pPlayer:GetTeam() == 0) then
		pPlayer:SetKnownTitle(Grand_Marshal)
		pPlayer:UnsetKnownTitle(Field_Marshal)
	end
	if (KILLS >= rank1  and KILLS < rank2) and (pPlayer:GetTeam() == 1) then
		pPlayer:SetKnownTitle(Scout)
	elseif (KILLS >= rank2 and KILLS < rank3) and (pPlayer:GetTeam() == 1) then
		pPlayer:SetKnownTitle(Grunt)
		pPlayer:UnsetKnownTitle(Scout)
	elseif (KILLS >= rank3 and KILLS < rank4) and (pPlayer:GetTeam() == 1) then
		pPlayer:SetKnownTitle(Sergeant)
		pPlayer:UnsetKnownTitle(Grunt)
	elseif (KILLS >= rank4 and KILLS < rank5) and (pPlayer:GetTeam() == 1) then
		pPlayer:SetKnownTitle(Senior_Sergeant)
		pPlayer:UnsetKnownTitle(Sergeant)
	elseif (KILLS >= rank5 and KILLS < rank6) and (pPlayer:GetTeam() == 1) then
		pPlayer:SetKnownTitle(First_Sergeant)
		pPlayer:UnsetKnownTitle(Senior_Sergeant)
	elseif (KILLS >= rank6 and KILLS < rank7) and (pPlayer:GetTeam() == 1) then
		pPlayer:SetKnownTitle(Stone_Guard)
		pPlayer:UnsetKnownTitle(First_Sergeant)
	elseif (KILLS >= rank7 and KILLS < rank8) and (pPlayer:GetTeam() == 1) then
		pPlayer:SetKnownTitle(Blood_Guard)
		pPlayer:UnsetKnownTitle(Stone_Guard)
	elseif (KILLS >= rank8 and KILLS < rank9) and (pPlayer:GetTeam() == 1) then
		pPlayer:SetKnownTitle(Legionnaire)
		pPlayer:UnsetKnownTitle(Blood_Guard)
	elseif (KILLS >= rank9 and KILLS < rank10) and (pPlayer:GetTeam() == 1) then
		pPlayer:SetKnownTitle(Centurion)
		pPlayer:UnsetKnownTitle(Legionnaire)
	elseif (KILLS >= rank10 and KILLS < rank11) and (pPlayer:GetTeam() == 1) then
		pPlayer:SetKnownTitle(Champion)
		pPlayer:UnsetKnownTitle(Centurion)
	elseif (KILLS >= rank11 and KILLS < rank12) and (pPlayer:GetTeam() == 1) then
		pPlayer:SetKnownTitle(Lieutenant_General)
		pPlayer:UnsetKnownTitle(Champion)
	elseif (KILLS >= rank12 and KILLS < rank13) and (pPlayer:GetTeam() == 1) then
		pPlayer:SetKnownTitle(General)
		pPlayer:UnsetKnownTitle(Lieutenant_General)
	elseif (KILLS >= rank13 and KILLS < rank14) and (pPlayer:GetTeam() == 1) then
		pPlayer:SetKnownTitle(Warlord)
		pPlayer:UnsetKnownTitle(General)
	elseif (KILLS >= rank14) and (pPlayer:GetTeam() == 1) then
		pPlayer:SetKnownTitle(High_Warlord)
		pPlayer:UnsetKnownTitle(Warlord)
	end
end

RegisterServerHook(23, "OnKillPlayer")

function STREAK.KillCount(event, pPlayer, killed)
	  pPlayer:SendBroadcastMessage("You have slain "..killed:GetName().."! :D")
	  killed:SendBroadcastMessage("You have been slain by "..pPlayer:GetName()..".  Kill Streak reset. =(")
   if (STREAK[tostring(pPlayer)] == nil) then
      STREAK[tostring(pPlayer)] = {}
      STREAK[tostring(pPlayer)].killcount = 0
   end
   if (STREAK[tostring(killed)] == nil) then
	  STREAK[tostring(killed)] = {}
	  STREAK[tostring(killed)].killcount = 0
   end
	  STREAK[tostring(killed)].killcount = 0
	  STREAK[tostring(killed)].deathcount = 0
      STREAK[tostring(killed)].deathcount = STREAK[tostring(killed)].deathcount + 1
	  STREAK[tostring(killed)].spree = 0
   if (killed:HasAura(15007) == false) then
      STREAK[tostring(pPlayer)].wincount = STREAK[tostring(pPlayer)].wincount + 1
	  STREAK[tostring(pPlayer)].killcount = STREAK[tostring(pPlayer)].killcount + 1
	  STREAK[tostring(pPlayer)].spree = STREAK[tostring(pPlayer)].spree + 1
   end
   if (STREAK[tostring(pPlayer)].killcount == 5) then
		if (pPlayer:GetTeam() == 0) then
			SendWorldMessage("|cff66CCFF"..pPlayer:GetName().."|r is on a kill streak of 5!", 1)
		end
		if (pPlayer:GetTeam() == 1) then
			SendWorldMessage("|cffB72929"..pPlayer:GetName().."|r is on a kill streak of 5!", 1)
		end
	end
	if (STREAK[tostring(pPlayer)].killcount == 10) then
		if (pPlayer:GetTeam() == 0) then
			SendWorldMessage("|cff66CCFF"..pPlayer:GetName().."|r is on a killing spree with 10 slain!", 1)
		end
		if (pPlayer:GetTeam() == 1) then
			SendWorldMessage("|cffB72929"..pPlayer:GetName().."|r is on a killing spree with 10 slain!", 1)
		end
	end
	if (STREAK[tostring(pPlayer)].killcount == 15) then
		pPlayer:SetKnownTitle(Gladiator1)
		if (pPlayer:GetTeam() == 0) then
			SendWorldMessage("|cff66CCFF"..pPlayer:GetName().."|r earned 'Gladiator' with that one, 15 kills now!", 1)
		end
		if (pPlayer:GetTeam() == 1) then
			SendWorldMessage("|cffB72929"..pPlayer:GetName().."|r earned 'Gladiator' with that one, 15 kills now!", 1)
		end
	end
	if (STREAK[tostring(pPlayer)].killcount == 20) then
		pPlayer:SetKnownTitle(Gladiator2)
		pPlayer:UnsetKnownTitle(Gladiator1)
		if (pPlayer:GetTeam() == 0) then
			SendWorldMessage("|cff66CCFF"..pPlayer:GetName().."|r is on a kill streak of 20! They're merciless!", 1)
		end
		if (pPlayer:GetTeam() == 1) then
			SendWorldMessage("|cffB72929"..pPlayer:GetName().."|r is on a kill streak of 20! They're merciless!", 1)
		end
	end
	if (STREAK[tostring(pPlayer)].killcount == 25) then
		pPlayer:SetKnownTitle(Gladiator3)
		pPlayer:UnsetKnownTitle(Gladiator2)
		if (pPlayer:GetTeam() == 0) then
			SendWorldMessage("|cff66CCFF"..pPlayer:GetName().."|r, The Vengeful Gladiator, is on a kill streak of 25!", 1)
		end
		if (pPlayer:GetTeam() == 1) then
			SendWorldMessage("|cffB72929"..pPlayer:GetName().."|r, The Vengeful Gladiator, is on a kill streak of 25!", 1)
		end
	end
	if (STREAK[tostring(pPlayer)].killcount == 30) then
		pPlayer:SetKnownTitle(Gladiator4)
		pPlayer:UnsetKnownTitle(Gladiator3)
		if (pPlayer:GetTeam() == 0) then
			SendWorldMessage("|cff66CCFF"..pPlayer:GetName().."|r is demolishing everyone! 30 kills now!", 1)
		end
		if (pPlayer:GetTeam() == 1) then
			SendWorldMessage("|cffB72929"..pPlayer:GetName().."|r is demolishing everyone! 30 kills now!", 1)
		end
	end
	if (STREAK[tostring(pPlayer)].killcount == 35) then
		pPlayer:SetKnownTitle(Gladiator5)
		pPlayer:UnsetKnownTitle(Gladiator4)
		if (pPlayer:GetTeam() == 0) then
			SendWorldMessage("|cff66CCFF"..pPlayer:GetName().."|r is unstoppable with 35 kills in a row!", 1)
		end
		if (pPlayer:GetTeam() == 1) then
			SendWorldMessage("|cffB72929"..pPlayer:GetName().."|r is unstoppable with 35 kills in a row!", 1)
		end
	end
	if (STREAK[tostring(pPlayer)].killcount == 40) then
		pPlayer:SetKnownTitle(Gladiator6)
		pPlayer:UnsetKnownTitle(Gladiator5)
		if (pPlayer:GetTeam() == 0) then
			SendWorldMessage("|cff66CCFF"..pPlayer:GetName().."|r is on a kill streak of 40!  Kill them.", 1)
		end
		if (pPlayer:GetTeam() == 1) then
			SendWorldMessage("|cffB72929"..pPlayer:GetName().."|r is on a kill streak of 40! Kill them.", 1)
		end
	end
	if (STREAK[tostring(pPlayer)].killcount == 45) then
		pPlayer:SetKnownTitle(Gladiator7)
		pPlayer:UnsetKnownTitle(Gladiator6)
		if (pPlayer:GetTeam() == 0) then
			SendWorldMessage("|cff66CCFF"..pPlayer:GetName().."|r is beast! 45 kills in a row!", 1)
		end
		if (pPlayer:GetTeam() == 1) then
			SendWorldMessage("|cffB72929"..pPlayer:GetName().."|r is beast! 45 kills in a row!", 1)
		end
	end
		if (pPlayer:GetTeam() == 0) then
	if (STREAK[tostring(pPlayer)].killcount == 50) then
			pPlayer:SetKnownTitle(Gladiator8)
			pPlayer:UnsetKnownTitle(Gladiator7)
			SendWorldMessage("|cff66CCFF"..pPlayer:GetName().."|r is godlike! 50, count 'em, 50 kills in a row!", 1)
		end
		if (pPlayer:GetTeam() == 1) then
			pPlayer:SetKnownTitle(Gladiator8)
			pPlayer:UnsetKnownTitle(Gladiator7)
			SendWorldMessage("|cffB72929"..pPlayer:GetName().."|r is godlike! 50, count 'em, 50 kills in a row!", 1)
		end
	end
   if (STREAK[tostring(pPlayer)].killcount == 55) then
		if (pPlayer:GetTeam() == 0) then
			SendWorldMessage("|cff66CCFF"..pPlayer:GetName().."|r is playing like a boss! 55 kills!", 1)
		end
		if (pPlayer:GetTeam() == 1) then
			SendWorldMessage("|cffB72929"..pPlayer:GetName().."|r is playing like a boss! 55 kills!", 1)
		end
	end
   if (STREAK[tostring(pPlayer)].killcount == 60) then
		if (pPlayer:GetTeam() == 0) then
			SendWorldMessage("|cff66CCFF"..pPlayer:GetName().."|r is on a kill streak of 60! Bow down to your master!", 1)
		end
		if (pPlayer:GetTeam() == 1) then
			SendWorldMessage("|cffB72929"..pPlayer:GetName().."|r is on a kill streak of 60! Bow down to your master!", 1)
		end
	end
   if (STREAK[tostring(pPlayer)].killcount == 65) then
		if (pPlayer:GetTeam() == 0) then
			SendWorldMessage("|cff66CCFF"..pPlayer:GetName().."|r has 65 kills... D:", 1)
		end
		if (pPlayer:GetTeam() == 1) then
			SendWorldMessage("|cffB72929"..pPlayer:GetName().."|r has 65 kills... D:", 1)
		end
	end
   if (STREAK[tostring(pPlayer)].killcount == 70) then
		if (pPlayer:GetTeam() == 0) then
			SendWorldMessage("|cff66CCFF"..pPlayer:GetName().."|r has 70 kills! Seriously. >_>", 1)
		end
		if (pPlayer:GetTeam() == 1) then
			SendWorldMessage("|cffB72929"..pPlayer:GetName().."|r has 70 kills! Seriously. >_>", 1)
		end
	end
	if (STREAK[tostring(pPlayer)].killcount == 75) then
		if (pPlayer:GetTeam() == 0) then
			pPlayer:SetKnownTitle(Gladiator9A)
			pPlayer:UnsetKnownTitle(Gladiator8)
			SendWorldMessage("|cff66CCFF"..pPlayer:GetName().."|r, Justicar of the Alliance, has earned 75 kills in a row!", 1)
		end
		if (pPlayer:GetTeam() == 1) then
			pPlayer:SetKnownTitle(Gladiator9H)
			pPlayer:UnsetKnownTitle(Gladiator8)
			SendWorldMessage("|cffB72929"..pPlayer:GetName().."|r, Conqueror of the Horde, has earned 75 kills in a row!", 1)
		end
	end
   if (STREAK[tostring(pPlayer)].killcount == 80) then
		if (pPlayer:GetTeam() == 0) then
			SendWorldMessage("|cff66CCFF"..pPlayer:GetName().."|r has 80 kills in a row!", 1)
		end
		if (pPlayer:GetTeam() == 1) then
			SendWorldMessage("|cffB72929"..pPlayer:GetName().."|r has 80 kills in a row!", 1)
		end
	end
   if (STREAK[tostring(pPlayer)].killcount == 85) then
		if (pPlayer:GetTeam() == 0) then
			SendWorldMessage("|cff66CCFF"..pPlayer:GetName().."|r has 85 kills! Geez. O.O", 1)
		end
		if (pPlayer:GetTeam() == 1) then
			SendWorldMessage("|cffB72929"..pPlayer:GetName().."|r has 85 kills! Geez O.O", 1)
		end
	end
   if (STREAK[tostring(pPlayer)].killcount == 90) then
		if (pPlayer:GetTeam() == 0) then
			SendWorldMessage("|cff66CCFF"..pPlayer:GetName().."|r is unstoppable with 90 kills in a row!", 1)
		end
		if (pPlayer:GetTeam() == 1) then
			SendWorldMessage("|cffB72929"..pPlayer:GetName().."|r is unstoppable with 90 kills in a row!", 1)
		end
	end
   if (STREAK[tostring(pPlayer)].killcount == 95) then
		if (pPlayer:GetTeam() == 0) then
			SendWorldMessage("|cff66CCFF"..pPlayer:GetName().."|r is beyond godlike with 95 kills in a row!", 1)
		end
		if (pPlayer:GetTeam() == 1) then
			SendWorldMessage("|cffB72929"..pPlayer:GetName().."|r is beyond godlike with 95 kills in a row!", 1)
		end
	end
   if (STREAK[tostring(pPlayer)].killcount == 100) then
		if (pPlayer:GetTeam() == 0) then
			SendWorldMessage("|cff66CCFF"..pPlayer:GetName().."'s |rpower level is over 9000!! 100 kills in a row!", 1)
		end
		if (pPlayer:GetTeam() == 1) then
			SendWorldMessage("|cffB72929"..pPlayer:GetName().."'s |rpower level is over 9000!! 100 kills in a row!", 1)
		end
	end
end

RegisterServerHook(2, "STREAK.KillCount")

but than for trinity?

[Kiev]

That would require you to script it in ScriptDev2 i beleieve, put this in the requests forum and someone will do there best to help you.

[iotech]

Kiev is correct in that this would have to be written in ScriptDev2 and compiled into the core *IF* you want the server to monitor this and apply the title(s) to any player connected.

It is possible to code this as a LUA client addon though, which is what it looks like in the incarnation you provided. Your problem here is that it would have to be an addon that the player desiring titles would have to have loaded in their client. The player would have to be a GM to have permissions to modify a player's (themselves) titles, and then of course, it would only work on that particular player (other players would have to have the addon loaded too, and be GMs).

IMO, this doesnt have much use as an addon, since a GM could just alter their own title as desired anyway, or win any fight with another player.

I do however like the idea for a server script, perhaps with some new config options. Please crosspost this to the TrinityCore forums at http://www.trinitycore.org/forum/cus...y-code-f5.html and ask for some of those brainiacs to help you wite a patch!

-iotech

[darkpatato]

ok thank you.
trinity does not work out for me ill stick with arcemu and mangos.

[iotech]

Sorry to hear that, but good luck! I submitted your idea to a Trintiy core developer I know, hopefully he can come up with something because I do like the idea!

[lorac]

I too will look into what we here at TCUltra can do

[darkpatato]

Thank you all.
its just idk how to script c++ :P