diff --git a/gamemodes/benny/gamemode/modules/deadeye/cl_0.lua b/gamemodes/benny/gamemode/modules/deadeye/cl_0.lua new file mode 100644 index 0000000..a470bc3 --- /dev/null +++ b/gamemodes/benny/gamemode/modules/deadeye/cl_0.lua @@ -0,0 +1,134 @@ + +-- Deadeye Choreographer + +local function QUICKDIRT( self, w, h ) + local r, g, b = schemes["benny"]["bg"]:Unpack() + surface.SetDrawColor( r, g, b, 200 ) + surface.DrawRect( 0, 0, w, h ) + + surface.SetDrawColor( schemes["benny"]["fg"] ) + surface.DrawOutlinedRect( 0, 0, w, h, 1 ) +end +local function QUICKEARTH( self, w, h ) + local r, g, b = schemes["benny"]["fg"]:Unpack() + surface.SetDrawColor( r, g, b, 200 ) + surface.DrawRect( 0, 0, w, h ) +end +local function QUICKNIL( self, w, h ) +end + +DEADEYE_MEM = DEADEYE_MEM or {} + +function OpenDeadeye() + if IsValid( GOD ) then GOD:Remove() end + GOD = vgui.Create( "DFrame" ) + + GOD:SetTitle( "Deadeye Choreographer" ) + GOD:SetSize( ScrW()*0.9, ScrH()*0.9 ) + GOD:Center() + GOD:MakePopup() + GOD:SetSizable( true ) + GOD.Paint = QUICKDIRT + + do -- Menubar + local MENUBAR = GOD:Add( "DMenuBar" ) + MENUBAR:Dock( TOP ) + MENUBAR.Paint = QUICKDIRT + + local MENU_FILE = MENUBAR:AddMenu( "File" ) + MENU_FILE:AddOption( "New", function() table.Empty( DEADEYE_MEM ) OpenDeadeye() end ) + MENU_FILE:AddOption( "Open", function() end ) + local MENU_EDIT = MENUBAR:AddMenu( "Edit" ) + local MENU_ABOUT = MENUBAR:AddMenu( "About" ) + end + + local NAME = { + "X", + "Y", + "Z", + "P", + "Y", + "R", + } + + do -- Main + local MAIN = GOD:Add( "DPanel" ) + MAIN:Dock( FILL ) + MAIN.Paint = QUICKNIL + + local SIDE_MODEL = MAIN:Add( "DPanel" ) + SIDE_MODEL.Paint = QUICKNIL + local SIDE_CHOREO = MAIN:Add( "DPanel" ) + SIDE_CHOREO.Paint = QUICKDIRT + + local SIDEDIV = MAIN:Add( "DVerticalDivider" ) + SIDEDIV:Dock( FILL ) + SIDEDIV:SetTop( SIDE_MODEL ) + SIDEDIV:SetBottom( SIDE_CHOREO ) + SIDEDIV:SetDividerHeight( 8 ) + SIDEDIV:SetTopMin( 20 ) + SIDEDIV:SetBottomMin( 240 ) + SIDEDIV:SetTopHeight( 500 ) + + local MODEL = SIDE_MODEL:Add( "DAdjustableModelPanel" ) + MODEL:SetFOV( 30 ) + MODEL:SetModel( "models/alyx.mdl" ) + function MODEL:LayoutEntity( Entity ) + if DEADEYE_MEM.Flex then + for i=1, Entity:GetFlexNum() do + if !DEADEYE_MEM.Flex[ Entity:GetFlexName( i - 1 ) ] then continue end + Entity:SetFlexWeight( i-1, DEADEYE_MEM.Flex[ Entity:GetFlexName( i - 1 ) ] ) + end + else + DEADEYE_MEM.Flex = {} + for i=1, Entity:GetFlexNum() do + DEADEYE_MEM.Flex[ Entity:GetFlexName( i - 1 ) ] = Entity:GetFlexWeight( i - 1 ) + end + end + return + end + + function MODEL:PaintOver( w, h ) + local fuckp, fucka = MODEL:GetCamPos(), MODEL:GetLookAng() + local PX, PY, PZ, AP, AY, AR = fuckp.x, fuckp.y, fuckp.z, fucka.p, fucka.y, fucka.r + PX, PY, PZ, AP, AY, AR = math.Round( PX ), math.Round( PY ), math.Round( PZ ), math.Round( AP ), math.Round( AY ), math.Round( AR ) + draw.SimpleText( "pos: " .. PX .. " " .. PY .. " " .. PZ, "Trebuchet24", 8, 8, color_white, TEXT_ALIGN_LEFT, TEXT_ALIGN_TOP ) + draw.SimpleText( "ang: " .. AP .. " " .. AY .. " " .. AR, "Trebuchet24", 8, 8+24, color_white, TEXT_ALIGN_LEFT, TEXT_ALIGN_TOP ) + end + + local MODELSETTINGS = SIDE_MODEL:Add( "DScrollPanel" ) + MODELSETTINGS.Paint = QUICKDIRT + + for i=1, MODEL.Entity:GetFlexNum() do -- Model settings + SLIDER = MODELSETTINGS:Add( "DNumSlider" ) + SLIDER.FlexID = i + SLIDER:SetText( MODEL.Entity:GetFlexName( i - 1 ) ) -- Set the text above the slider + local min, max = MODEL.Entity:GetFlexBounds( i - 1 ) + SLIDER:SetMin( min ) + SLIDER:SetMax( max ) + SLIDER:SetDecimals( 2 ) + SLIDER:Dock( TOP ) + SLIDER:DockMargin( 10, -5, 10, -5 ) + + function SLIDER:OnValueChanged( val ) + if !DEADEYE_MEM.Flex then DEADEYE_MEM.Flex = {} end + DEADEYE_MEM.Flex[ MODEL.Entity:GetFlexName( i - 1 ) ] = val + end + + function SLIDER:Think() + if DEADEYE_MEM.Flex then + self:SetValue( DEADEYE_MEM.Flex[ MODEL.Entity:GetFlexName( i - 1 ) ] ) + end + end + end + + local DIVIDER = SIDE_MODEL:Add( "DHorizontalDivider" ) + DIVIDER:Dock( FILL ) + DIVIDER:SetLeft( MODEL ) + DIVIDER:SetRight( MODELSETTINGS ) + DIVIDER:SetDividerWidth( 8 ) + DIVIDER:SetLeftMin( 20 ) + DIVIDER:SetRightMin( 240 ) + DIVIDER:SetLeftWidth( 1000 ) + end +end \ No newline at end of file diff --git a/gamemodes/benny/gamemode/modules/player/sh_basic.lua b/gamemodes/benny/gamemode/modules/player/sh_basic.lua index 0b00a74..709a6b9 100644 --- a/gamemodes/benny/gamemode/modules/player/sh_basic.lua +++ b/gamemodes/benny/gamemode/modules/player/sh_basic.lua @@ -145,6 +145,12 @@ function GM:ShowHelp( ply ) end end +function GM:ShowTeam( ply ) + if SERVER then + ply:SendLua( [[OpenDeadeye()]] ) + end +end + -- Debug inv if CLIENT then function GM:OnSpawnMenuOpen()