279 lines
7.7 KiB
Lua
279 lines
7.7 KiB
Lua
|
surface.CreateFont("PHE.TauntFont",
|
||
|
|
{
|
||
|
|
font = "Roboto",
|
||
|
|
size = 16,
|
||
|
|
weight = 500,
|
||
|
|
antialias = true,
|
||
|
|
shadow = false
|
||
|
|
})
|
||
|
|
|
||
|
|
local isplayed = false
|
||
|
|
local isopened = false
|
||
|
|
local isforcedclose = false
|
||
|
|
local hastaunt = false
|
||
|
|
|
||
|
|
net.Receive("PH_ForceCloseTauntWindow", function()
|
||
|
|
isforcedclose = true
|
||
|
|
end)
|
||
|
|
|
||
|
|
net.Receive("PH_AllowTauntWindow", function()
|
||
|
|
isforcedclose = false
|
||
|
|
end)
|
||
|
|
|
||
|
|
local function MainFrame()
|
||
|
|
if GetConVar("ph_enable_custom_taunts"):GetInt() < 1 then
|
||
|
|
chat.AddText(Color(220,0,0),"[PH:E - Taunts] Warning: This server has custom taunts disabled.")
|
||
|
|
return
|
||
|
|
end
|
||
|
|
|
||
|
|
isopened = true
|
||
|
|
|
||
|
|
local frame = vgui.Create("DFrame")
|
||
|
|
frame:SetSize(400,600)
|
||
|
|
frame:SetTitle("Prop Hunt | Taunt Menu")
|
||
|
|
frame:Center()
|
||
|
|
frame:SetVisible(true)
|
||
|
|
frame:ShowCloseButton(true)
|
||
|
|
-- Make sure they have Mouse & Keyboard interactions.
|
||
|
|
frame:SetMouseInputEnabled(true)
|
||
|
|
frame:SetKeyboardInputEnabled(true)
|
||
|
|
|
||
|
|
frame.Paint = function(self,w,h)
|
||
|
|
surface.SetDrawColor(Color(40,40,40,180))
|
||
|
|
surface.DrawRect(0,0,w,h)
|
||
|
|
end
|
||
|
|
|
||
|
|
frame.OnClose = function()
|
||
|
|
isopened = false
|
||
|
|
hastaunt = false
|
||
|
|
end
|
||
|
|
|
||
|
|
local function frame_Think_Force()
|
||
|
|
if isforcedclose == true && isopened == true then
|
||
|
|
isopened = false
|
||
|
|
hastaunt = false
|
||
|
|
frame:Close()
|
||
|
|
end
|
||
|
|
end
|
||
|
|
hook.Add("Think", "CloseWindowFrame_Force", frame_Think_Force)
|
||
|
|
|
||
|
|
local list = vgui.Create("DListView", frame)
|
||
|
|
|
||
|
|
list:SetMultiSelect(false)
|
||
|
|
list:AddColumn("soundlist") -- because header is gone.
|
||
|
|
list.m_bHideHeaders = true
|
||
|
|
list:SetPos(10,52)
|
||
|
|
list:SetSize(0,450)
|
||
|
|
list:Dock(BOTTOM)
|
||
|
|
|
||
|
|
local TEAM_TAUNTS = {}
|
||
|
|
local WHOLE_TEAM_TAUNTS = {}
|
||
|
|
|
||
|
|
-- Determine if prop or hunter taunt list to be used
|
||
|
|
if (LocalPlayer():Team() == TEAM_HUNTERS) then
|
||
|
|
TEAM_TAUNTS = PHE:GetTeamTaunt(TEAM_HUNTERS,false)
|
||
|
|
WHOLE_TEAM_TAUNTS = PHE:GetAllTeamTaunt(TEAM_HUNTERS)
|
||
|
|
else
|
||
|
|
TEAM_TAUNTS = PHE:GetTeamTaunt(TEAM_PROPS,false)
|
||
|
|
WHOLE_TEAM_TAUNTS = PHE:GetAllTeamTaunt(TEAM_PROPS)
|
||
|
|
end
|
||
|
|
|
||
|
|
for name,_ in pairs(TEAM_TAUNTS) do
|
||
|
|
list:AddLine(name)
|
||
|
|
end
|
||
|
|
|
||
|
|
local comb = vgui.Create("DComboBox", frame)
|
||
|
|
|
||
|
|
comb:Dock(TOP)
|
||
|
|
comb:SetSize(0, 20)
|
||
|
|
comb:SetValue("Original Taunts")
|
||
|
|
comb:AddChoice("Original Taunts")
|
||
|
|
comb:AddChoice("PH:E/Custom Taunts")
|
||
|
|
|
||
|
|
function comb:SortAndStyle(pnl)
|
||
|
|
pnl:SortByColumn(1,false)
|
||
|
|
|
||
|
|
pnl.Paint = function(self,w,h)
|
||
|
|
surface.SetDrawColor(Color(50,50,50,180))
|
||
|
|
surface.DrawRect(0,0,w,h)
|
||
|
|
end
|
||
|
|
|
||
|
|
local color =
|
||
|
|
{
|
||
|
|
hover = Color(80,80,80,200),
|
||
|
|
select = Color(120,120,120,255),
|
||
|
|
alt = Color(60,60,60,180),
|
||
|
|
normal = Color(50,50,50,180)
|
||
|
|
}
|
||
|
|
|
||
|
|
for _,line in pairs( pnl:GetLines() ) do
|
||
|
|
function line:Paint( w, h )
|
||
|
|
if ( self:IsHovered() ) then
|
||
|
|
surface.SetDrawColor(color.hover)
|
||
|
|
elseif ( self:IsSelected() ) then
|
||
|
|
surface.SetDrawColor(color.select)
|
||
|
|
elseif ( self:GetAltLine() ) then
|
||
|
|
surface.SetDrawColor(color.alt)
|
||
|
|
else
|
||
|
|
surface.SetDrawColor(color.normal)
|
||
|
|
end
|
||
|
|
surface.DrawRect(0,0,w,h)
|
||
|
|
end
|
||
|
|
for _,col in pairs(line["Columns"]) do
|
||
|
|
col:SetFont("PHE.TauntFont")
|
||
|
|
col:SetTextColor(color_white)
|
||
|
|
end
|
||
|
|
end
|
||
|
|
end
|
||
|
|
|
||
|
|
comb.OnSelect = function(pnl, idx, val)
|
||
|
|
if val == "Original Taunts" then
|
||
|
|
list:Clear()
|
||
|
|
hastaunt = false
|
||
|
|
if TEAM_TAUNTS then
|
||
|
|
for name,val in pairs(TEAM_TAUNTS) do
|
||
|
|
list:AddLine(name)
|
||
|
|
end
|
||
|
|
end
|
||
|
|
pnl:SortAndStyle(list)
|
||
|
|
elseif val == "PH:E/Custom Taunts" then
|
||
|
|
list:Clear()
|
||
|
|
hastaunt = false
|
||
|
|
if LocalPlayer():Team() == TEAM_PROPS then
|
||
|
|
if PHE:GetTeamTaunt(TEAM_PROPS,true) != false then
|
||
|
|
for name,val in pairs(PHE:GetTeamTaunt(TEAM_PROPS,true)) do
|
||
|
|
list:AddLine(name)
|
||
|
|
end
|
||
|
|
else
|
||
|
|
list:AddLine("<< WARNING: NO TAUNTS DETECTED! >>")
|
||
|
|
end
|
||
|
|
else
|
||
|
|
if PHE:GetTeamTaunt(TEAM_HUNTERS,true) != false then
|
||
|
|
for name,val in pairs(PHE:GetTeamTaunt(TEAM_HUNTERS,true)) do
|
||
|
|
list:AddLine(name)
|
||
|
|
end
|
||
|
|
else
|
||
|
|
list:AddLine("<< WARNING: NO TAUNTS DETECTED! >>")
|
||
|
|
end
|
||
|
|
end
|
||
|
|
pnl:SortAndStyle(list)
|
||
|
|
end
|
||
|
|
end
|
||
|
|
|
||
|
|
comb:SortAndStyle(list)
|
||
|
|
|
||
|
|
-- I know, this one is fixed style.
|
||
|
|
local btnpanel = vgui.Create("DPanel", frame)
|
||
|
|
btnpanel:Dock(FILL)
|
||
|
|
btnpanel:SetBackgroundColor(Color(20,20,20,200))
|
||
|
|
|
||
|
|
local function CreateStyledButton(dock,size,ttip,margin,texture,imagedock, btnfunction)
|
||
|
|
local left,top,right,bottom = margin[1],margin[2],margin[3],margin[4]
|
||
|
|
|
||
|
|
local button = vgui.Create("DButton", btnpanel)
|
||
|
|
button:Dock(dock)
|
||
|
|
button:SetSize(size,0)
|
||
|
|
button:DockMargin(left,top,right,bottom)
|
||
|
|
button:SetText("")
|
||
|
|
button:SetTooltip(ttip)
|
||
|
|
|
||
|
|
button.Paint = function(self,w,h)
|
||
|
|
if self:IsHovered() then
|
||
|
|
surface.SetDrawColor(Color(90,90,90,200))
|
||
|
|
else
|
||
|
|
surface.SetDrawColor(Color(0,0,0,0))
|
||
|
|
end
|
||
|
|
surface.DrawRect(0,0,w,h)
|
||
|
|
end
|
||
|
|
|
||
|
|
button.DoClick = btnfunction
|
||
|
|
|
||
|
|
local image = vgui.Create("DImage", button)
|
||
|
|
image:SetImage(texture)
|
||
|
|
image:Dock(imagedock)
|
||
|
|
end
|
||
|
|
|
||
|
|
local function TranslateTaunt(linename)
|
||
|
|
return WHOLE_TEAM_TAUNTS[linename]
|
||
|
|
end
|
||
|
|
|
||
|
|
local function SendToServer(snd)
|
||
|
|
if !isplayed then
|
||
|
|
net.Start("CL2SV_PlayThisTaunt"); net.WriteString(tostring(snd)); net.SendToServer();
|
||
|
|
isplayed = true
|
||
|
|
timer.Simple(GetConVar("ph_customtaunts_delay"):GetInt(), function() isplayed = false; end)
|
||
|
|
else
|
||
|
|
chat.AddText(Color(220,40,0),"[PH:E - Taunts] Warning: ",Color(220,220,220),"Please wait in " .. GetConVar("ph_customtaunts_delay"):GetInt() .. " seconds...!")
|
||
|
|
end
|
||
|
|
end
|
||
|
|
|
||
|
|
CreateStyledButton(LEFT,86,"Play Taunt Locally",{5,5,5,5},"vgui/phehud/btn_play.vmt",FILL, function()
|
||
|
|
if hastaunt then
|
||
|
|
local getline = TranslateTaunt(list:GetLine(list:GetSelectedLine()):GetValue(1))
|
||
|
|
surface.PlaySound(getline)
|
||
|
|
end
|
||
|
|
end)
|
||
|
|
CreateStyledButton(LEFT,86,"Play Taunt Globally",{5,5,5,5}, "vgui/phehud/btn_playpub.vmt",FILL, function()
|
||
|
|
if hastaunt then
|
||
|
|
local getline = TranslateTaunt(list:GetLine(list:GetSelectedLine()):GetValue(1))
|
||
|
|
SendToServer(getline)
|
||
|
|
end
|
||
|
|
end)
|
||
|
|
CreateStyledButton(LEFT,86,"Play Taunt Globally and Close",{5,5,5,5},"vgui/phehud/btn_playx.vmt",FILL, function()
|
||
|
|
if hastaunt then
|
||
|
|
local getline = TranslateTaunt(list:GetLine(list:GetSelectedLine()):GetValue(1))
|
||
|
|
|
||
|
|
SendToServer(getline)
|
||
|
|
frame:Close()
|
||
|
|
end
|
||
|
|
end)
|
||
|
|
CreateStyledButton(FILL,86,"Close the Window",{5,5,5,5},"vgui/phehud/btn_close.vmt",FILL, function()
|
||
|
|
frame:Close()
|
||
|
|
end)
|
||
|
|
|
||
|
|
list.OnRowRightClick = function(panel,line)
|
||
|
|
hastaunt = true
|
||
|
|
local getline = TranslateTaunt(list:GetLine(list:GetSelectedLine()):GetValue(1))
|
||
|
|
|
||
|
|
local menu = DermaMenu()
|
||
|
|
menu:AddOption("Play (Local)", function() surface.PlaySound(getline); print("Playing: "..getline); end):SetIcon("icon16/control_play.png")
|
||
|
|
menu:AddOption("Play (Global)", function() SendToServer(getline); end):SetIcon("icon16/sound.png")
|
||
|
|
menu:AddOption("Play and Close (Global)", function() SendToServer(getline); frame:Close(); end):SetIcon("icon16/sound_delete.png")
|
||
|
|
menu:AddSpacer()
|
||
|
|
menu:AddOption("Close Menu", function() frame:Close(); end):SetIcon("icon16/cross.png")
|
||
|
|
menu:Open()
|
||
|
|
end
|
||
|
|
|
||
|
|
list.OnRowSelected = function()
|
||
|
|
hastaunt = true
|
||
|
|
end
|
||
|
|
|
||
|
|
list.DoDoubleClick = function(id,line)
|
||
|
|
hastaunt = true
|
||
|
|
local getline = TranslateTaunt(list:GetLine(list:GetSelectedLine()):GetValue(1))
|
||
|
|
SendToServer(getline)
|
||
|
|
|
||
|
|
if GetConVar("ph_cl_autoclose_taunt"):GetBool() then frame:Close(); end
|
||
|
|
end
|
||
|
|
|
||
|
|
frame:MakePopup()
|
||
|
|
frame:SetKeyboardInputEnabled(false)
|
||
|
|
end
|
||
|
|
|
||
|
|
concommand.Add("ph_showtaunts", function()
|
||
|
|
if LocalPlayer():Alive() && isforcedclose != true && LocalPlayer():GetObserverMode() == OBS_MODE_NONE then
|
||
|
|
if isopened != true then
|
||
|
|
MainFrame()
|
||
|
|
end
|
||
|
|
else
|
||
|
|
chat.AddText(Color(220,40,0),"[PH:E Taunts] Notice: ",Color(220,220,220), "You can only play custom taunts when you\'re alive as prop/hunter!")
|
||
|
|
end
|
||
|
|
end, nil, "Show Prop Hunt taunt list, so you can select and play for self or play as a taunt.")
|
||
|
|
|
||
|
|
local function BindPress(ply, bind, pressed)
|
||
|
|
if string.find(bind, "+menu_context") and pressed then
|
||
|
|
RunConsoleCommand("ph_showtaunts")
|
||
|
|
end
|
||
|
|
end
|
||
|
|
hook.Add("PlayerBindPress", "PlayerBindPress_menuContext", BindPress)
|