wnsrc/gamemodes/helix/plugins/vendor/derma/cl_vendor.lua

--[[
| This file was obtained through the combined efforts
| of Madbluntz & Plymouth Antiquarian Society.
|
| Credits: lifestorm, Gregory Wayne Rossel JR.,
| 	Maloy, DrPepper10 @ RIP, Atle!
|
| Visit for more: https://plymouth.thetwilightzone.ru/
--]]


local PANEL = {}

AccessorFunc(PANEL, "bReadOnly", "ReadOnly", FORCE_BOOL)

function PANEL:Init()
	self:SetSize(ScrW() * 0.45, ScrH() * 0.65)
	self:SetTitle("")
	self:MakePopup()
	self:Center()

	self.playerCurrency = ""
end

function PANEL:Populate(playerCredits)
	local header = self:Add("DPanel")
	header:SetTall(34)
	header:Dock(TOP)

	self.vendorName = header:Add("DLabel")
	self.vendorName:Dock(LEFT)
	self.vendorName:SetWide(self:GetWide() * 0.5 - 7)
	self.vendorName:SetText("John Doe")
	self.vendorName:SetTextInset(4, 0)
	self.vendorName:SetTextColor(color_white)
	self.vendorName:SetFont("ixMediumFont")

	if (!playerCredits) then
		self.playerCurrency = ix.currency.Get(LocalPlayer():GetCharacter():GetMoney())
	else
		self.playerCurrency = L("vendorNCredits", playerCredits)
	end
	self.useCredits = playerCredits and true or false

	self.ourName = header:Add("DLabel")
	self.ourName:Dock(RIGHT)
	self.ourName:SetWide(self:GetWide() * 0.5 - 7)
	self.ourName:SetTextInset(0, 0)
	self.ourName:SetTextColor(color_white)
	self.ourName:SetFont("ixMediumFont")

	local footer = self:Add("DPanel")
	footer:SetTall(34)
	footer:Dock(BOTTOM)
	footer:SetPaintBackground(false)

	self.vendorSell = footer:Add("DButton")
	self.vendorSell:SetFont("ixMediumFont")
	self.vendorSell:SetWide(self.vendorName:GetWide())
	self.vendorSell:Dock(LEFT)
	self.vendorSell:SetContentAlignment(5)
	-- The text says purchase but the vendor is selling it to us.
	self.vendorSell:SetText(L"purchase")
	self.vendorSell:SetTextColor(color_white)

	self.vendorSell.DoClick = function(this)
		if (IsValid(self.activeSell)) then
			net.Start("ixVendorTrade")
				net.WriteString(self.activeSell.item)
				net.WriteBool(false)
			net.SendToServer()
		end
	end

	self.vendorBuy = footer:Add("DButton")
	self.vendorBuy:SetFont("ixMediumFont")
	self.vendorBuy:SetWide(self.ourName:GetWide())
	self.vendorBuy:Dock(RIGHT)
	self.vendorBuy:SetContentAlignment(5)
	self.vendorBuy:SetText(L"sell")
	self.vendorBuy:SetTextColor(color_white)
	self.vendorBuy.DoClick = function(this)
		if (IsValid(self.activeBuy)) then
			net.Start("ixVendorTrade")
				net.WriteString(self.activeBuy.item)
				net.WriteBool(true)
			net.SendToServer()
		end
	end

	self.selling = self:Add("DScrollPanel")
	self.selling:SetWide(self:GetWide() * 0.5 - 7)
	self.selling:Dock(LEFT)
	self.selling:DockMargin(0, 4, 0, 4)
	self.selling:SetPaintBackground(true)

	self.sellingItems = self.selling:Add("DListLayout")
	self.sellingItems:SetSize(self.selling:GetSize())
	self.sellingItems:DockPadding(0, 0, 0, 4)
	self.sellingItems:SetTall(ScrH())

	self.buying = self:Add("DScrollPanel")
	self.buying:SetWide(self:GetWide() * 0.5 - 7)
	self.buying:Dock(RIGHT)
	self.buying:DockMargin(0, 4, 0, 4)
	self.buying:SetPaintBackground(true)

	self.buyingItems = self.buying:Add("DListLayout")
	self.buyingItems:SetSize(self.buying:GetSize())
	self.buyingItems:DockPadding(0, 0, 0, 4)

	self.sellingList = {}
	self.buyingList = {}
end

function PANEL:addItem(uniqueID, listID)
	local entity = self.entity
	local items = entity.items
	local data = items[uniqueID]

	if ((!listID or listID == "selling") and !IsValid(self.sellingList[uniqueID])
	and ix.item.list[uniqueID]) then
		if (data and data[VENDOR_MODE] and data[VENDOR_MODE] != VENDOR_BUYONLY) then
			local item = self.sellingItems:Add("ixVendorItem")
			item:Setup(uniqueID)

			self.sellingList[uniqueID] = item
			self.sellingItems:InvalidateLayout()
		end
	end

	if ((!listID or listID == "buying") and !IsValid(self.buyingList[uniqueID])
	and LocalPlayer():GetCharacter():GetInventory():HasItem(uniqueID)) then
		if (data and data[VENDOR_MODE] and data[VENDOR_MODE] != VENDOR_SELLONLY) then
			local item = self.buyingItems:Add("ixVendorItem")
			item:Setup(uniqueID)
			item.isLocal = true

			self.buyingList[uniqueID] = item
			self.buyingItems:InvalidateLayout()
		end
	end
