Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- if SERVER then
- local ply = FindMetaTable("Player")
- local function hellotest(PLY)
- PLY:SetNWBool("is_ascended", true)
- end
- concommand.Add("ascend", hellotest)
- end
- if CLIENT then
- as_invis=CreateClientConVar( "Invisibility_enabled", "1", false, false )
- CreateClientConVar( "Gds_enabled", "1", false, false )
- concommand.Add("ascend_menu", testingascend)
- local isascended = false
- function testingascend(PLY)
- if (PLY:GetNWBool("is_ascended")==true)
- then
- local frame = vgui.Create( "DFrame" )
- frame:SetSize( 500, 300 )
- frame:Center()
- frame:SetTitle( "Ascension" )
- frame:ShowCloseButton(true)
- frame:MakePopup()
- local sheet = vgui.Create( "DPropertySheet", frame )
- sheet:Dock( FILL )
- local panel1 = vgui.Create( "DPanel", sheet )
- panel1.Paint = function( self, w, h ) draw.RoundedBox( 4, 0, 0, w, h, Color( 80, 80, 80, self:GetAlpha() ) ) end
- sheet:AddSheet( "States", panel1, "icon16/eye.png" )
- --Checkboxes----------------------------------------------------
- local checkbox_invi = vgui.Create( "DCheckBoxLabel", panel1 )
- checkbox_invi:SetChecked( false )
- checkbox_invi:SetConVar( "Invisibility_enabled" )
- checkbox_invi:SetText( "Hide from normal eyes" )
- checkbox_invi:SetPos( 5, 5 )
- checkbox_invi:SizeToContents()
- local checkbox_whiteplasma = vgui.Create( "DCheckBoxLabel", panel1 )
- checkbox_whiteplasma:SetConVar( "Gds_enabled" )
- checkbox_whiteplasma:SetText( "Assume GDS" )
- checkbox_whiteplasma:SetPos( 5, 25 )
- checkbox_whiteplasma:SizeToContents()
- --Colorpicker----------------------------------------------------
- local ChosenColor = nil
- local ColorPicker = vgui.Create( "DColorMixer", panel1 )
- ColorPicker:SetSize( 180, 180 )
- ColorPicker:SetPos( 280, 10 )
- ColorPicker:SetPalette( true )
- ColorPicker:SetAlphaBar( true )
- ColorPicker:SetWangs( true )
- ColorPicker:SetColor( Color( 255, 255, 255 ) )
- local ConfirmColor = vgui.Create( "DButton", panel1 )
- ConfirmColor:SetText( "Color GDS " )
- ConfirmColor:SetSize( 90, 30 )
- ConfirmColor:SetPos( 320, panel1:GetTall() + 170 )
- ConfirmColor.DoClick = function()
- ChosenColor = ColorPicker:GetColor()
- end
- local panel2 = vgui.Create( "DPanel", sheet )
- panel2.Paint = function( self, w, h ) draw.RoundedBox( 4, 0, 0, w, h, Color( 80, 80, 80, self:GetAlpha() ) ) end
- sheet:AddSheet( "Powers", panel2, "icon16/text_letter_omega.png" )
- else
- end
- end
- if as_invis:GetBool()==true
- then
- localplayer:ChatPrint("Invis!")
- else
- end
- end
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement