Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- --=================================--
- -- Easy Access Menu By Sabes - WIP --
- --=================================--
- local Main = vgui.Create("DFrame")
- Main:SetTitle("")
- Main:SetSize(ScrW() - 50, ScrH() - 50)
- Main:SetDraggable(false)
- Main:MakePopup()
- Main:SetAnimationEnabled(true)
- Main:Center()
- Main:ShowCloseButton(false)
- function Main:Paint(w,h) -- Main Frame Color
- draw.RoundedBox( 0, 0, 0, w, h, Color( 227, 227, 227 ) )
- end
- local CButton = vgui.Create("DButton", Main) -- Close Button
- CButton:SetSize(50, 20)
- CButton:SetText("X")
- CButton:SetTextColor( Color( 227, 227, 227 ) )
- CButton:SetPos(530, 5)
- CButton.DoClick = function()
- Main:Close() -- Close Function
- end
- function CButton:Paint(w,h)
- draw.RoundedBox(0, 0, 0, w, h, Color( 255, 41, 80 ) )
- end
- local label = vgui.Create("DButton", Main) -- Noclip Button
- label:SetText("Toggle Noclip")
- label:SetPos(50,50)
- label:SetSize(150,50)
- label:SetTextColor(Color(0, 0, 0))
- label.DoClick = function()
- RunConsoleCommand("Noclip")
- Msg("Noclip Toggled")
- end
- function label:Paint(w,h)
- draw.RoundedBox(1, 0, 0, w, h, Color(187, 187, 255))
- end
- local killb = vgui.Create("DButton", Main)
- killb:SetText("Die")
- killb:SetPos(50, 110)
- killb:SetSize(150, 50)
- killb:SetTextColor(Color(0, 0, 0))
- killb.DoClick = function()
- RunConsoleCommand("quit")
- end
- function killb:Paint(w, h)
- draw.RoundedBox(0, 0, 0, w, h, Color(255, 187, 187))
- end
- Msg("Easy Access Menu Loaded... Mady by sabes -- Please note this is still under development. If any bugs are found please report them to me")
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement