Advertisement
Guest User

Untitled

a guest
Jan 21st, 2018
97
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Lua 11.79 KB | None | 0 0
  1. local PANEL = {
  2.     Init = function(self)
  3.         self:SetSize(1000,720)
  4.         self:Center()
  5.         self:SetVisible(true)
  6.         local x,y = self:GetSize()
  7.        
  8.         surface.SetFont("DermaLarge")
  9.         local titleX,titleY = surface.GetTextSize("IsRP")
  10.        
  11.         local title = vgui.Create("DLabel", self)
  12.         title:SetText("IsRP")
  13.         title:SetSize(titleX,titleY)
  14.         title:SetPos(6,6)
  15.         title:SetFont("DermaLarge")
  16.         title:SetTextColor(Color(255,255,255,255))
  17.         title:SetExpensiveShadow(2,Color(75,75,75,200))
  18.         local closebutton = vgui.Create("DButton",self)
  19.         closebutton:SetSize(75,25)
  20.         closebutton:SetText(" ")
  21.         closebutton:SetPos(x-81,6)
  22.         closebutton.Paint = function (self,w,h)
  23.             surface.SetDrawColor(252,86,82,255)
  24.             surface.DrawRect(0,0,w,h)
  25.             surface.SetDrawColor(223,68,65,255)
  26.             surface.DrawOutlinedRect(0,0,w,h)
  27.         end
  28.         closebutton.DoClick = function()
  29.             CSF4Menu:SetVisible(false)
  30.             gui.EnableScreenClicker(false)
  31.         end
  32.        
  33.        
  34.        
  35.         local reloadbutton = vgui.Create("DButton",self)
  36.         reloadbutton:SetSize(75,25)
  37.         reloadbutton:SetText(" ")
  38.         reloadbutton:SetPos(x-162,6)
  39.         reloadbutton.Paint = function (self,w,h)
  40.             surface.SetDrawColor(253,189,62,255)
  41.             surface.DrawRect(0,0,w,h)
  42.             surface.SetDrawColor(224,161,50,255)
  43.             surface.DrawOutlinedRect(0,0,w,h)
  44.         end
  45.         reloadbutton.DoClick = function()
  46.             CSF4Menu:Remove();
  47.             CSF4Menu = vgui.Create("cs_f4_menu")
  48.         end
  49.        
  50.         local leftpan = vgui.Create("DPanel",self)
  51.         leftpan:SetPos(6,37)
  52.         leftpan:SetSize(x-12,y-43)
  53.         leftpan.Paint = function (self,w,h)
  54.             surface.SetDrawColor(75,75,75,50)
  55.             surface.DrawRect(0,0,w,h)
  56.         end
  57.        
  58.         local page = vgui.Create("CSDColumnSheet",leftpan)
  59.         page:Dock(FILL)
  60.        
  61.         local mainpage = vgui.Create("DPanel", page)
  62.         mainpage:Dock(FILL)
  63.         mainpage.Paint = function (self,w,h)
  64.             surface.SetDrawColor(75,75,75,50)
  65.             surface.DrawRect(0,0,w,h)
  66.         end
  67.         page:AddSheet("Main", mainpage, "icon16/user.png")
  68.        
  69.         --Jobs 
  70.        
  71.         local jobpage = vgui.Create("DScrollPanel", page)
  72.         jobpage:Dock(FILL)
  73.         jobpage.Paint = function (self,w,h)
  74.             surface.SetDrawColor(75,75,75,50)
  75.             surface.DrawRect(0,0,w,h)
  76.         end
  77.         page:AddSheet("Job", jobpage, "icon16/application_xp_terminal.png")
  78.            
  79.         for k,v in pairs(RPExtraTeams) do
  80.             local jobsspace = vgui.Create("DPanel", jobpage)
  81.             jobsspace:Dock(TOP)
  82.             jobsspace:SetSize(0,200)
  83.             jobsspace:DockMargin(5,5,5,5)
  84.             jobsspace.Paint = function (self,w,h)
  85.                 surface.SetDrawColor(75,75,75,50)
  86.                 surface.DrawRect(0,0,w,h)
  87.             end
  88.            
  89.             local names = vgui.Create("DLabel",jobsspace)
  90.             names:SetText(v.name)
  91.             names:Dock(TOP)
  92.             names:DockMargin(5,5,0,0)
  93.             names:SetSize(0,20)
  94.             names:SetFont("Trebuchet24")
  95.             names:SetTextColor(Color(255,255,255))
  96.             names:SetExpensiveShadow(2,Color(75,75,75,200))
  97.            
  98.             if util.IsValidModel(v.model[1]) then
  99.                 local MAvatar = vgui.Create("SpawnIcon",jobsspace)
  100.                 MAvatar:Dock(LEFT)
  101.                 MAvatar:SetSize(150,50)
  102.                 MAvatar:DockMargin(5,5,5,5)
  103.                 MAvatar:SetModel(v.model[1])
  104.             else
  105.                 local MAvatar = vgui.Create("SpawnIcon",jobsspace)
  106.                 MAvatar:Dock(LEFT)
  107.                 MAvatar:SetSize(150,50)
  108.                 MAvatar:DockMargin(5,5,5,5)
  109.                 MAvatar:SetModel(v.model)
  110.             end
  111.            
  112.             local InfPanel = vgui.Create("DPanel",jobsspace)
  113.             InfPanel:Dock(FILL)
  114.             InfPanel:SetSize(0,150)
  115.             InfPanel:DockMargin(5,5,5,5)
  116.             InfPanel.Paint = function (self,w,h)
  117.                 surface.SetDrawColor(75,75,75,50)
  118.                 surface.DrawRect(0,0,w,h)
  119.             end
  120.            
  121.            
  122.             surface.SetFont("Trebuchet18")
  123.             local desX,desY = surface.GetTextSize(v.description)
  124.            
  125.             local description = vgui.Create("DLabel",InfPanel)
  126.             description:SetText(v.description)
  127.             description:Dock(TOP)
  128.             description:DockMargin(5,5,5,5)
  129.             description:SetSize(desX,desY)
  130.             description:SetFont("Trebuchet18")
  131.             description:SetTextColor(Color(255,255,255))
  132.             description:SetExpensiveShadow(2,Color(75,75,75,200))
  133.            
  134.             local chbutton = vgui.Create("DButton",jobsspace)
  135.             chbutton:SetText("Become Job")
  136.             chbutton:SetSize(75,25)
  137.             chbutton:Dock(BOTTOM )
  138.             chbutton:DockMargin(5,5,5,5)
  139.             chbutton.Paint = function (self,w,h)
  140.                 surface.SetDrawColor(252,86,82,255)
  141.                 surface.DrawRect(0,0,w,h)
  142.                 surface.SetDrawColor(223,68,65,255)
  143.                 surface.DrawOutlinedRect(0,0,w,h)
  144.             end
  145.             chbutton.DoClick = function()
  146.                 RunConsoleCommand( "say", "/" .. v.command )
  147.                 gui.EnableScreenClicker( false )
  148.                 CSF4Menu:Remove()
  149.                 CSF4Menu = vgui.Create( "cs_f4_menu" )
  150.                 CSF4Menu:SetVisible( false )
  151.             end
  152.         end
  153.     --OtherItems   
  154.         local otherpagearea = vgui.Create("DScrollPanel", page)
  155.         otherpagearea:Dock(FILL)
  156.         otherpagearea.Paint = function (self,w,h)
  157.             surface.SetDrawColor(75,75,75,50)
  158.             surface.DrawRect(0,0,w,h)
  159.         end
  160.         page:AddSheet("Other", otherpagearea, "icon16/application_xp_terminal.png")
  161.         for k,v in pairs(DarkRPEntities) do
  162.            
  163.            
  164.            
  165.             local shspace = vgui.Create("DPanel", otherpagearea)
  166.             shspace:Dock(TOP)
  167.             shspace:SetSize(0,200)
  168.             shspace:DockMargin(5,5,5,5)
  169.             shspace.Paint = function (self,w,h)
  170.                 surface.SetDrawColor(75,75,75,50)
  171.                 surface.DrawRect(0,0,w,h)
  172.             end
  173.            
  174.             surface.SetFont("Trebuchet24")
  175.             local onameX, onameY = surface.GetTextSize(v.name)
  176.            
  177.             local othernames = vgui.Create("DLabel",shspace)
  178.             othernames:SetText(v.name)
  179.             othernames:Dock(TOP)
  180.             othernames:DockMargin(5,5,0,0)
  181.             othernames:SetSize(onameX,onameY)
  182.             othernames:SetFont("Trebuchet24")
  183.             othernames:SetTextColor(Color(255,255,255))
  184.             othernames:SetExpensiveShadow(2,Color(75,75,75,200))
  185.            
  186.             local OAvatar = vgui.Create("SpawnIcon",shspace)
  187.             OAvatar:Dock(LEFT)
  188.             OAvatar:SetSize(150,50)
  189.             OAvatar:DockMargin(5,5,5,5)
  190.             OAvatar:SetModel(v.model)
  191.                
  192.             surface.SetFont("Trebuchet24")
  193.             local opriceX, opriceY = surface.GetTextSize(v.name)
  194.            
  195.             local otherprice = vgui.Create("DLabel",shspace)
  196.             otherprice:SetText("Price: " .. DarkRP.formatMoney(v.price))
  197.             otherprice:Dock(TOP)
  198.             otherprice:DockMargin(5,5,0,0)
  199.             otherprice:SetSize(opriceX,opriceY)
  200.             otherprice:SetFont("Trebuchet24")
  201.             otherprice:SetTextColor(Color(255,255,255))
  202.             otherprice:SetExpensiveShadow(2,Color(75,75,75,200))
  203.            
  204.             local opbutton = vgui.Create("DButton",shspace)
  205.             opbutton:SetText("Become Job")
  206.             opbutton:SetSize(75,25)
  207.             opbutton:Dock(BOTTOM )
  208.             opbutton:DockMargin(5,5,5,5)
  209.             opbutton.Paint = function (self,w,h)
  210.                 surface.SetDrawColor(252,86,82,255)
  211.                 surface.DrawRect(0,0,w,h)
  212.                 surface.SetDrawColor(223,68,65,255)
  213.                 surface.DrawOutlinedRect(0,0,w,h)
  214.             end
  215.             opbutton.DoClick = function()
  216.                 RunConsoleCommand("say","/" .. v.cmd)
  217.             end
  218.         end
  219.        
  220.     --Item/Shipment
  221.         local shipmentarea = vgui.Create("DScrollPanel", page)
  222.         shipmentarea:Dock(FILL)
  223.         shipmentarea.Paint = function (self,w,h)
  224.             surface.SetDrawColor(75,75,75,50)
  225.             surface.DrawRect(0,0,w,h)
  226.         end
  227.         page:AddSheet("Shipments", shipmentarea, "icon16/application_xp_terminal.png")
  228.         local ply = LocalPlayer()  
  229.         if ply:Team() == TEAM_GUN then
  230.             local shspace = vgui.Create("DPanel", shipmentarea)
  231.                 shspace:Dock(TOP)
  232.                 shspace:SetSize(0,200)
  233.                 shspace:DockMargin(5,5,5,5)
  234.                 shspace.Paint = function (self,w,h)
  235.                     surface.SetDrawColor(75,75,75,50)
  236.                     surface.DrawRect(0,0,w,h)
  237.             end
  238.            
  239.             local shprice = vgui.Create("DLabel",shspace)
  240.             shprice:SetText("Shipments")
  241.             shprice:Dock(FILL)
  242.             shprice:DockMargin(5,0,0,0)
  243.             shprice:SetFont("DermaLarge")
  244.             shprice:SetTextColor(Color(255,255,255))
  245.             shprice:SetExpensiveShadow(2,Color(75,75,75,200))
  246.            
  247.             for k,v in pairs(CustomShipments) do
  248.                
  249.                 if(v.noship == false) then
  250.                     local shipspace = vgui.Create("DPanel", shipmentarea)
  251.                     shipspace:Dock(TOP)
  252.                     shipspace:SetSize(0,160)
  253.                     shipspace:DockMargin(5,5,5,5)
  254.                     shipspace.Paint = function (self,w,h)
  255.                         surface.SetDrawColor(75,75,75,120)
  256.                         surface.DrawRect(0,0,w,h)
  257.                     end
  258.                    
  259.                     surface.SetFont("Trebuchet24")
  260.                     local shnameX, shnameY = surface.GetTextSize(v.name)
  261.                    
  262.                     local shipnames = vgui.Create("DLabel",shipspace)
  263.                     shipnames:SetText(v.name)
  264.                     shipnames:Dock(TOP)
  265.                     shipnames:DockMargin(5,5,0,0)
  266.                     shipnames:SetSize(shnameX,shnameY)
  267.                     shipnames:SetFont("Trebuchet24")
  268.                     shipnames:SetTextColor(Color(255,255,255))
  269.                     shipnames:SetExpensiveShadow(2,Color(75,75,75,200))
  270.                    
  271.                     local ShAvatar = vgui.Create("SpawnIcon",shipspace)
  272.                     ShAvatar:Dock(LEFT)
  273.                     ShAvatar:SetSize(150,150)
  274.                     ShAvatar:DockMargin(5,5,5,5)
  275.                     ShAvatar:SetModel(v.model)
  276.                        
  277.                     surface.SetFont("Trebuchet24")
  278.                     local shmaxriceX, shmaxriceY = surface.GetTextSize("Amount: ".. v.amount)
  279.                    
  280.                     local Shippprice = vgui.Create("DLabel",shipspace)
  281.                     Shippprice:SetText("Amount: " .. DarkRP.formatMoney(v.amount))
  282.                     Shippprice:Dock(TOP)
  283.                     Shippprice:DockMargin(5,5,0,0)
  284.                     Shippprice:SetSize(shmaxriceX,shmaxriceY)
  285.                     Shippprice:SetFont("Trebuchet24")
  286.                     Shippprice:SetTextColor(Color(255,255,255))
  287.                     Shippprice:SetExpensiveShadow(2,Color(75,75,75,200))
  288.                    
  289.                     local shbutton = vgui.Create("DButton",shipspace)
  290.                     shbutton:SetText("Become Job")
  291.                     shbutton:SetSize(75,25)
  292.                     shbutton:Dock(BOTTOM )
  293.                     shbutton:DockMargin(5,5,5,5)
  294.                     shbutton.Paint = function (self,w,h)
  295.                         surface.SetDrawColor(252,86,82,255)
  296.                         surface.DrawRect(0,0,w,h)
  297.                         surface.SetDrawColor(223,68,65,255)
  298.                         surface.DrawOutlinedRect(0,0,w,h)
  299.                     end
  300.                     shbutton.DoClick = function()
  301.                         RunConsoleCommand("say","/buyshipment " .. v.name)
  302.                     end
  303.                 end
  304.             end
  305.         end
  306.        
  307.         --AmmoItems
  308.         local otherpagearea = vgui.Create("DScrollPanel", page)
  309.         otherpagearea:Dock(FILL)
  310.         otherpagearea.Paint = function (self,w,h)
  311.             surface.SetDrawColor(75,75,75,50)
  312.             surface.DrawRect(0,0,w,h)
  313.         end
  314.         page:AddSheet("Ammo", otherpagearea, "icon16/application_xp_terminal.png")
  315.         for k,v in pairs(GAMEMODE.AmmoTypes) do
  316.            
  317.            
  318.            
  319.             local ammospace = vgui.Create("DPanel", otherpagearea)
  320.             ammospace:Dock(TOP)
  321.             ammospace:SetSize(0,200)
  322.             ammospace:DockMargin(5,5,5,5)
  323.             ammospace.Paint = function (self,w,h)
  324.                 surface.SetDrawColor(75,75,75,50)
  325.                 surface.DrawRect(0,0,w,h)
  326.             end
  327.            
  328.             surface.SetFont("Trebuchet24")
  329.             local onameX, onameY = surface.GetTextSize(v.name)
  330.            
  331.             local ammonames = vgui.Create("DLabel",ammospace)
  332.             ammonames:SetText(v.name)
  333.             ammonames:Dock(TOP)
  334.             ammonames:DockMargin(5,5,0,0)
  335.             ammonames:SetSize(onameX,onameY)
  336.             ammonames:SetFont("Trebuchet24")
  337.             ammonames:SetTextColor(Color(255,255,255))
  338.             ammonames:SetExpensiveShadow(2,Color(75,75,75,200))
  339.            
  340.             local AOAvatar = vgui.Create("SpawnIcon",ammospace)
  341.             AOAvatar:Dock(LEFT)
  342.             AOAvatar:SetSize(150,50)
  343.             AOAvatar:DockMargin(5,5,5,5)
  344.             AOAvatar:SetModel(v.model)
  345.                
  346.             surface.SetFont("Trebuchet24")
  347.             local opriceX, opriceY = surface.GetTextSize(v.name)
  348.            
  349.             local ammoprice = vgui.Create("DLabel",ammospace)
  350.             ammoprice:SetText("Price: " .. DarkRP.formatMoney(v.price))
  351.             ammoprice:Dock(TOP)
  352.             ammoprice:DockMargin(5,5,0,0)
  353.             ammoprice:SetSize(opriceX,opriceY)
  354.             ammoprice:SetFont("Trebuchet24")
  355.             ammoprice:SetTextColor(Color(255,255,255))
  356.             ammoprice:SetExpensiveShadow(2,Color(75,75,75,200))
  357.            
  358.             local ammobutton = vgui.Create("DButton",ammospace)
  359.             ammobutton:SetText("Become Job")
  360.             ammobutton:SetSize(75,25)
  361.             ammobutton:Dock(BOTTOM )
  362.             ammobutton:DockMargin(5,5,5,5)
  363.             ammobutton.Paint = function (self,w,h)
  364.                 surface.SetDrawColor(252,86,82,255)
  365.                 surface.DrawRect(0,0,w,h)
  366.                 surface.SetDrawColor(223,68,65,255)
  367.                 surface.DrawOutlinedRect(0,0,w,h)
  368.             end
  369.             ammobutton.DoClick = function()
  370.                 RunConsoleCommand("say","/buyammo " .. k)
  371.             end
  372.         end
  373.     end,
  374.    
  375.     Paint = function(self, w, h)
  376.         surface.SetDrawColor(255,255,255,150)
  377.         surface.DrawRect(0,0,w,h)
  378.         surface.DrawOutlinedRect(2,2,w-4,h-4)
  379.     end
  380. }
  381.  
  382. vgui.Register("cs_f4_menu", PANEL)
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement