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
|
do return end
local svg = nrequire("cl_svg.lua")
local mats = {}
local matstrs = {}
for i = 2,10 do
for _,t in pairs({"clubs","diamonds","hearts","spades"}) do
matstrs[#matstrs + 1] = string.format( "materials/svg/aussiesim/cards/svg/000000/transparent/card-%d-%s.svg",i,t)
end
end
for k,v in pairs(matstrs) do
mats[k] = file.Read(v,"GAME")
end
local truemats = {}
for k,v in pairs(matstrs) do
truemats[k] = svg.MaterialFromSVG(v)
end
--local parsed = xmlparser:parse(matstr)
local htmls = {}
local nx = ScrW()/64
local ny = ScrH()/64
for x = 1,nx do
for y = 1,ny do
local thtml = vgui.Create("DSprite") --svg.SvgOnDpanel("materials/svg/aussiesim/cards/svg/000000/transparent/card-2-clubs.svg")
thtml:SetSize(64,64)
thtml:SetPos(x * 64,y * 64)
htmls[y * nx + x] = thtml
end
end
hook.Add("HUDPaint","paint_svg",function()
--local randommat = table.Random(matstrs)
--html:RunJavascript( string.format("document.body.innerHTML = 'HTML changed from Lua using JavaScript!';"" )
--[[
for k,v in pairs(htmls) do
v:UpdateImage(randommat)
end
]]
for k,v in pairs(htmls) do
local randommat = table.Random(truemats)
if randommat.material then
v:SetMaterial(randommat.material)
end
end
end)
|
