ACF_CustomMod/lua/acf/client/custommenu/helpmenu/help_page3.lua

193 lines
7.0 KiB
Lua

--------------------------------------
-- Set vars
--------------------------------------
local MainPanel = nil
--------------------------------------
-- Create Menu
--------------------------------------
local function CreateMenu()
--Set frame
MainPanel = vgui.Create("DFrame")
MainPanel:SetSize(830, 470)
--Set Center
MainPanel:SetPos((ScrW()/2)-(MainPanel:GetWide()/2),(ScrH()/2)-(MainPanel:GetTall()/2))
--Set size
MainPanel:SetMinWidth(820)
MainPanel:SetMinHeight(460)
--Set options
MainPanel:SetSizable(false)
MainPanel:SetDeleteOnClose( true )
MainPanel:SetTitle("ACF Help Menu by Bouletmarc")
MainPanel:SetVisible(false)
MainPanel:GetParent():SetWorldClicker(true) // Allow the use of the toolgun while in menu.
--Menu text
MainText = MainPanel:Add("DLabel")
MainText:SetText("ACF Help Menu Page3")
MainText:SetTextColor(Color(ACFC.R,ACFC.G,ACFC.B,255))
MainText:SetPos(360,15)
MainText:SetFont( "DefaultBold" )
MainText:SizeToContents()
--Add left panel
local LeftPanel = MainPanel:Add("DPanel")
LeftPanel:DockMargin(4, 4, 4, 4)
LeftPanel:Dock(LEFT)
LeftPanel:SetSize(400, 420)
LeftPanel:SetDrawBackground(false)
--Add right panel
local RightPanel = MainPanel:Add("DPanel")
RightPanel:DockMargin(4, 4, 4, 4)
RightPanel:Dock(RIGHT)
RightPanel:SetSize(400, 420)
RightPanel:SetDrawBackground(false)
--------------------------------------
-- Initialize Panels
--------------------------------------
--Set local vars
local TopLeftText = ""
local BottomLeftText = ""
local TopRightText = ""
local BottomRightText = ""
local TopLeftName = "CLIENT :"
local BottomLeftName = ""
local TopRightName = "SERVER :"
local BottomRightName = ""
--Set top left text
TopLeftText = TopLeftText .. "-Engines have rev limiter sound\n"
TopLeftText = TopLeftText .. "--disable it by wiring DisableCut to a Value(0-1)\n"
TopLeftText = TopLeftText .. "--Turbine and Electric engine will not have rev limiter\n\n"
TopLeftText = TopLeftText .. "-ANY engines not require fuel\n"
TopLeftText = TopLeftText .. "--linking a tank add 25% torque and weight\n\n"
TopLeftText = TopLeftText .. "-When you stop a engine, it'll stop progressively\n\n"
TopLeftText = TopLeftText .. "-Selecting again EngineMaker in the menu make it updating values\n\n"
TopLeftText = TopLeftText .. "-Have Custom E2 functions\n\n"
TopLeftText = TopLeftText .. "-Custom Mod have more sounds, more engines, and old models\n\n"
TopLeftText = TopLeftText .. "-The CVT from the custom mod are the first ACF CVT ever made\n\n"
TopLeftText = TopLeftText .. "-The Airplane Beta Gearbox are used to rotate and also push/pull\n"
TopLeftText = TopLeftText .. "--a prop like a propeller\n\n"
--Set bottom left text
BottomLeftText = BottomLeftText .. ""
--Set top right text
TopRightText = TopRightText .. "-sbox_max_acf_modding (0-1) allow engines modding (wire inputs)\n\n"
TopRightText = TopRightText .. "-sbox_max_acf_extra (Value) the number of acf extras allowed\n\n"
TopRightText = TopRightText .. "-sbox_max_acf_maker (Value) the number of engines maker allowed\n\n"
TopRightText = TopRightText .. "-Anyone can use CustomMod on the server\n"
TopRightText = TopRightText .. "--even if the client not have it\n\n"
--Set bottom right text
BottomRightText = BottomRightText .. ""
--------------------------------------
-- Left Panel Menu
--------------------------------------
--Set local vars
local TopLeftTitle, TopLeft = LeftPanel:Add("DLabel"), LeftPanel:Add("DLabel")
local BottomLeftTitle, BottomLeft = LeftPanel:Add("DLabel"), LeftPanel:Add("DLabel")
--Set top left title
TopLeftTitle:SetText(TopLeftName)
TopLeftTitle:SetTextColor(Color(210,210,210,255))
TopLeftTitle:SetPos(40,40)
TopLeftTitle:SetFont( "DefaultBold" )
TopLeftTitle:SizeToContents()
--Set top left text
TopLeft:SetText(TopLeftText)
TopLeft:SetTextColor(Color(ACFC.R,ACFC.G,ACFC.B,255))
TopLeft:SetPos(20,60)
TopLeft:SetFont( "DefaultBold" )
TopLeft:SizeToContents()
--Set bottom left title
BottomLeftTitle:SetText(BottomLeftName)
BottomLeftTitle:SetTextColor(Color(210,210,210,255))
BottomLeftTitle:SetPos(40,220)
BottomLeftTitle:SetFont( "DefaultBold" )
BottomLeftTitle:SizeToContents()
--Set bottom left text
BottomLeft:SetText(BottomLeftText)
BottomLeft:SetTextColor(Color(ACFC.R,ACFC.G,ACFC.B,255))
BottomLeft:SetPos(20,240)
BottomLeft:SetFont( "DefaultBold" )
BottomLeft:SizeToContents()
--------------------------------------
-- Right Panel Menu
--------------------------------------
--Set local vars
local TopRightTitle, TopRight = RightPanel:Add("DLabel"), RightPanel:Add("DLabel")
local BottomRightTitle, BottomRight = RightPanel:Add("DLabel"), RightPanel:Add("DLabel")
--Set top right title
TopRightTitle:SetText(TopRightName)
TopRightTitle:SetTextColor(Color(210,210,210,255))
TopRightTitle:SetPos(20,40)
TopRightTitle:SetFont( "DefaultBold" )
TopRightTitle:SizeToContents()
--Set top right text
TopRight:SetText(TopRightText)
TopRight:SetTextColor(Color(ACFC.R,ACFC.G,ACFC.B,255))
TopRight:SetPos(0,60)
TopRight:SetFont( "DefaultBold" )
TopRight:SizeToContents()
--Set bottom right title
BottomRightTitle:SetText(BottomRightName)
BottomRightTitle:SetTextColor(Color(210,210,210,255))
BottomRightTitle:SetPos(20,200)
BottomRightTitle:SetFont( "DefaultBold" )
BottomRightTitle:SizeToContents()
--Set bottom right text
BottomRight:SetText(BottomRightText)
BottomRight:SetTextColor(Color(ACFC.R,ACFC.G,ACFC.B,255))
BottomRight:SetPos(0,220)
BottomRight:SetFont( "DefaultBold" )
BottomRight:SizeToContents()
--------------------------------------
-- End Panel Menu
--------------------------------------
--Set close button
local Close = LeftPanel:Add("DButton")
Close:SetText("Close")
Close:SetTextColor(Color(ACFC.R,ACFC.G,ACFC.B,255))
Close:SetPos(30,360)
Close:SetWide(80)
Close:SetTall(40)
Close.DoClick = function()
MainPanel:Close()
end
--Set back page button
local HelpBack = LeftPanel:Add("DButton")
HelpBack:SetText("Help Back Page")
HelpBack:SetTextColor(Color(ACFC.R,ACFC.G,ACFC.B,255))
HelpBack:SetPos(170,360)
HelpBack:SetWide(100)
HelpBack:SetTall(40)
HelpBack.DoClick = function()
RunConsoleCommand("acf_help2_open")
MainPanel:Close()
end
--Set next page button
/*local HelpNext = LeftPanel:Add("DButton")
HelpNext:SetText("Help Next Page")
HelpNext:SetTextColor(Color(ACFC.R,ACFC.G,ACFC.B,255))
HelpNext:SetPos(280,360)
HelpNext:SetWide(100)
HelpNext:SetTall(40)
HelpNext.DoClick = function()
RunConsoleCommand("acf_help3_open")
MainPanel:Close()
end*/
MainPanel:InvalidateLayout(true)
end
--------------------------------------
-- Open Menu
--------------------------------------
local function OpenMenu(pl, cmd, args)
if (!IsValid(MainPanel)) then
CreateMenu()
end
MainPanel:SetVisible(true)
MainPanel:MakePopup()
MainPanel:InvalidateLayout(true)
WireLib.Timedcall(function(MainPanel)
if (!IsValid(MainPanel)) then return end
MainPanel:InvalidateLayout(true)
end, MainPanel)
end
concommand.Add("acf_help3_open", OpenMenu)