bible bot V1 reupload

-- bible bot by Toast

local timerbb = 30;
local ads_toggle = true;
local greet_toggle = true;

math.randomseed(tick())

local HttpService = game:GetService("HttpService")
local Players = game:GetService("Players")

local maingui = Instance.new("ScreenGui")
local main = Instance.new("ImageLabel")
local label = Instance.new("TextLabel")
local timer = Instance.new("TextBox")
local timeLabel = Instance.new("TextLabel")
local ads = Instance.new("TextLabel")
local ads_on = Instance.new("TextButton")
local ads_off = Instance.new("TextButton")
local mid = Instance.new("Frame")
local greet = Instance.new("TextLabel")
local greet_on = Instance.new("TextButton")
local greet_off = Instance.new("TextButton")

for i,v in pairs(game:GetService("CoreGui"):GetChildren()) do
	if v.Name == "Da Bible Bot" then
		v:Destroy()
	end
end

maingui.Name = "Da Bible Bot"
maingui.Parent = game:GetService("CoreGui")

main.Name = "main"
main.Parent = maingui
main.AnchorPoint = Vector2.new(0.5, 0.5)
main.BackgroundColor3 = Color3.fromRGB(15, 15, 15)
main.BackgroundTransparency = 1.000
main.Position = UDim2.new(0.49999997, 0, 0.5, 0)
main.Size = UDim2.new(0, 500, 0, 300)
main.Image = "rbxassetid://3570695787"
main.ImageColor3 = Color3.fromRGB(15, 15, 15)
main.ScaleType = Enum.ScaleType.Slice
main.SliceCenter = Rect.new(100, 100, 100, 100)
main.SliceScale = 0.250
main.Active = true

label.Name = "label"
label.Parent = main
label.BackgroundColor3 = Color3.fromRGB(255, 255, 255)
label.BackgroundTransparency = 1.000
label.BorderSizePixel = 0
label.Position = UDim2.new(0.300000012, 0, 0, 0)
label.Size = UDim2.new(0, 200, 0, 25)
label.Font = Enum.Font.SourceSansLight
label.Text = "BibleBot Synapse-Conv"
label.TextColor3 = Color3.fromRGB(255, 255, 255)
label.TextScaled = true
label.TextSize = 14.000
label.TextWrapped = true

timer.Name = "timer"
timer.Parent = main
timer.BackgroundColor3 = Color3.fromRGB(30, 30, 30)
timer.BorderSizePixel = 0
timer.Position = UDim2.new(0.0799999982, 0, 0.13333334, 0)
timer.Size = UDim2.new(0, 60, 0, 30)
timer.Font = Enum.Font.SourceSansLight
timer.Text = "30"
timer.TextColor3 = Color3.fromRGB(255, 255, 255)
timer.TextScaled = true
timer.TextSize = 14.000
timer.TextWrapped = true
timer.ClearTextOnFocus = true

timer.Changed:Connect(function()
	if timer.Text ~= '' and tonumber(timer.Text) then
		timerbb = tonumber(timer.Text)
	end
end)

timeLabel.Name = "timeLabel"
timeLabel.Parent = timer
timeLabel.BackgroundColor3 = Color3.fromRGB(255, 255, 255)
timeLabel.BackgroundTransparency = 1.000
timeLabel.BorderSizePixel = 0
timeLabel.Position = UDim2.new(1.41666663, 0, 0, 0)
timeLabel.Size = UDim2.new(0, 375, 0, 30)
timeLabel.Font = Enum.Font.SourceSansLight
timeLabel.Text = "Delay between each AD."
timeLabel.TextColor3 = Color3.fromRGB(255, 255, 255)
timeLabel.TextScaled = true
timeLabel.TextSize = 14.000
timeLabel.TextWrapped = true
timeLabel.TextXAlignment = Enum.TextXAlignment.Left

