1 files changed, 466 insertions, 0 deletions
diff --git a/ftp_gmstranded/gamemode/chatcommands.lua b/ftp_gmstranded/gamemode/chatcommands.lua
new file mode 100644
index 0000000..54d4bba
--- /dev/null
+++ b/ftp_gmstranded/gamemode/chatcommands.lua
@@ -0,0 +1,466 @@
+
+function GM:PlayerSay( ply, text, teamonly )
+	local args = string.Explode( " ", text )
+	if ( args == nil ) then args = {} end
+
+	if ( teamonly ) then
+		if ( GMS.RunChatCmd( ply, args ) != "" ) then
+			for k, v in pairs( player.GetAll() ) do
+				if ( IsValid( v ) && v:IsPlayer() && v:Team() == ply:Team() ) then
+					v:PrintMessage( 3, "[TRIBE] " .. ply:Nick() .. ": " .. text )
+				end
+			end
+		end
+		return ""
+	else
+		return GMS.RunChatCmd( ply, args ) or text
+	end
+end
+
+GMS.ChatCommands = {}
+function GMS.RegisterChatCmd( tbl )
+	GMS.ChatCommands[ tbl.Command ] = tbl
+end
+
+function GMS.RunChatCmd( ply, arg )
+	if ( #arg > 0 && ( string.Left( arg[ 1 ], 1 ) == "/" or string.Left( arg[1], 1 ) == "!" ) ) then
+		local cmd = string.sub( arg[ 1 ], 2, string.len( arg[ 1 ] ) )
+		table.remove( arg, 1 )
+
+		if ( ply:GetNWBool( "AFK" ) && cmd != "afk" ) then
+			ply:SendMessage( "You can't do this while afk.", 3, Color( 200, 0, 0, 255 ) )
+		elseif ( ply:GetNWBool( "Sleeping" ) && cmd != "wakeup" ) then
+			ply:SendMessage( "You can't do this while sleeping.", 3, Color( 200, 0, 0, 255 ) )
+		end
+
+		if ( GMS.ChatCommands[ cmd ] != nil ) then
+			GMS.ChatCommands[cmd]:Run( ply, arg )
+			return ""
+		end
+	end
+end
+
+----------------------------------------------------------------------------------------------------
+
+local CHATCMD = {}
+
+CHATCMD.Command = "commands"
+CHATCMD.Desc = "Prints all possible commands"
+
+function CHATCMD:Run( ply )
+	ply:PrintMessage( HUD_PRINTCONSOLE, "\n\n\nGarry's Mod Stranded chat commands:\n\n" )
+	for _, v in pairs( GMS.ChatCommands ) do
+		if ( v.Command != nil ) then
+			local desc = v.Desc or "No description given."
+			local syntax = v.Syntax or ""
+			if ( syntax != "" ) then syntax = syntax .. " " end
+			ply:PrintMessage( HUD_PRINTCONSOLE, v.Command .. " " .. syntax .. "- " .. v.Desc )
+		end
+	end
+	ply:PrintMessage( HUD_PRINTCONSOLE, "\n<arg> - Required argument, [arg] - Optional argument\n" )
+	ply:PrintMessage( HUD_PRINTCONSOLE, "All commands start with '!' or '/'." )
+	ply:PrintMessage( HUD_PRINTCONSOLE, "For item names with spaces use '_', for example !drop Water_Bottles 5\n\n" )
+	ply:PrintMessage( HUD_PRINTTALK, "All commands were printed into console (~)" )
+end
+
+GMS.RegisterChatCmd( CHATCMD )
+
+----------------------------------------------------------------------------------------------------
+
+local CHATCMD = {}
+
+CHATCMD.Command = "help"
+CHATCMD.Desc = "Open help menu"
+CHATCMD.CCName = "gms_help"
+
+function CHATCMD:Run( ply, args )
+	ply:ConCommand( self.CCName )
+end 
+
+GMS.RegisterChatCmd( CHATCMD )
+
+----------------------------------------------------------------------------------------------------
+
+local CHATCMD = {}
+
+CHATCMD.Command = "drop"
+CHATCMD.Desc = "No amount will drop all"
+CHATCMD.Syntax = "<Resource Type> [Amount]"
+CHATCMD.CCName = "gms_dropresources"
+
+function CHATCMD:Run( ply, args )
+	GAMEMODE.DropResource( ply, self.CCName, args )
+end 
+
+GMS.RegisterChatCmd( CHATCMD )
+
+----------------------------------------------------------------------------------------------------
+
+local CHATCMD = {}
+
+CHATCMD.Command = "sleep"
+CHATCMD.Desc = "Goto sleep"
+CHATCMD.CCName = "gms_sleep"
+
+function CHATCMD:Run( ply )
+	ply:Sleep()
+end
+
+GMS.RegisterChatCmd( CHATCMD )
+
+----------------------------------------------------------------------------------------------------
+
+local CHATCMD = {}
+
+CHATCMD.Command = "stuck"
+CHATCMD.Desc = "In case you are stuck"
+CHATCMD.CCName = "gms_stuck"
+
+function CHATCMD:Run( ply )
+	GAMEMODE.PlayerStuck( ply )
+end
+
+GMS.RegisterChatCmd( CHATCMD )
+
+----------------------------------------------------------------------------------------------------
+
+local CHATCMD = {}
+
+CHATCMD.Command = "adrop"
+CHATCMD.Desc = "Drops a specified of resources out of nowhere. Admin only."
+CHATCMD.Syntax = "<Resource Type> <Amount>"
+CHATCMD.CCName = "gms_adropresources"
+
+function CHATCMD:Run( ply, args )
+	GAMEMODE.ADropResource( ply, self.CCName, args )
+end
+
+GMS.RegisterChatCmd( CHATCMD )
+
+----------------------------------------------------------------------------------------------------
+
+local CHATCMD = {}
+
+CHATCMD.Command = "wakeup"
+CHATCMD.Desc = "Wakeup from sleep."
+CHATCMD.CCName = "gms_wakeup"
+
+function CHATCMD:Run( ply )
+	ply:Wakeup()
+end
+
+GMS.RegisterChatCmd( CHATCMD )
+
+----------------------------------------------------------------------------------------------------
+
+local CHATCMD = {}
+CHATCMD.Command = "campfire"
+CHATCMD.Desc = "Make a camp fire."
+CHATCMD.CCName = "gms_makefire"
+
+function CHATCMD:Run( ply )
+	GAMEMODE.MakeCampfire( ply )
+end
+GMS.RegisterChatCmd( CHATCMD )
+
+----------------------------------------------------------------------------------------------------
+
+local CHATCMD = {}
+
+CHATCMD.Command = "drink"
+CHATCMD.Desc = "Drink a water bottle."
+CHATCMD.CCName = "gms_drinkbottle"
+
+function CHATCMD:Run( ply )
+	GAMEMODE.DrinkFromBottle( ply )
+end
+
+GMS.RegisterChatCmd( CHATCMD )
+
+----------------------------------------------------------------------------------------------------
+
+local CHATCMD = {}
+
+CHATCMD.Command = "melon"
+CHATCMD.Desc = "Plant a watermelon."
+CHATCMD.CCName = "gms_plantmelon"
+
+function CHATCMD:Run( ply )
+	GAMEMODE.PlantMelon( ply )
+end
+
+GMS.RegisterChatCmd( CHATCMD )
+
+----------------------------------------------------------------------------------------------------
+
+local CHATCMD = {}
+
+CHATCMD.Command = "banana"
+CHATCMD.Desc = "Plant a banana."
+CHATCMD.CCName = "gms_plantbanana"
+
+function CHATCMD:Run( ply )
+	GAMEMODE.PlantBanana( ply )
+end
+
+GMS.RegisterChatCmd( CHATCMD )
+
+----------------------------------------------------------------------------------------------------
+
+local CHATCMD = {}
+
+CHATCMD.Command = "orange"
+CHATCMD.Desc = "Plant an orange."
+CHATCMD.CCName = "gms_plantorange"
+
+function CHATCMD:Run( ply )
+	GAMEMODE.PlantOrange( ply )
+end
+
+GMS.RegisterChatCmd( CHATCMD )
+
+----------------------------------------------------------------------------------------------------
+
+local CHATCMD = {}
+
+CHATCMD.Command = "grain"
+CHATCMD.Desc = "Plant grain."
+CHATCMD.CCName = "gms_plantgrain"
+
+function CHATCMD:Run( ply )
+	GAMEMODE.PlantGrain( ply )
+end
+
+GMS.RegisterChatCmd( CHATCMD )
+
+----------------------------------------------------------------------------------------------------
+
+local CHATCMD = {}
+
+CHATCMD.Command = "berrybush"
+CHATCMD.Desc = "Plant berry bush."
+CHATCMD.CCName = "gms_plantbush"
+
+function CHATCMD:Run( ply )
+	GAMEMODE.PlantBush( ply )
+end
+
+GMS.RegisterChatCmd( CHATCMD )
+
+----------------------------------------------------------------------------------------------------
+
+local CHATCMD = {}
+
+CHATCMD.Command = "tree"
+CHATCMD.Desc = "Plant a tree."
+CHATCMD.CCName = "gms_planttree"
+
+function CHATCMD:Run( ply )
+	GAMEMODE.PlantTree( ply )
+end
+
+GMS.RegisterChatCmd( CHATCMD )
+
+----------------------------------------------------------------------------------------------------
+
+local CHATCMD = {}
+
+CHATCMD.Command = "dropweapon"
+CHATCMD.Desc = "Drop your current weapon."
+CHATCMD.CCName = "gms_dropweapon"
+
+function CHATCMD:Run( ply )
+	GAMEMODE.DropWeapon( ply )
+end
+
+GMS.RegisterChatCmd( CHATCMD )
+
+----------------------------------------------------------------------------------------------------
+
+local CHATCMD = {}
+
+CHATCMD.Command = "take"
+CHATCMD.Desc = "Take resources out of Resource Pack/Box."
+CHATCMD.Syntax = "[Resource Type] [Amount]"
+CHATCMD.CCName = "gms_takeresources"
+function CHATCMD:Run( ply, args )
+	GAMEMODE.TakeResource( ply, self.CCName, args )
+end
+
+GMS.RegisterChatCmd( CHATCMD )
+
+----------------------------------------------------------------------------------------------------
+
+local CHATCMD = {}
+
+CHATCMD.Command = "medicine"
+CHATCMD.Desc = "Take a Medicine."
+CHATCMD.CCName = "gms_takemedicine"
+
+function CHATCMD:Run( ply )
+	GAMEMODE.TakeAMedicine( ply )
+end
+
+GMS.RegisterChatCmd( CHATCMD )
+
+----------------------------------------------------------------------------------------------------
+
+local CHATCMD = {}
+
+CHATCMD.Command = "afk"
+CHATCMD.Desc = "Go away from keyboard. ( Doesn't reduce your needs )"
+CHATCMD.CCName = "gms_afk"
+
+function CHATCMD:Run( ply, args )
+	GAMEMODE.AFK( ply, self.CCName, args )
+	ply:ConCommand("-menu")
+end
+
+GMS.RegisterChatCmd( CHATCMD )
+
+----------------------------------------------------------------------------------------------------
+
+local CHATCMD = {}
+
+CHATCMD.Command = "rn"
+CHATCMD.Syntax = "[Player]"
+CHATCMD.Desc = "Reset your / someone's needs. Admin Only."
+
+function CHATCMD:Run( ply, args )
+	if ( !ply:IsAdmin() ) then return end
+	if ( args && #args > 0 ) then
+		pl = player.FindByName( args[ 1 ] )
+		if ( !pl ) then ply:SendMessage( "Player not found!", 3, Color( 200, 10, 10, 255 ) ) return end
+		pl.Hunger = 1000
+		pl.Thirst = 1000
+		pl.Sleepiness = 1000
+		pl:UpdateNeeds()
+	else
+		ply.Hunger = 1000
+		ply.Thirst = 1000
+		ply.Sleepiness = 1000
+		ply:UpdateNeeds()
+	end
+end
+
+GMS.RegisterChatCmd( CHATCMD )
+
+----------------------------------------------------------------------------------------------------
+
+local CHATCMD = {}
+
+CHATCMD.Command = "finish"
+CHATCMD.Desc = "Finish the structure you are looking at."
+
+function CHATCMD:Run( ply, args )
+	if ( !ply:IsAdmin() || ply:GetEyeTrace().Entity:GetClass() != "gms_buildsite" ) then return end
+	ply:GetEyeTrace().Entity:Finish()
+end
+
+GMS.RegisterChatCmd( CHATCMD )
+
+----------------------------------------------------------------------------------------------------
+
+local CHATCMD = {}
+
+CHATCMD.Command = "r"
+CHATCMD.Desc = "Give resources to yourself / someone"
+CHATCMD.Syntax = "[player] <Resource> <Amount>"
+
+function CHATCMD:Run(ply, arg)
+	if ( !ply:IsAdmin() || !arg ) then return end
+	if ( #arg > 2 ) then
+		local pl = player.FindByName( arg[ 1 ] )
+		if ( !pl ) then ply:SendMessage( "Player not found!", 3, Color( 200, 10, 10, 255 ) ) return end
+		pl:IncResource( arg[ 2 ], tonumber( arg[ 3 ] ) )
+	elseif ( #arg == 2 ) then
+		ply:IncResource( arg[ 1 ], tonumber( arg[ 2 ] ) )
+	end
+end
+
+GMS.RegisterChatCmd( CHATCMD )
+
+----------------------------------------------------------------------------------------------------
+
+local CHATCMD = {}
+
+CHATCMD.Command = "steal"
+CHATCMD.Desc = "Steal a prop."
+CHATCMD.CCName = "gms_steal"
+
+function CHATCMD:Run( ply )
+	ply.ConCommand( ply, "gms_steal" )
+end
+
+GMS.RegisterChatCmd( CHATCMD )
+
+----------------------------------------------------------------------------------------------------
+
+local CHATCMD = {}
+
+CHATCMD.Command = "createtribe"
+CHATCMD.Desc = "Opens create tribe menu."
+CHATCMD.CCName = "gms_tribemenu"
+
+function CHATCMD:Run( ply, args )
+	ply:ConCommand( self.CCName )
+end
+
+GMS.RegisterChatCmd( CHATCMD )
+
+----------------------------------------------------------------------------------------------------
+
+local CHATCMD = {}
+
+CHATCMD.Command = "invite"
+CHATCMD.Desc = "Invite someone to your tribe"
+CHATCMD.Syntax = "<player>"
+
+function CHATCMD:Run( ply, args )
+	local him = player.FindByName( args[ 1 ] )
+	if ( !him ) then ply:SendMessage( "Player not found!", 3, Color( 200, 10, 10, 255 ) ) return end
+	if ( him == ply ) then ply:SendMessage( "Why invite yourself?", 3, Color( 200, 64, 10, 255 ) ) return end
+	if ( him.LastInvite && him.LastInvite > CurTime() ) then ply:SendMessage( "Too much invitations to " .. him:Name() .. "! Wait " .. ( CurTime() - him.LastInvite)  .. " seconds.", 3, Color( 200, 10, 10, 255 ) ) return end
+	local mahTribe = GAMEMODE.FindTribeByID( ply:Team() )
+
+	him.LastInvite = CurTime() + 30
+
+	if ( !mahTribe ) then ply:SendMessage( "Something went wrong! Report this to admins: " .. ply:Team(), 3, Color( 200, 10, 10, 255 ) ) return end
+
+	ply:SendMessage( "Invitation sent!", 3, Color( 200, 200, 200, 255 ) ) 
+
+	umsg.Start( "gms_invite", him )
+		umsg.String( mahTribe.name )
+		umsg.String( tostring( mahTribe.password ) )
+	umsg.End()
+end
+
+GMS.RegisterChatCmd( CHATCMD )
+
+----------------------------------------------------------------------------------------------------
+
+local CHATCMD = {}
+
+CHATCMD.Command = "join"
+CHATCMD.Desc = "Opens join tribe menu."
+CHATCMD.CCName = "gms_tribes"
+
+function CHATCMD:Run( ply, args )
+	ply:ConCommand( self.CCName )
+end
+
+GMS.RegisterChatCmd( CHATCMD )
+
+----------------------------------------------------------------------------------------------------
+
+local CHATCMD = {}
+
+CHATCMD.Command = "leave"
+CHATCMD.Desc = "Leave a tribe."
+CHATCMD.CCName = "gms_leave"
+
+function CHATCMD:Run( ply, args )
+	GAMEMODE.LeaveTribeCmd( ply, self.CCName, args )
+end
+
+GMS.RegisterChatCmd( CHATCMD )