end

function PANEL:removeItem(uniqueID, listID)
	if (!listID or listID == "selling") then
		if (IsValid(self.sellingList[uniqueID])) then
			self.sellingList[uniqueID]:Remove()
			self.sellingItems:InvalidateLayout()
		end
	end

	if (!listID or listID == "buying") then
		if (IsValid(self.buyingList[uniqueID])) then
			self.buyingList[uniqueID]:Remove()
			self.buyingItems:InvalidateLayout()
		end
	end
end

function PANEL:Setup(entity)
	self.entity = entity
	self:SetTitle(entity:GetDisplayName())

	self.vendorBuy:SetEnabled(!self:GetReadOnly())
	self.vendorSell:SetEnabled(!self:GetReadOnly())

	for k, _ in SortedPairs(entity.items) do
		self:addItem(k, "selling")
	end

	for _, v in SortedPairs(LocalPlayer():GetCharacter():GetInventory():GetItems()) do
		self:addItem(v.uniqueID, "buying")
	end
end

function PANEL:OnRemove()
	net.Start("ixVendorClose")
	net.SendToServer()

	if (IsValid(ix.gui.vendorEditor)) then
		ix.gui.vendorEditor:Remove()
	end
end

function PANEL:Think()
	local entity = self.entity

	if (!IsValid(entity)) then
		self:Remove()

		return
	end

	if ((self.nextUpdate or 0) < CurTime()) then
		local moneyAmount = self.useCredits and L("vendorNCredits", entity.money) or ix.currency.Get(entity.money)
		self:SetTitle(entity:GetDisplayName())
		self.vendorName:SetText(entity:GetDisplayName() .. (entity.money and " (" .. moneyAmount .. ")" or ""))
		self.ourName:SetText(L"you" .. " (" .. self.playerCurrency .. ")")

		self.nextUpdate = CurTime() + 0.25
	end
end

function PANEL:OnItemSelected(panel)
	local price = self.entity:GetPrice(panel.item, panel.isLocal)
	local priceString = !self.useCredits and ix.currency.Get(price) or L("vendorNCredits", price)

	if (panel.isLocal) then
		self.vendorBuy:SetText(L("vendorSellText", L("sell"), priceString))
	else
		self.vendorSell:SetText(L("vendorSellText", L("purchase"), priceString))
	end
end

vgui.Register("ixVendor", PANEL, "DFrame")

PANEL = {}

function PANEL:Init()
	self:SetTall(36)
	self:DockMargin(4, 4, 4, 0)

	self.icon = self:Add("SpawnIcon")
	self.icon:SetPos(2, 2)
	self.icon:SetSize(32, 32)
	self.icon:SetModel("models/error.mdl")

	self.name = self:Add("DLabel")
	self.name:Dock(FILL)
	self.name:DockMargin(42, 0, 0, 0)
	self.name:SetFont("ixChatFont")
	self.name:SetTextColor(color_white)
	self.name:SetExpensiveShadow(1, Color(0, 0, 0, 200))

	self.click = self:Add("DButton")
	self.click:Dock(FILL)
	self.click:SetText("")
	self.click.Paint = function() end
	self.click.DoClick = function(this)
		if (self.isLocal) then
			ix.gui.vendor.activeBuy = self
		else
			ix.gui.vendor.activeSell = self
		end

		ix.gui.vendor:OnItemSelected(self)
	end
end

function PANEL:SetCallback(callback)
	self.click.DoClick = function(this)
		callback()
		self.selected = true
	end
end

function PANEL:Setup(uniqueID)
	local item = ix.item.list[uniqueID]

	if (item) then
		self.item = uniqueID
		self.icon:SetModel(item:GetModel(), item:GetSkin())
		self.name:SetText(item:GetName())
		self.itemName = item:GetName()

		self.click:SetHelixTooltip(function(tooltip)
			ix.hud.PopulateItemTooltip(tooltip, item)

			local entity = ix.gui.vendor.entity
			if (entity and entity.items[self.item] and entity.items[self.item][VENDOR_MAXSTOCK]) then
				local info = entity.items[self.item]
				local stock = tooltip:AddRowAfter("name", "stock")
				stock:SetText(string.format("Stock: %d/%d", info[VENDOR_STOCK], info[VENDOR_MAXSTOCK]))
				stock:SetBackgroundColor(derma.GetColor("Info", self))
				stock:SizeToContents()
			end
		end)
	end
end

function PANEL:Think()
	if ((self.nextUpdate or 0) < CurTime()) then
		local entity = ix.gui.vendor.entity

		if (entity and self.isLocal) then
			local count = LocalPlayer():GetCharacter():GetInventory():GetItemCount(self.item)

			if (count == 0) then
				self:Remove()
			end
		end

		self.nextUpdate = CurTime() + 0.1
	end
end

function PANEL:Paint(w, h)
	if (ix.gui.vendor.activeBuy == self or ix.gui.vendor.activeSell == self) then
		surface.SetDrawColor(ix.config.Get("color"))
	else
		surface.SetDrawColor(0, 0, 0, 100)
	end

	surface.DrawRect(0, 0, w, h)
end

vgui.Register("ixVendorItem", PANEL, "DPanel")