ads.Name = "ads"
ads.Parent = main
ads.BackgroundColor3 = Color3.fromRGB(255, 255, 255)
ads.BackgroundTransparency = 1.000
ads.BorderSizePixel = 0
ads.Position = UDim2.new(0.150000021, 0, 0.333333343, 0)
ads.Size = UDim2.new(0, 100, 0, 30)
ads.Font = Enum.Font.SourceSansLight
ads.Text = "Ads (default on)"
ads.TextColor3 = Color3.fromRGB(255, 255, 255)
ads.TextScaled = true
ads.TextSize = 14.000
ads.TextWrapped = true

ads_on.Name = "ads_on"
ads_on.Parent = ads
ads_on.BackgroundColor3 = Color3.fromRGB(30, 30, 30)
ads_on.BorderSizePixel = 0
ads_on.Position = UDim2.new(-0.5, 0, 1.16666663, 0)
ads_on.Size = UDim2.new(0, 75, 0, 30)
ads_on.Font = Enum.Font.SourceSansLight
ads_on.Text = "On"
ads_on.TextColor3 = Color3.fromRGB(255, 255, 255)
ads_on.TextScaled = true
ads_on.TextSize = 14.000
ads_on.TextWrapped = true
ads_on.MouseButton1Click:Connect(function()
	ads_toggle = true
end)

ads_off.Name = "ads_off"
ads_off.Parent = ads
ads_off.BackgroundColor3 = Color3.fromRGB(30, 30, 30)
ads_off.BorderSizePixel = 0
ads_off.Position = UDim2.new(0.75000006, 0, 1.16666663, 0)
ads_off.Size = UDim2.new(0, 75, 0, 30)
ads_off.Font = Enum.Font.SourceSansLight
ads_off.Text = "Off"
ads_off.TextColor3 = Color3.fromRGB(255, 255, 255)
ads_off.TextScaled = true
ads_off.TextSize = 14.000
ads_off.TextWrapped = true
ads_off.MouseButton1Click:Connect(function()
	ads_toggle = false
end)

mid.Name = "mid"
mid.Parent = main
mid.BackgroundColor3 = Color3.fromRGB(255, 255, 255)
mid.Position = UDim2.new(0.49000001, 0, 0.233333334, 0)
mid.Size = UDim2.new(0, 10, 0, 230)

greet.Name = "greet"
greet.Parent = main
greet.BackgroundColor3 = Color3.fromRGB(255, 255, 255)
greet.BackgroundTransparency = 1.000
greet.BorderSizePixel = 0
greet.Position = UDim2.new(0.649999976, 0, 0.333333343, 0)
greet.Size = UDim2.new(0, 100, 0, 30)
greet.Font = Enum.Font.SourceSansLight
greet.Text = "Greeting (default on)"
greet.TextColor3 = Color3.fromRGB(255, 255, 255)
greet.TextScaled = true
greet.TextSize = 14.000
greet.TextWrapped = true

greet_on.Name = "greet_on"
greet_on.Parent = greet
greet_on.BackgroundColor3 = Color3.fromRGB(30, 30, 30)
greet_on.BorderSizePixel = 0
greet_on.Position = UDim2.new(-0.5, 0, 1.16666663, 0)
greet_on.Size = UDim2.new(0, 75, 0, 30)
greet_on.Font = Enum.Font.SourceSansLight
greet_on.Text = "On"
greet_on.TextColor3 = Color3.fromRGB(255, 255, 255)
greet_on.TextScaled = true
greet_on.TextSize = 14.000
greet_on.TextWrapped = true
greet_on.MouseButton1Click:Connect(function()
	greet_toggle = true
end)

greet_off.Name = "greet_off"
greet_off.Parent = greet
greet_off.BackgroundColor3 = Color3.fromRGB(30, 30, 30)
greet_off.BorderSizePixel = 0
greet_off.Position = UDim2.new(0.75000006, 0, 1.16666663, 0)
greet_off.Size = UDim2.new(0, 75, 0, 30)
greet_off.Font = Enum.Font.SourceSansLight
greet_off.Text = "Off"
greet_off.TextColor3 = Color3.fromRGB(255, 255, 255)
greet_off.TextScaled = true
greet_off.TextSize = 14.000
greet_off.TextWrapped = true
greet_off.MouseButton1Click:Connect(function()
	greet_toggle = false
end)

