Merge branch 'master' of ssh://cogarr.net:43/home/git/gmstranded

1 files changed, 158 insertions, 65 deletions

diff --git a/gamemode/cl_deathmenu.lua b/gamemode/cl_deathmenu.lua
index 0a3474b..e206ff3 100644
--- a/gamemode/cl_deathmenu.lua
+++ b/gamemode/cl_deathmenu.lua
@@ -46,13 +46,6 @@ local function receive_message(len)
 res = net.ReadTable()
 wep = net.ReadTable()
 
-for k,v in pairs(wep) do
-		print("death weapon: "..k.." : "..v)
-	end
-	for k,v in pairs(res) do
-		print("death resource: "..k.." : "..v)
-	end
-
 if (active == 0) then dmFrame = vgui.Create("dmFrame") active = 1 end
 	
 end
@@ -65,6 +58,7 @@ local PANEL = {}
 width = 100
 height = 100
 
+
 function PANEL:Init()
 	
 	self:SetSize( 440, 400 )
@@ -139,7 +133,7 @@ function PANEL:Init()
 		local img = vgui.Create("DImage", wepPNL)
 		img:SetPos(0, 0)
 		img:SetSize(wepPNL:GetSize())
-		img:SetImage("gms_icons/gms_weapon.png")
+		img:SetImage("items/gms_weapon.png")
 		
 		
 	end
@@ -159,6 +153,7 @@ function PANEL:Init()
 	for k,v in pairs(res) do
 		local resPNL = vgui.Create( "DButton", DScrollPanel )
 		resPNL:SetSize( width, height )
+		resPNL:SetText("")
 		if (k/4 <= column2) then
 			resPNL:SetPos( (row2-1)*(width+2) + XOffset,(column2-1)*(height+2) + (column*height + 50))
 			row2=row2+1
@@ -176,20 +171,166 @@ function PANEL:Init()
 			
 		resPNL.DoClick = function()
 			local mb = DermaMenu()
+			mb:AddOption("Take x1", function()
+		
+				if (amount - 1 <= 0) then
+					
+					if (amount - 1 == 0) then
+						amount = 0
+						for i,o in pairs(res) do
+							if (getResName(v) == getResName(o)) then
+								giveRes(getResName(o), 1, i)
+								table.remove(res, i)
+							end
+						end
+						resPNL:Remove()
+					else
+							
+						num1 = amount - 1
+						num2 = 1 + num1
+						amount = 0
+						
+								
+						for i,o in pairs(res) do
+							if (getResName(v) == getResName(o)) then
+								giveRes(getResName(o), num2, i)
+								table.remove(res,i)
+							end
+						end
+								
+						resPNL:Remove()
+					end
+					
+				else
+					
+					amount = amount - 1
+							
+							
+					for i,o in pairs(res) do
+						if (getResName(v) == getResName(o)) then
+							giveRes(getResName(o), 1, i)
+							res[i] = getResName(o) .. " x" .. amount
+							v = res[i]
+						end
+					end
+					
+				end
+				
+			end)
+			mb:AddOption("Take x5", function()
+	
+				if (amount - 5 <= 0) then
+					
+					if (amount - 5 == 0) then
+						amount = 0
+						for i,o in pairs(res) do
+							if (getResName(v) == getResName(o)) then
+								giveRes(getResName(o), 5, i)
+								table.remove(res, i)
+							end
+						end
+						resPNL:Remove()
+					else
+							
+						num1 = amount - 5
+						num2 = 5 + num1
+						amount = 0
+						
+								
+						for i,o in pairs(res) do
+							if (getResName(v) == getResName(o)) then
+								giveRes(getResName(o), num2, i)
+								table.remove(res,i)
+							end
+						end
+								
+						resPNL:Remove()
+					end
+					
+				else
+					
+					amount = amount - 5
+							
+							
+					for i,o in pairs(res) do
+						if (getResName(v) == getResName(o)) then
+							giveRes(getResName(o), 5, i)
+							res[i] = getResName(o) .. " x" .. amount
+							v = res[i]
+						end
+					end
+					
+				end
+				
+			end)
+			mb:AddOption("Take x10", function()
+		
+				if (amount - 10 <= 0) then
+					
+					if (amount - 10 == 0) then
+						amount = 0
+						for i,o in pairs(res) do
+							if (getResName(v) == getResName(o)) then
+								giveRes(getResName(o), 10, i)
+								table.remove(res, i)
+							end
+						end
+						resPNL:Remove()
+					else
+							
+						num1 = amount - 10
+						num2 = 10 + num1
+						amount = 0
+						
+								
+						for i,o in pairs(res) do
+							if (getResName(v) == getResName(o)) then
+								giveRes(getResName(o), num2, i)
+								table.remove(res,i)
+							end
+						end
+								
+						resPNL:Remove()
+					end
+					
+				else
+					
+					amount = amount - 10
+							
+							
+					for i,o in pairs(res) do
+						if (getResName(v) == getResName(o)) then
+							giveRes(getResName(o), 10, i)
+							res[i] = getResName(o) .. " x" .. amount
+							v = res[i]
+						end
+					end
+					
+				end
+				
+			end)
+			mb:AddOption("Take All", function()
+		
+				for i,o in pairs(res) do
+				    if (getResName(v) == getResName(o)) then
+						giveRes(getResName(o), amount, i)
+						table.remove(res, i)
+					end
+				end
+				amount = 0
+				resPNL:Remove()
+				
+			end)
+			
+			mb:Open()
 			
