From 5c4ebc932d8c02522802c842d43d863d89aca162 Mon Sep 17 00:00:00 2001
From: Apickx <Apickx@cogarr.org>
Date: Mon, 28 Dec 2015 19:10:44 -0500
Subject: Initial commit

---
 gamemode/server/concommands.lua | 66 +++++++++++++++++++++++++++++++++++++++++
 gamemode/server/spawnitem.lua   | 12 ++++++++
 gamemode/server/world.lua       | 60 +++++++++++++++++++++++++++++++++++++
 3 files changed, 138 insertions(+)
 create mode 100644 gamemode/server/concommands.lua
 create mode 100644 gamemode/server/spawnitem.lua
 create mode 100644 gamemode/server/world.lua

(limited to 'gamemode/server')

diff --git a/gamemode/server/concommands.lua b/gamemode/server/concommands.lua
new file mode 100644
index 0000000..a6c891c
--- /dev/null
+++ b/gamemode/server/concommands.lua
@@ -0,0 +1,66 @@
+concommand.Add("ws_giveitem",function(pl,com,args)
+	if (!IsValid(pl)) then return end
+	if (!pl:IsAdmin()) then return end
+	if (!args[1]) then return end
+
+	pl:AddItem(args[1],tonumber(args[2] or 1))
+end)
+
+concommand.Add("ws_revive",function(pl,com,args)
+	if (IsValid(pl) and !pl:IsAdmin()) then return end
+	if (!args[1]) then return end
+
+	for k,v in pairs(player.GetAll()) do
+		if (v:Nick():lower():find(args[1]) and v:IsPigeon()) then
+			v:ChatPrint("You have been resurrected from the dead by an admin!")
+			v:SetHuman(true)
+			v:KillSilent()
+			v:EmitSound("wintersurvival2/ritual/wololo.mp3")
+		end
+	end
+end)
+
+--Manual generate a proprain, for debugging
+concommand.Add("ws_proprain",function(ply,cmd,args)
+	if (IsValid(pl) and !pl:IsAdmin()) then return end
+	GAMEMODE:GeneratePropRain()
+end)
+
+--Manual reload of items + recepies, usefull for testing
+concommand.Add("ws_reloaditems",function(ply,cmd,args)
+	if (IsValid(pl) and !pl:IsAdmin()) then return end
+	GAMEMODE:LoadItems()
+end)
+
+--Manual reload of npc's, usefull for testing
+concommand.Add("ws_reloadnpcs",function(ply,cmd,args)
+	if (IsValid(pl) and !pl:IsAdmin()) then return end
+	GAMEMODE:LoadNPCS()
+end)
+
+--Generate a nice HTML representation of all the recepies.
+concommand.Add("ws_generaterecipes",function(pl,com,args)
+	if (IsValid(pl) and !pl:IsAdmin()) then return end
+	local filename = "ws_recipedata.txt"
+	for k,v in pairs(GAMEMODE.Recipes) do
+		if not v.Recipe then continue end
+		if not v.Name then continue end
+		file.Append(filename,"<li>\n\t<label>\n\t\t<input type='checkbox'>\n\t\t" .. v.Name)
+		for i,j in pairs(v.Recipe) do
+			if(i == "Resources") then
+				file.Append(filename,"\n\t<ul type='circle'>")
+				for p,q in pairs(j) do
+					file.Append(filename,"\n\t\t<li>" .. p .. " x " .. q .. "</li>")
+				end
+				file.Append(filename,"\n\t</ul>")
+			elseif(i == "Tools") then
+				file.Append(filename,"\n\t<ul type='square'>")
+				for p,q in pairs(j) do
+					file.Append(filename,"\n\t\t<li>" .. p .. " x " .. q .. "</li>")
+				end
+				file.Append(filename,"\n\t</ul>")
+			end
+		end
+		file.Append(filename,"\n\t</label>\n</li>\n")
+	end
+end)
diff --git a/gamemode/server/spawnitem.lua b/gamemode/server/spawnitem.lua
new file mode 100644
index 0000000..ef13104
--- /dev/null
+++ b/gamemode/server/spawnitem.lua
@@ -0,0 +1,12 @@
+
+function SpawnWSItem(Item,pos)
+	local IT = GetItemByName(Item)
+		
+	local drop = ents.Create("ws_item")
+	drop.Item = IT
+	drop:SetModel(drop.Item.Model)
+	drop:SetPos(pos)
+	drop:Spawn()
+		
+	return drop
+end
\ No newline at end of file
diff --git a/gamemode/server/world.lua b/gamemode/server/world.lua
new file mode 100644
index 0000000..9d23c7b
--- /dev/null
+++ b/gamemode/server/world.lua
@@ -0,0 +1,60 @@
+
+local random = math.random
+local traceline = util.TraceLine
+local contents  = util.PointContents
+local Up 		= Vector(0,0,1)
+
+function GM:GeneratePropRain()
+	local Items = {
+		GetItemByName("Wood"),
+		GetItemByName("Rock"),
+		GetItemByName("Crystal"),
+	}
+
+	--THIS PIECE OF CODE IS FOR OLDER VERSIONS OF WS MAPS! ITS CRAP BUT WE HAVE TO... For WS players!
+	local areas = {}
+
+	for i,area in pairs(ents.FindByClass("info_target")) do
+		if (area:GetName() == "survival_spawn") then
+			local parent = area:GetParent()
+			if (IsValid(parent)) then
+				areas[area] = parent
+			end
+		end
+	end
+
+	for pAe,pBe in pairs(areas) do
+		local pA,pB = pAe:GetPos(),pBe:GetPos()
+		local Dis = pA:Distance(pB)
+
+		for i = 1,40+math.ceil(Dis/70) do
+			local V = Vector(random(pB.x,pA.x),random(pB.y,pA.y),random(pB.z,pA.z))
+			local Tr = traceline({start=V,endpos=V-Up*40000})
+			local Pos = Tr.HitPos+Up*20
+			local C  = contents(Pos)
+
+			if (C != CONTENTS_WATER and C != CONTENTS_WATER+CONTENTS_TRANSLUCENT) then
+				local drop = ents.Create("ws_item")
+				drop.Item = Items[random(1,3)]
+				drop:SetModel(drop.Item.Model)
+				drop:SetPos(Pos)
+				drop:Spawn()
+				drop:GetPhysicsObject():Sleep()
+			end
+		end
+
+		--Shop spawn
+		local V = Vector(random(pB.x,pA.x),random(pB.y,pA.y),random(pB.z,pA.z))
+		local Tr = traceline({start=V,endpos=V-Up*40000})
+		local Pos = Tr.HitPos+Up*20
+		local C  = contents(Pos)
+
+		if (C != CONTENTS_WATER and C != CONTENTS_WATER+CONTENTS_TRANSLUCENT) then
+			local drop = ents.Create("ws_shop")
+			drop:SetPos(Pos)
+			drop:Spawn()
+			drop:Activate()
+		end
+	end
+	--END... Newer versions of maps should use a brush entity instead.
+end
-- 
cgit v1.2.3-70-g09d2