1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
|
local Ventory = nil
local MCO = Color(0,0,0,150)
function ReloadLootventory()
if (!IsValid(Ventory)) then return end
Ventory.List:Clear()
for k,v in pairs(Ventory.DATA) do
local a = Ventory.List:Add("DPanel")
a:SetSize(64,64)
a.Item = GetItemByName(v.Name)
a.Par = Ventory
a.Quantity = v.Quantity
a:Droppable("LOOTVENTORY")
a.Paint = function(s,w,h)
DrawRect(0,0,w,h,MCO)
if (s.Item) then DrawMaterialRect(0,0,w,h,MAIN_WHITECOLOR,s.Item.Icon) end
DrawText("x"..v.Quantity,"ChatFont",1,h-18,MAIN_TEXTCOLOR)
end
end
end
function IsLootventoryOpen()
return (Ventory and Ventory:IsVisible())
end
function CloseLootventory()
if (!IsLootventoryOpen()) then return end
Ventory:SetVisible(false)
end
function MakeLootventory(dat,ent)
if (!dat) then return end
if (!Ventory) then
Ventory = vgui.Create("MBFrame")
Ventory:SetPos(690,ScrH()-480)
Ventory:SetSize(200,200)
Ventory:SetTitle("Lootventory")
Ventory:SetDeleteOnClose(false)
--Ventory:MakePopup()
Ventory:ShowCloseButton(false)
Ventory.Paint = function(s,w,h) DrawRect(0,0,w,h,MCO) end
Ventory.OnClose = function(s) surface.PlaySound("wintersurvival2/hud/itemequip.wav") end
local Pane = vgui.Create( "DScrollPanel", Ventory )
Pane:SetPos(5,25)
Pane:SetSize(Ventory:GetWide()-10,Ventory:GetTall()-30)
Pane.Paint = function(s,w,h) DrawRect(0,0,w,h,MCO) end
Pane:Receiver("INVENTORY", function(s,a,b,c)
local p = a[1]
if (p.Item and IsValid(Ventory.Entity) and b) then
TransferItems(p.Item.Name,p.Quantity,Ventory.Entity)
DemandLootventoryUpdate(Ventory.Entity)
end
end)
local l = vgui.Create("DIconLayout",Pane)
l:SetSize(Pane:GetWide()-10,Pane:GetTall()-10)
l:SetPos(5,5)
l:SetSpaceY(5)
l:SetSpaceX(5)
Ventory.List = l
end
Ventory:SetVisible(true)
Ventory.Entity = ent
Ventory.DATA = dat
ReloadLootventory()
end
|