-			addMenuButton(mb, resPNL, "Take x1", amount, 1, v)
-			addMenuButton(mb, resPNL, "Take x5", amount, 5, v)
-			addMenuButton(mb, resPNL, "Take x10", amount, 10, v)
-			addMenuButton(mb, resPNL, "Take All", amount, amount, v)
 			
 			
-			mb:Open()
 		end
 		
 		resPNL.Paint = function()
 			draw.RoundedBox( 0, 0, 0, resPNL:GetWide(), resPNL:GetTall(), Color( 69, 69, 69, 125 ) )
 			
-			
 			surface.SetFont("Items")
 			surface.SetTextColor( 0,0,0 )
 			surface.SetTextPos( (width/2)-(surface.GetTextSize(v)/2), height-20 )
@@ -198,9 +339,9 @@ function PANEL:Init()
 		end
 		
 		local img = vgui.Create("DImage", resPNL)
-		img:SetPos(0, 0)
-		img:SetSize(resPNL:GetSize())
-		img:SetImage("gms_icons/gms_resourcepack.png")
+		img:SetPos(20, 10)
+		img:SetSize(resPNL:GetWide()-40, resPNL:GetTall()-40)
+		if (GMS.GetResourceByName(getResName(v)).Icon != nil) then img:SetImage(GMS.GetResourceByName(getResName(v)).Icon) else img:SetImage("vgui/avatar_default") end
 	end
 	
 end
@@ -211,54 +352,6 @@ function getResName(str)
 	return string.Implode(" ", spl)
 end
 
-function addMenuButton(mb, resPNL, name, amount, remove, v)
-	mb:AddOption(name, function()
-		
-		if (amount - remove <= 0) then
-			
-			if (amount - remove == 0) then
-				amount = 0
-				for i,o in pairs(res) do
-					if (getResName(v) == getResName(o)) then
-						giveRes(getResName(o), remove, i)
-						table.remove(res, i)
-					end
-				end
-				resPNL:Remove()
-			else
-					
-				num1 = amount - remove
-				num2 = remove + num1
-				amount = 0
-				
-						
-				for i,o in pairs(res) do
-					if (getResName(v) == getResName(o)) then
-						giveRes(getResName(o), num2, i)
-						table.remove(res,i)
-					end
-				end
-						
-				resPNL:Remove()
-			end
-			
-		else
-			
-			amount = amount - remove
-					
-					
-			for i,o in pairs(res) do
-				if (getResName(v) == getResName(o)) then
-					giveRes(getResName(o), remove, i)
-					res[i] = getResName(o) .. " x" .. amount
-					v = res[i]
-				end
-			end
-			
-		end
-		
-	end)
-end
 
 function PANEL:Close()
 	active = 0