Wild Savanna (W.I.P) Script

local Rem = game.Workspace.RemoteServer.ChangeValue
local Players = game:GetService("Players")
local Player = Players.LocalPlayer
local Char = Player.Character


local function StringToArray(String, Separator)
	local Array = {}
	local ExtStr = String
	repeat
		if ExtStr == "" or ExtStr == " " then

		else
			local Start = string.find(ExtStr,Separator)
			if Start ~= nil then
				local Arg = string.sub(ExtStr,0,Start-1)
				table.insert(Array,Arg)
				ExtStr = string.sub(ExtStr,Start+string.len(Separator))
			else
				table.insert(Array,ExtStr)
				ExtStr = ""
			end
		end
	until ExtStr == ""
	if string.lower(Array[1]) == "/e" then
		Array[1] = nil
		for i, v in pairs(Array) do
			if i == 1 then

			else
				Array[i-1] = v
			end
		end
	end
	return Array
end

GetPlayerFromShortName = function(ShortName)
	local Plr = nil
	for i, v in ipairs(game.Players:GetPlayers()) do
		if string.find(string.lower(v.Name),string.lower(ShortName)) ~= nil then
			Plr = v
		end
	end
	return Plr
end

local function kill(Player)
	if Player == "all" then
		for i, v in pairs(Players:GetChildren())do
			Char = v.Character
			Rem:FireServer(Char.Health2, 0)
		end
	elseif Player == "others" then
		for i, v in pairs(Players:GetChildren())do
			if v ~= Players.LocalPlayer then
				Char = v.Character
				Rem:FireServer(Char.Health2, 0)
			end
		end
	elseif Player == "me" then
		Char = Players.LocalPlayer.Character
		Rem:FireServer(Char.Health2, 0)
	else
		Player = GetPlayerFromShortName(Player)
		Char = Player.Character
		Rem:FireServer(Char.Health2, 0)
	end
end

local function Infh(Player)
	if Player == "all" then
		for i, v in pairs(Players:GetChildren())do
			Char = v.Character
			Rem:FireServer(Char.Health2, 9e5)
		end
	elseif Player == "others" then
		for i, v in pairs(Players:GetChildren())do
			if v ~= Players.LocalPlayer then
				Char = v.Character
				Rem:FireServer(Char.Health2, 9e5)
			end
		end
	elseif Player == "me" then
		Char = Players.LocalPlayer.Character
		Rem:FireServer(Char.Health2, 9e5)
	else
		Player = GetPlayerFromShortName(Player)
		Char = Player.Character
		Rem:FireServer(Char.Health2, 9e5)
	end
end

Player.Chatted:Connect(function(m)
	local a = StringToArray(m, " ")
	if a[1] == "/infhlth" then
		Infh(a[2])
	elseif a[1] == "/kill"then
		kill(a[2])
	end
end)