admtelewarp_p1.lua

--------------------------------------
--- Multi-Purpose Menu
--- Designed and Created by KONSOLEJR
--------------------------------------

----------------
--- Server Side
----------------

function ulx.admtelewarp_p1( calling_ply, target_ply )
	ULib.clientRPC( target_ply, "ulx.admtelewarp_p1" )
	end

local admtelewarp_p1 = ulx.command( "", "ulx admtelewarp_p1", ulx.admtelewarp_p1 )
admtelewarp_p1:defaultAccess( ULib.ACCESS_ADMIN )
admtelewarp_p1:help( "Opens the admin panel." )

----------------
--- Client Side
----------------
function ulx.admtelewarp_p1( ply )

local Frame = vgui.Create( "DFrame" )
	Frame:SetSize(193,750)
	Frame:Center()
    Frame:SetTitle("Admin Teleport Terminal: Page 1")
    Frame:SetVisible(true)
    Frame:SetDraggable(true)
    Frame:ShowCloseButton(true)
    Frame:MakePopup()
	Frame.Paint  = function (self, w, h)
      draw.RoundedBox(0,0,0,w,h,(Color(0,0,0,255)))
    end
-----------------
--- Page Changer
-----------------
	local gui = vgui.Create ("DButton", Frame)
    gui:SetPos(21,650)
    gui:SetSize(50,50)
    gui:SetText("<")
    gui:SetVisible(true)
    function gui:OnMousePressed()
      RunConsoleCommand( "ulx", "admpanel_p1" )
    	Frame:SetVisible(false)
    end

	local gui = vgui.Create ("DButton", Frame)
    gui:SetPos(121,650)
    gui:SetSize(50,50)
    gui:SetText(">")
    gui:SetVisible(true)
    function gui:OnMousePressed()
      RunConsoleCommand( "ulx", "admpanel_p1" )
    	Frame:SetVisible(false)
    end
-------------
--- Commands
-------------
	local gui = vgui.Create ("DButton", Frame)
    gui:SetPos(21,50)
    gui:SetSize(150,50)
    gui:SetText("Admin Underground")
    gui:SetVisible(true)
    function gui:OnMousePressed()
      RunConsoleCommand( "say", "/warp AdminUnderground" )
    	Frame:SetVisible(false)
    end

	local gui = vgui.Create ("DButton", Frame)
    gui:SetPos(21,150)
    gui:SetSize(150,50)
    gui:SetText("Return to Spawn")
    gui:SetVisible(true)
    function gui:OnMousePressed()
      RunConsoleCommand("say", "/warp spawn")
    	Frame:SetVisible(false)
    end

	local gui = vgui.Create ("DButton", Frame)
    gui:SetPos(21,550)
    gui:SetSize(150,50)
    gui:SetText("Return to Admin Menu")
    gui:SetVisible(true)
    function gui:OnMousePressed()
      RunConsoleCommand("ulx", "admpanel_p1")
    	Frame:SetVisible(false)
	end
end