Inital commit

1 files changed, 545 insertions, 0 deletions

diff --git a/gamemode/cl_spawnmenu.lua b/gamemode/cl_spawnmenu.lua
new file mode 100644
index 0000000..1515e53
--- /dev/null
+++ b/gamemode/cl_spawnmenu.lua
@@ -0,0 +1,545 @@
+
+GM.Elements = {}
+GM.Cart = {}
+GM.CartItems = {}
+GM.OptionPanels = {}
+
+GM.Categories = { 
+{ Name = "Weapons", Icon = "icon16/gun.png", Categories = { ITEM_WPN_COMMON, ITEM_WPN_SPECIAL } },
+{ Name = "Ammunition", Icon = "icon16/package.png", Categories = { ITEM_AMMO } },
+{ Name = "Supplies", Icon = "icon16/pill.png", Categories = { ITEM_SUPPLY, ITEM_SPECIAL } },
+{ Name = "Miscellaneous", Icon = "icon16/bin.png", Categories = { ITEM_MISC, ITEM_BUYABLE } } 
+}
+
+function GM:CreateElement( name )
+
+	local element = vgui.Create( name )
+	
+	table.insert( GAMEMODE.Elements, element )
+	
+	return element
+
+end
+
+function GM:ClearElements()
+
+	for k,v in pairs( GAMEMODE.Elements ) do
+	
+		v:Remove()
+		
+	end
+	
+	GAMEMODE.Elements = {}
+
+end
+
+function GM:AddToCart( tbl, amt )
+
+	for i=1,amt do
+	
+		table.insert( GAMEMODE.Cart, tbl.ID )
+		
+		local btn = GAMEMODE:CreateElement( "SideButton" )
+		btn:SetPos( 765, 5 + 35 * ( table.Count( GAMEMODE.Cart ) - 1 ) )
+		btn:SetSize( 250, 30 )
+		btn:SetImage( "icon16/cross.png" )
+		btn:SetText( tbl.Name )
+		btn:SetFunction( function() RunConsoleCommand( "inv_refund", tbl.ID ) btn:Remove() GAMEMODE:ClearCartItem( tbl.ID ) end )
+		
+		table.insert( GAMEMODE.CartItems, btn )
+	
+	end
+	
+	GAMEMODE:CheckCartButton()
+
+end
+
+function GM:RefreshCart()
+
+	local cart = GAMEMODE.CartItems
+	
+	GAMEMODE.CartItems = {}
+	
+	for k,v in pairs( cart ) do
+	
+		if IsValid( v ) then
+		
+			table.insert( GAMEMODE.CartItems, v )
+			
+			v:SetPos( 765, 5 + 35 * ( table.Count( GAMEMODE.CartItems ) - 1 ) )
+		
+		end
+	
+	end
+
+end
+
+function GM:CheckCartButton()
+
+	if GAMEMODE.CartButton then
+	
+		GAMEMODE.CartButton:Remove()
+	
+	end
+	
+	if table.Count( GAMEMODE.Cart ) < 1 then return end
+
+	local btn = GAMEMODE:CreateElement( "SideButton" )
+	btn:SetPos( 765, 5 + 35 * ( table.Count( GAMEMODE.Cart ) ) )
+	btn:SetSize( 250, 30 )
+	btn:SetImage( "icon16/cart.png" )
+	btn:SetText( "Airdrop  Items" )
+	btn:SetFunction( function() RunConsoleCommand( "ordershipment" ) GAMEMODE:ClearCart() btn:Remove() end )
+	
+	GAMEMODE.CartButton = btn
+
+end
+
+function GM:ClearCartItem( id )
+
+	for k,v in pairs( GAMEMODE.Cart ) do
+	
+		if v == id then
+		
+			table.remove( GAMEMODE.Cart, k )
+			
+			GAMEMODE:RefreshCart()
+			GAMEMODE:CheckCartButton()
+			
+			return
+		
+		end
+	
+	end
+
+end
+
+function GM:ClearCart()
+
+	GAMEMODE.Cart = {}
+
+	for k,v in pairs( GAMEMODE.CartItems ) do
+	
+		if IsValid( v ) then
+		
+			v:Remove()
+		
+		end
+		
+	end
+
+end
+
+function GM:ElementsVisible()
+
+	if GAMEMODE.Elements[1] then return true end
+	
+	return false
+
+end
+
+function GM:SetItemToPreview( id, style, scale, count )
+
+	//print( debug.traceback() )
+
+	PreviewTable = item.GetByID( id ) //table.Copy( item.GetByID( id ) )
+	
+	if scale and style then
+	
+		PreviewStyle = style
+		PreviewPriceScale = scale
+		
+	end
+
+	GAMEMODE:RebuildOptions( PreviewTable or {}, style, count or 1 )
+	
+end
+
+function GM:GetItemToPreview()
+
+	return PreviewTable, PreviewStyle, PreviewPriceScale
+
+end
+
+function GM:RebuildOptions( tbl, style, count )
+
+	for k,v in pairs( GAMEMODE.OptionPanels ) do
+	
+		v:Remove()
+	
+	end
+	
+	local ypos = 400
+	
+	if style == "Buy" then
+	
+		for k,v in pairs{ 1, 3, 5, 10 } do
+	
+			if v == 1 or not tbl.Weapon then
+	
+				local btn = GAMEMODE:CreateElement( "SideButton" )
+				btn:SetPos( 510, ypos )
+				btn:SetSize( 250, 30 )
+				btn:SetImage( "icon16/money.png" )
+				
+				if v == 1 then
+					btn:SetText( "Buy" )
+				else
+					btn:SetText( "Buy  " .. v )
+				end
+				
+				btn:SetFunction( function() if LocalPlayer():GetNWInt( "Cash", 0 ) >= tbl.Price * v then RunConsoleCommand( "inv_buy", tbl.ID, v ) GAMEMODE:AddToCart( tbl, v ) end end )
+				
+				table.insert( GAMEMODE.OptionPanels, btn )
+				
+				ypos = ypos + 5 + 30
+				
+			end
+			
+		end
+	
+	else
+	
+		for k,v in pairs{ 1, 3, 5, 10 } do
+		
+			if not tbl.Weapon and count >= v then
+		
+				local btn = GAMEMODE:CreateElement( "SideButton" )
+				btn:SetPos( 510, ypos )
+				btn:SetSize( 250, 30 )
+				btn:SetImage( "icon16/arrow_down.png" )
+					
+				if v == 1 then
+					btn:SetText( "Drop" )
+				else
+					btn:SetText( "Drop  " .. v )
+				end
+					
+				btn:SetFunction( function() RunConsoleCommand( "inv_drop", tbl.ID, v ) end )
+					
+				table.insert( GAMEMODE.OptionPanels, btn )
+					
+				ypos = ypos + 5 + 30
+			
+			end
+			
+		end
+		
+		if count > 1 then
+		
+			local btn = GAMEMODE:CreateElement( "SideButton" )
+			btn:SetPos( 510, ypos )
+			btn:SetSize( 250, 30 )
+			btn:SetImage( "icon16/box.png" )
+			btn:SetText( "Drop  All"	)
+			btn:SetFunction( function() RunConsoleCommand( "inv_drop", tbl.ID, count ) end )
+			
+			table.insert( GAMEMODE.OptionPanels, btn )
+			
+			ypos = ypos + 5 + 30
+			
+		end
+		
+		for k,v in pairs( tbl.Functions ) do
+		
+			local btn = GAMEMODE:CreateElement( "SideButton" )
+			btn:SetPos( 510, ypos )
+			btn:SetSize( 250, 30 )
+			btn:SetImage( v( 0, 0, 0, true ) )
+			btn:SetText( v( 0, 0, true ) )
+			btn:SetFunction( function() RunConsoleCommand( "inv_action", tbl.ID, k ) end )
+			
+			table.insert( GAMEMODE.OptionPanels, btn )
+				
+			ypos = ypos + 5 + 30
+		
+		end
+	
+	end
+
+end
+
+function GM:OnSpawnMenuClose()
+	
+	if not LocalPlayer():Alive() or LocalPlayer():Team() != TEAM_ARMY then return end
+	
+	if GAMEMODE:ElementsVisible() then
+	
+		gui.EnableScreenClicker( false )
+	
+		GAMEMODE:ClearElements()
+	
+	else
+	
+		gui.EnableScreenClicker( true )
+	
+		local ypos = 5
+	
+		for k,v in pairs( GAMEMODE.Categories ) do
+			
+			local toggle = GAMEMODE:CreateElement( "CategoryButton" )
+			toggle:SetPos( 510, ypos )
+			toggle:SetText( v.Name )
+			toggle:SetImage( v.Icon )
+			toggle:SetSize( 250, 30 )
+			toggle:SetSelectedState( true, true )
+			toggle.OnToggle = function( pnl, bool )
+			
+				if GAMEMODE.ItemSheet then
+					
+					GAMEMODE.ItemSheet:ToggleVisible( v.Categories, bool )
+					GAMEMODE.ItemSheet:RefreshItems( LocalInventory )
+				
+				end
+			
+			end
+				
+			ypos = ypos + 5 + 30
+			
+		end
+		
+		local inv = GAMEMODE:CreateElement( "ItemSheet" )
+		inv:SetSize( 500, ScrH() - 125 )
+		inv:SetPos( 5, 5 )
+		inv:SetSpacing( 0 )
+		inv:SetPadding( 0 )
+		inv:EnableHorizontal( true )
+		inv:SetStashable( false, "Stash", true )
+		inv:RefreshItems( LocalInventory )
+		//inv:EnableVerticalScrollbar()
+		
+		GAMEMODE.ItemSheet = inv
+		
+		local disp = GAMEMODE:CreateElement( "ItemDisplay" )
+		disp:SetSize( 250, 250 )
+		disp:SetPos( 510, 145 )
+		
+		local scrollup = GAMEMODE:CreateElement( "Scroller" )
+		scrollup:SetSize( 30, 30 )
+		scrollup:SetPos( 475, ScrH() - 115 )
+		scrollup:SetTarget( inv )
+		scrollup:SetImage( "icon16/arrow_up.png" )
+		
+		local scrolldown = GAMEMODE:CreateElement( "Scroller" )
+		scrolldown:SetSize( 30, 30 )
+		scrolldown:SetPos( 440, ScrH() - 115 )
+		scrolldown:SetTarget( inv )
+		scrolldown:SetScrollUp( false )
+		scrolldown:SetImage( "icon16/arrow_down.png" )
+	
+	end
+	
+	--[[if not InventoryScreen:IsVisible() then
+	
+		InventoryScreen:SetSize( ScrW() - 10, ScrH() * 0.5 - 10 )
+		InventoryScreen:SetStashable( false, "Stash", true )
+		InventoryScreen:RefreshItems( LocalInventory )
+		InventoryScreen:SetVisible( true )
+		InfoScreen:SetVisible( true )
+		PlayerScreen:SetVisible( true )
+		
+		gui.EnableScreenClicker( true )
+	
+	else
+	
+		InventoryScreen:SetVisible( false )
+		InfoScreen:SetVisible( false )
+		PlayerScreen:SetVisible( false )
+
+		gui.EnableScreenClicker( false )
+	
+	end]]
+
+end
+
+function StoreMenu( msg )
+
+	local open = msg:ReadBool()
+	local scale = msg:ReadFloat()
+	
+	if GAMEMODE:ElementsVisible() then
+
+		GAMEMODE:ClearElements()
+	
+	end	
+	
+	if open then
+	
+		gui.EnableScreenClicker( true )
+	
+		local ypos = 5
+	
+		for k,v in pairs( GAMEMODE.Categories ) do
+			
+			local toggle = GAMEMODE:CreateElement( "CategoryButton" )
+			toggle:SetPos( 510, ypos )
+			toggle:SetText( v.Name )
+			toggle:SetImage( v.Icon )
+			toggle:SetSize( 250, 30 )
+			toggle:SetSelectedState( true, true )
+			toggle.OnToggle = function( pnl, bool )
+			
+				if GAMEMODE.ItemSheet then
+					
+					GAMEMODE.ItemSheet:ToggleVisible( v.Categories, bool )
+					GAMEMODE.ItemSheet:RefreshItems( LocalStash )
+				
+				end
+			
+			end
+				
+			ypos = ypos + 5 + 30
+			
+		end
+		
+		local inv = GAMEMODE:CreateElement( "ItemSheet" )
+		inv:SetSize( 500, ScrH() - 125 )
+		inv:SetPos( 5, 5 )
+		inv:SetSpacing( 0 )
+		inv:SetPadding( 0 )
+		inv:EnableHorizontal( true )
+		inv:SetStashable( open, "Buy" )
+		inv:RefreshItems( LocalStash )
+		//inv:EnableVerticalScrollbar()
+		
+		GAMEMODE.ItemSheet = inv
+		
+		local disp = GAMEMODE:CreateElement( "ItemDisplay" )
+		disp:SetSize( 250, 250 )
+		disp:SetPos( 510, 145 )
+		
+		local scrollup = GAMEMODE:CreateElement( "Scroller" )
+		scrollup:SetSize( 30, 30 )
+		scrollup:SetPos( 475, ScrH() - 115 )
+		scrollup:SetTarget( inv )
+		scrollup:SetImage( "icon16/arrow_up.png" )
+		
+		local scrolldown = GAMEMODE:CreateElement( "Scroller" )
+		scrolldown:SetSize( 30, 30 )
+		scrolldown:SetPos( 440, ScrH() - 115 )
+		scrolldown:SetTarget( inv )
+		scrolldown:SetScrollUp( false )
+		scrolldown:SetImage( "icon16/arrow_down.png" )
+		
+		surface.PlaySound( table.Random( GAMEMODE.RadioBeep ) )
+		
+		local cart = GAMEMODE.Cart
+		GAMEMODE.Cart = {}
+		
+		for k,v in pairs( cart ) do
+		
+			local tbl = item.GetByID( v )
+		
+			GAMEMODE:AddToCart( tbl, 1 )
+			
+		end
+	
+	else
+	
+		gui.EnableScreenClicker( false )
+	
+	end
+	
+	--[[ShopMenu = open
+	
+	StashScreen:SetPos( 5, ScrH() * 0.5 + 5 )
+	StashScreen:SetStashable( open, "Buy" )
+	StashScreen:SetVisible( open )
+	
+	SaleScreen:SetVisible( open )
+	InfoScreen:SetVisible( open )
+	PlayerScreen:SetVisible( open )
+	
+	gui.EnableScreenClicker( open )
+	
+	if open then
+	
+		StashScreen:RefreshItems( LocalStash )
+		
+		surface.PlaySound( table.Random( GAMEMODE.RadioBeep ) )
+		
+	end]]
+
+end
+usermessage.Hook( "StoreMenu", StoreMenu )
+
+function GM:InitVGUI() //obsolete
+	
+	InventoryScreen = vgui.Create( "ItemSheet" )
+	InventoryScreen:SetSize( ScrW() * 0.5 - 10, ScrH() * 0.5 - 10 )
+	InventoryScreen:SetPos( 5, ScrH() * 0.5 + 5 )
+	InventoryScreen:SetSpacing( 2 )
+	InventoryScreen:SetPadding( 3 )
+	InventoryScreen:EnableHorizontal( true )
+	InventoryScreen:SetVisible( false )
+	
+	InfoScreen = vgui.Create( "ItemDisplay" )
+	InfoScreen:SetSize( ScrW() * 0.3 - 10, ScrH() * 0.5 - 5 )
+	InfoScreen:SetPos( 5, 5 )
+	InfoScreen:SetVisible( false )
+	
+	PlayerScreen = vgui.Create( "PlayerDisplay" )
+	PlayerScreen:SetSize( ScrW() * 0.3 - 10, ScrH() * 0.5 - 5 )
+	PlayerScreen:SetPos( ScrW() * 0.7 + 5, 5 )
+	PlayerScreen:SetVisible( false )
+	PlayerScreen:SetupCam( Vector(0,96,36), Vector(0,0,36) )
+	
+	StashScreen = vgui.Create( "ItemSheet" )
+	StashScreen:SetSize( ScrW() * 0.5 - 10, ScrH() * 0.5 - 10 )
+	StashScreen:SetPos( ScrW() * 0.5 + 5, ScrH() * 0.5 + 5 )
+	StashScreen:SetSpacing( 2 )
+	StashScreen:SetPadding( 3 )
+	StashScreen:EnableHorizontal( true )
+	StashScreen:SetVisible( false )
+	StashScreen:SetStashable( true, "Take" )
+	StashScreen.GetCash = function() return Inv_GetStashCash() end
+	
+	SaleScreen = vgui.Create( "ShopMenu" )
+	SaleScreen:SetSize( ScrW() * 0.5 - 10, ScrH() * 0.5 - 10 )
+	SaleScreen:SetPos( ScrW() * 0.5 + 5, ScrH() * 0.5 + 5 )
+	SaleScreen:SetVisible( false )
+	
+	local ypos = 5
+	
+	for k,v in pairs( GAMEMODE.Categories ) do
+	
+		local toggle = vgui.Create( "CategoryButton" )
+		toggle:SetPos( 5, ypos )
+		toggle:SetText( v.Name )
+		toggle:SetImage( v.Icon )
+		toggle:SetSize( 500, 30 )
+		
+		ypos = ypos + 5 + 30
+	
+	end
+	
+end
+
+function StashMenu( msg )
+
+	local open = msg:ReadBool()
+	
+	if InventoryScreen:IsVisible() and open then return end
+	
+	StashScreen:SetPos( ScrW() * 0.5 + 5, ScrH() * 0.5 + 5 )
+	StashScreen:SetStashable( open, "Take" )
+	StashScreen:SetVisible( open )
+	
+	InventoryScreen:SetSize( ScrW() * 0.5 - 10, ScrH() * 0.5 - 10 )
+	InventoryScreen:SetStashable( open, "Stash", true )
+	InventoryScreen:RefreshItems( LocalInventory )
+	InventoryScreen:SetVisible( open )
+	InfoScreen:SetVisible( open )
+	PlayerScreen:SetVisible( open )
+	
+	gui.EnableScreenClicker( open )
+	
+	if open then
+	
+		StashScreen:RefreshItems( LocalStash )
+		
+	end
+	
+end
+usermessage.Hook( "StashMenu", StashMenu )
+