--Change these Variables
--Script By Blam
user = "NotBlam"
pass = "r5BwZZCY"
yourtag = "bncy" --no caps
serverip = "66.230.224.162"
serverport = 20260
blacklist = {
   "Name1",
}
oplist = {
    "Blam",
    "MyMum",
    "MyDad",
    "hampa",
    "veb",
    "suomynona",
}
badwords = {
    "shit",
    "fuck",
    "nigger",
    "cunt",
    "cock",
    "bitch",
    "whore",
    "blam sucks",
    "pussy",
    "faggot",
    "tits",
    "ass",
    "fucker",
    "retard",
}


--Don't change below here
--Unless you know what you're doing

--
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
--
chat = ""
chatl = ""

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(".:ScriptBot 1.4 Connected:.")
Spec("- tated")


i = 0
form1 = form()
form1.Text = "ScriptBot 1.4 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+8,B-5)
            Chatl = Chat:lower()
            Playerl = Player:lower()
            a = 0
            for word in string.gmatch(Player,"%w+") do
                a = a + 1 -- check how many words in name.
            end
            if(a == 2) then --if clan tag exists
                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
            else PlayerNT = Player end
        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("Bot's Time <#time>") end
        if(Chatl == "!op") then
            if(opd == 0) then
                muteFor(Player,60)
                Say("You dont deserve the op, <^06".. PlayerNT .."^07>! <60 Second Mute>")
            else
                Send("op " .. PlayerNT)
                Say("*Shoots <^06" .. PlayerNT .. "^07> 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,5) == "!mute") then
            if(opd == 1) then
                local mPlayer = Chat:sub(Chatl:find(" ")+1,Chatl:find(" ", Chatl:find(" ")+1)-1)
                local mTime = Chatl:sub(Chatl:find(" ", Chatl:find(" ")+1)+1)
                print(mTime)
                Say("^02Muted ^06"..mPlayer.."^02 for ^06"..mTime.."^02 seconds.")
                muteFor(mPlayer, mTime)
            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
        end

        if(check == 1) then
            if(Chat == "!Set") then
                if(opd == 1) then
                    setServer()
                end
            end
        end

        if(opd == 0) then
            for i = 1,#badwords do
                curword = string.lower(badwords[i])
                if(Chatl:find(curword) ~= nil) then
                    muteFor(PlayerNT,60)
                    Say("^02Muted ^06"..PlayerNT.."^02 for ^0660^02 seconds.")
                end
            end
        end

    elseif(Line:sub(0,4) == "BOUT") then
        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

        --

        --banlist
        if(check == 1) then
            a = 0
            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
        for word in string.gmatch(Line:sub(9), "%w+") do
            player = word

            --

            --banlist
            if(check == 1) then
                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
    elseif(Line:sub(0,5) == "CRUSH") then
        print(Line)
        if(Line:len() > 9) then
            playerNum = Line:sub(7,7)
            for word in string.gmatch(Line:sub(10), "%w+") do
                brokenjoint = word
                Print("Player #: "..playerNum.." broke joint #: "..brokenjoint)
            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