local UserInputService = game:GetService("UserInputService")
local TweenService = game:GetService("TweenService")
local gui = main
local speed = 0.1

local dragging
local dragInput
local dragStart
local startPos

local function update(input)
	local delta = input.Position - dragStart
	local goal = {}
	goal.Position = UDim2.new(startPos.X.Scale, startPos.X.Offset + delta.X, startPos.Y.Scale, startPos.Y.Offset + delta.Y)
	local tweenInfo = TweenInfo.new(speed)
	local tween = TweenService:Create(gui, tweenInfo, goal)
	tween:Play()
end

gui.InputBegan:Connect(function(input)
	if input.UserInputType == Enum.UserInputType.MouseButton1 or input.UserInputType == Enum.UserInputType.Touch then
		dragging = true
		dragStart = input.Position
		startPos = gui.Position

		input.Changed:Connect(function()
			if input.UserInputState == Enum.UserInputState.End then
				dragging = false
			end
		end)
	end
end)

gui.InputChanged:Connect(function(input)
	if input.UserInputType == Enum.UserInputType.MouseMovement or input.UserInputType == Enum.UserInputType.Touch then
		dragInput = input
	end
end)

UserInputService.InputChanged:Connect(function(input)
	if input == dragInput and dragging then
		update(input)
	end
end)

getVerse = function()
	local response = HttpService:JSONDecode(game:HttpGet("http://labs.bible.org/api/?passage=random&type=json"))
	return response[1].bookname .. " " .. response[1].chapter .. ":" .. response[1].verse .. " " .. response[1].text
end

local t = tick()
local msg = 0
local can_msg = true

chat = function(content,msg,plr)
	if can_msg or not plr then else return end
	local wt = 0
	if 1 >= tick()-t then
		wt = 2
	else
		wt = 0
	end
	can_msg = false
	wait(wt)
	can_msg = true
	t = tick()
	local direct = false
	if msg and string.sub(msg,1,3) == '/w ' then
		direct = true
	end
	if direct then
		game:GetService("ReplicatedStorage").DefaultChatSystemChatEvents.SayMessageRequest:FireServer('/w ' .. plr.Name .. ' ' .. content, "All")
	else
		game:GetService("ReplicatedStorage").DefaultChatSystemChatEvents.SayMessageRequest:FireServer(content, "All")
	end
end

commands = {};

commands.verse = function(msg,plr)
	local bible = getVerse()
	if string.len(bible) > 200 then
		repeat
			game:GetService("RunService").Heartbeat:Wait()
			bible = getVerse()
		until string.len(bible) < 200
	end
	chat(bible,msg,plr)
end

