Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- --Change these Variables
- --Script By Blam
- user = "AeonBot"
- pass = "uke"
- yourtag = "aeon" --no caps
- serverip = "66.230.224.162"
- serverport = 20240
- blacklist = {
- "Name1",
- }
- oplist = {
- "TheAnimal",
- "Spaft",
- "Analwache",
- "InyaFace",
- "SilentAssassin",
- "omqq",
- "SocKeTe",
- "Garkin",
- "ViperTech",
- "DltBot",
- }
- 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("BaseBot.lua")
- function Say(text)
- text = string.gsub(text, "#time", os.date("%X"))
- Send("SAY " .. text)
- end
- Connect(serverip,serverport)
- Login(user,pass)
- Say(".:AeonBot 1.5 Connected:.")
- Spec("- Cencerd")
- 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-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
- 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("Your too fat to be op ^06".. PlayerNT .."^07! <60 Second Mute>")
- else
- Send("op " .. PlayerNT)
- Say("we love ^06" .. PlayerNT .. "^07 so we op'd you.")
- 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("^06"..mPlayer.."^02 has been muted 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
- 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
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement