zombiesurvival-evolved/gamemodes/zombiesurvival/entities/weapons/swep_construction_kit/menu/tool.lua

local tutorialURL = "http://www.facepunch.com/threads/1032378-SWEP-Construction-Kit-developer-tool-for-modifying-viewmodels-ironsights/"
local wep = GetSCKSWEP( LocalPlayer() )
local ptool = wep.ptool

local panim = SimplePanel(ptool)
	-- ***** Animations *****

	local alabel = vgui.Create( "DLabel", panim )
		alabel:SetTall( 18 )
		alabel:SetText( "Play animation (only works properly in third person):" )
	alabel:Dock( TOP )

	local cols = 4
	local agrid = vgui.Create( "DGrid", panim )
		agrid:SetCols(cols)
		agrid:SetColWide( 106 )
		agrid:SetRowHeight( 24 )

		local animations = {
			{ "Primary attack", ACT_VM_PRIMARYATTACK, PLAYER_ATTACK1 },
			{ "Reload", ACT_VM_RELOAD, PLAYER_RELOAD },
			{ "Melee 1", ACT_VM_MISSCENTER, PLAYER_ATTACK1 },
			{ "Melee 2", ACT_VM_HITCENTER, PLAYER_ATTACK1 },
			{ "Grenade pull (CSS)", ACT_VM_PULLPIN, nil },
			{ "Grenade pull (HL2)", ACT_VM_PULLBACK_HIGH, nil },
			{ "Draw", ACT_VM_PULLBACK_HIGH, nil },
			{ "Throw grenade", ACT_VM_THROW, PLAYER_ATTACK1 },
			{ "Throw grenade", ACT_VM_IDLE, nil }
		}

		for k, anim in pairs( animations ) do

			local abtn = vgui.Create( "DButton", agrid )
				abtn:SetSize( 100, 18 )
				abtn:SetText( anim[1] )
				abtn.DoClick = function()
					RunConsoleCommand("swepck_playanimation", anim[2])
					wep:ResetSequenceInfo()
					if (anim[2] != nil) then wep:SendWeaponAnim(anim[2]) end
					if (anim[3] != nil) then LocalPlayer():SetAnimation(anim[3]) end
				end
			agrid:AddItem(abtn)

		end

	agrid:SetTall( math.ceil(#animations / cols) * 24 )
	agrid:DockMargin(0,5,0,0)
	agrid:Dock(TOP)

panim:SetTall(alabel:GetTall() + agrid:GetTall() + 5)
panim:DockPadding(0,5,0,5)
panim:Dock( TOP )

local psettings = SimplePanel(ptool)

	-- ***** Settings saving / loading *****
	local function CreateSettingsNote( text )
		local notiflabel = vgui.Create( "DLabel", psettings )
			notiflabel:SetTall( 20 )
			notiflabel:SetText( text )
			notiflabel:SizeToContentsX()

		local notif = vgui.Create( "DNotify" , psettings )
			notif:SetPos( 150, 5 ) -- just hack it in
			notif:SetSize( notiflabel:GetWide(), 20 )
			notif:SetLife( 5 )
		notif:AddItem(notiflabel)

	end

	local selabel = vgui.Create( "DLabel", psettings )
		selabel:SetTall( 20 )
		selabel:SetText( "Configuration:" )
	selabel:Dock(TOP)

	local psave = SimplePanel(psettings)

		local satext = vgui.Create( "DTextEntry", psave )
			satext:SetTall( 20 )
			satext:SetMultiline(false)
			if (wep.save_data._savename) then
				satext:SetText( wep.save_data._savename )
			else
				satext:SetText( "save1" )
			end
		satext:DockMargin(5,0,0,0)
		satext:Dock(FILL)

		local sabtn = vgui.Create( "DButton", psave )
			sabtn:SetTall( 16 )
			sabtn:SetText( "Save as:" )
			sabtn.DoClick = function()

				if !IsValid(wep) then return end

				local text = string.Trim(satext:GetValue())
				if (text == "") then return end

				local save_data = wep.save_data

				-- collect all save data
				save_data.v_models = table.Copy(wep.v_models)
				save_data.w_models = table.Copy(wep.w_models)
				save_data.v_bonemods = table.Copy(wep.v_bonemods)
				-- remove caches
				for k, v in pairs(save_data.v_models) do
					v.createdModel = nil
					v.createdSprite = nil
				end
				for k, v in pairs(save_data.w_models) do
					v.createdModel = nil
					v.createdSprite = nil
				end
				save_data.ViewModelFlip = wep.ViewModelFlip
				save_data.ViewModel = wep.ViewModel
				save_data.CurWorldModel = wep.CurWorldModel
				save_data.ViewModelFOV = wep.ViewModelFOV
				save_data.HoldType = wep.HoldType
				save_data.IronSightsEnabled = wep:GetIronSights()
				save_data.IronSightsPos, save_data.IronSightsAng = wep:GetIronSightCoordination()
				save_data.ShowViewModel = wep.ShowViewModel
				save_data.ShowWorldModel = wep.ShowWorldModel

				local filename = "swep_construction_kit/"..text..".txt"

				local succ, val = pcall(glon.encode, save_data)
				if (!succ || !val) then LocalPlayer():ChatPrint("Failed to encode settings!") return end

				file.Write(filename, val)
				LocalPlayer():ChatPrint("Saved file \""..text.."\"!")
			end

		sabtn:Dock(LEFT)

	psave:DockMargin(0,5,0,5)
	psave:Dock(TOP)

	local pload = SimplePanel(psettings)

		local lftext = vgui.Create( "DTextEntry", pload )
			lftext:SetTall( 20 )
			lftext:SetMultiline(false)
			lftext:SetText( "save1" )

		lftext:DockMargin(5,0,0,0)
		lftext:Dock(FILL)

		local lfbtn = vgui.Create( "DButton", pload )
			lfbtn:SetTall( 16 )
			lfbtn:SetText( "Load file:" )
			lfbtn.DoClick = function()
			local text = string.Trim(lftext:GetValue())
			if (text == "") then return end

				local filename = "swep_construction_kit/"..text..".txt"

				if (!file.Exists(filename, "DATA")) then
					CreateSettingsNote( "No such file exists!" )
					return
				end

				local glondata = file.Read(filename)
				local succ, new_preset = pcall(glon.decode, glondata)
				if (!succ || !new_preset) then LocalPlayer():ChatPrint("Failed to load settings!") return end

				new_preset._savename = text

				wep:CleanMenu()
				wep:OpenMenu( new_preset )
				LocalPlayer():ChatPrint("Loaded file \""..text.."\"!")
			end
		lfbtn:Dock(LEFT)

	pload:Dock(TOP)

psettings:SetTall(selabel:GetTall() + lftext:GetTall() + satext:GetTall() + 30)
psettings:DockPadding(0,5,0,5)
psettings:Dock(TOP)

-- link to FP thread
local threadbtn = vgui.Create( "DButton", ptool )
	threadbtn:SetTall( 30 )
	threadbtn:SetText( "Open Tutorial (Facepunch thread)" )
	threadbtn.DoClick = function()
		gui.OpenURL(tutorialURL) -- Removed in Gmod 13
		--SetClipboardText(tutorialURL)
	end
threadbtn:DockMargin(0,15,0,5)
threadbtn:Dock(TOP)

-- base code
local basecbtn = vgui.Create( "DButton", ptool )
	basecbtn:SetTall( 30 )
	basecbtn:SetText( "Copy SWEP base code to clipboard" )
	basecbtn.DoClick = function()
		SetClipboardText(wep.basecode)
		LocalPlayer():ChatPrint("Base code copied to clipboard!")
	end
basecbtn:DockMargin(0,5,0,0)
basecbtn:Dock(TOP)