Fixed removing plants bug

1 files changed, 0 insertions, 3257 deletions

diff --git a/ftp_gmstranded/gamemode/init.lua b/ftp_gmstranded/gamemode/init.lua
deleted file mode 100644
index 4051ca6..0000000
--- a/ftp_gmstranded/gamemode/init.lua
+++ /dev/null
@@ -1,3257 +0,0 @@
-
--- Send clientside files
-AddCSLuaFile( "shared.lua" )
-AddCSLuaFile( "cl_init.lua" )
-AddCSLuaFile( "cl_scoreboard.lua" )
-AddCSLuaFile( "cl_qmenu.lua" )
-AddCSLuaFile( "cl_panels.lua" )
-AddCSLuaFile( "cl_hud.lua" )
-AddCSLuaFile( "unlocks.lua" )
-AddCSLuaFile( "combinations.lua" )
-AddCSLuaFile( "combinations2.lua" )
-AddCSLuaFile( "combirenbuy.lua" )
-AddCSLuaFile( "combirensell.lua" )
-AddCSLuaFile( "time_weather.lua" )
-AddCSLuaFile( "cl_deathmenu.lua" )
-
-include( "shared.lua" )
-include( "processes.lua" )
-include( "chatcommands.lua" )
--- include( "resources.lua" )
-
---Vars
-GM.NextSaved = 0
-GM.NextLoaded = 0
-
---Locals
-local PlayerMeta = FindMetaTable( "Player" )
-local EntityMeta = FindMetaTable( "Entity" )
-
---Tribes table
-if ( !GM.Tribes ) then
-	GM.Tribes = GM.Tribes or {}
-	table.insert( GM.Tribes, { name = "The Stranded", color = Color( 200, 200, 0 ), password = false } )
-	table.insert( GM.Tribes, { name = "Survivalists", color = Color( 225, 225, 225 ), password = false } )
-	table.insert( GM.Tribes, { name = "Anonymous", color = Color( 0, 145, 145 ), password = false } )
-	table.insert( GM.Tribes, { name = "The Gummies", color = Color( 255, 23, 0 ), password = false } )
-	table.insert( GM.Tribes, { name = "The Dynamics", color = Color( 0, 72, 255 ), password = false } )
-	table.insert( GM.Tribes, { name = "Scavengers", color = Color( 8, 255, 0 ), password = false } )
-end
-
-GM.AntlionBarrowSpawns = {}
-GM.AntlionBarrowSpawns[ "gm_construct" ] = { Vector( -4321.8149, -2551.3449, 257.5130 ) }
-GM.AntlionBarrowSpawns[ "gms_rollinghills" ] = { Vector( 3131.2876, -980.5972, 519.5605 ), Vector( -4225.0200, 6009.3516, 513.1411 ) }
-GM.AntlionBarrowSpawns[ "gms_rollinghills_daynight" ] = GM.AntlionBarrowSpawns[ "gms_rollinghills" ]
-GM.AntlionBarrowSpawns[ "gms_rollinghills_daynight_b1" ] = GM.AntlionBarrowSpawns[ "gms_rollinghills" ]
-
-GM.AntlionBarrowSpawns[ "gms_nowhere2" ] = { Vector( 3918.7753, 5111.8149, 7.5218 ), Vector( -2061.3061, 4842.8325, 7.6148 ) }
-GM.AntlionBarrowSpawns[ "gms_minisurvival_v2" ] = { Vector( -2818.7075, 3132.7507, -529.3529 ), Vector( -1423.5445, -1801.8461, -521.4026 ) }
-
-GM.AntlionBarrowSpawns[ "gms_coastal_outlands" ] = {
-
-Vector( 5682.056152, -504.173035, 181.781555 ),
-Vector( 5960.534180, 10054.454102, 83.857697 ),
-Vector( 2401.916504, 431.268372, -11125.555664 ),
-Vector( 3803.869141, 7341.371094, -11190.447266 ),
-Vector( 2804.810303, 12146.677734, -9125.259766 ),
-
-}
-
-GM.TreeSpawns = {}
-
-GM.TreeSpawns[ "gms_coastal_outlands" ] = {
-
-// The third coordinate is the height coordinate
-// Always subtract 70 to the height coord if it is positive so that the tree will be touching the floor
-
-Vector( 1462.160522, -3664.370361, -10941.564453 ),
-Vector( 3718.633545, -1710.644409, -11269.974609 ),
-Vector( 3159.402588, 145.593597, -11045.797852 ),
-Vector( 2519.847168, -547.534180, -11161.646484 ),
-Vector( 4932.186035, 4456.111328, -11258.104492 ),
-Vector( 4781.265137, 6047.670410, -11249.711914 ),
-Vector( 3673.399170, 5922.402832, -11243.965820 ),
-Vector( 3063.780273, 6409.881348, -11238.132813 ),
-Vector( 5274.083496, 8890.347656, -10530.000000 ),
-Vector( 5899.765137, 6888.799316, -10543.629883 ),
-Vector( 6781.679199, 6864.066895, -10404.078125 ),
-Vector( 7762.570313, 8027.228516, -9794.528320 ),
-Vector( 3582.199219, 8849.200195, -10587.720703 ),
-Vector( 2345.549072, 9190.130859, -9654.171875 ),
-Vector( -184.908630, 9758.339844, -9654.647461 ),
-Vector( -1548.173218, 10890.804688, -9306.844727 ),
-Vector( -791.436951, 11616.236328, -9311.025391 ),
-Vector( -1412.835571, 12691.185547, -9611.835938 ),
-Vector( 504.700775, 13039.500977, -9156.863281 ),
-Vector( 1297.606201, 12465.360352, -9147.304688 ),
-Vector( 2329.148193, 11747.046875, -9157.968750 ),
-Vector( 3458.504883, 9959.944336, -9299.968750 ),
-Vector( 5360.672363, 4706.935547, 344.907623 ),
-Vector( 4492.113281, 4696.718750, 319.830444 ),
-Vector( 4619.547852, 5449.032715, 407.463806 ),
-Vector( 5092.520508, 5595.101563, 535.216309 ),
-Vector( 5451.174805, 4665.181152, 354.842255 ),
-Vector( 4171.684570, 2509.103271, 370.570892 ),
-Vector( 5031.233398, 1786.687256, 311.406921 ),
-Vector( 4515.268555, 136.138535, 327.624390 ),
-Vector( 2986.565674, -3083.914551, 866.749268 ),
-Vector( 3086.577148, -7007.732910, 1510.264038 ),
-Vector( 3577.333252, -9913.345703, 1559.749146 ),
-Vector( 2075.320313, 9463.977539, 152.691238 ),
-Vector( 7145.083008, 8708.809570, -9852.012695 )
-
-}
-
-util.AddNetworkString('givePlayerWeapon')
-util.AddNetworkString('givePlayerResource')
-
--- Give player weapons from grave
-net.Receive('givePlayerWeapon', function(len, ply)
-
-	local wepToGive = net.ReadString()
-	local wepSlot = net.ReadInt(32)
-	local weptbl = ply:GetEyeTrace().Entity.deathWeapons
-	table.remove(weptbl, wepSlot)
-
-	ply:Give(wepToGive)
-
-
-
-end)
-
---Give player resource from grave
-net.Receive('givePlayerResource', function(len, ply)
-
-	local ResToGive = net.ReadString()
-	local Amount = net.ReadInt(32)
-	local resSlot = net.ReadInt(32)
-	local restbl = ply:GetEyeTrace().Entity.deathResources
-	local tbl1 = string.Split(restbl[resSlot], " ")
-	local tbl2 = string.Split(tbl1[2], "x")
-	local amt = tbl2[2]
-
-	ply:IncResource( ResToGive, Amount )
-
-	if (amt - Amount <= 0) then
-
-		table.remove(restbl, resSlot)
-	else
-		amt = amt - Amount
-		restbl[resSlot] = tbl1[1] .. " x" .. amt
-
-	end
-
-
-end)
-
--- Custom anlion barrow auto placement
-hook.Add( "InitPostEntity", "gms_custom_antspawns", function()
-	if ( !GAMEMODE.AntlionBarrowSpawns[ game.GetMap() ] ) then return end
-	for id, pos in pairs( GAMEMODE.AntlionBarrowSpawns[ game.GetMap() ] ) do
-		local ent = ents.Create( "gms_antlionbarrow" )
-		ent:SetPos( pos )
-		ent:Spawn()
-		ent.GMSAutoSpawned = true
-		ent:SetNetworkedString( "Owner", "World" )
-	end
-
-end )
-
--- Custom tree auto placement
-hook.Add( "InitPostEntity", "gms_custom_treespawns", function()
-
-	if ( !GAMEMODE.TreeSpawns[ game.GetMap() ] ) then return end
-	for id, pos in pairs( GAMEMODE.TreeSpawns[ game.GetMap() ] ) do
-		local ent = ents.Create( "gms_tree" )
-		ent:SetPos( pos )
-		ent:Spawn()
-		ent.GMSAutoSpawned = true
-		ent:SetNetworkedString( "Owner", "World" )
-	end
-end )
-
--- Find tribe by ID
-function GM.FindTribeByID( id )
-	for tid, tabl in pairs( GAMEMODE.Tribes ) do
-		if ( tid == id ) then return tabl end
-	end
-	return false
-end
-
--- Cancel process
-concommand.Add( "gms_cancelprocess", function( ply, cmd, args ) ply:CancelProcess() end )
-
-/* Menu toggles */
-function GM:ShowHelp( ply ) end
-function GM:ShowTeam( ply ) end
-function GM:ShowSpare1( ply ) end
-
-function GM:ShowSpare2( ply )
-	if ( ply:GetNWBool( "AFK" ) ) then
-		GAMEMODE.AFK( ply, "gms_afk", {} )
-	elseif ( ply:GetNWBool( "Sleeping" ) ) then
-		ply:Wakeup()
-	end
-	ply:CancelProcess()
-end
-
-
-/* ----------------------------------------------------------------------------------------------------
-	Player Functions
----------------------------------------------------------------------------------------------------- */
-
-function PlayerMeta:SendMessage( text, duration, color )
-	if ( !IsValid( self ) ) then return end
-	local duration = duration or 3
-	local color = color or color_white
-
-	umsg.Start( "gms_sendmessage", self )
-		umsg.String( text )
-		umsg.Short( duration )
-		umsg.String( color.r .. "," .. color.g .. "," .. color.b .. "," .. color.a )
-	umsg.End()
-end
-
-function PlayerMeta:OpenCombiMenu( str )
-	umsg.Start( "gms_OpenCombiMenu", self )
-		umsg.String( str )
-	umsg.End()
-end
-
-util.AddNetworkString('deathmenu')
-
-function PlayerMeta:DeathMenu( res, wep )
-	net.Start('deathmenu')
-		net.WriteTable(res)
-		net.WriteTable(wep)
-	net.Send(self)
-end
-
-function PlayerMeta:SendAchievement( text )
-	umsg.Start( "gms_sendachievement", self )
-		umsg.String( text )
-	umsg.End()
-
-	local sound = CreateSound( self, Sound( "music/hl1_song11.mp3" ) )
-	sound:Play()
-	timer.Simple( 5.5, function() sound:Stop() end )
-end
-
-function PlayerMeta:SetSkill( skill, int )
-	skill = string.Capitalize( skill )
-	if ( !self.Skills[ skill ] ) then self.Skills[ skill ] = 0 end
-
-	if ( skill != "Survival" ) then
-		int = math.Clamp( int, 0, 200 )
-	else
-		self.MaxResources = ( int * 5 ) + 25
-	end
-	self.Skills[ skill ] = int
-
-	umsg.Start( "gms_SetSkill", self )
-		umsg.String( skill )
-		umsg.Short( self:GetSkill( skill ) )
-	umsg.End()
-end
-
-function PlayerMeta:GetSkill( skill )
-	skill = string.Capitalize( skill )
-	if ( skill == "Survival" ) then self:SetNWInt( skill, self.Skills[skill] ) end
-	return self.Skills[ skill ] or 0
-end
-
-function PlayerMeta:IncSkill( skill, int )
-	skill = string.Capitalize( skill )
-	if ( !self.Skills[ skill ] ) then self:SetSkill( skill, 0 ) end
-	if ( !self.Experience[ skill ] ) then self:SetXP( skill, 0 ) end
-
-	if ( skill != "Survival" ) then
-		int = math.Clamp( int, 0, 200 )
-		for id = 1, int do self:IncXP( "Survival", 20 ) end
-		self:SendMessage( string.Replace( skill, "_", " " ) .. " +" .. int, 3, Color( 10, 200, 10, 255 ) )
-	else
-		self.MaxResources = self.MaxResources + 5
-		self:SendAchievement( "Level Up!" )
-	end
-
-	self.Skills[skill] = self.Skills[skill] + int
-
-	umsg.Start( "gms_SetSkill", self )
-	umsg.String( skill )
-	umsg.Short( self:GetSkill( skill ) )
-	umsg.End()
-
-	self:CheckForUnlocks()
-end
-
-function PlayerMeta:DecSkill( skill, int )
-	skill = string.Capitalize( skill )
-	self.Skills[skill] = math.max( self.Skills[skill] - int, 0 )
-
-	umsg.Start( "gms_SetSkill", self )
-		umsg.String( skill )
-		umsg.Short( self:GetSkill( skill ) )
-	umsg.End()
-end
-
-function PlayerMeta:SetXP( skill, int )
-	skill = string.Capitalize( skill )
-	if ( !self.Skills[skill] ) then self:SetSkill( skill, 0 ) end
-	if ( !self.Experience[skill] ) then self.Experience[skill] = 0 end
-
-	self.Experience[skill] = int
-
-	umsg.Start( "gms_SetXP", self )
-		umsg.String( skill )
-		umsg.Short( self:GetXP( skill ) )
-	umsg.End()
-end
-
-function PlayerMeta:GetXP( skill )
-	skill = string.Capitalize( skill )
-	return self.Experience[skill] or 0
-end
-
-function PlayerMeta:IncXP( skill, int )
-	skill = string.Capitalize( skill )
-	if ( !self.Skills[skill] ) then self.Skills[skill] = 0 end
-	if ( !self.Experience[skill] ) then self.Experience[skill] = 0 end
-
-	if ( self.Experience[skill] + int >= 100 ) then
-		self.Experience[skill] = 0
-		self:IncSkill( skill, 1 )
-	else
-		self.Experience[skill] = self.Experience[skill] + int
-	end
-
-	umsg.Start( "gms_SetXP", self )
-		umsg.String( skill )
-		umsg.Short( self:GetXP( skill ) )
-	umsg.End()
-end
-
-function PlayerMeta:DecXP( skill, int )
-	skill = string.Capitalize( skill )
-	self.Experience[skill] = self.Experience[skill] - int
-
-	umsg.Start( "gms_SetXP", self )
-		umsg.String( skill )
-		umsg.Short( self:GetXP( skill ) )
-	umsg.End()
-end
-
-function PlayerMeta:SetResource( resource, int )
-	resource = string.Capitalize( resource )
-	if ( !self.Resources[resource] ) then self.Resources[resource] = 0 end
-
-
-	self.Resources[resource] = int
-
-	umsg.Start( "gms_SetResource", self )
-		umsg.String( resource )
-		umsg.Short( int )
-	umsg.End()
-end
-
-function PlayerMeta:GetResource( resource )
-	resource = string.Capitalize( resource )
-	return self.Resources[ resource ] or 0
-end
-
-function PlayerMeta:IncResource( resource, int )
-	resource = string.Capitalize( resource )
-
-	if ( !self.Resources[resource] ) then self.Resources[resource] = 0 end
-	local all = self:GetAllResources()
-	local max = self.MaxResources
-
-	if ( all + int > max ) then
-		self.Resources[resource] = self.Resources[resource] + ( max - all )
-		self:DropResource( resource, ( all + int ) - max )
-		self:SendMessage( "You can't carry anymore!", 3, Color( 200, 0, 0, 255 ) )
-	else
-		self.Resources[resource] = self.Resources[resource] + int
-	end
-
-	umsg.Start( "gms_SetResource", self )
-		umsg.String( resource )
-		umsg.Short( self:GetResource( resource ) )
-	umsg.End()
-end
-
-function PlayerMeta:DecResource( resource, int )
-	if ( !self.Resources[resource] ) then self.Resources[resource] = 0 end
-	self.Resources[resource] = self.Resources[resource] - int
-
-	local r = self.Resources[resource]
-	if ( resource == "Flashlight" and r < 1 ) then self:Flashlight( false ) end
-	if ( resource == "Batteries" ) then
-		local maxPow = 50
-		if ( r ) then maxPow = math.min( maxPow + r * 50, 500 ) end
-		self.Power = math.min( self.Power, maxPow )
-		self:UpdateNeeds()
-	end
-
-	umsg.Start( "gms_SetResource", self )
-		umsg.String( resource )
-		umsg.Short( self:GetResource( resource ) )
-	umsg.End()
-end
-
-function PlayerMeta:GetAllResources()
-	local num = 0
-
-	for k, v in pairs( self.Resources ) do
-		num = num + v
-	end
-
-	return num
-end
-
-function PlayerMeta:CreateBuildingSite( pos, angle, model, class, cost )
-	local rep = ents.Create( "gms_buildsite" )
-	rep:SetPos( pos )
-	rep:SetAngles( angle )
-	rep.Costs = cost
-	rep:Setup( model, class )
-	rep:Spawn()
-
-	rep.Player = self
-	rep.OwnerTable = { Team = self:Team(), SteamID = self:SteamID(), Name = self:Name(), EntIndex = self:EntIndex() }
-
-	self:SetNetworkedEntity( "Hasbuildingsite", rep )
-
-	SPropProtection.PlayerMakePropOwner( self , rep )
-	return rep
-end
-
-local NoDropModels = {
-	"models/props_c17/furniturefireplace001a.mdl",
-	"models/props_c17/factorymachine01.mdl",
-	"models/Gibs/airboat_broken_engine.mdl",
-	"models/props_c17/furniturestove001a.mdl",
-	"models/props_wasteland/controlroom_desk001b.mdl",
-	"models/props_c17/FurnitureFridge001a.mdl",
-	"models/props_lab/reciever_cart.mdl",
-	"models/props_trainstation/trainstation_clock001.mdl"
-}
-
-function PlayerMeta:CreateStructureBuildingSite( pos, angle, model, class, cost, name )
-	local rep = ents.Create( "gms_buildsite" )
-	local str = ":"
-	for k, v in pairs( cost ) do
-		str = str .. "\n" .. string.Replace( k, "_", " " ) .. " ( " .. v .. "x )"
-	end
-
-	rep:SetAngles( angle )
-	rep.Costs = cost
-	rep:Setup( model, class )
-	rep:SetPos( pos )
-	rep.Name = name
-	rep:SetNWString( "Name", name )
-	rep:SetNWString( "Resources", str )
-	rep:Spawn()
-
-	local cormin, cormax = rep:WorldSpaceAABB()
-	local offset = cormax - cormin
-
-	if ( model == "models/props_c17/FurnitureFridge001a.mdl" ) then pos = pos + Vector( 0, 0, 10 ) end
-	rep:SetPos( Vector( pos.x, pos.y, pos.z + ( offset.z / 2 ) ) )
-	if ( !table.HasValue( NoDropModels, model )  ) then
-		rep:DropToGround()
-	end
-
-	self:SetNWEntity( "Hasbuildingsite", rep )
-	rep.Player = self
-	rep.OwnerTable = { Team = self:Team(), SteamID = self:SteamID(), Name = self:Name(), EntIndex = self:EntIndex() }
-	SPropProtection.PlayerMakePropOwner( self, rep )
-	return rep
-end
-
-function PlayerMeta:GetBuildingSite()
-	return self:GetNWEntity( "Hasbuildingsite" )
-end
-
-function PlayerMeta:DropResource( resource, int )
-	local nearby = {}
-
-	for k, v in pairs( ents.FindByClass( "gms_resource*" ) ) do
-		if ( v:GetPos():Distance( self:GetPos() ) < 150 ) then
-			if ( v:GetClass() == "gms_resourcedrop" and v.Type != resource ) then
-			else
-				table.insert( nearby, v )
-			end
-		end
-	end
-
-	for id, ent in pairs( nearby ) do
-		if ( !SPropProtection.PlayerCanTouch( self, ent ) ) then continue end
-		if ( ent:GetClass() == "gms_resourcedrop" ) then
-			ent.Amount = ent.Amount + int
-			ent:SetResourceDropInfoInstant( ent.Type, ent.Amount )
-			return
-		else
-			if ( !ent.Resources ) then ent.Resources = {} end
-
-			if ( ent.Resources[ resource ] ) then
-				ent.Resources[ resource ] = ent.Resources[ resource ] + int
-			else
-				ent.Resources[ resource ] = int
-			end
-
-			ent:SetResPackInfo( resource, ent.Resources[ resource ] )
-			return
-		end
-	end
-
-	local ent = ents.Create( "gms_resourcedrop" )
-	ent:SetPos( self:TraceFromEyes( 60 ).HitPos + Vector( 0, 0, 15 ) )
-	ent:SetAngles( self:GetAngles() )
-	ent:Spawn()
-
-	ent:GetPhysicsObject():Wake()
-
-	ent.Type = resource
-	ent.Amount = int
-
-	ent:SetResourceDropInfo( ent.Type, ent.Amount )
-	SPropProtection.PlayerMakePropOwner( self, ent )
-end
-
-function PlayerMeta:SetFood( int )
-	if ( int > 1000 ) then
-		int = 1000
-	end
-
-	self.Hunger = int
-	self:UpdateNeeds()
-end
-
-function PlayerMeta:SetThirst( int )
-	if ( int > 1000 ) then
-		int = 1000
-	end
-
-	self.Thirst = int
-	self:UpdateNeeds()
-end
-
-function PlayerMeta:Heal( int )
-	self:SetHealth( math.min( self:Health() + int, self:GetMaxHealth() ) )
-end
-
-function PlayerMeta:AddUnlock( text )
-	self.FeatureUnlocks[text] = 1
-
-	umsg.Start( "gms_AddUnlock", self )
-		umsg.String( text )
-	umsg.End()
-
-	if ( GMS.FeatureUnlocks[text].OnUnlock ) then GMS.FeatureUnlocks[text].OnUnlock( self ) end
-end
-
-function PlayerMeta:HasUnlock( text )
-	if ( self.FeatureUnlocks and self.FeatureUnlocks[text] ) then return true end
-	return false
-end
-
-function PlayerMeta:CheckForUnlocks()
-	for k, unlock in pairs( GMS.FeatureUnlocks ) do
-		if ( !self:HasUnlock( k ) ) then
-			local NrReqs = 0
-
-			for skill, value in pairs( unlock.Req ) do
-				if ( self:GetSkill( skill ) >= value ) then
-					NrReqs = NrReqs + 1
-				end
-			end
-
-			if ( NrReqs == table.Count( unlock.Req ) ) then
-				self:AddUnlock( k )
-			end
-		end
-	end
-end
-
-function PlayerMeta:TraceFromEyes( dist )
-	return util.TraceLine( {
-		start = self:GetShootPos(),
-		endpos = self:GetShootPos() + ( self:GetAimVector() * dist ),
-		filter = self
-	} )
-end
-
-function PlayerMeta:UpdateNeeds()
-	umsg.Start( "gms_setneeds", self )
-		umsg.Short( self.Sleepiness )
-		umsg.Short( self.Hunger )
-		umsg.Short( self.Thirst )
-		umsg.Short( self.Oxygen )
-		umsg.Short( self.Power )
-		umsg.Short( Time )
-	umsg.End()
-end
-
-function PlayerMeta:PickupResourceEntity( ent )
-	if ( !SPropProtection.PlayerCanTouch( self, ent ) ) then return end
-
-	local int = ent.Amount
-	local room = self.MaxResources - self:GetAllResources()
-
-	if ( room <= 0 ) then self:SendMessage( "You can't carry anymore!", 3, Color( 200, 0, 0, 255 ) ) return end
-	if ( room < int ) then int = room end
-	ent.Amount = ent.Amount - int
-	if ( ent.Amount <= 0 ) then ent:Fadeout() else ent:SetResourceDropInfo( ent.Type, ent.Amount ) end
-
-	self:IncResource( ent.Type, int )
-	self:SendMessage( "Picked up " .. string.Replace( ent.Type, "_", " " ) .. " ( " .. int .. "x )", 4, Color( 10, 200, 10, 255 ) )
-end
-
-function PlayerMeta:PickupResourceEntityPack( ent )
-	if ( !SPropProtection.PlayerCanTouch( self, ent ) ) then return end
-
-	if ( table.Count( ent.Resources ) > 0 ) then
-		for res, int in pairs( ent.Resources ) do
-			local room = self.MaxResources - self:GetAllResources()
-
-			if ( room <= 0 ) then self:SendMessage( "You can't carry anymore!", 3, Color( 200, 0, 0, 255 ) ) return end
-			if ( room < int ) then int = room end
-			ent.Resources[res] = ent.Resources[res] - int
-
-			ent:SetResPackInfo( res, ent.Resources[res] )
-			if ( ent.Resources[res] <= 0 ) then ent.Resources[res] = nil end
-
-			self:IncResource( res, int )
-			self:SendMessage( "Picked up " .. string.Replace( res, "_", " " ) .. " ( " .. int .. "x )", 4, Color( 10, 200, 10, 255 ) )
-		end
-	end
-end
-
-function PlayerMeta:MakeLoadingBar( msg )
-	umsg.Start( "gms_MakeLoadingBar", self )
-		umsg.String( msg )
-	umsg.End()
-end
-
-function PlayerMeta:StopLoadingBar()
-	umsg.Start( "gms_StopLoadingBar",self )
-	umsg.End()
-end
-
-function PlayerMeta:MakeSavingBar( msg )
-	umsg.Start( "gms_MakeSavingBar", self )
-		umsg.String( msg )
-	umsg.End()
-end
-
-function PlayerMeta:StopSavingBar()
-	umsg.Start( "gms_StopSavingBar", self )
-	umsg.End()
-end
-
-function PlayerMeta:AllSmelt( ResourceTable )
-	local resourcedata = {}
-	resourcedata.Req = {}
-	resourcedata.Results = {}
-	local AmountReq = 0
-	for k, v in pairs( ResourceTable.Req ) do
-		if ( self:GetResource( k ) > 0 ) then
-			if ( self:GetResource( k ) <= ResourceTable.Max ) then
-				resourcedata.Req[k] = self:GetResource( k )
-				AmountReq = AmountReq + self:GetResource( k )
-			else
-				resourcedata.Req[k] = ResourceTable.Max
-				AmountReq = AmountReq + ResourceTable.Max
-				self:SendMessage( "You can only do " .. tostring( ResourceTable.Max ) .. " " .. string.Replace( k, "_", " " ) .. " at a time.", 3, Color( 200, 0, 0, 255 ) )
-			end
-		else
-			resourcedata.Req[k] = 1
-		end
-	end
-	for k, v in pairs( ResourceTable.Results ) do
-		resourcedata.Results[k] = AmountReq
-	end
-	return resourcedata
-end
-
-function PlayerMeta:Sleep()
-	if ( !self:Alive() or self:GetNWBool( "Sleeping" ) or self:GetNWBool( "AFK" ) ) then return end
-	if ( self.Sleepiness > 700 ) then self:SendMessage( "You're not tired enough.", 3, Color( 255, 255, 255, 255 ) ) return end
-
-	self:SetNWBool( "Sleeping", true )
-	self:Freeze( true )
-
-	-- Check for shelter
-	local tr = util.TraceLine( {
-		start = self:GetShootPos(),
-		endpos = self:GetShootPos() + ( self:GetUp() * 300 ),
-		filter = self
-	} )
-
-	self.NeedShelter = false
-	if ( !tr.HitWorld and !tr.HitNonWorld ) then
-		self.NeedShelter = true
-	end
-
-	self:EmitSound( "stranded/start_sleeping.wav" )
-end
-
-function PlayerMeta:Wakeup()
-	if ( !self:GetNWBool( "Sleeping" ) ) then return end
-	self:SetNWBool( "Sleeping", false )
-	self:Freeze( false )
-
-	--Check for shelter
-	local trace = {}
-	trace.start = self:GetShootPos()
-	trace.endpos = trace.start + ( self:GetUp() * 300 )
-	trace.filter = self
-
-	local tr = util.TraceLine( trace )
-
-	if ( self.NeedShelter ) then
-		self:SendMessage( "I should get something to sleep under next time...", 6, Color( 200, 0, 0, 255 ) )
-	else
-		self:SendMessage( "Ah, nothing like a good nights sleep!", 5, Color( 255, 255, 255, 255 ) )
-	end
-end
-
-/* ----------------------------------------------------------------------------------------------------
-	Entity Functions
----------------------------------------------------------------------------------------------------- */
-
-function EntityMeta:SetResourceDropInfo( strType, int )
-	timer.Simple( 0.5, function() self:SetResourceDropInfoInstant( strType, int ) end )
-end
-
-function EntityMeta:SetResourceDropInfoInstant( strType, int )
-	for k, v in pairs( player.GetAll() ) do
-		local strType = strType or "Error"
-		umsg.Start( "gms_SetResourceDropInfo", v )
-		umsg.String( self:EntIndex() )
-		umsg.String( string.gsub( strType, "_", " " ) )
-		umsg.Short( self.Amount )
-		umsg.End()
-	end
-end
-
-function EntityMeta:SetResPackInfo( strType, int )
-	for k, v in pairs( player.GetAll() ) do
-		local strType = strType or "Error"
-		umsg.Start( "gms_SetResPackInfo", v )
-		umsg.String( self:EntIndex() )
-		umsg.String( string.gsub( strType, "_", " " ) )
-		umsg.Short( int )
-		umsg.End()
-	end
-end
-
-
-function EntityMeta:SetFoodInfo( strType )
-	timer.Simple( 0.5, function() self:SetFoodInfoInstant( strType ) end )
-end
-
-function EntityMeta:SetFoodInfoInstant( strType )
-	for k, v in pairs( player.GetAll() ) do
-		local strType = strType or "Error"
-		umsg.Start( "gms_SetFoodDropInfo", v )
-			umsg.String( self:EntIndex() )
-			umsg.String( string.gsub( strType, "_", " " ) )
-		umsg.End()
-	end
-end
-
-function EntityMeta:DropToGround()
-	local trace = {}
-	trace.start = self:GetPos()
-	trace.endpos = trace.start + Vector( 0, 0, -100000 )
-	trace.mask = MASK_SOLID_BRUSHONLY
-	trace.filter = self
-
-	local tr = util.TraceLine( trace )
-
-	self:SetPos( tr.HitPos )
-end
-
-function GM.ReproduceTrees()
-	local GM = GAMEMODE
-	if ( GetConVarNumber( "gms_ReproduceTrees" ) == 1 ) then
-		local trees = {}
-		for k, v in pairs( ents.GetAll() ) do
-			if ( v:IsTreeModel() ) then
-				table.insert( trees, v )
-			end
-		end
-
-		if ( #trees < GetConVarNumber( "gms_MaxReproducedTrees" ) ) then
-			for k, ent in pairs( trees ) do
-				local num = math.random( 1, 3 )
-
-				if ( num == 1 ) then
-					local nearby = {}
-					for k, v in pairs( ents.FindInSphere( ent:GetPos(), 50 ) ) do
-						if ( v:GetClass() == "gms_seed" or v:IsProp() ) then
-							table.insert( nearby, v )
-						end
-					end
-
-					if ( #nearby < 3 ) then
-						local pos = ent:GetPos() + Vector( math.random( -500, 500 ), math.random( -500, 500 ), 0 )
-						local retries = 50
-
-						while ( ( pos:Distance( ent:GetPos() ) < 200 or GMS.ClassIsNearby( pos, "prop_physics", 100 ) ) and retries > 0 ) do
-							pos = ent:GetPos() + Vector( math.random( -300, 300 ),math.random( -300, 300 ), 0 )
-							retries = retries - 1
-						end
-
-						local pos = pos + Vector( 0, 0, 500 )
-
-						local seed = ents.Create( "gms_seed" )
-						seed:SetPos( pos )
-						seed:DropToGround()
-						seed:Setup( "tree", 180 )
-						seed:SetNetworkedString( "Owner", "World" )
-						seed:Spawn()
-					end
-				end
-			end
-		end
-		if ( #trees == 0 ) then
-			local info = {}
-			for i = 1, 20 do
-				info.pos = Vector( math.random( -10000, 10000 ), math.random( -10000, 10000 ), 1000 )
-				info.Retries = 50
-
-				--Find pos in world
-				while ( util.IsInWorld( info.pos ) == false and info.Retries > 0 ) do
-					info.pos = Vector( math.random( -10000, 10000 ),math.random( -10000, 10000 ), 1000 )
-					info.Retries = info.Retries - 1
-				end
-
-				--Find ground
-				local trace = {}
-				trace.start = info.pos
-				trace.endpos = trace.start + Vector( 0, 0, -100000 )
-				trace.mask = MASK_SOLID_BRUSHONLY
-
-				local groundtrace = util.TraceLine( trace )
-
-				--Assure space
-				local nearby = ents.FindInSphere( groundtrace.HitPos, 200 )
-				info.HasSpace = true
-
-				for k, v in pairs( nearby ) do
-					if ( v:IsProp() ) then
-						info.HasSpace = false
-					end
-				end
-
-				--Find sky
-				local trace = {}
-				trace.start = groundtrace.HitPos
-				trace.endpos = trace.start + Vector( 0, 0, 100000 )
-
-				local skytrace = util.TraceLine( trace )
-
-				--Find water?
-				local trace = {}
-				trace.start = groundtrace.HitPos
-				trace.endpos = trace.start + Vector( 0, 0, 1 )
-				trace.mask = MASK_WATER
-
-				local watertrace = util.TraceLine( trace )
-
-				--All a go, make entity
-				if ( info.HasSpace and skytrace.HitSky and !watertrace.Hit and ( groundtrace.MatType == MAT_DIRT or groundtrace.MatType == MAT_GRASS or groundtrace.MatType == MAT_SAND ) ) then
-					local seed = ents.Create( "gms_seed" )
-					seed:SetPos( groundtrace.HitPos )
-					seed:DropToGround()
-					seed:Setup( "tree", 180 + math.random( -20, 20 ) )
-					seed:SetNetworkedString( "Owner", "World" )
-					seed:Spawn()
-				end
-			end
-		end
-	end
-
-	timer.Simple( math.random( 1, 3 ) * 60, function() GM.ReproduceTrees() end )
-end
-timer.Simple( 60, function() GAMEMODE.ReproduceTrees() end )
-
-GMS.LootableNPCs = { "npc_antlion", "npc_antlionguard", "npc_crow", "npc_seagull", "npc_pigeon", "npc_zombie" }
-
-function EntityMeta:IsLootableNPC()
-	return table.HasValue( GMS.LootableNPCs, self:GetClass() )
-end
-
-function EntityMeta:MakeCampfire()
-	if ( GetConVarNumber( "gms_campfire" ) <= 0 ) then return end
-
-	local min, max = self:OBBMins(), self:OBBMaxs()
-	local vol = math.abs( max.x - min.x ) * math.abs( max.y - min.y ) * math.abs( max.z - min.z )
-	local mul = math.min( math.sqrt( vol ) / 200, 1 )
-
-	if ( !self.CampFire ) then self:SetHealth( 1337 ) end
-	self.CampFire = true
-
-	timer.Create( "gms_removecampfire_" .. self:EntIndex(), 480 * mul, 1, function() if ( IsValid( self ) ) then self:Fadeout() end end )
-
-	if ( GetConVarNumber( "gms_SpreadFire" ) >= 1 ) then
-		self:Ignite( 360, ( self:OBBMins() - self:OBBMaxs() ):Length() + 10 )
-	else
-		self:Ignite( 360, 0.001 )
-	end
-end
-
-/* ----------------------------------------------------------------------------------------------------
-	Entity Fading
----------------------------------------------------------------------------------------------------- */
-
-GMS.FadingOutProps = {}
-GMS.FadingInProps = {}
-
-function EntityMeta:Fadeout( speed )
-	if ( !IsValid( self ) ) then return end
-	local speed = speed or 1
-
-	for k, v in pairs( player.GetAll() ) do
-		umsg.Start( "gms_CreateFadingProp", v )
-			umsg.String( self:GetModel() )
-			umsg.Vector( self:GetPos() )
-			local ang = self:GetAngles()
-			umsg.Vector( Vector( ang.p, ang.y, ang.r ) )
-			local col = self:GetColor()
-			umsg.Vector( Vector( col.r, col.g, col.b ) )
-			umsg.Short( math.Round( speed ) )
-		umsg.End()
-	end
-
-	self:Remove()
-end
-
---Fadein is serverside
-function EntityMeta:Fadein( speed )
-	self.AlphaFade = 0
-	self:SetRenderMode( RENDERMODE_TRANSALPHA )
-	self:SetColor( Color( 255, 255, 255, 0 ) )
-	self.FadeInSpeed = speed or 4
-	table.insert( GMS.FadingInProps, self )
-end
-
-hook.Add( "Think", "gms_FadePropsThink", function()
-	for k, ent in pairs( GMS.FadingInProps ) do
-		if ( !ent or ent == NULL ) then
-			table.remove( GMS.FadingInProps, k )
-		elseif ( !IsValid( ent ) ) then
-			table.remove( GMS.FadingInProps, k )
-		elseif ( ent.AlphaFade >= 255 ) then
-			table.remove( GMS.FadingInProps, k )
-		else
-			ent.AlphaFade = ent.AlphaFade + ent.FadeInSpeed
-			ent:SetColor( Color( 255, 255, 255, ent.AlphaFade ) )
-		end
-	end
-end )
-
-/* ----------------------------------------------------------------------------------------------------
-	Entity rising / lowering ( Used by gms_seed )
----------------------------------------------------------------------------------------------------- */
-
-GM.RisingProps = {}
-GM.SinkingProps = {}
-
-function EntityMeta:RiseFromGround( speed, altmax )
-	local speed = speed or 1
-	local max;
-
-	if ( !altmax ) then
-		min, max = self:WorldSpaceAABB()
-		max = max.z
-	else
-		max = altmax
-	end
-
-	local tbl = {}
-	tbl.Origin = self:GetPos().z
-	tbl.Speed = speed
-	tbl.Entity = self
-
-	self:SetPos( self:GetPos() + Vector( 0, 0, -max + 10 ) )
-	table.insert( GAMEMODE.RisingProps, tbl )
-end
-
-function EntityMeta:SinkIntoGround( speed )
-	local speed = speed or 1
-
-	local tbl = {}
-	tbl.Origin = self:GetPos().z
-	tbl.Speed = speed
-	tbl.Entity = self
-	tbl.Height = max
-
-	table.insert( GAMEMODE.SinkingProps, tbl )
-end
-
-hook.Add( "Think", "gms_RiseAndSinkPropsHook", function()
-	for k, tbl in pairs( GAMEMODE.RisingProps ) do
-		if ( !IsValid( tbl.Entity ) || tbl.Entity:GetPos().z >= tbl.Origin ) then
-			table.remove( GAMEMODE.RisingProps, k )
-		else
-			tbl.Entity:SetPos( tbl.Entity:GetPos() + Vector( 0, 0, 1 * tbl.Speed ) )
-		end
-	end
-
-	for k, tbl in pairs( GAMEMODE.SinkingProps ) do
-		if ( !IsValid( tbl.Entity ) || tbl.Entity:GetPos().z <= tbl.Origin - tbl.Height ) then
-			table.remove( GAMEMODE.SinkingProps, k )
-			tbl.Entity:Remove()
-		else
-			tbl.Entity:SetPos( tbl.Entity:GetPos() + Vector( 0, 0, -1 * tbl.Speed ) )
-		end
-	end
-end )
-
-/* ----------------------------------------------------------------------------------------------------
-	Admin commands
----------------------------------------------------------------------------------------------------- */
-
-concommand.Add( "gms_admin_maketree", function( ply )
-	if ( IsValid( ply ) && !ply:IsAdmin() ) then ply:SendMessage( "You need admin rights for this!", 3, Color( 200, 0, 0, 255 ) ) return end
-	local tr = ply:TraceFromEyes( 10000 )
-	GAMEMODE.MakeTree( tr.HitPos )
-end )
-
-concommand.Add( "gms_admin_makerock", function( ply )
-	if ( IsValid( ply ) && !ply:IsAdmin() ) then ply:SendMessage( "You need admin rights for this!", 3, Color( 200, 0, 0, 255 ) ) return end
-	local tr = ply:TraceFromEyes( 10000 )
-	GAMEMODE.MakeGenericPlant( ply, tr.HitPos, GMS.RockModels[ math.random( 1, #GMS.RockModels ) ], true )
-end )
-
-concommand.Add( "gms_admin_makefood", function( ply )
-	if ( IsValid( ply ) && !ply:IsAdmin() ) then ply:SendMessage( "You need admin rights for this!", 3, Color( 200, 0, 0, 255 ) ) return end
-	local tr = ply:TraceFromEyes( 10000 )
-	local ent = ents.Create( "prop_physics" )
-	ent:SetAngles( Angle( 0, math.random( 1, 360 ), 0 ) )
-	ent:SetModel( GMS.EdibleModels[math.random( 1, #GMS.EdibleModels )] )
-	ent:SetPos( tr.HitPos + Vector( 0, 0, 10 ) )
-	ent:Spawn()
-	SPropProtection.PlayerMakePropOwner( ply, ent )
-end )
-
-concommand.Add( "gms_admin_makeantlionbarrow", function( ply, cmd, args )
-	if ( IsValid( ply ) && !ply:IsAdmin() ) then ply:SendMessage( "You need admin rights for this!", 3, Color( 200, 0, 0, 255 ) ) return end
-	if ( !args[1] ) then ply:SendMessage( "Specify max antlions!", 3, Color( 200, 0, 0, 255 ) ) return end
-	local tr = ply:TraceFromEyes( 10000 )
-	local ent = ents.Create( "gms_antlionbarrow" )
-	ent:SetPos( tr.HitPos )
-	ent:Spawn()
-	ent:SetNetworkedString( "Owner", "World" )
-	ent:SetKeyValue( "MaxAntlions", args[1] )
-end )
-
-concommand.Add( "gms_admin_makeplant", function( ply, cmd, args )
-	if ( IsValid( ply ) && !ply:IsAdmin() ) then ply:SendMessage( "You need admin rights for this!", 3, Color( 200, 0, 0, 255 ) ) return end
-
-	local tr = ply:TraceFromEyes( 10000 )
-	local typ = tonumber( args[ 1 ] ) or math.random( 1, 5 )
-	local pos = tr.HitPos
-
-	if ( typ == 1 ) then
-		GAMEMODE.MakeMelon( pos, math.random( 1, 3 ), ply )
-	elseif ( typ == 2 ) then
-		GAMEMODE.MakeBanana( pos, math.random( 1, 3 ), ply )
-	elseif ( typ == 3 ) then
-		GAMEMODE.MakeOrange( pos, math.random( 1, 3 ), ply )
-	elseif ( typ == 4 ) then
-		GAMEMODE.MakeBush( pos, ply )
-	elseif ( typ == 5 ) then
-		GAMEMODE.MakeGrain( pos, ply )
-	end
-end )
-
-concommand.Add( "gms_admin_populatearea", function( ply, cmd, args )
-	if ( IsValid( ply ) && !ply:IsAdmin() ) then ply:SendMessage( "You need admin rights for this!", 3, Color( 200, 0, 0, 255 ) ) return end
-	if ( !args[1] or !args[2] or !args[3] ) then ply:SendMessage( "You need to specify <type> <amount> <radius>", 3, Color( 200, 0, 0, 255 ) ) return end
-
-	for k, v in pairs( player.GetAll() ) do
-		v:SendMessage( "Populating area...", 3, Color( 255, 255, 255, 255 ) )
-	end
-
-	--Population time
-	local Amount = tonumber( args[2] ) or 10
-	local info = {}
-	info.Amount = Amount
-
-	if ( Amount > 200 ) then
-		ply:SendMessage( "Auto-capped at 200 props.", 3, Color( 200, 0, 0, 255 ) )
-		info.Amount = 200
-	end
-
-	local Type = args[1]
-	local Amount = info.Amount
-	local Radius = tonumber( args[3] ) or 1000
-
-	--Find playertrace
-	local plytrace = ply:TraceFromEyes( 10000 )
-
-	for i = 1, Amount do
-		info.pos = plytrace.HitPos + Vector( math.random( -Radius, Radius ), math.random( -Radius, Radius ), 1000 )
-		info.Retries = 50
-
-		--Find pos in world
-		while ( util.IsInWorld( info.pos ) == false and info.Retries > 0 ) do
-			info.pos = plytrace.HitPos + Vector( math.random( -Radius, Radius ), math.random( -Radius, Radius ), 1000 )
-			info.Retries = info.Retries - 1
-		end
-
-		--Find ground
-		local trace = {}
-		trace.start = info.pos
-		trace.endpos = trace.start + Vector( 0, 0, -100000 )
-		trace.mask = MASK_SOLID_BRUSHONLY
-
-		local groundtrace = util.TraceLine( trace )
-
-		--Assure space
-		local nearby = ents.FindInSphere( groundtrace.HitPos, 200 )
-		info.HasSpace = true
-
-		for k, v in pairs( nearby ) do
-			if ( v:IsProp() ) then
-				info.HasSpace = false
-			end
-		end
-
-		--Find sky
-		local trace = {}
-		trace.start = groundtrace.HitPos
-		trace.endpos = trace.start + Vector( 0, 0, 100000 )
-
-		local skytrace = util.TraceLine( trace )
-
-		--Find water?
-		local trace = {}
-		trace.start = groundtrace.HitPos
-		trace.endpos = trace.start + Vector( 0, 0, 1 )
-		trace.mask = MASK_WATER
-
-		local watertrace = util.TraceLine( trace )
-
-		--All a go, make entity
-		if ( Type == "Trees" ) then
-			if ( info.HasSpace and skytrace.HitSky and !watertrace.Hit and ( groundtrace.MatType == MAT_DIRT or groundtrace.MatType == MAT_GRASS or groundtrace.MatType == MAT_SAND ) ) then
-				GAMEMODE.MakeTree( groundtrace.HitPos )
-			end
-		elseif ( Type == "Rocks" ) then
-			if ( !watertrace.Hit and ( groundtrace.MatType == MAT_DIRT or groundtrace.MatType == MAT_GRASS or groundtrace.MatType == MAT_SAND ) ) then
-				local ent = ents.Create( "prop_physics" )
-				ent:SetAngles( Angle( 0, math.random( 1, 360 ), 0 ) )
-				ent:SetModel( GMS.RockModels[math.random( 1, #GMS.RockModels )] )
-				ent:SetPos( groundtrace.HitPos )
-				ent:Spawn()
-				ent:SetNetworkedString( "Owner", "World" )
-				ent:Fadein()
-				ent.PhysgunDisabled = true
-				ent:GetPhysicsObject():EnableMotion( false )
-			end
-		elseif ( Type == "Random_Plant" and info.HasSpace ) then
-			if ( !watertrace.Hit and ( groundtrace.MatType == MAT_DIRT or groundtrace.MatType == MAT_GRASS or groundtrace.MatType == MAT_SAND ) ) then
-				local typ = math.random( 1, 5 )
-				local pos = groundtrace.HitPos
-
-				if ( typ == 1 ) then
-					GAMEMODE.MakeMelon( pos,math.random( 1, 2 ), ply )
-				elseif ( typ == 2 ) then
-					GAMEMODE.MakeBanana( pos,math.random( 1, 2 ), ply )
-				elseif ( typ == 3 ) then
-					GAMEMODE.MakeOrange( pos,math.random( 1, 2 ), ply )
-				elseif ( typ == 4 ) then
-					GAMEMODE.MakeBush( pos, ply )
-				elseif ( typ == 5 ) then
-					GAMEMODE.MakeGrain( pos, ply )
-				end
-			end
-		end
-	end
-
-	--Finished
-	for k, v in pairs( player.GetAll() ) do
-		v:SendMessage( "Done!", 3, Color( 255, 255, 255, 255 ) )
-	end
-end )
-
-concommand.Add( "gms_admin_clearmap", function( ply )
-	if ( IsValid( ply ) && !ply:IsAdmin() ) then ply:SendMessage( "You need admin rights for this!", 3, Color( 200, 0, 0, 255 ) ) return end
-
-	for k, v in pairs( ents.GetAll() ) do
-		if ( v:IsRockModel() or v:IsTreeModel() ) then
-			for k, tbl in pairs( GAMEMODE.RisingProps ) do
-				if ( tbl.Entity == v ) then
-					table.remove( GAMEMODE.RisingProps, k )
-				end
-			end
-			for k, tbl in pairs( GAMEMODE.SinkingProps ) do
-				if ( tbl.Entity == v ) then
-					table.remove( GAMEMODE.SinkingProps, k )
-				end
-			end
-			for k, ent in pairs( GAMEMODE.FadingInProps ) do
-				if ( ent == v ) then
-					table.remove( GAMEMODE.FadingInProps, k )
-				end
-			end
-			v:Fadeout()
-		end
-	end
-
-	for k, v in pairs( player.GetAll() ) do v:SendMessage( "Cleared map.", 3, Color( 255, 255, 255, 255 ) ) end
-end )
-
-concommand.Add( "gms_admin_saveallcharacters", function( ply )
-	if ( IsValid( ply ) && !ply:IsAdmin() ) then ply:SendMessage( "You need admin rights for this!", 3, Color( 200, 0, 0, 255 ) ) return end
-
-	for k, v in pairs( player.GetAll() ) do
-		v:SaveCharacter()
-	end
-
-	ply:SendMessage( "Saved characters on all current players.", 3, Color( 255, 255, 255, 255 ) )
-end )
-
-function GM.ADropResource( ply, cmd, args )
-	if ( IsValid( ply ) && !ply:IsAdmin() ) then ply:SendMessage( "You need admin rights for this!", 3, Color( 200, 0, 0, 255 ) ) return end
-	if ( args == nil or args[1] == nil ) then ply:SendMessage( "You need to at least give a resource type!", 3, Color( 200, 0, 0, 255 ) ) return end
-
-	args[1] = string.Capitalize( args[1] )
-	if ( args[2] == nil or string.lower( args[2] ) == "all" ) then args[2] = tostring( ply:GetResource( args[1] ) ) end
-	if ( tonumber( args[2] ) <= 0 ) then ply:SendMessage( "No zeros/negatives!", 3, Color( 200, 0, 0, 255 ) ) return end
-
-	local int = tonumber( args[2] )
-	local Type = args[1]
-
-	ply:DropResource( Type, int )
-	ply:SendMessage( "Dropped " .. string.Replace( Type, "_", " " ) .. " ( " .. int .. "x )", 3, Color( 10, 200, 10, 255 ) )
-end
-concommand.Add( "gms_ADropResources", GM.ADropResource )
-
-/* ----------------------------------------------------------------------------------------------------
-	Console Commands
----------------------------------------------------------------------------------------------------- */
-
-concommand.Add( "gms_dropall", function( ply )
-	local DeltaTime = 0
-	for k, v in pairs( ply.Resources ) do
-		if ( v > 0 ) then
-			timer.Simple( DeltaTime, function() ply:DecResource( k, v ) ply:DropResource( k, v ) end, ply, k, v )
-			DeltaTime = DeltaTime + 0.2
-		end
-	end
-	ply.NextSpawnTime = CurTime() + DeltaTime + 0.5
-end )
-
-concommand.Add( "gms_salvage", function( ply )
-	if ( ply.InProcess ) then return end
-
-	local tr = ply:TraceFromEyes( 100 )
-	if ( !tr.HitNonWorld ) then return end
-
-	local ent = tr.Entity
-
-	if ( ent:GetClass() != "gms_buildsite" && ( table.HasValue( GMS.StructureEntities, ent:GetClass() ) || ent.NormalProp == true ) && SPropProtection.PlayerCanTouch( ply, ent ) ) then
-		ply:DoProcess( "Salvage", 6, { Entity = ent, MatType = tr.MatType } )
-	else
-		ply:SendMessage( "Cannot salvage this kind of prop.", 5, Color( 255, 255, 255, 255 ) )
-	end
-end )
-
-concommand.Add( "gms_steal", function( ply, cmd, args )
-	local tr = ply:TraceFromEyes( 100 )
-	local ent = tr.Entity
-
-	if ( ply:GetSkill( "Survival" ) < 30 ) then ply:SendMessage( "You can only steal at survival level 30+.", 3, Color( 200, 0, 0, 255 ) ) return end
-	if ( !IsValid( ent ) || !tr.HitNonWorld || ent:IsNPC() || ent:IsPlayer() || ent:GetClass() == "gms_buildsite" || ent:GetClass() == "gms_seed" || ent:GetNWString( "Owner", "None" ) == "World" || SPropProtection.PlayerCanTouch( ply, ent ) ) then
-		ply:SendMessage( "You can't steal this.", 3, Color( 200, 0, 0, 255 ) )
-		return
-	end
-
-	local cls = ent:GetClass()
-	local time = math.max( ent:GetVolume(), 1 )
-	if ( cls == "gms_resourcedrop" ) then
-		time = ent.Amount * 0.5
-	elseif ( cls == "gms_resourcepack" or cls == "gms_fridge" ) then
-		for r, n in pairs( ent.Resources ) do
-			time = time + ( n * 0.25 )
-		end
-	end
-
-	time = math.max( time - math.floor( ply:GetSkill( "Stealing" ) / 3 ), math.max( time * 0.25, 2 ) )
-	ply:DoProcess( "Steal", time, { Ent = ent } )
-end )
-
-function GM.PlantMelon( ply, cmd, args )
-	if ( ply:GetNWInt( "plants" ) >= GetConVarNumber( "gms_PlantLimit" ) ) then
-		ply:SendMessage( "You have hit the plant limit.", 3, Color( 200, 0, 0, 255 ) )
-		return
-	end
-	local tr = ply:TraceFromEyes( 150 )
-
-	if ( tr.HitWorld ) then
-		if ( tr.MatType == MAT_DIRT or tr.MatType == MAT_GRASS or tr.MatType == MAT_SAND ) and !GMS.IsInWater( tr.HitPos ) then
-			if ( ply:GetResource( "Melon_Seeds" ) >= 1 ) then
-				if ( !GMS.ClassIsNearby( tr.HitPos, "gms_seed", 30 ) and !GMS.ClassIsNearby( tr.HitPos, "prop_physics", 50 ) ) then
-					local data = {}
-					data.Pos = tr.HitPos
-					ply:DoProcess( "PlantMelon", 3, data )
-				else
-					ply:SendMessage( "You need more distance between seeds/props.", 3, Color( 200, 0, 0, 255 ) )
-				end
-			else
-				ply:SendMessage( "You need a watermelon seed.", 3, Color( 200, 0, 0, 255 ) )
-			end
-		else
-			ply:SendMessage( "You cannot plant on this terrain.", 3, Color( 200, 0, 0, 255 ) )
-		end
-	else
-		ply:SendMessage( "Aim at the ground to plant.", 3, Color( 200, 0, 0, 255 ) )
-	end
-end
-concommand.Add( "gms_plantmelon", GM.PlantMelon )
-
-function GM.PlantBanana( ply, cmd, args )
-	if ( ply:GetNWInt( "plants" ) >= GetConVarNumber( "gms_PlantLimit" ) ) then ply:SendMessage( "You have hit the plant limit.", 3, Color( 200, 0, 0, 255 ) ) return end
-	local tr = ply:TraceFromEyes( 150 )
-
-	if ( tr.HitWorld ) then
-		if ( ( tr.MatType == MAT_DIRT or tr.MatType == MAT_GRASS or tr.MatType == MAT_SAND ) and !GMS.IsInWater( tr.HitPos ) ) then
-			if ( ply:GetResource( "Banana_Seeds" ) >= 1 ) then
-				if ( !GMS.ClassIsNearby( tr.HitPos, "gms_seed", 30 ) and !GMS.ClassIsNearby( tr.HitPos, "prop_physics", 50 ) ) then
-					ply:DoProcess( "PlantBanana", 3, { Pos = tr.HitPos } )
-				else
-					ply:SendMessage( "You need more distance between seeds/props.", 3, Color( 200, 0, 0, 255 ) )
-				end
-			else
-				ply:SendMessage( "You need a banana seed.", 3, Color( 200, 0, 0, 255 ) )
-			end
-		else
-			ply:SendMessage( "You cannot plant on this terrain.", 3, Color( 200, 0, 0, 255 ) )
-		end
-	else
-		ply:SendMessage( "Aim at the ground to plant.", 3, Color( 200, 0, 0, 255 ) )
-	end
-end
-concommand.Add( "gms_plantbanana", GM.PlantBanana )
-
-function GM.PlantOrange( ply, cmd, args )
-	if ( ply:GetNWInt( "plants" ) >= GetConVarNumber( "gms_PlantLimit" ) ) then ply:SendMessage( "You have hit the plant limit.",3,Color( 200,0,0,255 ) ) return end
-	local tr = ply:TraceFromEyes( 150 )
-
-	if ( tr.HitWorld ) then
-		if ( ( tr.MatType == MAT_DIRT or tr.MatType == MAT_GRASS or tr.MatType == MAT_SAND ) and !GMS.IsInWater( tr.HitPos ) ) then
-			if ( ply:GetResource( "Orange_Seeds" ) >= 1 ) then
-				if ( !GMS.ClassIsNearby( tr.HitPos, "gms_seed", 30 ) and !GMS.ClassIsNearby( tr.HitPos, "prop_physics", 50 ) ) then
-					ply:DoProcess( "PlantOrange", 3, { Pos = tr.HitPos } )
-				else
-					ply:SendMessage( "You need more distance between seeds/props.", 3, Color( 200, 0, 0, 255 ) )
-				end
-			else
-				ply:SendMessage( "You need an orange seed.", 3, Color( 200, 0, 0, 255 ) )
-			end
-		else
-			ply:SendMessage( "You cannot plant on this terrain.", 3, Color( 200, 0, 0, 255 ) )
-		end
-	else
-		ply:SendMessage( "Aim at the ground to plant.", 3, Color( 200 ,0, 0, 255 ) )
-	end
-end
-concommand.Add( "gms_plantorange", GM.PlantOrange )
-
-function GM.PlantGrain( ply, cmd, args )
-	if ( !ply:HasUnlock( "Grain_Planting" ) ) then ply:SendMessage( "You need more planting skill.", 3, Color( 200, 0, 0, 255 ) ) return end
-	if ( ply:GetNWInt( "plants" ) >= GetConVarNumber( "gms_PlantLimit" ) ) then ply:SendMessage( "You have hit the plant limit.", 3, Color( 200, 0, 0, 255 ) ) return end
-	local tr = ply:TraceFromEyes( 150 )
-
-	if ( tr.HitWorld ) then
-		local nearby = false
-
-		for k, v in pairs( ents.FindInSphere( tr.HitPos, 50 ) ) do
-			if ( ( v:IsGrainModel() or v:IsProp() or v:GetClass() == "gms_seed" ) and ( tr.HitPos-Vector( v:LocalToWorld( v:OBBCenter() ).x, v:LocalToWorld( v:OBBCenter() ).y, tr.HitPos.z ) ):Length() <= 50 ) then
-				nearby = true
-			end
-		end
-
-		if ( ( tr.MatType == MAT_DIRT or tr.MatType == MAT_GRASS or tr.MatType == MAT_SAND ) and !GMS.IsInWater( tr.HitPos ) ) then
-			if ( ply:GetResource( "Grain_Seeds" ) >= 1 ) then
-				if ( !nearby ) then
-					ply:DoProcess( "PlantGrain", 3, { Pos = tr.HitPos } )
-				else
-					ply:SendMessage( "You need more distance between seeds/props.", 3, Color( 200, 0, 0, 255 ) )
-				end
-			else
-				ply:SendMessage( "You need a grain seed.", 3, Color( 200, 0, 0, 255 ) )
-			end
-		else
-			ply:SendMessage( "You cannot plant on this terrain.", 3, Color( 200, 0, 0, 255 ) )
-		end
-	else
-		ply:SendMessage( "Aim at the ground to plant.", 3, Color( 200, 0, 0, 255 ) )
-	end
-end
-concommand.Add( "gms_plantgrain", GM.PlantGrain )
-
-function GM.PlantBush( ply, cmd, args )
-	if ( ply:GetNWInt( "plants" ) >= GetConVarNumber( "gms_PlantLimit" ) ) then ply:SendMessage( "You have hit the plant limit.", 3, Color( 200, 0, 0, 255 ) ) return end
-	local tr = ply:TraceFromEyes( 150 )
-
-	if ( tr.HitWorld ) then
-		local nearby = false
-
-		for k, v in pairs( ents.FindInSphere( tr.HitPos, 50 ) ) do
-			if ( ( v:IsBerryBushModel() or v:IsProp() or v:GetClass() == "gms_seed" ) and ( tr.HitPos-Vector( v:LocalToWorld( v:OBBCenter() ).x, v:LocalToWorld( v:OBBCenter() ).y, tr.HitPos.z ) ):Length() <= 50 ) then
-				nearby = true
-			end
-		end
-
-		if ( ( tr.MatType == MAT_DIRT or tr.MatType == MAT_GRASS or tr.MatType == MAT_SAND ) and !GMS.IsInWater( tr.HitPos ) ) then
-			if ( ply:GetResource( "Berries" ) >= 1 ) then
-				if ( !nearby ) then
-					ply:DoProcess( "PlantBush", 3, { Pos = tr.HitPos } )
-				else
-					ply:SendMessage( "You need more distance between seeds/props.", 3, Color( 200, 0, 0, 255 ) )
-				end
-			else
-				ply:SendMessage( "You need a berry.", 3, Color( 200, 0, 0, 255 ) )
-			end
-		else
-			ply:SendMessage( "You cannot plant on this terrain.", 3, Color( 200, 0, 0, 255 ) )
-		end
-	else
-		ply:SendMessage( "Aim at the ground to plant.", 3, Color( 200, 0, 0, 255 ) )
-	end
-end
-concommand.Add( "gms_plantbush", GM.PlantBush )
-
-function GM.PlantTree( ply, cmd, args )
-	if ( !ply:HasUnlock( "Sprout_Planting" ) ) then ply:SendMessage( "You need more planting skill.", 3, Color( 200, 0, 0, 255 ) ) return end
-	local tr = ply:TraceFromEyes( 150 )
-
-	if ( tr.HitWorld ) then
-		if ( ( tr.MatType == MAT_DIRT or tr.MatType == MAT_GRASS or tr.MatType == MAT_SAND ) and !GMS.IsInWater( tr.HitPos ) ) then
-			if ( ply:GetResource( "Sprouts" ) >= 1 ) then
-				ply:DoProcess( "PlantTree", 5, { Pos = tr.HitPos } )
-			else
-				ply:SendMessage( "You need a sprout.", 3, Color( 200, 0, 0, 255 ) )
-			end
-		else
-			ply:SendMessage( "You cannot plant on this terrain.", 3, Color( 200, 0, 0, 255 ) )
-		end
-	else
-		ply:SendMessage( "Aim at the ground to plant.", 3, Color( 200, 0, 0, 255 ) )
-	end
-end
-concommand.Add( "gms_planttree", GM.PlantTree )
-
-function GM.DrinkFromBottle( ply, cmd, args )
-	if ( ply:GetResource( "Water_Bottles" ) < 1 ) then ply:SendMessage( "You need a water bottle.", 3, Color( 200, 0, 0, 255 ) ) return end
-	ply:DoProcess( "DrinkBottle", 1.5 )
-end
-concommand.Add( "gms_drinkbottle", GM.DrinkFromBottle )
-
-function GM.EatBerry( ply, cmd, args )
-	if ( ply:GetResource( "Berries" ) < 1 ) then ply:SendMessage( "You need some berries.", 3, Color( 200, 0, 0, 255 ) ) return end
-	ply:DoProcess( "EatBerry", 1.5 )
-end
-concommand.Add( "gms_eatberry", GM.EatBerry )
-
-function GM.TakeAMedicine( ply, cmd, args )
-	if ( ply:GetResource( "Medicine" ) < 1 ) then ply:SendMessage( "You need Medicine.", 3, Color( 200, 0, 0, 255 ) ) return end
-	ply:DoProcess( "TakeMedicine", 1.5 )
-end
-concommand.Add( "gms_takemedicine", GM.TakeAMedicine )
-
-function GM.DropWeapon( ply, cmd, args )
-	if ( !ply:Alive() ) then return end
-	if ( table.HasValue( GMS.NonDropWeapons, ply:GetActiveWeapon():GetClass() ) ) then
-		ply:SendMessage( "You cannot drop this!", 3, Color( 200, 0, 0, 255 ) )
-	else
-		ply:DropWeapon( ply:GetActiveWeapon() )
-	end
-end
-concommand.Add( "gms_dropweapon", GM.DropWeapon )
-
-function GM.DropResource( ply, cmd, args )
-	if ( args == nil or args[1] == nil ) then ply:SendMessage( "You need to at least give a resource type!", 3, Color( 200, 0, 0, 255 ) ) return end
-
-	args[1] = string.Capitalize( args[1] )
-	if ( !ply.Resources[args[1]] or ply.Resources[args[1]] == 0 ) then ply:SendMessage( "You don't have this kind of resource.", 3, Color( 200, 0, 0, 255 ) ) return end
-	if ( args[2] == nil or string.lower( args[2] ) == "all" ) then args[2] = tonumber( ply:GetResource( args[1] ) ) end
-
-	if ( !tonumber( args[2] ) || tonumber( args[2] ) <= 0 ) then ply:SendMessage( "No zeros/negatives!", 3, Color( 200, 0, 0, 255 ) ) return end
-
-	local int = tonumber( args[2] )
-	local Type = args[1]
-	local res = ply:GetResource( Type )
-
-	if ( int > res ) then
-		int = res
-	end
-	ply:DropResource( Type, int )
-	ply:DecResource( Type, int )
-
-	ply:SendMessage( "Dropped " .. string.Replace( Type, "_", " " ) .. " ( " .. int .. "x )", 3, Color( 10, 200, 10, 255 ) )
-end
-concommand.Add( "gms_DropResources", GM.DropResource )
-
-function GM.TakeResource( ply, cmd, args )
-	if ( ply.InProcess ) then return end
-
-	local takeAll = false
-	if ( args == nil or args[ 1 ] == nil ) then takeAll = true end
-
-	local int = tonumber( args[ 2 ] ) or 99999
-	local typ = string.Capitalize( args[ 1 ] or "" )
-
-	if ( int <= 0 ) then ply:SendMessage( "No zeros/negatives!", 3, Color( 200, 0, 0, 255 ) ) return end
-
-	local tr = ply:TraceFromEyes( 150 )
-	local ent = tr.Entity
-
-	if ( !IsValid( ent ) ) then return end
-
-	local cls = ent:GetClass()
-
-	if ( cls != "gms_resourcedrop" && cls != "gms_resourcepack" && cls != "gms_fridge" ) then return end
-	if ( !SPropProtection.PlayerCanTouch( ply, ent ) ) then return end
-	if ( ( ply:GetPos() - ent:LocalToWorld( ent:OBBCenter() ) ):Length() >= 100 ) then return end
-
-	if ( cls == "gms_resourcedrop" ) then
-		if ( ent.Type != typ && !takeAll ) then return end
-		local room = ply.MaxResources - ply:GetAllResources()
-		if ( room <= 0 ) then return end
-		if ( int >= ent.Amount ) then int = ent.Amount end
-		if ( room < int ) then int = room end
-		ent.Amount = ent.Amount - int
-		if ( ent.Amount <= 0 ) then ent:Fadeout() else ent:SetResourceDropInfo( ent.Type, ent.Amount ) end
-
-		ply:IncResource( ent.Type, int )
-		ply:SendMessage( "Picked up " .. string.Replace( ent.Type, "_", " " ) .. " ( " .. int .. "x )", 4, Color( 10, 200, 10, 255 ) )
-	end
-
-	if ( cls == "gms_resourcepack" ) then
-		for res, num in pairs( ent.Resources ) do
-			if ( res == typ or takeAll ) then
-				local totake = int
-				local room = ply.MaxResources - ply:GetAllResources()
-				if ( room <= 0 ) then return end
-				if ( totake >= num ) then totake = num end
-				if ( room < totake ) then totake = room end
-				ent.Resources[ res ] = num - totake
-				ent:SetResPackInfo( res, ent.Resources[ res ] )
-				if ( ent.Resources[ res ] <= 0 ) then ent.Resources[ res ] = nil end
-
-				ply:IncResource( res, totake )
-				ply:SendMessage( "Picked up " .. string.Replace( res, "_", " " ) .. " ( " .. totake .. "x )", 4, Color( 10, 200, 10, 255 ) )
-			end
-		end
-	end
-
-	if ( takeAll ) then return end
-
-	if ( cls == "gms_fridge" ) then
-		for res, num in pairs( ent.Resources ) do
-			if ( res == args[ 1 ] ) then
-				ent.Resources[ res ] = num - 1
-				ent:SetResPackInfo( res, ent.Resources[ res ] )
-				if ( ent.Resources[ res ] <= 0 ) then ent.Resources[ res ] = nil end
-
-				local food = ents.Create( "gms_food" )
-				food:SetPos( ent:GetPos() + Vector( 0, 0, ent:OBBMaxs().z + 16 ) )
-				SPropProtection.PlayerMakePropOwner( ply, food )
-				food.Value = GMS.Combinations[ "Cooking" ][ string.Replace( res, " ", "_" ) ].FoodValue
-				food.Name = res
-				food:Spawn()
-				food:SetFoodInfo( res )
-
-				timer.Simple( 300, function( food ) if ( IsValid( food ) ) then food:Fadeout( 2 ) end end, food )
-			end
-		end
-	end
-end
-concommand.Add( "gms_TakeResources", GM.TakeResource ) // ply:PickupResourceEntityPack( ent )
-
-concommand.Add( "gms_structures", function( ply )
-	ply:OpenCombiMenu( "Structures" )
-end )
-
-concommand.Add( "gms_combinations", function( ply )
-	ply:OpenCombiMenu( "Combinations" )
-end )
-
-concommand.Add( "gms_MakeCombination", function( ply, cmd, args )
-	print("Concommand called with group:" .. args[1] .. " and combi " .. args[2])
-	if ( !args[1] or !args[2] ) then ply:SendMessage( "Please specify a valid combination.", 3, Color( 255, 255, 255, 255 ) ) return end
-
-	local group = args[1]
-	local combi = args[2]
-
-	if ( !GMS.Combinations[ group ] ) then return end
-	if ( !GMS.Combinations[ group ][ combi ] ) then return end
-
-	local tbl = GMS.Combinations[ group ][ combi ]
-
-	if ( group == "Cooking" and tbl.Entity ) then
-		local nearby = false
-
-		for k, v in pairs( ents.FindInSphere( ply:GetPos(), 100 ) ) do
-			if ( ( v:IsProp() and v:IsOnFire() ) or v:GetClass() == tbl.Entity ) then nearby = true end
-		end
-
-		if ( !nearby ) then ply:SendMessage( "You need to be close to a fire!", 3, Color( 200, 0 ,0, 255 ) ) return end
-	elseif ( tbl.Entity ) then
-		local nearby = false
-
-		for k, v in pairs( ents.FindInSphere( ply:GetPos(), 100 ) ) do
-			if ( v:GetClass() == tbl.Entity ) then nearby = true end
-		end
-
-		if ( !nearby ) then ply:SendMessage( "You need to be close to a " .. tbl.Entity .. "!", 3, Color( 200, 0, 0, 255 ) ) return end
-	end
-
-	--Check for skills
-	local numreq = 0
-
-	if ( tbl.SkillReq ) then
-		for k, v in pairs( tbl.SkillReq ) do
-			if ( ply:GetSkill( k ) >= v ) then
-				numreq = numreq + 1
-			end
-		end
-
-		if ( numreq < table.Count( tbl.SkillReq ) ) then ply:SendMessage( "Not enough skill.", 3, Color( 200, 0, 0, 255 ) ) return end
-	end
-
-	--Check for resources
-	local numreq = 0
-
-	for k, v in pairs( tbl.Req ) do
-		if ( ply:GetResource( k ) ) >= v then
-			numreq = numreq + 1
-		end
-	end
-
-	if ( numreq < table.Count( tbl.Req ) and group != "Structures" ) then ply:SendMessage( "Not enough resources.", 3, Color( 200, 0, 0, 255 ) ) return end
-
-	--All well, make stuff:
-	if ( group == "Cooking" ) then
-		local data = {}
-		data.Name = tbl.Name
-		data.FoodValue = tbl.FoodValue
-		data.Cost = table.Copy( tbl.Req )
-		local time = 5
-
-		if ply:GetActiveWeapon():GetClass() == "gms_fryingpan" then
-			time = 2
-		end
-
-		ply:DoProcess( "Cook", time, data )
-	elseif ( group == "Combinations" ) then
-		local data = {}
-		data.Name = tbl.Name
-		data.Res = tbl.Results
-		data.Cost = table.Copy( tbl.Req )
-		local time = 5
-
-		ply:DoProcess( "MakeGeneric", time, data )
-	elseif ( group == "gms_pistolgunlab" or group == "gms_gunchunks" or group == "gms_smggunlab" or group == "gms_hightechgunlab" or group == "gms_transmutator" or group == "gms_advancedtransmutator" or group == "gms_renbuyshop" or group == "gms_rensellshop" ) then
-		local data = {}
-		data.Name = tbl.Name
-		if ( tbl.AllSmelt == true ) then
-			local sourcetable = ply:AllSmelt( tbl )
-			data.Res  = sourcetable.Results
-			data.Cost = table.Copy( sourcetable.Req )
-		else
-			data.Res = tbl.Results
-			data.Cost = table.Copy( tbl.Req )
-		end
-		local timecount = 1
-		for k, v in pairs( data.Cost ) do
-			timecount  = timecount + v
-		end
-		local time = timecount * 0.3
-
-		if ( tbl.SwepClass != nil ) then
-			data.Class = tbl.SwepClass
-			ply:DoProcess( "MakeWeapon", time, data )
-		else
-			ply:DoProcess( "Processing", time, data )
-		end
-	elseif ( group == "gms_factory" ) then
-		local data = {}
-		data.Name = tbl.Name
-		if ( tbl.AllSmelt == true ) then
-			local sourcetable = ply:AllSmelt( tbl )
-			data.Res = sourcetable.Results
-			data.Cost = table.Copy( sourcetable.Req )
-		else
-			data.Res = tbl.Results
-			data.Cost = table.Copy( tbl.Req )
-		end
-		local timecount = 1
-		for k, v in pairs( data.Cost ) do
-			timecount  = timecount + v
-		end
-		local time = timecount * 0.3
-
-		local smelt = false
-		for r,n in pairs( data.Res ) do
-			if ( r == "Iron" or r == "Copper" ) then smelt = true end
-		end
-
-		if ( tbl.SwepClass != nil ) then
-			data.Class = tbl.SwepClass
-			ply:DoProcess( "MakeWeapon", time, data )
-		elseif ( smelt ) then
-			time = math.max( time - math.floor( ply:GetSkill( "Smelting" ) / 5 ), math.max( timecount * 0.15, 2 ) )
-			ply:DoProcess( "Smelt", time, data )
-		else
-			ply:DoProcess( "Processing", time, data )
-		end
-	elseif ( group == "gms_stoneworkbench" or group == "gms_copperworkbench" or group == "gms_ironworkbench" or group == "gms_silverworkbench" or group == "gms_goldworkbench" or group == "gms_steelworkbench" or group == "gms_platinumworkbench" ) then
-		local data = {}
-		data.Name = tbl.Name
-		data.Class = tbl.SwepClass
-		data.Cost = table.Copy( tbl.Req )
-
-		local time = 10
-		if ( ply:GetActiveWeapon():GetClass() == "gms_wrench" ) then time = 7 end
-		time = math.max( time - math.floor( math.max( ply:GetSkill( "Weapon_Crafting" ) - 8, 0 ) / 4 ), 4 )
-
-		ply:DoProcess( "MakeWeapon", time, data )
-	elseif ( group == "gms_techworkbench" or group == "gms_obelisk" or group == "gms_runealtar" or group == "gms_mithrilworkbench" or group == "gms_runicinfuser") then
-		local data = {}
-		data.Name = tbl.Name
-		data.Cost = table.Copy( tbl.Req )
-
-		if ( tbl.SwepClass != nil ) then
-			local time = 10
-			if ( ply:GetActiveWeapon():GetClass() == "gms_wrench" ) then time = 7 end
-			time = math.max( time - math.floor( math.max( ply:GetSkill( "Weapon_Crafting" ) - 8, 0 ) / 4 ), 4 )
-			data.Class = tbl.SwepClass
-			ply:DoProcess( "MakeWeapon", time, data )
-		else
-			data.Res = tbl.Results
-			local time = 5
-			ply:DoProcess( "MakeGeneric", time, data )
-		end
-	elseif ( group == "Structures" ) then
-		local trs = ply:TraceFromEyes( 250 )
-		if ( !trs.HitWorld ) then ply:SendMessage( "Aim at the ground to construct a structure.", 3, Color( 200, 0, 0, 255 ) ) return end
-
-		ply:DoProcess( "MakeBuilding", 20, {
-			Name = tbl.Name,
-			Class = tbl.Results,
-			Cost = table.Copy( tbl.Req ),
-			BuildSiteModel = tbl.BuildSiteModel,
-			Pos = trs.HitPos
-		} )
-
-	elseif ( group == "gms_stonefurnace" ) then
-		local data = {}
-		data.Name = tbl.Name
-		if ( tbl.AllSmelt == true ) then
-			local sourcetable = ply:AllSmelt( tbl )
-			data.Res  = sourcetable.Results
-			data.Cost = table.Copy( sourcetable.Req )
-		else
-			data.Res = tbl.Results
-			data.Cost = table.Copy( tbl.Req )
-		end
-		local timecount = 1
-		for k, v in pairs( data.Cost ) do
-			timecount = timecount + v
-		end
-
-		local time = timecount * 0.5
-		time = math.max( time - math.floor( ply:GetSkill( "Smelting" ) / 5 ), math.max( timecount * 0.25, 2 ) )
-
-		ply:DoProcess( "Smelt", time, data )
-	elseif ( group == "gms_copperfurnace" ) then
-		local data = {}
-		data.Name = tbl.Name
-		if ( tbl.AllSmelt == true ) then
-			local sourcetable = ply:AllSmelt( tbl )
-			data.Res  = sourcetable.Results
-			data.Cost = table.Copy( sourcetable.Req )
-		else
-			data.Res = tbl.Results
-			data.Cost = table.Copy( tbl.Req )
-		end
-		local timecount = 1
-		for k, v in pairs( data.Cost ) do
-			timecount = timecount + v
-		end
-		local time = timecount * 0.6
-		time = math.max( time - math.floor( ply:GetSkill( "Smelting" ) / 5 ), math.max( timecount * 0.3, 2 ) )
-
-		ply:DoProcess( "Smelt", time, data )
-	elseif ( group == "gms_ironfurnace" ) then
-		local data = {}
-		data.Name = tbl.Name
-		if ( tbl.AllSmelt == true ) then
-			local sourcetable = ply:AllSmelt( tbl )
-			data.Res  = sourcetable.Results
-			data.Cost = table.Copy( sourcetable.Req )
-		else
-			data.Res = tbl.Results
-			data.Cost = table.Copy( tbl.Req )
-		end
-		local timecount = 1
-		for k, v in pairs( data.Cost ) do
-			timecount = timecount + v
-		end
-		local time = timecount * 0.7
-		time = math.max( time - math.floor( ply:GetSkill( "Smelting" ) / 5 ), math.max( timecount * 0.35, 2 ) )
-
-		ply:DoProcess( "Smelt", time, data )
-	elseif ( group == "gms_techfurnace" ) then
-		local data = {}
-		data.Name = tbl.Name
-		if ( tbl.AllSmelt == true ) then
-			local sourcetable = ply:AllSmelt( tbl )
-			data.Res  = sourcetable.Results
-			data.Cost = table.Copy( sourcetable.Req )
-		else
-			data.Res = tbl.Results
-			data.Cost = table.Copy( tbl.Req )
-		end
-		local timecount = 1
-		for k, v in pairs( data.Cost ) do
-			timecount = timecount + v
-		end
-		local time = timecount * 0.7
-		time = math.max( time - math.floor( ply:GetSkill( "Smelting" ) / 5 ), math.max( timecount * 0.35, 2 ) )
-
-		ply:DoProcess( "Smelt", time, data )
-	elseif ( group == "gms_silverfurnace" ) then
-		local data = {}
-		data.Name = tbl.Name
-		if ( tbl.AllSmelt == true ) then
-			local sourcetable = ply:AllSmelt( tbl )
-			data.Res  = sourcetable.Results
-			data.Cost = table.Copy( sourcetable.Req )
-		else
-			data.Res = tbl.Results
-			data.Cost = table.Copy( tbl.Req )
-		end
-		local timecount = 1
-		for k, v in pairs( data.Cost ) do
-			timecount = timecount + v
-		end
-		local time = timecount * 0.7
-		time = math.max( time - math.floor( ply:GetSkill( "Smelting" ) / 5 ), math.max( timecount * 0.35, 2 ) )
-
-		ply:DoProcess( "Smelt", time, data )
-	elseif ( group == "gms_goldfurnace" ) then
-		local data = {}
-		data.Name = tbl.Name
-		if ( tbl.AllSmelt == true ) then
-			local sourcetable = ply:AllSmelt( tbl )
-			data.Res  = sourcetable.Results
-			data.Cost = table.Copy( sourcetable.Req )
-		else
-			data.Res = tbl.Results
-			data.Cost = table.Copy( tbl.Req )
-		end
-		local timecount = 1
-		for k, v in pairs( data.Cost ) do
-			timecount = timecount + v
-		end
-		local time = timecount * 0.7
-		time = math.max( time - math.floor( ply:GetSkill( "Smelting" ) / 5 ), math.max( timecount * 0.35, 2 ) )
-
-		ply:DoProcess( "Smelt", time, data )
-	elseif ( group == "gms_steelfurnace" ) then
-		local data = {}
-		data.Name = tbl.Name
-		if ( tbl.AllSmelt == true ) then
-			local sourcetable = ply:AllSmelt( tbl )
-			data.Res  = sourcetable.Results
-			data.Cost = table.Copy( sourcetable.Req )
-		else
-			data.Res = tbl.Results
-			data.Cost = table.Copy( tbl.Req )
-		end
-		local timecount = 1
-		for k, v in pairs( data.Cost ) do
-			timecount = timecount + v
-		end
-		local time = timecount * 0.1
-		time = math.max( time - math.floor( ply:GetSkill( "Smelting" ) / 5 ), math.max( timecount * 0.35, 2 ) )
-
-		ply:DoProcess( "Smelt", time, data )
-	elseif ( group == "gms_platinumfurnace") then
-		local data = {}
-		data.Name = tbl.Name
-		if ( tbl.AllSmelt == true ) then
-			local sourcetable = ply:AllSmelt( tbl )
-			data.Res  = sourcetable.Results
-			data.Cost = table.Copy( sourcetable.Req )
-		else
-			data.Res = tbl.Results
-			data.Cost = table.Copy( tbl.Req )
-		end
-		local timecount = 1
-		for k, v in pairs( data.Cost ) do
-			timecount = timecount + v
-		end
-		local time = timecount * 0.5
-		time = math.max( time - math.floor( ply:GetSkill( "Smelting" ) / 5 ), math.max( timecount * 0.35, 2 ) )
-
-
-
-		ply:DoProcess( "Smelt", time, data )
-	elseif ( group == "gms_mithrilfactory") then
-		local data = {}
-		data.Name = tbl.Name
-		if ( tbl.AllSmelt == true ) then
-			local sourcetable = ply:AllSmelt( tbl )
-			data.Res  = sourcetable.Results
-			data.Cost = table.Copy( sourcetable.Req )
-		else
-			data.Res = tbl.Results
-			data.Cost = table.Copy( tbl.Req )
-		end
-		local timecount = 1
-		for k, v in pairs( data.Cost ) do
-			timecount = timecount + v
-		end
-		local time = timecount * 0.2
-		time = math.max( time - math.floor( ply:GetSkill( "Smelting" ) / 5 ), math.max( timecount * 0.20, 2 ) )
-
-
-
-
-
-
-		ply:DoProcess( "Smelt", time, data )
-	elseif ( group == "gms_grindingstone" ) then
-		local data = {}
-		data.Name = tbl.Name
-		if ( tbl.AllSmelt == true ) then
-			local sourcetable = ply:AllSmelt( tbl )
-
-			for r, n in pairs( sourcetable.Results ) do
-				if ( r == "Flour" ) then sourcetable.Results[r] = math.floor( n * 0.6 ) end
-			end
-
-			data.Res = sourcetable.Results
-			data.Cost = table.Copy( sourcetable.Req )
-		else
-			data.Res = tbl.Results
-			data.Cost = table.Copy( tbl.Req )
-		end
-		local timecount = 1
-		for k, v in pairs( data.Cost ) do
-			timecount = timecount + v
-		end
-		local time = timecount * 0.75
-
-		ply:DoProcess( "Crush", time, data )
-	end
-end )
-
-concommand.Add( "gms_sleep", function( ply, cmd, args ) ply:Sleep() end )
-concommand.Add( "gms_wakeup", function( ply, cmd, args ) ply:Wakeup() end )
-
-function GM.AFK( ply, cmd, args )
-	if ( ply:GetNWBool( "Sleeping" ) or !ply:Alive() ) then return end
-	if ( ply.InProcess ) then return end
-	if ( !ply:GetNWBool( "AFK", false ) ) then
-		ply:SetNWBool( "AFK", true )
-	else
-		ply:SetNWBool( "AFK", false )
-	end
-
-	ply:Freeze( ply:GetNWBool( "AFK" ) )
-end
-concommand.Add( "gms_afk", GM.AFK )
-
-function GM.PlayerStuck( ply, cmd, args )
-	if ( ply.InProcess ) then return end
-	if ( ply.Spam == true ) then ply:SendMessage( "No spamming!", 3, Color( 200, 0, 0, 255 ) ) return end
-	if ( ply.Spam == false or ply.Spam == nil ) then ply:SetPos( ply:GetPos() + Vector( 0, 0, 64 ) ) end
-
-	ply.Spam = true
-	timer.Simple( 0.2, function() ply.Spam = false end )
-end
-concommand.Add( "gms_stuck", GM.PlayerStuck )
-
-function GM.MakeCampfire( ply, cmd, args )
-	if ( GetConVarNumber( "gms_campfire" ) == 1 ) then
-		local tr = ply:TraceFromEyes( 150 )
-
-		if ( !tr.HitNonWorld or !tr.Entity ) then ply:SendMessage( "Aim at the prop( s ) to use for campfire.", 3, Color( 255, 255, 255, 255 ) ) return end
-
-		local ent = tr.Entity
-		local cls = tr.Entity:GetClass()
-
-		if ( ent:IsOnFire() or cls != "prop_physics" and cls != "prop_physics_multiplayer" and cls != "prop_dynamic" ) then
-			ply:SendMessage( "Aim at the prop( s ) to use for campfire.", 3, Color( 255, 255, 255, 255 ) )
-			return
-		end
-
-		local mat = tr.MatType
-
-		if ( ply:GetResource( "Wood" ) < 5 ) then ply:SendMessage( "You need at least 5 wood to make a fire.", 5, Color( 255, 255, 255, 255 ) ) return end
-
-		if ( mat != MAT_WOOD ) then ply:SendMessage( "Prop has to be wood, or if partially wood, aim at the wooden part.", 5, Color( 255, 255, 255, 255 ) ) return end
-
-		local data = {}
-		data.Entity = ent
-
-		if ( SPropProtection.PlayerCanTouch( ply, ent ) ) then
-			ply:DoProcess( "Campfire", 5, data )
-			return
-		end
-	end
-end
-concommand.Add( "gms_makefire", GM.MakeCampfire )
-
-/* ----------------------------------------------------------------------------------------------------
-	Player spawn
----------------------------------------------------------------------------------------------------- */
-
-function GM:PlayerInitialSpawn( ply )
-	ply:SetTeam( 1 )
-
-	ply.Skills = {}
-	ply.Resources = {}
-	ply.Experience = {}
-	ply.FeatureUnlocks = {}
-
-	ply:SetSkill( "Survival", 0 )
-	ply:SetXP( "Survival", 0 )
-	ply.MaxResources = 25
-	ply.Loaded = true
-
-	-- Admin info, needed clientside
-	if ( ply:IsAdmin() ) then
-		for k, v in pairs( file.Find( "gmstranded/gamesaves/*.txt", "DATA" ) ) do
-			local name = string.sub( v, 1, string.len( v ) - 4 )
-
-			if ( string.Right( name, 5 ) != "_info" ) then
-				umsg.Start( "gms_AddLoadGameToList", ply )
-					umsg.String( name )
-				umsg.End()
-			end
-		end
-	end
-
-	-- Character loading
-	if ( file.Exists( "gmstranded/saves/" .. ply:UniqueID() .. ".txt", "DATA" ) ) then
-		local tbl = util.JSONToTable( file.Read( "gmstranded/saves/" .. ply:UniqueID() .. ".txt", "DATA" ) )
-
-		if ( tbl[ "skills" ] ) then
-			for k, v in pairs( tbl[ "skills" ] ) do ply:SetSkill( k, v ) end
-		end
-
-		if ( tbl[ "experience" ] ) then
-			for k, v in pairs( tbl["experience"] ) do ply:SetXP( k, v ) end
-		end
-
-		/*if ( tbl["unlocks"] ) then
-			for k, v in pairs( tbl["unlocks"] ) do ply.FeatureUnlocks[ k ] = v end
-		end*/
-
-		if ( tbl["resources"] ) then
-			for k, v in pairs( tbl["resources"] ) do ply:SetResource( k, v ) end
-		end
-
-		if ( tbl["weapons"] ) then
-			for k, v in pairs( tbl["weapons"] ) do ply:Give( v ) end
-		end
-
-		ply:StripAmmo()
-
-		if ( tbl[ "ammo" ] ) then
-			for k, v in pairs( tbl[ "ammo" ] ) do ply:GiveAmmo( v, k ) end
-		end
-
-		if ( !ply.Skills[ "Survival" ] ) then ply.Skills[ "Survival" ] = 0 end
-
-		ply.FeatureUnlocks = tbl["unlocks"]
-		ply.MaxResources = ( ply.Skills["Survival"] * 5 ) + 25
-
-		ply:SendMessage( "Loaded character successfully.", 3, Color( 255, 255, 255, 255 ) )
-		ply:SendMessage( "Last visited on " .. tbl.date .. ", enjoy your stay.", 10, Color( 255, 255, 255, 255 ) )
-	end
-
-	ply:SetNWInt( "plants", 0 )
-	for k, v in pairs( ents.GetAll() ) do
-		if ( v and IsValid( v ) and v:GetNWEntity( "plantowner" ) and IsValid( v:GetNWEntity( "plantowner" ) ) and v:GetNWEntity( "plantowner" ) == ply ) then
-			ply:SetNWInt( "plants", ply:GetNWInt( "plants" ) + 1 )
-		end
-	end
-
-	local time = 2
-
-	local rp = RecipientFilter()
-	rp:AddPlayer( ply )
-
-	for id, t in pairs( GAMEMODE.Tribes ) do
-		timer.Simple( time, function()
-			umsg.Start( "sendTribe", rp )
-				umsg.Short( id )
-				umsg.String( t.name )
-				umsg.Vector( Vector( t.color.r, t.color.g, t.color.b ) )
-				if ( t.password == false ) then
-					umsg.Bool( false )
-				else
-					umsg.Bool( true )
-				end
-			umsg.End()
-
-		end )
-		time = time + 0.1
-	end
-
-	for _, v in ipairs( ents.FindByClass( "gms_resourcedrop" ) ) do
-		timer.Simple( time, function()
-			umsg.Start( "gms_SetResourceDropInfo", rp )
-			umsg.String( v:EntIndex() )
-			umsg.String( string.gsub( v.Type or "Error!", "_", " " ) )
-			umsg.Short( v.Amount )
-			umsg.End()
-		end )
-		time = time + 0.1
-	end
-
-	for _, v in ipairs( table.Add( ents.FindByClass( "gms_resourcepack" ), ents.FindByClass( "gms_fridge" ) ) ) do
-		for res, num in pairs( v.Resources ) do
-			timer.Simple( time, function()
-				umsg.Start( "gms_SetResPackInfo", rp )
-				umsg.String( v:EntIndex() )
-				umsg.String( string.gsub( res, "_", " " ) )
-				umsg.Short( num )
-				umsg.End()
-			end )
-			time = time + 0.1
-		end
-		time = time + 0.1
-	end
-
-	for _, v in ipairs( ents.FindByClass( "gms_food" ) ) do
-		timer.Simple( time, function()
-			umsg.Start( "gms_SetFoodDropInfo", ply )
-				umsg.String( v:EntIndex() )
-				umsg.String( string.gsub( v.Name or "ERROR", "_", " " ) )
-			umsg.End()
-		end )
-		time = time + 0.1
-	end
-end
-
-local SpawnClasses = {
-	"info_player_deathmatch", "info_player_combine", "info_player_combine",
-	"info_player_rebel", "info_player_counterterrorist", "info_player_terrorist",
-	"info_player_axis", "info_player_allies", "gmod_player_start",
-	"info_player_teamspawn", "ins_spawnpoint", "aoc_spawnpoint",
-	"dys_spawn_point", "info_player_pirate", "info_player_viking",
-	"info_player_knight", "diprip_start_team_blue", "diprip_start_team_red",
-	"info_player_red", "info_player_blue", "info_player_coop",
-	"info_player_human", "info_player_zombie", "info_player_deathmatch",
-	"info_player_zombiemaster"
-}
-
-function GM:PlayerSelectSpawn( pl )
-	if ( GAMEMODE.TeamBased ) then
-		local ent = GAMEMODE:PlayerSelectTeamSpawn( pl:Team(), pl )
-		if ( IsValid( ent ) ) then return ent end
-	end
-
-	if ( !IsTableOfEntitiesValid( self.SpawnPoints ) ) then
-		self.LastSpawnPoint = 0
-		self.SpawnPoints = ents.FindByClass( "info_player_start" )
-		for id, cl in pairs( SpawnClasses ) do
-			self.SpawnPoints = table.Add( self.SpawnPoints, ents.FindByClass( cl ) )
-		end
-	end
-
-	local count = table.Count( self.SpawnPoints )
-	if ( count == 0 ) then
-		MsgN( "[PlayerSelectSpawn] Error! No spawn points!" )
-		return nil
-	end
-
-	local ChosenSpawnPoint = nil
-
-	for id, ChosenSpawnPoint in pairs( self.SpawnPoints ) do
-
-		if ( IsValid( ChosenSpawnPoint ) && ChosenSpawnPoint:IsInWorld() ) then
-			if ( GAMEMODE:IsSpawnpointSuitable( pl, ChosenSpawnPoint, id == count ) ) then
-				return ChosenSpawnPoint
-			end
-		end
-
-	end
-
-	return ChosenSpawnPoint
-end
-
-function GM:PlayerSpawn( ply )
-
-	self:SetPlayerSpeed( ply, 250, 250 )
-	ply:SetMaxHealth( 100 )
-	ply:UnSpectate()
-
-	for k, v in pairs( GMS.FeatureUnlocks ) do
-		if ( ply:HasUnlock( k ) && v.OnUnlock ) then v.OnUnlock( ply ) end
-	end
-
-	hook.Call("PlayerLoadout", self, ply)
-	hook.Call("PlayerSetModel", self, ply)
-
-	ply.Sleepiness = 1000
-	ply.Hunger = 1000
-	ply.Thirst = 1000
-	ply.Oxygen = 1000
-	ply.Power = 50
-
-	ply.Resources = ply.Resources or {}
-
-	if ( ply.Resources[ "Batteries" ] ) then ply.Power = math.min( ply.Power + ply.Resources[ "Batteries" ] * 50, 500 ) end
-
-	/* GMOD CUSTOMIZATION */
-	ply:UpdatePlayerColor()
-
-	local col = ply:GetInfo( "cl_weaponcolor" )
-	ply:SetWeaponColor( Vector( col ) )
-
-	ply:SetupHands()
-
-	ply:UpdateNeeds()
-end
-
-function GM:PlayerSetModel( ply )
-	local cl_playermodel = ply:GetInfo( "cl_playermodel" )
-	local modelname = player_manager.TranslatePlayerModel( cl_playermodel )
-	util.PrecacheModel( modelname )
-	ply:SetModel( modelname )
-end
-
-function GM:PlayerSetHandsModel( ply, ent )
-
-	local simplemodel = player_manager.TranslateToPlayerModelName( ply:GetModel() )
-	local info = player_manager.TranslatePlayerHands( simplemodel )
-	if ( info ) then
-		ent:SetModel( info.model )
-		ent:SetSkin( info.skin )
-		ent:SetBodyGroups( info.body )
-	end
-
-end
-
-function GM:PlayerLoadout( ply )
-	ply:Give( "gms_fists" )
-	ply:Give( "weapon_physcannon" )
-	ply:Give( "weapon_physgun" )
-
-	ply:SelectWeapon( "weapon_physgun" )
-	ply:SelectWeapon( "gms_fists" )
-
-	if ( GetConVarNumber( "gms_AllTools" ) == 1 ) then
-		for id, wep in pairs( GMS.AllWeapons ) do ply:Give( wep ) end
-	end
-
-	if ( ply:IsDeveloper() ) then ply:Give( "gmod_tool" ) ply:Give( "pill_pigeon" ) end
-end
-
-function GM:PlayerCanPickupWeapon( ply, wep )
-	if ( ply:HasWeapon( wep:GetClass() ) ) then return false end
-	return true
-end
-
-function GM:CanProperty( pl, property, ent )
-	if ( !IsValid( ent ) ) then return false end
-	if ( !pl:IsAdmin() ) then return false end
-
-	if ( ent.m_tblToolsAllowed ) then
-		local vFound = false
-		for k, v in pairs( ent.m_tblToolsAllowed ) do
-			if ( property == v ) then vFound = true end
-		end
-
-		if ( !vFound ) then return false end
-	end
-
-	if ( property == "bonemanipulate" ) then
-		if ( game.SinglePlayer() ) then return true end
-
-		if ( ent:IsNPC() ) then return GetConVarNumber( "sbox_bonemanip_npc" ) != 0 end
-		if ( ent:IsPlayer() ) then return GetConVarNumber( "sbox_bonemanip_player" ) != 0 end
-
-		return GetConVarNumber( "sbox_bonemanip_misc" ) != 0
-	end
-
-	return true
-end
-
-hook.Add( "PlayerDeath", "Death", function( ply )
-
-	// Creates the gravestone
-	local grave = ents.Create("gms_gravestone")
-
-	grave:SetPos( Vector( ply:GetPos().x, ply:GetPos().y, ply:GetPos().z+18 ) )
-
-	grave:Spawn()
-	grave:SetplName(ply:Nick())
-
-	grave:SetNetworkedString( "Owner", "Everyone" )
-
-	wepstbl = {}
-	restbl = {}
-
-	for _, v in pairs( ply:GetWeapons() ) do
-		if ( !table.HasValue( GMS.NonDropWeapons, v:GetClass() ) && GetConVarNumber( "gms_AllTools" ) != 1 ) then
-			//ply:DropWeapon( v )
-			table.insert(wepstbl, v:GetClass())
-			SPropProtection.PlayerMakePropOwner( ply, v )
-		end
-	end
-
-	for _, v in pairs(ply.Resources) do
-
-		num1 = v * 0.1
-		num2 = v - math.Round(num1)
-
-		if (num2 > 0) then
-
-			table.insert(restbl, _.." x"..num2)
-			ply:DecResource(_,v)
-
-		end
-
-
-
-	end
-
-	ply.Resources = {}
-
-	grave.deathWeapons = wepstbl
-	grave.deathResources = restbl
-
-	ply:CancelProcess()
-
-	if ( ply:GetNWBool("AFK") ) then
-		ply:Freeze( false )
-		ply:SetNWBool( "AFK", false )
-	end
-end )
-
-timer.Create( "GMS.AutoSaveAllCharacters", math.Clamp( GetConVarNumber( "gms_AutoSaveTime" ), 1, 60 ) * 60, 0, function()
-	if ( GetConVarNumber( "gms_AutoSave" ) == 1 ) then
-		for k, v in pairs( player.GetAll() ) do
-			v:SendMessage( "Autosaving..", 3, Color( 255, 255, 255, 255 ) )
-			v:SaveCharacter()
-		end
-	end
-end )
-
-function GM:PlayerDisconnected( ply )
-	Msg( "Saving character of disconnecting player " .. ply:Nick() .. "...\n" )
-	ply:SaveCharacter()
-end
-
-function GM:ShutDown()
-	for k, v in pairs( player.GetAll() ) do v:SaveCharacter() end
-end
-
-function PlayerMeta:UpdatePlayerColor()
-	local col = self:GetInfo( "cl_playercolor" )
-	if ( GetConVarNumber( "gms_TeamColors" ) > 0 ) then
-		local tcol = team.GetColor( self:Team() )
-		col = tcol.r / 255 .. " " .. tcol.g / 255 .. " " .. tcol.b / 255
-	end
-	self:SetPlayerColor( Vector( col ) )
-end
-
-function PlayerMeta:ResetCharacter()
-
-	self.Skills = {}
-	self.Resources = {}
-	self.Experience = {}
-	self.FeatureUnlocks = {}
-
-	self:SetSkill( "Survival", 0 )
-	self:SetXP( "Survival", 0 )
-	self.MaxResources = 25
-
-	self:SaveCharacter()
-
-	umsg.Start( "gms_ResetPlayer", ply )
-	umsg.End()
-
-end
-
-function PlayerMeta:SaveCharacter()
-	if ( !file.IsDir( "gmstranded", "DATA" ) ) then file.CreateDir( "gmstranded" ) end
-	if ( !file.IsDir( "gmstranded/saves", "DATA" ) ) then file.CreateDir( "gmstranded/saves" ) end
-	if ( !self.Loaded ) then
-		print( "Player " .. self:Name() .. " tried to save before he has loaded!" )
-		self:SendMessage( "Character save failed: Not yet loaded!", 3, Color( 255, 50, 50, 255 ) )
-		return
-	end
-
-	local tbl = {}
-	tbl["date"] = os.date( "%A %m/%d/%y" )
-	tbl["name"] = self:Nick()
-
-	tbl["skills"] = self.Skills
-	tbl["experience"] = self.Experience
-	tbl["unlocks"] = self.FeatureUnlocks
-
-	tbl["resources"] = {}
-	tbl["weapons"] = {}
-	tbl["ammo"] = {}
-
-	for k, v in pairs( self.Resources ) do
-		if ( v > 0 ) then tbl["resources"][ k ] = v end
-	end
-
-	for id, wep in pairs( self:GetWeapons() ) do
-		if ( wep:GetClass() != "gms_fists" || wep:GetClass() != "weapon_physgun" || wep:GetClass() != "weapon_physcannon" ) then
-			table.insert( tbl[ "weapons" ], wep:GetClass() )
-		end
-	end
-
-	local ammo_types = { "ar2", "smg1", "pistol", "buckshot", "357", "grenade", "alyxgun", "xbowbolt", "AlyxGun", "RPG_Round","SMG1_Grenade", "SniperRound",
-		"SniperPenetratedRound", "Grenade", "Thumper", "Gravity", "Battery", "GaussEnergy", "CombineCannon", "AirboatGun", "StriderMinigun", "StriderMinigunDirect",
-		"HelicopterGun", "AR2AltFire", "Grenade", "Hopwire", "CombineHeavyCannon", "ammo_proto1"
-	}
-
-	for id, str in pairs( ammo_types ) do
-		local ammo = self:GetAmmoCount( str )
-		if ( ammo > 0 ) then tbl[ "ammo" ][ str ] = ammo end
-	end
-
-	file.Write( "gmstranded/saves/" .. self:UniqueID() .. ".txt", util.TableToJSON( tbl ) )
-	self:SendMessage( "Saved character!", 3, Color( 255, 255, 255 ) )
-end
-
-concommand.Add( "gms_savecharacter", function( ply, cmd, args )
-	if ( ply.GMSLastSave && ply.GMSLastSave > CurTime() ) then ply:SendMessage( "You must wait " .. math.floor( ply.GMSLastSave - CurTime() ) .. " seconds before saving again.", 3, Color( 255, 50, 50, 255 ) ) return end
-	ply.GMSLastSave = CurTime() + 30
-	ply:SaveCharacter()
-end )
-
-concommand.Add( "gms_resetcharacter", function( ply, cmd, args )
-	if ( !args[ 1 ] ) then ply:ConCommand( "gms_resetcharacter_verify" ) return end
-	if ( args[ 1 ] != "I agree" ) then ply:ChatPrint( "You didn't type what was asked." ) return end
-	ply:ResetCharacter()
-end )
-
-/*------------------------ Prop spawning ------------------------*/
-
-function GM:PlayerSpawnProp( ply, model )
-	if ( ply.InProcess ) then return false end
-	if ( ply.NextSpawn && ply.NextSpawn > CurTime() ) then ply:SendMessage( "No spamming!", 3, Color( 200, 0, 0, 255 ) ) return false end -- No spamming
-	if ( !ply:IsAdmin() && GMS_IsAdminOnlyModel( model ) ) then ply:SendMessage( "You cannot spawn this prop unless you're admin.", 5, Color( 200, 0, 0, 255 ) ) return false end
-	return true //LimitReachedProcess( ply, "props" )
-end
-
-function GM:PlayerSpawnedProp( ply, mdl, ent )
-	ply.NextSpawn = CurTime() + 1
-	SPropProtection.PlayerMakePropOwner( ply, ent )
-
-	if ( GetConVarNumber( "gms_FreeBuild" ) == 1 ) then return end
-	if ( GetConVarNumber( "gms_FreeBuildSA" ) == 1 and ply:IsAdmin() ) then return end
-
-	ent.NormalProp = true
-
-	timer.Simple( 0.2, function() self:PlayerSpawnedPropDelay( ply, mdl, ent ) end )
-end
-
-function GM:PlayerSpawnedPropDelay( ply, mdl, ent )
-	if ( !IsValid( ent ) ) then return end
-
-	--Trace
-	ent.EntOwner = ply
-
-	-- Do volume in cubic "feet"
-	local vol = ent:GetVolume()
-
-	local x = 0
-	local trace = nil
-	local tr = nil
-	trace = {}
-	trace.start = ent:GetPos() + Vector( ( math.random() * 200 ) - 100, ( math.random() * 200 ) - 100, ( math.random() * 200 ) - 100 )
-	trace.endpos = ent:GetPos()
-	tr = util.TraceLine( trace )
-
-	while ( tr.Entity != ent and x < 5 ) do
-		x = x + 1
-		trace = {}
-		trace.start = ent:GetPos() + Vector( ( math.random() * 200 ) - 100, ( math.random() * 200 ) - 100, ( math.random() * 200 ) - 100 )
-		trace.endpos = ent:GetPos()
-		tr = util.TraceLine( trace )
-	end
-
-	--Faulty trace
-	if ( tr.Entity != ent ) then ent:Remove() ply:SendMessage( "You need more space to spawn.", 3, Color( 255, 255, 255, 255 ) ) return end
-
-	if ( !GMS.MaterialResources[ tr.MatType ] ) then
-		MsgC( Color( 255, 0, 0 ), "WARNING! Can't detect material of " .. mdl .. "!\n" )
-		tr.MatType = MAT_CONCRETE
-	end
-
-	local res = GMS.MaterialResources[ tr.MatType ]
-	//local cost = math.ceil( vol * ( GetConVarNumber( "gms_CostsScale" ) / 2 ) )
-	local cost = math.ceil( vol * 0.5 )
-
-	if ( cost > ply:GetResource( res ) ) then
-		if ( IsValid( ply:GetBuildingSite() ) ) then ply:GetBuildingSite():Remove() end
-		local site = ply:CreateBuildingSite( ent:GetPos(), ent:GetAngles(), ent:GetModel(), ent:GetClass() )
-		local tbl = site:GetTable()
-		site.EntOwner = ply
-		site.NormalProp = true
-		local costtable = {}
-		costtable[ res ] = cost
-
-		tbl.Costs = table.Copy( costtable )
-		ply:DoProcess( "Assembling", math.max( 2, math.min( cost / 100, 120 ) ) )
-		ply:SendMessage( "Not enough resources, creating buildsite.", 3, Color( 255, 255, 255, 255 ) )
-		local str = ":"
-		for k, v in pairs( site.Costs ) do
-			str = str .. " " .. string.Replace( k, "_", " " ) .. " ( " .. v .. "x )"
-		end
-		site:SetNWString( "Resources", str )
-		local Name = "Prop"
-		site:SetNWString( "Name", Name )
-		ent:Remove()
-		return
-	end
-
-	-- Resource cost
-	if ply:GetResource( res ) < cost then
-		ent:Remove()
-		ply:SendMessage( "You need " .. string.Replace( res, "_", " " ) .. " ( " .. cost .. "x ) to spawn this prop.", 3, Color( 200, 0, 0, 255 ) )
-	else
-		ply:DecResource( res, cost )
-		ply:SendMessage( "Used " .. string.Replace( res, "_", " " ) .. " ( " .. cost .. "x ) to spawn this prop.", 3, Color( 255, 255, 255, 255 ) )
-		ply:DoProcess( "Assembling", math.max( 2, math.min( cost / 100, 120 ) ) )
-	end
-end
-
--- No Ragdolls, Effects, SENTs, NPCs, SWEPs or Vehicles in Stranded.
-
-function GM:PlayerSpawnRagdoll( ply, model )
-	return false
-end
-
-function GM:PlayerSpawnEffect( ply, model )
-	return false
-end
-
-function GM:PlayerSpawnSENT( ply, name )
-	return false
-end
-
-function GM:PlayerSpawnNPC( ply, npc_type, equipment )
-	return false
-end
-
-function GM:PlayerSpawnSWEP( ply, wname, wtable )
-	return false
-end
-
-function GM:PlayerGiveSWEP( ply, wname, wtable )
-	return false
-end
-
-function GM:PlayerSpawnVehicle( ply, model, vname, vtable )
-	return false
-end
-
-/*------------------------ Needs ------------------------*/
-
-timer.Create( "GMS.SubtractNeeds", 3, 0, function()
-	for k, ply in pairs( player.GetAll() ) do
-		if ( ply:Alive() ) then
-			local AddHunger = -3
-			local AddThirst = -6
-
-			-- Sleeping
-			if ( ply:GetNWBool( "Sleeping" ) ) then
-				if ( ply.Sleepiness <= 950 ) then
-					local trace = {}
-					trace.start = ply:GetShootPos()
-					trace.endpos = trace.start - ( ply:GetUp() * 300 )
-					trace.filter = ply
-
-					local tr = util.TraceLine( trace )
-					if ( IsValid( tr.Entity ) and tr.Entity:IsSleepingFurniture() ) then
-						ply.Sleepiness = math.Clamp( ply.Sleepiness + 100, 0, 1000 )
-					else
-						ply.Sleepiness = math.Clamp( ply.Sleepiness + 50, 0, 1000 )
-					end
-				elseif ( ply.Sleepiness > 950 ) then
-					ply.Sleepiness = 1000
-					ply:Wakeup()
-				end
-
-				AddThirst = -20
-				AddHunger = -20
-
-				if ( ply.NeedShelter ) then
-					if ( ply:Health() >= 11 ) then
-						ply:SetHealth( ply:Health() - 10 )
-					else
-						ply:Kill()
-						for k, v in pairs( player.GetAll() ) do v:SendMessage( ply:Nick() .. " died in sleep.", 3, Color( 170, 0, 0, 255 ) ) end
-					end
-				end
-			end
-
-			if ( !ply:GetNWBool( "AFK" ) ) then
-
-				// Oxygen
-				if ( ply:WaterLevel() > 2 ) then
-					if ( ply.Oxygen > 0 ) then
-						ply.Oxygen = math.max( ply.Oxygen - math.min( 1600 / ply:GetSkill( "Swimming" ), 500 ), 0 )
-						ply:IncXP( "Swimming", math.Clamp( math.Round( 100 / ply:GetSkill( "Swimming" ) ), 1, 1000 ) )
-					end
-				else
-					if ( ply.Oxygen < 1000 ) then ply.Oxygen = math.min( ply.Oxygen + 100, 1000 ) end
-				end
-
-				// Flashlight
-				if ( ply:FlashlightIsOn() ) then
-					if ( ply.Power > 0 ) then
-						ply.Power = math.max( ply.Power - 5, 0 )
-						if ( ply.Power < 5 ) then ply:Flashlight( false ) end
-					end
-				else
-					local maxPow = 50
-					if ( ply.Resources["Batteries"] ) then maxPow = math.min( maxPow + ply.Resources["Batteries"] * 50, 500 ) end
-					if ( ply.Power < maxPow ) then ply.Power = math.min( ply.Power + 10, maxPow ) end
-				end
-
-				if ( ply.Sleepiness > 0 ) then ply.Sleepiness = math.Clamp( ply.Sleepiness - 2, 0, 1000 ) end
-				if ( ply.Thirst > 0 ) then ply.Thirst = math.Clamp( ply.Thirst + AddThirst, 0, 1000 ) end
-				if ( ply.Hunger > 0 ) then ply.Hunger = math.Clamp( ply.Hunger + AddHunger, 0, 1000 ) end
-			end
-
-			ply:UpdateNeeds()
-
-			--Are you dying?
-			if ( ply.Sleepiness <= 0 or ply.Thirst <= 0 or ply.Hunger <= 0 ) then
-				if ( ply:Health() >= 3 ) then
-					ply:SetHealth( ply:Health() - 2 )
-					ply:ScreenFade( SCREENFADE.IN, Color( 255, 0, 0 ), 0.7, 0 )
-					ply:ViewPunch( Angle( math.random( 6, -6 ), math.random( 4, -4 ), 0 ) )
-				else
-					ply:Kill()
-					for k, v in pairs( player.GetAll() ) do v:SendMessage( ply:Nick() .. " didn't survive.", 3, Color( 170, 0, 0, 255 ) ) end
-				end
-			end
-
-			if ( ply.Oxygen <= 0 ) then
-				if ( ply:Health() >= 9 ) then
-					ply:SetHealth( ply:Health() - 8 )
-					ply:EmitSound( "player/pl_drown" .. math.random( 1, 3 ) .. ".wav", 100, math.random( 95, 105 ) )
-					ply:ScreenFade( SCREENFADE.IN, Color( 0, 0, 255 ), 0.7, 0)
-					ply:ViewPunch( Angle( math.random( 6, -6 ), 0, 0 ) )
-				else
-					ply:Kill()
-					for k, v in pairs( player.GetAll() ) do v:SendMessage( ply:Nick() .. " has drowned.", 3, Color( 170, 0, 0, 255 ) ) end
-				end
-			end
-		end
-	end
-end )
-
-/* NPC Looting and hunting */
-
-function GM:OnNPCKilled( npc, killer, weapon )
-
-	if ( npc != killer ) then self.BaseClass.OnNPCKilled( self, npc, killer, weapon ) end
-	npc:Fadeout( 5 )
-
-	if ( !killer:IsPlayer() ) then return end
-	killer:SetFrags( killer:Frags() + 1 )
-
-	if ( !npc:IsLootableNPC() ) then return end
-
-	local loot = ents.Create( "gms_loot" )
-	SPropProtection.PlayerMakePropOwner( killer, loot )
-
-	loot.Resources = { Meat = math.random( 1, 5 ) }
-	loot:SetPos( npc:GetPos() + Vector( 0, 0, 64 ) )
-	loot:Spawn()
-	timer.Simple( 180, function() if ( loot:IsValid() ) then loot:Fadeout( 2 ) end end )
-
-	killer:IncXP( "Hunting", math.Clamp( math.Round( 150 / killer:GetSkill( "Hunting" ) ), 1, 1000 ) )
-end
-
-/* Use Hook */
-hook.Add( "KeyPress", "GMS_UseKeyHook", function( ply, key )
-	if ( key != IN_USE ) then return end
-	if ( ply:KeyDown( 1 ) ) then return end
-
-	local tr = ply:TraceFromEyes( 128 )
-	if ( tr.HitNonWorld && IsValid( tr.Entity ) && !GMS.IsInWater( tr.HitPos ) ) then
-		local ent = tr.Entity
-		local mdl = tr.Entity:GetModel()
-		local cls = tr.Entity:GetClass()
-
-		if ( ( ent:IsFoodModel() or cls == "gms_food" ) and ( ( ply:GetPos() - ent:LocalToWorld( ent:OBBCenter() ) ):Length() <= 128 ) and SPropProtection.PlayerCanTouch( ply, ent ) ) then
-			if ( cls == "gms_food" ) then
-				ply:DoProcess( "EatFood", 3, { Entity = ent } )
-			else
-				ply:DoProcess( "EatFruit", 2, { Entity = ent } )
-			end
-		elseif ( ent:IsTreeModel() or ent:GetClass() == "gms_tree"  ) then
-			if ( !ply:HasUnlock( "Sprout_Collecting" ) ) then ply:SendMessage( "You don't have enough skill.", 3, Color( 200, 0, 0, 255 ) ) return end
-			ply:DoProcess( "SproutCollect", 5 )
-		elseif ( cls == "gms_resourcedrop" and ( ply:GetPos() - tr.HitPos ):Length() <= 128 and SPropProtection.PlayerCanTouch( ply, ent ) ) then
-			ply:PickupResourceEntity( ent )
-		elseif ( ( cls == "gms_resourcepack" or cls == "gms_fridge" ) and ( ply:GetPos() - tr.HitPos ):Length() <= 128 and SPropProtection.PlayerCanTouch( ply, ent ) ) then
-			ply:ConCommand( "gms_openrespackmenu" )
-		elseif ( ent:IsOnFire() && SPropProtection.PlayerCanTouch( ply, ent ) ) then
-			if ( GetConVarNumber( "gms_campfire" ) == 1 ) then ply:OpenCombiMenu( "Cooking" ) end
-		end
-	elseif ( tr.HitWorld ) then
-		for k, v in pairs( ents.FindInSphere( tr.HitPos, 100 ) ) do
-			if ( v:IsGrainModel() && SPropProtection.PlayerCanTouch( ply, v ) ) then
-				ply:DoProcess( "HarvestGrain", 3, { Entity = v } )
-				return
-			elseif ( v:IsBerryBushModel() && SPropProtection.PlayerCanTouch( ply, v ) ) then
-				ply:DoProcess( "HarvestBush", 3, { Entity = v } )
-				return
-			end
-		end
-		if ( ( tr.MatType == MAT_DIRT or tr.MatType == MAT_GRASS or tr.MatType == MAT_SAND or tr.MatType == MAT_SNOW ) and !GMS.IsInWater( tr.HitPos ) ) then
-			local time = 5
-			if ( IsValid( ply:GetActiveWeapon() ) && ply:GetActiveWeapon():GetClass() == "gms_shovel" ) then time = 2 end
-			ply:DoProcess( "Foraging", time )
-		end
-	end
-
-	local trace = {}
-	trace.start = ply:GetShootPos()
-	trace.endpos = trace.start + ( ply:GetAimVector() * 150 )
-	trace.mask = bit.bor( MASK_WATER, MASK_SOLID )
-	trace.filter = ply
-
-	local tr2 = util.TraceLine( trace )
-	if ( ( tr2.Hit && tr2.MatType == MAT_SLOSH && ply:WaterLevel() > 0 ) or ply:WaterLevel() == 3 ) then
-		ply.Thirst = math.min( ply.Thirst + 50, 1000 )
-		if ( !ply.Hasdrunk ) then
-			ply:EmitSound( Sound( "npc/barnacle/barnacle_gulp" .. math.random( 1, 2 ) .. ".wav" ), 100, math.random( 95, 105 ) )
-			ply.Hasdrunk = true
-			timer.Simple( 0.9, function() ply.Hasdrunk = false end, ply )
-		end
-		ply:UpdateNeeds()
-	elseif ( GMS.IsInWater( tr.HitPos ) && !tr.HitNonWorld ) then
-		if (ply:GetActiveWeapon():GetClass() == "gms_bucket") then
-			ply:DoProcess( "BottleWater", 20 )
-		else
-			ply:DoProcess( "BottleWater", 3 )
-		end
-	end
-end )
-
-/* Saving / loading functions */
-
--- Commands
-concommand.Add( "gms_admin_savemap", function( ply, cmd, args )
-	if ( IsValid( ply ) && !ply:IsAdmin() ) then ply:SendMessage( "You need admin rights for this!", 3, Color( 200, 0, 0, 255 ) ) return end
-	if ( !args[ 1 ] or string.Trim( args[ 1 ] ) == "" ) then return end
-	GAMEMODE:PreSaveMap( string.Trim( args[1] ) )
-end )
-
-concommand.Add( "gms_admin_loadmap", function( ply, cmd, args )
-	if ( IsValid( ply ) && !ply:IsAdmin() ) then ply:SendMessage( "You need admin rights for this!", 3, Color( 200, 0 ,0, 255 ) ) return end
-	if ( !args[ 1 ] or string.Trim( args[ 1 ] ) == "" ) then return end
-	GAMEMODE:PreLoadMap( string.Trim( args[ 1 ] ) )
-end )
-
-concommand.Add( "gms_admin_deletemap", function( ply, cmd, args )
-	if ( IsValid( ply ) && !ply:IsAdmin() ) then ply:SendMessage( "You need admin rights for this!", 3, Color( 200, 0, 0, 255 ) ) return end
-	if ( !args[ 1 ] or string.Trim( args[ 1 ] ) == "" ) then return end
-	GAMEMODE:DeleteSavegame( string.Trim( args[ 1 ] ) )
-end )
-
---Delete map
-function GM:DeleteSavegame( name )
-	if ( !file.Exists( "gmstranded/gamesaves/" .. name .. ".txt", "DATA" ) ) then return end
-	file.Delete( "gmstranded/gamesaves/" .. name .. ".txt" )
-	if ( file.Exists( "gmstranded/gamesaves/" .. name .. "_info.txt", "DATA" ) ) then file.Delete( "gmstranded/gamesaves/" .. name .. "_info.txt" ) end
-
-	for k, ply in pairs( player.GetAll() ) do
-		if( ply:IsAdmin() ) then
-			umsg.Start( "gms_RemoveLoadGameFromList", ply )
-				umsg.String( name )
-			umsg.End()
-		end
-	end
-end
-
---Save map
-function GM:PreSaveMap( name )
-	if ( CurTime() < 3 ) then return end
-	if ( CurTime() < self.NextSaved ) then return end
-
-	for k, ply in pairs( player.GetAll() ) do
-		ply:MakeSavingBar( "Saving game as \"" .. name .. "\"" )
-	end
-
-	self.NextSaved = CurTime() + 0.6
-	timer.Simple( 0.5, function() self:SaveMap( name ) end )
-end
-
-function GM:SaveMap( name )
-	local savegame = {}
-	savegame["name"] = name
-	savegame["entries"] = {}
-
-	savegame_info = {}
-	savegame_info["map"] = game.GetMap()
-	savegame_info["date"] = os.date( "%A %m/%d/%y" )
-
-	for k, ent in pairs( ents.GetAll() ) do
-		if ( !IsValid( ent ) || ent:CreatedByMap() || !table.HasValue( GMS.SavedClasses, ent:GetClass() ) ) then continue end
-		if ( ent.GMSAutoSpawned ) then continue end
-		local entry = {}
-
-		entry["class"] = ent:GetClass()
-		entry["model"] = ent:GetModel()
-
-		entry["owner"] = ent:GetNWString( "Owner" )
-		entry["ownerid"] = ent:GetNWInt( "OwnerID" )
-		entry["tribeid"] = ent:GetNWInt( "TribeID" )
-
-		if ( ent.Children != nil ) then entry[ "Children" ] = ent.Children end
-		if ( ent.IsPlantChild ) then entry["PlantParentName"] = ent.PlantParentName end
-		if ( ent.IsPlant ) then entry["PlantName"] = ent:GetName() end
-
-		entry["color"] = ent:GetColor()
-		entry["pos"] = ent:GetPos()
-		entry["angles"] = ent:GetAngles()
-		entry["material"] = ent:GetMaterial() or "0"
-		entry["keyvalues"] = ent:GetKeyValues()
-		entry["table"] = ent:GetTable()
-		entry["solid"] = ent:GetSolid()
-
-		local phys = ent:GetPhysicsObject()
-
-		if ( IsValid( phys ) ) then
-			entry["freezed"] = phys:IsMoveable()
-			entry["sleeping"] = phys:IsAsleep()
-		end
-
-		if ( entry["class"] == "gms_resourcedrop" ) then entry["type"] = ent.Type entry["amount"] = ent.Amount end // ResDrop
-
-		table.insert( savegame["entries"], entry )
-
-	end
-
-	if ( !file.IsDir( "gmstranded", "DATA" ) ) then file.CreateDir( "gmstranded" ) end
-	if ( !file.IsDir( "gmstranded/gamesaves", "DATA" ) ) then file.CreateDir( "gmstranded/gamesaves" ) end
-
-	file.Write( "gmstranded/gamesaves/" .. name .. ".txt", util.TableToJSON( savegame ) )
-	file.Write( "gmstranded/gamesaves/" .. name .. "_info.txt", util.TableToJSON( savegame_info ) )
-
-	for k, ply in pairs( player.GetAll() ) do
-		ply:SendMessage( "Saved game \"" .. name .. "\".", 3, Color( 255, 255, 255, 255 ) )
-		ply:StopSavingBar()
-
-		if ( ply:IsAdmin() ) then
-			umsg.Start( "gms_AddLoadGameToList", ply )
-			umsg.String( name )
-			umsg.End()
-		end
-	end
-end
-
---Load map
-function GM:PreLoadMap( name )
-	if ( CurTime() < 3 ) then return end
-	if ( CurTime() < self.NextLoaded ) then return end
-	if ( !file.Exists( "gmstranded/gamesaves/" .. name .. ".txt", "DATA" ) ) then return end
-
-	game.CleanUpMap()
-
-	for k, ply in pairs( player.GetAll() ) do ply:MakeLoadingBar( "Savegame \"" .. name .. "\"" ) end
-
-	self.NextLoaded = CurTime() + 0.6
-	timer.Simple( 0.5, function() self:LoadMap( name ) end )
-end
-
-function GM:LoadMap( name )
-	local savegame = util.JSONToTable( file.Read( "gmstranded/gamesaves/" .. name .. ".txt" ) )
-	local num = table.Count( savegame["entries"] )
-
-	if ( num == 0 ) then
-		for k, ply in pairs( player.GetAll() ) do
-			ply:SendMessage( "This savegame is empty!", 3, Color( 255, 255, 255, 255 ) )
-			ply:StopLoadingBar()
-		end
-	return end
-
-	Time = DayTime
-
-	self:LoadMapEntity( savegame, num, 1 )
-end
-
---Don't load it all at once
-function GM:LoadMapEntity( savegame, max, k )
-	local entry = savegame["entries"][k]
-
-	local ent = ents.Create( entry["class"] )
-
-	if ( !entry["model"] ) then
-		print( "WARNING! " .. entry["class"] .. " doesn't have a model!" )
-	else
-		ent:SetModel( entry["model"] )
-	end
-
-
-	ent:SetColor( entry["color"] )
-	ent:SetPos( entry["pos"] )
-	ent:SetAngles( entry["angles"] )
-
-	if ( entry["Children"] ) then ent.Children = entry[ "Children" ] end
-	if ( entry["PlantParentName"] ) then ent.PlantParentName = entry["PlantParentName"] end
-	if ( entry["PlantName"] ) then ent:SetName( entry["PlantName"] ) end
-	if ( entry["material"] != "0" ) then ent:SetMaterial( entry["material"] ) end
-	if ( entry["solid"] ) then ent:SetSolid( entry["solid"] ) end
-
-	for k, v in pairs( entry["keyvalues"] ) do ent:SetKeyValue( k, v ) end
-	for k, v in pairs( entry["table"] ) do ent[ k ] = v end
-
-	ent:Spawn()
-
-	if ( entry["table"].Resources ) then
-		ent.Resources = {}
-		for k1, v1 in pairs( entry["table"].Resources ) do ent.Resources[ k1 ] = tonumber( v1 ) end
-	end
-
-	if ( player.FindByName( entry["owner"] ) ) then
-		if ( ent.IsPlant ) then ent:SetNWEntity( "plantowner", player.FindByName( entry["owner"] ) ) end
-		SPropProtection.PlayerMakePropOwner( player.FindByName( entry["owner"] ), ent )
-	elseif ( entry["owner"] == "World" ) then
-		ent:SetNetworkedString( "Owner", entry["owner"] )
-	end
-
-	if ( entry["class"] == "gms_resourcedrop" ) then // RP
-		ent.Type = entry["type"]
-		ent.Amount = entry["amount"]
-		ent:SetResourceDropInfo( ent.Type, ent.Amount )
-	end
-
-	local phys = ent:GetPhysicsObject()
-	if ( phys and phys != NULL and phys:IsValid() ) then
-		phys:EnableMotion( entry["freezed"] )
-		if ( entry["sleeping"] ) then phys:Sleep() else phys:Wake() end
-	end
-
-	if ( k >= max ) then
-		for k, ply in pairs( player.GetAll() ) do
-			ply:SendMessage( "Loaded game \"" .. savegame[ "name" ] .. "\" ( " .. max .. " entries )", 3, Color( 255, 255, 255, 255 ) )
-			ply:StopLoadingBar()
-		end
-
-		-- Fix all plants
-		for id, ent in pairs( ents.GetAll() ) do
-			if ( ent.IsPlantChild ) then
-				ent.PlantParent = ents.FindByName( ent.PlantParentName )[ 1 ]
-				if ( !IsValid( ent.PlantParent ) ) then continue end
-				ent.PlantParent:SetName( "gms_plant" .. ent.PlantParent:EntIndex() )
-				ent.PlantParentName = ent.PlantParent:GetName()
-			end
-		end
-
-		local time = 0
-		for _, v in ipairs( table.Add( ents.FindByClass( "gms_resourcepack" ), ents.FindByClass( "gms_fridge" ) ) ) do
-			for res, num in pairs( v.Resources ) do
-				timer.Simple( time, function()
-					umsg.Start( "gms_SetResPackInfo", rp )
-					umsg.String( v:EntIndex() )
-					umsg.String( string.gsub( res, "_", " " ) )
-					umsg.Short( num )
-					umsg.End()
-				end )
-				time = time + 0.1
-			end
-			time = time + 0.1
-		end
-	else
-		timer.Simple( 0.05, function() self:LoadMapEntity( savegame, max, k + 1 ) end )
-	end
-end
-
-/* Misc functions */
-hook.Add( "Think", "GM_WaterExtinguish", function()
-	for _, v in ipairs( ents.FindByClass( "prop_phy*" ) ) do
-		if ( v:WaterLevel() > 0 and v:IsOnFire() ) then
-			v:Extinguish()
-			timer.Remove( "gms_removecampfire_" .. v:EntIndex() )
-		end
-	end
-end )
-
-function GM:PlayerSwitchFlashlight( ply, SwitchOn )
-	return ( ply.Power > 25 && ply.Resources[ "Flashlight" ] != nil && ply.Resources[ "Flashlight" ] > 0 ) or !SwitchOn
-end
-
-local AlertSoundsHunger = { "stranded/need_hunger1.wav", "stranded/need_hunger2.wav" }
-local AlertSoundsThirst = { "stranded/need_thirst1.wav" }
-local AlertSoundsSleep = { "stranded/need_sleepiness1.wav", "stranded/need_sleepiness2.wav", "stranded/need_sleepiness3.wav", "stranded/need_sleepiness4.wav" }
-
-/* Alert Messages */
-timer.Create( "AlertTimer", 6, 0, function()
-	//if ( GetConVarNumber( "gms_alerts" ) != 1 ) then return end
-	for k, ply in pairs( player.GetAll() ) do
-		if ( !ply:Alive() ) then continue end
-		if ( ply.Hunger < 125 ) then ply:EmitSound( Sound( AlertSoundsHunger[ math.random( 1, #AlertSoundsHunger ) ] ), 100, math.random( 95, 105 ) ) end
-		if ( ply.Thirst < 125 ) then ply:EmitSound( Sound( AlertSoundsThirst[ math.random( 1, #AlertSoundsThirst ) ] ), 100, math.random( 95, 105 ) ) end
-		if ( ply.Sleepiness < 125 ) then ply:EmitSound( Sound( AlertSoundsSleep[ math.random( 1, #AlertSoundsSleep ) ] ), 100, math.random( 95, 105 ) ) end
-	end
-end )
-
-/* Tribe system */
-function CreateTribe( ply, name, red, green, blue, password )
-
-	name = string.Trim( name )
-	if ( name == "" ) then ply:SendMessage( "You should enter tribe name!", 5, Color( 255, 50, 50, 255 ) ) return end
-	for id, tribe in pairs( GAMEMODE.Tribes ) do
-		if ( tribe.name == name ) then ply:SendMessage( "Tribe with this name already exists!", 5, Color( 255, 50, 50, 255 ) ) return end
-	end
-
-	local id = table.insert( GAMEMODE.Tribes, {
-		name = name,
-		color = Color( red, green, blue ),
-		password = password or false
-	} )
-
-	local rp = RecipientFilter()
-	rp:AddAllPlayers()
-
-	umsg.Start( "sendTribe", rp )
-		umsg.Short( id )
-		umsg.String( name )
-		umsg.Vector( Vector( red, green, blue ) )
-		if ( Password == false ) then
-			umsg.Bool( false )
-		else
-			umsg.Bool( true )
-		end
-	umsg.End()
-
-	team.SetUp( id, name, Color( red, green, blue ) )
-	ply:SetTeam( id )
-	ply:UpdatePlayerColor()
-	SPropProtection.TribePP( ply )
-	ply:SendMessage( "Successfully created " .. name .. ".", 5, Color( 255, 255, 255, 255 ) )
-
-end
-
-function GM.CreateTribeCmd( ply, cmd, args, argv )
-	if ( !args[4] or args[4] == "" ) then ply:ChatPrint( "Syntax is: gms_createtribe \"tribename\" red green blue [password( optional )]" ) return end
-	if ( args[5] and args[5] != "" ) then
-		CreateTribe( ply, args[1], args[2], args[3], args[4], args[5] )
-	else
-		CreateTribe( ply, args[1], args[2], args[3], args[4], "" )
-	end
-end
-concommand.Add( "gms_createtribe", GM.CreateTribeCmd )
-
-function GM.JoinTribeCmd( ply, cmd, args )
-	if ( !args[ 1 ] || args[ 1 ] == "" ) then ply:ChatPrint( "Syntax is: gms_join \"tribename\" [password( if needed )]" ) return end
-	for id, v in pairs( GAMEMODE.Tribes ) do
-		if ( string.lower( v.name ) != string.lower( args[1] ) ) then continue end
-
-		if ( v.password && v.password != args[ 2 ] ) then ply:SendMessage( "Incorrcet tribal password", 3, Color( 255, 50, 50, 255 ) ) return end
-
-		ply:SetTeam( id )
-		ply:UpdatePlayerColor()
-		SPropProtection.TribePP( ply )
-		ply:SendMessage( "Joined " .. v.name .. ".", 5, Color( 255, 255, 255, 255 ) )
-		for id, pl in pairs( player.GetAll() ) do
-			if ( pl:Team() == ply:Team() && pl != ply ) then pl:SendMessage( ply:Name() .. " joined the tribe.", 5, Color( 255, 255, 255, 255 ) ) end
-		end
-	end
-	SPropProtection.CheckForEmptyTribes()
-end
-concommand.Add( "gms_join", GM.JoinTribeCmd )
-
-function GM.LeaveTribeCmd( ply, cmd, args )
-	ply:SetTeam( 1 )
-	SPropProtection.TribePP( ply )
-	ply:SendMessage( "Left the tribe.", 5, Color( 255, 255, 255, 255 ) )
-	SPropProtection.CheckForEmptyTribes()
-
-	for id, pl in pairs( player.GetAll() ) do
-		if ( pl:Team() == ply:Team() && pl != ply ) then pl:SendMessage( ply:Name() .. " left the tribe.", 5, Color( 255, 255, 255, 255 ) ) end
-	end
-end
-concommand.Add( "gms_leave", GM.LeaveTribeCmd )
-
-/* Resource Box Touch */
-function big_gms_combineresource( ent_a, ent_b )
-	local ent_a_owner = ent_a:GetNWString( "Owner" )
-	local ent_b_owner = ent_b:GetNWString( "Owner" )
-	local ply = player.GetByID( ent_a:GetNWInt( "OwnerID" ) )
-	local plyb = player.GetByID( ent_b:GetNWInt( "OwnerID" ) )
-
-	if ( ent_a_owner != nil and ent_b_owner != nil and ply != nil ) then
-		if ( ent_a_owner == ent_b_owner or ( SPropProtection.PlayerCanTouch( ply, ent_b ) and SPropProtection.PlayerCanTouch( plyb, ent_a ) ) ) then
-			ent_a.Amount = ent_a.Amount + ent_b.Amount
-			ent_a:SetResourceDropInfoInstant( ent_a.Type, ent_a.Amount )
-			ent_b:Remove()
-		end
-	end
-end
-
-/* Resource box touches Resource pack */
-function big_gms_combineresourcepack( respack, ent_b )
-	local ent_a_owner = respack:GetNWString( "Owner" )
-	local ent_b_owner = ent_b:GetNWString( "Owner" )
-	local ply = player.GetByID( respack:GetNWInt( "OwnerID" ) )
-	local plyb = player.GetByID( ent_b:GetNWInt( "OwnerID" ) )
-
-	if ( ent_a_owner != nil and ent_b_owner != nil and ply != nil ) then
-		if ( ent_a_owner == ent_b_owner or ( SPropProtection.PlayerCanTouch( ply, ent_b ) and SPropProtection.PlayerCanTouch( plyb, respack ) ) ) then
-			if ( respack.Resources[ ent_b.Type ] ) then
-				respack.Resources[ ent_b.Type ] = respack.Resources[ ent_b.Type ] + ent_b.Amount
-			else
-				respack.Resources[ ent_b.Type ] = ent_b.Amount
-			end
-			respack:SetResPackInfo( ent_b.Type, respack.Resources[ ent_b.Type ] )
-			ent_b:Remove()
-		end
-	end
-end
-
-/* Food touches Fridge */
-function big_gms_combinefood( fridge, food )
-	local ent_a_owner = fridge:GetNWString( "Owner" )
-	local ent_b_owner = food:GetNWString( "Owner" )
-	local ply = player.GetByID( fridge:GetNWInt( "OwnerID" ) )
-	local plyb = player.GetByID( food:GetNWInt( "OwnerID" ) )
-	local foodname = string.gsub( food.Name, " ", "_" )
-
-	if ( ent_a_owner != nil and ent_b_owner != nil and ply != nil ) then
-		if ( ent_a_owner == ent_b_owner or ( SPropProtection.PlayerCanTouch( ply, food ) and SPropProtection.PlayerCanTouch( plyb, fridge ) ) ) then
-			if ( fridge.Resources[ foodname ] ) then
-				fridge.Resources[ foodname ] = fridge.Resources[ foodname ] + 1
-			else
-				fridge.Resources[ foodname ] = 1
-			end
-			fridge:SetResPackInfo( foodname, fridge.Resources[ foodname ] )
-			food:Remove()
-		end
-	end
-end
-
-/* Resource Box Buildsite Touch */
-function gms_addbuildsiteresource( ent_resourcedrop, ent_buildsite )
-	local ent_resourcedrop_owner = ent_resourcedrop:GetNWString( "Owner" )
-	local ent_buildsite_owner = ent_buildsite:GetNWString( "Owner" )
-	local ply = player.GetByID( ent_resourcedrop:GetNWInt( "OwnerID" ) )
-
-	if ( ent_resourcedrop_owner != nil and ent_buildsite_owner != nil and ply != nil and ent_resourcedrop:IsPlayerHolding() ) then
-		if ( SPropProtection.PlayerCanTouch( ply, ent_buildsite ) )  then
-			if ( ent_resourcedrop.Amount > ent_buildsite.Costs[ent_resourcedrop.Type] ) then
-				ent_resourcedrop.Amount = ent_resourcedrop.Amount - ent_buildsite.Costs[ent_resourcedrop.Type]
-				ent_resourcedrop:SetResourceDropInfo( ent_resourcedrop.Type, ent_resourcedrop.Amount )
-				ent_buildsite.Costs[ent_resourcedrop.Type] = nil
-			elseif ( ent_resourcedrop.Amount <= ent_buildsite.Costs[ent_resourcedrop.Type] ) then
-				ent_buildsite.Costs[ent_resourcedrop.Type] = ent_buildsite.Costs[ent_resourcedrop.Type] - ent_resourcedrop.Amount
-				ent_resourcedrop:Remove()
-			end
-			for k, v in pairs( ent_buildsite.Costs ) do
-				if ( ent_buildsite.Costs[ent_resourcedrop.Type] ) then
-					if ( ent_buildsite.Costs[ent_resourcedrop.Type] <= 0 ) then
-						ent_buildsite.Costs[ent_resourcedrop.Type] = nil
-					end
-				end
-			end
-
-			if ( table.Count( ent_buildsite.Costs ) > 0 ) then
-				local str = "You need: "
-				for k, v in pairs( ent_buildsite.Costs ) do
-					str = str .. " " .. string.Replace( k, "_", " " ) .. " ( " .. v .. "x )"
-				end
-
-				str = str .. " to finish."
-				ply:SendMessage( str, 5, Color( 255, 255, 255, 255 ) )
-			else
-				ply:SendMessage( "Finished!", 3, Color( 10, 200, 10, 255 ) )
-				ent_buildsite:Finish()
-			end
-
-			local str = ":"
-			for k, v in pairs( ent_buildsite.Costs ) do
-				str = str .. " " .. string.Replace( k, "_", " " ) .. " ( " .. v .. "x )"
-			end
-			ent_buildsite:SetNetworkedString( "Resources", str )
-		end
-	end
-end
-
-/* Resource Pack Buildsite Touch */
-function gms_addbuildsiteresourcePack( ent_resourcepack, ent_buildsite )
-	local ent_resourcedrop_owner = ent_resourcepack:GetNWString( "Owner" )
-	local ent_buildsite_owner = ent_buildsite:GetNWString( "Owner" )
-	local ply = player.GetByID( ent_resourcepack:GetNWInt( "OwnerID" ) )
-
-	if ( ent_resourcedrop_owner != nil and ent_buildsite_owner != nil and ply != nil and ent_resourcepack:IsPlayerHolding() ) then
-		if ( SPropProtection.PlayerCanTouch( ply, ent_buildsite ) )  then
-			for res, num in pairs( ent_resourcepack.Resources ) do
-				if ( ent_buildsite.Costs[res] and num > ent_buildsite.Costs[res] ) then
-					ent_resourcepack.Resources[res] = num - ent_buildsite.Costs[res]
-					ent_resourcepack:SetResPackInfo( res, ent_resourcepack.Resources[res] )
-					ent_buildsite.Costs[res] = nil
-				elseif ( ent_buildsite.Costs[res] and num <= ent_buildsite.Costs[res] ) then
-					ent_buildsite.Costs[res] = ent_buildsite.Costs[res] - num
-					ent_resourcepack:SetResPackInfo( res, 0 )
-					ent_resourcepack.Resources[res] = nil
-				end
-				for k, v in pairs( ent_buildsite.Costs ) do
-					if ( ent_buildsite.Costs[res] ) then
-						if ( ent_buildsite.Costs[res] <= 0 ) then
-							ent_buildsite.Costs[res] = nil
-						end
-					end
-				end
-			end
-
-			if ( table.Count( ent_buildsite.Costs ) > 0 ) then
-				local str = "You need: "
-				for k, v in pairs( ent_buildsite.Costs ) do
-					str = str .. " " .. string.Replace( k, "_", " " ) .. " ( " .. v .. "x )"
-				end
-
-				str = str .. " to finish."
-				ply:SendMessage( str, 5, Color( 255, 255, 255, 255 ) )
-			else
-				ply:SendMessage( "Finished!", 3, Color( 10, 200, 10, 255 ) )
-				ent_buildsite:Finish()
-			end
-
-			local str = ":"
-			for k, v in pairs( ent_buildsite.Costs ) do
-				str = str .. " " .. string.Replace( k, "_", " " ) .. " ( " .. v .. "x )"
-			end
-			ent_buildsite:SetNetworkedString( "Resources", str )
-		end
-	end
-end
-
-/* Resource Box versus Player Damage */
-hook.Add( "PlayerShouldTakeDamage", "playershouldtakedamage", function( victim, attacker )
-	if ( victim:IsPlayer() and ( attacker:GetClass() == "gms_resourcedrop" or attacker:IsPlayerHolding() or attacker:GetClass() == "gms_resourcepack" or attacker:GetClass() == "gms_fridge" or attacker:GetClass() == "gms_food" ) ) then
-		return false
-	end
-	return true
-end )