--Change these Variables
--Script By Tryton
user = "UniteamBOT"
pass = "Uniteambottest"
yourtag = "aeon"
serverip = "66.230.224.162"
serverport = 20223
blacklist = {
   "Name1",
}
oplist = {
	"Tryton",
	"Ishi",
	"Hampa",
	"Enzu",
}
badwords = {
	"shit",
	"fuck",
	"nigger",
	"cunt",
	"cock",
	"bitch",
	"whore",
	"fezch sucks",
	"pussy",
	"faggot",
	"tits",
	"ass",
	"fucker",
	"retard",
}

--
muteTimers = { }
currTimer = 1
function muteFor(name,time)
	Send("/mute " .. name)
	muteTimers[currTimer] = timer()
	muteTimers[currTimer].Interval = time*1000
	muteTimers[currTimer].Enabled = true
	muteTimers[currTimer].Tick:Add(
		function()
			Send("/unmute " .. name)
		end
	)
	currTimer = currTimer + 1
end
--

check = 0
lastplayer = ""

dofile("Scripts/BaseBot.lua")

function Say(text)
	text = string.gsub(text, "#time", os.date("%X"))
	Send("SAY " .. text)
end

Connect(serverip,serverport)
Login(user,pass)
Say(".:UniteamBot Connected:.")
Spec("- Spectator")


i = 0
form1 = form()
form1.Text = "ScriptBot 1.3 GUI"
form1.Height = 120
button1 = button()
button1.Text = "Disconnect"
button1.Dock = dockStyle.Bottom
button1.Click:Add(function() timer1.Enabled = false; for i = 1,#muteTimers do muteTimers[i].Enabled = false end; Disconnect(); form1:Close() end)
inputBox1 = textBox()
inputBox1.Text = "Message"
inputBox1.Dock = dockStyle.Bottom
button2 = button()
button2.Text = "Say"
button2.Dock = dockStyle.Bottom
button2.Click:Add(function() Say(inputBox1.Text) end)
button3 = button()
button3.Text = "Kick"
button3.Dock = dockStyle.Bottom
button3.Click:Add(function() Send("kick " .. inputBox1.Text) end)
form1.Controls:Add(inputBox1)
form1.Controls:Add(button2)
form1.Controls:Add(button3)
form1.Controls:Add(button1)

form1:Show()
--

timer1 = timer()
timer1.Interval = 5000
timer1.Enabled = true
timer1.Tick:Add(
    function()
        i = i + 1
        --Say("Test" .. i)
        Send("PING")
    end
)

--

function LineChanged(Line)
    if(Line:sub(0,3) == "SAY") then
        math.randomseed( os.time() )
        math.random(); math.random(); math.random();
        for i = 0,math.random(1,10) do
            math.random();
        end
        A = Line:find(";")
        print("> " ..Line:sub(A+1))
        B = Line:find(" ",A+1)
        if(B ~= nil) then
            Chat = Line:sub(B+1)
            Player = Line:sub(A+1,B-2)
            Chatl = Chat:lower()
            Playerl = Player:lower()
	     a = 1
	     for word in string.gmatch(Player,"%w+") do
                if(a == 1) then Clan = word
		  elseif(a == 2)then PlayerNT = word end
		  a = a + 1
	     end
	     opd = 0
	     	for i = 1,#oplist do
		   if(oplist[i] == PlayerNT) then
			opd = 1
			print("OP'D")
		   end
	     end
		 if(Chatl == "!terminate") then if(opd == 1) then joketimer.Enabled = false; timer1.Enabled = false; Disconnect(); form1:Close() end end
	     if(Chatl == "Servant?") then Say("Hello?") end
	     if(Chatl == "!time") then Say("Fezch's Time: #time") end
	     if(Chatl == "!op") then
		if(opd == 0) then
			muteFor(Player,60)
			Say("You dont deserve the op! <60 Second Mute>")
		else
			Send("op " .. Player)
			Say("*Shoots " .. Player .. " with his oplazor*")
		end
	     end
	     if(Chatl:sub(0,6) == "!addop") then
			if(opd == 1) then
				table.insert(oplist,Chat:sub(8))
				Say("Added : " .. Chat:sub(8) .. " to the op list.")
			end
	     end

	     if(Chatl:sub(0,7) == "!addban") then
		 if(opd == 1) then
		 	table.insert(blacklist,Chat:sub(9))
			Say("Added : " .. Chat:sub(9) .. " to the ban list.")
		 end
	     end
            logfile = io.open("Log.txt","a+")
            if(logfile == nil) then logfile = io.open("Log.txt","w") end
            logfile:write(os.date("%c") .. " " .. Player .. ": " .. Chat .. "\n")
            logfile:close()
            if(Chat == "!go") then
                check = 1
				setServer()
		        print("Op mode activated.")
            end
	     if(Chat == "!modlist") then
		if(opd == 1) then
			for i = 1,#oplist do
				Say(oplist[i])
			end
		end
		if(check == 1) then
			if(Chat == "!Set") then
				if(opd == 1) then
					setServer()
				end
			end
		end
	     end
	     if(opd == 0) then
            for i = 1,#badwords do
				curword = string.lower(badwords[i])
				if(Chatl:find(curword) ~= nil) then
					muteFor(Player,60)
					Say("No Swearing! <60 Second Mute>")
				end
            end
	     end
        end
    elseif(Line:sub(0,4) == "BOUT") then
        if(check == 1) then
            a = 0
            for word in string.gmatch(Line, "%w+") do a = a + 1; if (a == 10) then player = word elseif(a == 9) then tag = word elseif(a == 8) then checkend = word end end
			if(checkend ~= "END") then
				if(player ~= nil) then -- lastplayer ~= player) then
					for i = 1,#blacklist do
						if(blacklist[i] == player) then
							Send("kick " .. player .. " you are banned.")
							print("Attempted to kick: " .. player)
							--lastplayer = player
						end
					end
				end
				if(player ~= user) then
					if(tag:lower() ~= yourtag) then
						print(tag .. " - " .. yourtag)
						Send("kick " .. player .. " private match.")
					end
				end
			end
        end
    elseif(Line:sub(0,4) == "SPEC") then
        if(check == 1) then
            for word in string.gmatch(Line:sub(9), "%w+") do
                player = word
                for i = 1,#blacklist do
                    if(blacklist[i] == player) then
                        Send("kick " .. player .. " you are banned.")
                        print("Attempted to kick: " .. player)
                    end
                end
            end
        end
    end
end

function setServer()
	serverSettings = io.open("Scripts/serversettings.txt")
	if(serverSettings == nil) then
		print("Failed to load serversettings.txt")
	else
		line = serverSettings:read("*l")
		i=1
		while(line ~= nil) do
			Send("set " .. line)
			print("Set \"" .. line .. "\" at line " .. i)
			line = serverSettings:read("*l")
			i = i + 1
		end
	end
end