Various updates

1 files changed, 66 insertions, 0 deletions

diff --git a/lua/autorun/zone_output.lua b/lua/autorun/zone_output.lua
new file mode 100644
index 0000000..d887386
--- /dev/null
+++ b/lua/autorun/zone_output.lua
@@ -0,0 +1,66 @@
+--[[
+	A hunting ground zone will occasionally spawn a monster near a player that will go attack the player
+]]
+zones.RegisterClass("artery_outpost",Color(0,255,0))
+
+--Use this to set default properties. Only called on server.
+hook.Add("OnZoneCreated","artery_outpost",function(zone,class,zoneID)
+	if class == "artery_artery_outpost" then
+		zone.datatbl = {}
+	end
+end)
+
+-- Use this hook to let a player change a zone after making it or with the edit tool.
+-- class is zone.class, zone is the zone's full table, DPanel is a panel to parent your things to, zoneID is the zone's ID, DFrame is the whole frame.
+-- Return your preferred width and height for the panel and the frame will size to it.
+hook.Add("ShowZoneOptions","artery_outpost",function(zone,class,DPanel,zoneID,DFrame)
+	if class == "artery_town" then
+		local w,h = 500, 400
+
+		local scroll = vgui.Create( "DScrollPanel",DPanel)
+		scroll:Dock(FILL)
+
+		function synctbl()
+			net.Start("artery_outpost_settbl")
+			net.WriteFloat(zoneID)
+			net.WriteTable(zone.datatbl)
+			net.SendToServer()
+		end
+
+		print("Displaying table, my table is")
+		PrintTable(zone.datatbl)
+		
+		local monsterlb = vgui.Create("DLabel",DPanel)
+		monsterlb:Dock(TOP)
+		monsterlb:SetText("Town name:")
+		monsterlb:SetDark(true)
+		monsterlb:SizeToContents()
+		local groundsname = vgui.Create("DTextEntry",DPanel)
+		groundsname:SetText(zone.datatbl.Name or "")
+		groundsname:Dock(TOP)
+		groundsname.OnEnter = function()
+			zone.datatbl.Name = groundsname:GetValue()
+			synctbl()
+		end
+
+		return w, h -- Specify the width and height for the DPanel container. The frame will resize accordingly.
+
+	end
+end)
+
+if SERVER then
+	util.AddNetworkString("artery_town_settbl")
+	net.Receive("artery_town_settbl",function(len,ply)
+		print("Server change received!")
+		local id, new = net.ReadFloat(), net.ReadTable()
+		print("New table is:")
+		PrintTable(new)
+		if not ply:IsAdmin() then return end
+		local zone = zones.List[id]
+		zone.datatbl = new
+		if new.Name then
+			zone.Name = new.Name
+		end
+		zones.Sync()
+	end)
+end