213

concommand.Add("bzhop", function()

local ply = LocalPlayer()

CreateClientConVar("bhp", 0, true, false)

function smpbhp()
	if GetConVarNumber("bhp") == 1 and input.IsKeyDown( KEY_SPACE ) then
		if ply:IsTyping() == false and ply:IsOnGround() then
	 		RunConsoleCommand("+jump")
	 		timer.Create("Bhop", 0, math.random( .280, .290 ), function()
	 		 	RunConsoleCommand("-jump")
			end)
		end
	elseif GetConVarNumber("bhp") == 1 and input.IsKeyDown( KEY_SPACE ) then
		if ply:IsTyping() == false and ply:IsOnGround() then
			RunConsoleCommand("+jump")
			timer.Create("Bhop", 0, .01, function()
				RunConsoleCommand("-jump")
			end)
		end
	end
end

hook.Add("Think", "smpbhp", smpbhp)

surface.CreateFont('font', {
	font = 'CloseCaption_Bold',
	size = 24,
	weight = 700
})

surface.CreateFont('author', {
	font = 'CloseCaption_Bold',
	size = 22,
	weight = 700
})

local menu = vgui.Create( "DFrame" )
menu:SetTitle( "" )
menu:SetSize( 200,150 )
menu:Center()
menu:MakePopup()
menu.Think = function( self )
menu:ShowCloseButton( false )
menu.Paint = function( self, w, h )
	surface.SetDrawColor(0, 0, 0, 150)
	draw.RoundedBox( 0, 0, 0, w, h, Color( 10, 10, 10, 150 ) )
	surface.SetDrawColor(Color(0, 255, 0))
	surface.DrawOutlinedRect( 2, 2, w-4, h-4 )
	draw.SimpleText('BZHOP - MENU', "font", 30, 30, Color(0,0,0) )
	draw.SimpleText('BZHOP - MENU', "font", 28, 30, Color(255,255,255) )
	draw.SimpleText('author - twenty two', "author", 13, 55, Color(0,0,0) )
	draw.SimpleText('author - twenty two', "author", 11, 55, Color(255,255,255) )
	draw.SimpleText('version 1.1', "font", 47, 120, Color(0,0,0) )
	draw.SimpleText('version 1.1', "font", 45, 120, Color(255,255,255) )
	end
end

local bhp = vgui.Create( "DCheckBoxLabel", menu )
bhp:SetText( "BHOP" )
bhp:SetPos( 75, 95 )
bhp:SetConVar( "bhp" )
bhp:SetValue( 0 )
bhp:SizeToContents()

local close = vgui.Create( "DButton", menu )
close:SetText( "X" )
close:SetTextColor( Color(255,255,255) )
close:SetPos( 175, 3 )
close:SetSize( 22.5, 22.5 )
close.Paint = function( self, w, h )
	draw.RoundedBox( 0, 0, 0, w, h, Color(255,0,0) )
close.DoClick = function()
	menu:Close()
		end
	end
end)