Got shops working

1 files changed, 138 insertions, 0 deletions

diff --git a/gamemode/shared/shop.lua b/gamemode/shared/shop.lua
new file mode 100644
index 0000000..b188e7c
--- /dev/null
+++ b/gamemode/shared/shop.lua
@@ -0,0 +1,138 @@
+local ivf = include("inventory_common.lua")
+ART = ART or {}
+
+if SERVER then
+	for k,v in pairs({
+		"art_openshop",
+		"art_buyitem",
+		"art_sellitem",
+	}) do
+		util.AddNetworkString(v)
+	end
+
+	function ART.OpenShop(tbl, ply)
+		print("Called openshop!")
+		print("tbl was")
+		PrintTable(tbl)
+		if CLIENT then return end
+		net.Start("art_openshop")
+		net.WriteTable(tbl)
+		net.Send(ply)
+	end
+
+	function ART.CreateShop(npc)
+		print("Createing shop npc")
+		local npcent = ents.Create("npc_shop")
+	    for k,v in pairs(npc) do
+	        npcent[k] = v
+	    end
+	    npcent:Spawn()
+		print("Called spawn")
+	end
+
+end
+
+if SERVER then return end
+local w,h = ScrW(),ScrH()
+function DrawShopItemOnDPanel(dp,item)
+	--An item is a string, and int cost
+	local itemtbl = ART.GetItemByName(item[1])
+	local cost = item[2]
+
+	local shape = itemtbl.Shape
+	local twidth,theight = 0,#shape
+	for k=1,#shape do
+		twidth = math.max(twidth,#shape[k])
+	end
+
+    local slotsize = math.Round(w / 32)
+    local backgrid = vgui.Create( "DGrid", dp )
+    backgrid:SetPos( 10, 30 )
+    backgrid:SetCols( twidth )
+    backgrid:SetColWide( theight )
+    backgrid:Dock(FILL)
+
+	local shopicon = vgui.Create( "DImageButton", dp )
+	shopicon:SetSize(slotsize * twidth, slotsize * theight)
+	shopicon:SetPos(0,0)
+	shopicon:SetText(itemtbl.Name)
+	if itemtbl.Tooltip then
+		shopicon:SetTooltip(itemtbl.Tooltip)
+	end
+	if itemtbl.Paint then
+		shopicon.Paint = itemtbl.Paint
+	end
+	if itemtbl.DoOnPanel then
+		itemtbl.DoOnPanel(shopicon)
+	end
+	--invicon.Paint = function(self, w, h) draw.RoundedBox(4, 0,0,w,h,Color(0,100,0)) end
+	shopicon.DoClick = function()
+		print("You cliked me!")
+	end
+	shopicon.Item = itemtbl
+	shopicon.Cost = cost
+	shopicon:Droppable("Inventory")
+	shopicon.ondropped = function(back,j,i,item)
+		print("ondropped was called!")
+		print("back",back,"j",j,"i",i,"item",item)
+		PrintTable(item)
+		net.Start("buyitem")
+		net.WriteString(item.Name)
+		net.WriteUInt(back,8)
+		net.WriteUInt(j,8)
+		net.WriteUInt(i,8)
+		net.SendToServer()
+	end
+
+	print("Displaying shape:")
+	PrintTable(shape)
+	for k = 1, twidth do
+		for i = 1, theight do
+			if not shape[k][i] then
+				print("Found false spot:",k,i)
+				local emptyslot = vgui.Create("DPanel", dp)
+                emptyslot:SetSize(slotsize,slotsize)
+                emptyslot:SetPos(slotsize * (i - 1), slotsize * (k - 1))
+			end
+		end
+	end
+
+end
+
+function DrawShopOnDPanel(dp,items)
+	--This gets pretty involved, lets try to not make it a clusterfuck.
+	DrawShopItemOnDPanel(dp,items[1])
+
+end
+
+local shopwindow,shoppanel
+
+local function createshopwindow()
+	print("Createing shopwindow")
+	shopwindow = vgui.Create( "DFrame" )
+	shopwindow:SetPos( w - (w / 4), 0 )
+	shopwindow:SetSize( w / 4, h )
+	shopwindow:SetTitle( "Unset shop" )
+	shopwindow:SetDraggable( true )
+	shopwindow.OnClose = function(self)
+		self:SetVisible(false)
+		print("After onclose, shopwindow was",shopwindow)
+	end
+	shopwindow:SetVisible(false)
+
+	shoppanel = vgui.Create( "DPanel",shopwindow)
+	shoppanel:SetPos( 10, 30 ) -- Set the position of the panel
+	shoppanel:Dock(FILL)
+end
+createshopwindow()
+
+net.Receive("art_openshop",function()
+	print("shopwindows was ",shopwindow)
+	if not shopwindow:IsValid() then createshopwindow() end
+	assert(shopwindow,"Shopwindow was not created, even after re-createing!")
+	ShowInventory()
+	shopwindow:SetVisible(true)
+	local stock = net.ReadTable()
+	DrawShopOnDPanel(shoppanel,stock)
+	shopwindow:MakePopup()
+end)