commands.askgod = function(msg,plr)
	local ans = {
		"Yes"; "No"; "It may be best for you not to know"; "Your question is beyond your mortal comprehension."; "Blasphemy! Ask no more."; "I do not care to entertain your trivial question.";
		"You should be ashamed of what you are asking."; "Perhaps."; "I have nothing to say about it"; "I refuse to answer that"; "This is not a question befit for me, ask another."; "Try re-asking that question, I can't purely understand a thing you're saying.";
		"A pity, made in my image yet couldn't ask a more reasonable question for me...";"Such foul words, I am ashamed of you";"Think twice of what you ask of me.";
		"What you are asking me is blasphemy! Confess your sin to me or face your consequences";"You exist to suffer, no further comment.";"I didn't set fire to Gommorah for you to ask such a foolish question!";"Your question is why Judgement Day will come for us sooner than before.";"This question is beneath me, ask another!";
	}
	ans = ans[math.random(#ans)]
	ans = ans .. ' ' .. plr.Name .. '.'
	chat(ans,msg,plr)
end

commands.help = function(msg,plr)
	local ans = "!askgod [question] | !verse | !help | !confess [sin] | !pray [prayer] | !commandment [1-10]"
	chat(ans,msg,plr)
end

commands.confession = function(msg,plr)
	local ans = {"Your sin has been forgiven, rejoice!";"I am overjoyed you have acknowledged your sin, God shall forgive you.";"You are forgiven, be glad Jesus died for your sake.";"I can see your sin weighs heavily on you, God has forgiven you!";"This is a sin that can not be easily forgiven, I demand you say Glory To God 20 times!";"Your sin mocks the commandments put forth by Our Almighty God, 20 Holy Mary's!";"Your blasphemy ends here, pray Our Father and Holy Mary 30 times each right now!";"Your actions disgust our Lord";"Satan, smite " .. Player.Name .. " down for " .. Player.Name .. " has dared to defy God himself."};
	ans = ans[math.random(#ans)]
	chat(ans,msg,plr)
end

commands.pray = function(msg,plr)
	local ans = {"Amen";"Your greed terrifies me, confess your sin so that I may judge you by typing !confess [describe your foul actions here]";"Your prayer will be answered, Hallelujah!";"Your prayer has been rejected for blasphemy! type !confess [your sin here] for judgement.";"I understand your feelings, it shall be done soon";"What you ask will be done, be patient my son";"Your prayer will be granted, when the time comes."}
	ans = ans[math.random(#ans)]
	ans = ans .. ' ' .. plr.Name .. '.'
	chat(ans,msg,plr)
end

commands.commandment = function(msg,plr)
	local ans = {
		"You shall have no other Gods before me";
		"You shall not make for yourselves an idol";
		"You shall not misuse the name of the LORD your God";
		"Remember the Sabbath day by keeping it holy";
		"Honor your father and your mother";
		"You shall not murder";
		"You shall not commit adultery";
		"You shall not steal";
		"You shall not give false testimony";
		"You shall not covet";
	}
	local choice = string.sub(msg,string.len(msg)-1,string.len(msg))
	choice = tonumber(choice)
	if choice then else
		choice = math.random(1,#ans)
	end
	ans = choice .. ': ' .. ans[choice]
	chat(ans,msg,plr)
end

if not _G['sid'] then
	_G['sid'] = 0
end
_G['sid'] = _G['sid'] + 1
local sid = _G['sid']

onPlayerChat = function(chat_type,recipient,message)
	if sid == _G['sid'] then else return end
	message = string.lower(message)
	if message:match(".*!askgod.*") or message:match(".*!ask.*") then
		commands.askgod(message,recipient)
	elseif message:match(".*!verse.*") or message:match(".!bible.*") then
		commands.verse(message,recipient)
	elseif message:match(".*!help.*") or message:match(".*!cmds.*") then
		commands.help(message,recipient)
	elseif message:match(".*!pray.*") then
		commands.pray(message,recipient)
	elseif message:match(".*!confess.*") then
		commands.confession(message,recipient)
	elseif message:match(".*!shut.*") then
		--commands.shut_up(message,recipient)
	elseif message:match(".*!commandment.*") or message:match(".*!command.*") or message:match(".*!rule.*") then
		commands.commandment(message,recipient)
	end
end

Players.PlayerChatted:Connect(onPlayerChat)

Players.PlayerAdded:Connect(function(NewPlayer)
	if sid == _G['sid'] then else return end
	local welcomeSentence = {
		"Greetings " .. NewPlayer.Name .. ", study the bible to further your blossoming faith by chatting !verse 🔍";
		"Welcome " .. NewPlayer.Name .. "! to Bibleblox! Study the bible with upmost vigor by chatting !verse 🙂";
		"Hello " .. NewPlayer.Name .. "! Bible bot is here to guide you. Start by chatting !help 😊";
		"Welcome to the most holy place in Roblox " .. NewPlayer.Name .. ". Study the bible as soon as possible by chatting !verse 🙂";
		"Feel free to ask any question to Our Almighty God by chatting !askgod [question] 😁";
		"Welcome to the most Christian place in Roblox " .. NewPlayer.Name .. ". ⛪";
		function()
			if os.date("*t").hour > 12 and os.date("*t").hour < 18 then
				return "Welcome " .. NewPlayer.Name .. " to the afternoon bible study session. Open your bible by chatting !verse. 📖"
			elseif os.date("*t").hour > 18 or os.date("*t").hour < 5 then
				return "Welcome " .. NewPlayer.Name .. " to the night bible study session. Open your bible by chatting !verse. 📖"
			elseif os.date("*t").hour > 5 and os.date("*t").hour < 12 then
				return "Welcome " .. NewPlayer.Name .. " to the morning bible study session. Open your bible by chatting !verse. 📖"
			end
		end;
		function()
			if os.date("*t").hour > 12 and os.date("*t").hour < 18 then
				return "Gosh! " .. NewPlayer.Name .. " you're late to the afternoon bible study session! Open your bible by chatting !verse quickly!! 📖"
			elseif os.date("*t").hour > 18 or os.date("*t").hour < 5 then
				return  NewPlayer.Name .. " I can't believe you are, ahem, THIS late to the night bible study! Open the bible ASAP(chat !verse) 📖"
			elseif os.date("*t").hour > 5 and os.date("*t").hour < 12 then
				return "Oh my!  " .. NewPlayer.Name .. " You are late to the morning bible study session! Chat !verse to open the bible 📖"
			end
		end;
		function()
			if os.date("*t").hour > 12 and os.date("*t").hour < 18 then
				return  NewPlayer.Name .. ", God will give you a second chance for making him wait " .. 18 - os.date("*t").hour .. " hours to listen your question(Chat !askgod to ask question) ⌚"
			elseif os.date("*t").hour > 18 or os.date("*t").hour < 5 then
				return NewPlayer.Name .. ", God will give you a second chance for making him wait " .. os.date("*t").hour - 5 .. " hours to listen your question(Chat !askgod to ask question) ⌚"
			elseif os.date("*t").hour > 5 and os.date("*t").hour < 12 then
				return NewPlayer.Name .. ", God will give you a second chance for making him wait " .. os.date("*t").hour - 5 .. " hours to listen your question(Chat !askgod to ask question) ⌚"
			end
		end;
	}
	for cycle,sentence in next,welcomeSentence do
		if greet_toggle == true then
			if cycle == math.random(#welcomeSentence) then
				if type(sentence) == "function" then
					chat(sentence())
				else
					chat(sentence)
				end
				break
			end
		end
	end
end)

ad = {
	"Greetings all, I am Bible bot! And I guide the masses towards realizing the true faith. Chat !help to know all the available commands for me";
	"I have come forth to bring the good news to all! Chat !verse to hear of it";
	"You can start believing as soon as now! Type !verse to start";
	"Stay connected! Keep having faith by catching the next verse using !verse";
	"Forgot the commandments? No problem! You can get one of them by chatting !commandment [1-10]";
	"For a good refresher, type !commandment [1-10] to get one";
	"Pray before bed and before eating. God is watching! Type !help if you're lost";
	"Do not live in sin or suffer for eternity in hell! Chat !help to know the available commands for bible bot";
	"Always remember to pray to God. Chat !pray [someone or something you want] to learn what He has in store for your prayer";
	"Remember to study the bible and praise Our Lord God to further your love for Him. type !verse to study a verse of the bible, Chat !help to know other commands";
	"Submit to the divine authority of God and learn more of the one true faith by typing !help to know all the available commands of bible bot"
}

local lplr = game:GetService("Players").LocalPlayer

lplr.Idled:connect(function()
	if sid == _G['sid'] then else
		return
	end
	game:GetService("VirtualUser"):CaptureController()
	game:GetService("VirtualUser"):ClickButton2(Vector2.new())
end)

while sid == _G['sid'] do
	if ads_toggle then
		chat(ad[math.random(#ad)])
		local t = tick()
		repeat
			wait(0.1)
		until tick()-t > timerbb
	end
	wait()
end