Hi so I have Derma Panel I made and i would like to open when i run a chat command. But i dont know how to do that all i have it set for now is a console command any help? Heres the code
Code:
if (SERVER) then
util.AddNetworkString( "SetHimOnFire" )
net.Receive( "SetHimOnFire", function( len, ply )
ply:Ignite(10, 5)
end )
util.AddNetworkString( "swag" )
net.Receive( "swag", function( len, ply )
ply:SetHealth( 100)
timer.Simple( 0.1, function() PrintMessage( HUD_PRINTTALK, ply:Name() .. ", Your Health is now: " .. ply:Health() )end )
timer.Stop()
end )
util.AddNetworkString( "armor" )
net.Receive( "armor", function( len, ply )
ply:SetArmor( 100)
timer.Simple( 0.1, function() PrintMessage( HUD_PRINTTALK, ply:Name() .. ", Your Armor is now: " .. ply:Armor() )end )
timer.Stop()
end )
util.AddNetworkString( "run" )
net.Receive( "run", function( len, ply, player )
ply:SetRunSpeed( 1000 )
timer.Simple( 0.1, function() PrintMessage( HUD_PRINTTALK, ply:Name() .. ", Is now Sanic" )end )
timer.Stop()
end )
util.AddNetworkString( "norun" )
net.Receive( "norun", function( len, ply, player )
ply:SetRunSpeed( 250 )
timer.Simple( 0.1, function() PrintMessage( HUD_PRINTTALK, ply:Name() .. ", Is no longer Sanic" )end )
timer.Stop()
end )
util.AddNetworkString( "budda" )
net.Receive( "budda", function( len, ply )
ply:SetHealth( 1 )
ply:GodEnable()
timer.Simple( 0.1, function() PrintMessage( HUD_PRINTTALK, ply:Name() .. " You are Buddha'd!" )end )
timer.Stop()
end )
util.AddNetworkString( "unbudda" )
net.Receive( "unbudda", function( len, ply )
ply:SetHealth( 100 )
ply:GodDisable()
timer.Simple( 0.1, function() PrintMessage( HUD_PRINTTALK, ply:Name() .. " You are no longer Buddha'd!" )end )
timer.Stop()
end )
util.AddNetworkString( "god" )
net.Receive( "god", function( len, ply )
ply:GodEnable()
timer.Simple( 0.1, function() PrintMessage( HUD_PRINTTALK, ply:Name() .. " You are now Godded!" )end )
timer.Stop()
end )
util.AddNetworkString( "money" )
net.Receive( "money", function( len, ply, calling_ply )
ply:setmoneyMoney( 20000 )
end )
util.AddNetworkString( "unarrest" )
net.Receive( "unarrest", function( len, ply )
ply:unArrest()
end )
util.AddNetworkString( "ammo" )
net.Receive( "ammo", function( len, ply )
ply:GiveAmmo(99999, "ar2")
ply:GiveAmmo(99999, "pistol")
ply:GiveAmmo(99999, "buckshot")
ply:GiveAmmo(99999, "357")
ply:GiveAmmo(99999, "smg")
ply:GiveAmmo(99999, "winchester")
ply:GiveAmmo(99999, "sniper_rounds")
ply:GiveAmmo(99999, "smg1")
ply:GiveAmmo(99999, "SniperPenetratedRound")
timer.Simple( 0.1, function() PrintMessage( HUD_PRINTTALK, ply:Name() .. ", Enabled Infinite Ammo" )end )
timer.Stop()
end )
util.AddNetworkString( "unammo" )
net.Receive( "unammo", function( len, ply )
ply:SetAmmo(100, "ar2")
ply:SetAmmo(100, "pistol")
ply:SetAmmo(100, "buckshot")
ply:SetAmmo(100, "357")
ply:SetAmmo(100, "smg")
ply:SetAmmo(100, "winchester")
ply:SetAmmo(100, "sniper_rounds")
ply:SetAmmo(100, "smg1")
ply:GiveAmmo(100, "SniperPenetratedRound")
timer.Simple( 0.1, function() PrintMessage( HUD_PRINTTALK, ply:Name() .. ", Disabled Infinite Ammo" )end )
timer.Stop()
end )
util.AddNetworkString( "ungod" )
net.Receive( "ungod", function( len, ply )
ply:GodDisable()
timer.Simple( 0.1, function() PrintMessage( HUD_PRINTTALK, ply:Name() .. " You are no longer Godded!" )end )
timer.Stop()
end )
util.AddNetworkString( "fart" )
net.Receive( "fart", function( len, ply )
ply:Kill()
timer.Simple( 10.2, function() PrintMessage( HUD_PRINTTALK, ply:Name() .. ", Your Health is now:" .. ply:Health() )end )
end )
end
if (CLIENT) then
local midW, midH = ScrW() / 2, ScrH() / 2
local function OpenRazor()
local Panel = vgui.Create( "DFrame" )
Panel:SetSize( 650, 650 )
Panel:SetPos( midW - ( Panel:GetWide() / 2 ), midH - ( Panel:GetTall() / 2) )
Panel:SetTitle( "Razor Sharp DarkRP!" )
Panel:ShowCloseButton( true )
Panel:MakePopup()
Panel:SetDraggable( false )
--Commands!
local Lag = vgui.Create( "DButton", Panel )
Lag:SetPos( 140, 50 )
Lag:SetSize( 100, 25 )
Lag:SetText( "Tell server Lag" )
Lag.DoClick = function()
RunConsoleCommand( "ulx", "rcon", "say [rainbow]LAG" )
Panel:Close()
local ply = LocalPlayer()
chat.AddText( Color( 0, 0, 255 ), "The server was told about the lag!" )
end
--Close Button
local MyButton = vgui.Create( "DButton", Panel )
MyButton:SetPos( 20, 50 )
MyButton:SetText("Burn Yourself")
MyButton:SetSize(100, 25)
MyButton.DoClick = function()
net.Start( "SetHimOnFire" )
net.WriteEntity( LocalPlayer() )
net.SendToServer()
Panel:Close()
end
local MyButton2 = vgui.Create( "DButton", Panel )
MyButton2:SetPos( 20, 90 )
MyButton2:SetText("Suicide")
MyButton2:SetSize(100, 25)
MyButton2.DoClick = function()
net.Start( "fart" )
net.WriteEntity( LocalPlayer() )
net.SendToServer()
Panel:Close()
end
local MyButton3 = vgui.Create( "DButton", Panel )
MyButton3:SetPos( 20, 130 )
MyButton3:SetText("Fill Your Health")
MyButton3:SetSize(100, 25)
MyButton3.DoClick = function()
net.Start( "swag" )
net.WriteEntity( LocalPlayer() )
net.SendToServer()
Panel:Close()
end
local MyButton4 = vgui.Create( "DButton", Panel )
MyButton4:SetPos( 20, 170 )
MyButton4:SetText("Infinite Ammo")
MyButton4:SetSize(100, 25)
MyButton4.DoClick = function()
net.Start( "ammo" )
net.WriteEntity( LocalPlayer() )
net.SendToServer()
Panel:Close()
end
local MyButton5 = vgui.Create( "DButton", Panel )
MyButton5:SetPos( 20, 210 )
MyButton5:SetText("God")
MyButton5:SetSize(100, 25)
MyButton5.DoClick = function()
net.Start( "god" )
net.WriteEntity( LocalPlayer() )
net.SendToServer()
Panel:Close()
end
local MyButton6 = vgui.Create( "DButton", Panel )
MyButton6:SetPos( 140, 210 )
MyButton6:SetText("UnGod")
MyButton6:SetSize(100, 25)
MyButton6.DoClick = function()
net.Start( "ungod" )
net.WriteEntity( LocalPlayer() )
net.SendToServer()
Panel:Close()
end
local MyButton7 = vgui.Create( "DButton", Panel )
MyButton7:SetPos( 275, 600 )
MyButton7:SetText("Close")
MyButton7:SetSize(100, 25)
MyButton7.DoClick = function()
Panel:Close()
end
local MyButton8 = vgui.Create( "DButton", Panel )
MyButton8:SetPos( 140, 130)
MyButton8:SetText("Fill Your armor")
MyButton8:SetSize(100, 25)
MyButton8.DoClick = function()
net.Start( "armor" )
net.WriteEntity( LocalPlayer() )
net.SendToServer()
Panel:Close()
end
local MyButton9 = vgui.Create( "DButton", Panel )
MyButton9:SetPos( 140, 170 )
MyButton9:SetText("Disable Inf Ammo")
MyButton9:SetSize(100, 25)
MyButton9.DoClick = function()
net.Start( "unammo" )
net.WriteEntity( LocalPlayer() )
net.SendToServer()
Panel:Close()
end
local MyButton10 = vgui.Create( "DButton", Panel )
MyButton10:SetPos( 140, 90 )
MyButton10:SetText("Sanic")
MyButton10:SetSize(100, 25)
MyButton10.DoClick = function()
net.Start( "run" )
net.WriteEntity( LocalPlayer() )
net.SendToServer()
Panel:Close()
end
local MyButton11 = vgui.Create( "DButton", Panel )
MyButton11:SetPos( 260, 90 )
MyButton11:SetText("No More Sanic")
MyButton11:SetSize(100, 25)
MyButton11.DoClick = function()
net.Start( "norun" )
net.WriteEntity( LocalPlayer() )
net.SendToServer()
Panel:Close()
end
local MyButton12 = vgui.Create( "DButton", Panel )
MyButton12:SetPos( 260, 130 )
MyButton12:SetText("Buddha")
MyButton12:SetSize(100, 25)
MyButton12.DoClick = function()
net.Start( "budda" )
net.WriteEntity( LocalPlayer() )
net.SendToServer()
Panel:Close()
end
local MyButton13 = vgui.Create( "DButton", Panel )
MyButton13:SetPos( 260, 170 )
MyButton13:SetText("Un Buddha")
MyButton13:SetSize(100, 25)
MyButton13.DoClick = function()
net.Start( "unbudda" )
net.WriteEntity( LocalPlayer() )
net.SendToServer()
Panel:Close()
end
local MyButton14 = vgui.Create( "DButton", Panel )
MyButton14:SetPos( 260, 50 )
MyButton14:SetText("Inf Money")
MyButton14:SetSize(100, 25)
MyButton14.DoClick = function()
net.Start( "money" )
net.WriteEntity( LocalPlayer() )
net.SendToServer()
end
local MyButton15 = vgui.Create( "DButton", Panel )
MyButton15:SetPos( 260, 210 )
MyButton15:SetText("Unarrest Yourself")
MyButton15:SetSize(100, 25)
MyButton15.DoClick = function()
net.Start( "unarrest" )
net.WriteEntity( LocalPlayer() )
net.SendToServer()
Panel:Close()
end
local MyLabel = vgui.Create( "DLabel", Panel )
MyLabel:SetPos( 10, 630 )
MyLabel:SetText("Coded By:")
local MyLabel2 = vgui.Create( "DLabel", Panel )
MyLabel2:SetPos( 65, 630 )
MyLabel2:SetText("Skater")
Panel.Paint = function()
draw.RoundedBox( 8, 0, 0, Panel:GetWide(), Panel:GetTall(), Color( 135, 209, 255, 150 ) )
end
end
concommand.Add( "rzr1050admin", OpenRazor )
hook.Add( 'PlayerSay', 'OpenRazor', function( ply, text )
text = string.lower( text )
if ( string.sub( text, 1, 10) == '!adminmenu') then
end
end)
end
--Derma_Message( "You have run the command: ", "Command Complete!", "Close" )
Thanks
Wrong section, post here instead: [url]http://facepunch.com/forumdisplay.php?f=65[/url]
And you might wanna put your code in [noparse][code][/code][/noparse] tags to make it more readable.
Sorry, you need to Log In to post a reply to this thread.