ATP

--//=================================\\
--||	     WEAPONS/MISC CREATION
--\\=================================//

title = [[

//    C H A T   L I S T    \\
AAAA
I CANT BELIEVE YOUVE DONE THIS
DS
HEX
TOPHAT
NOHATS
I CAN DO ANYTHING
ah yes
SIT
NOSIT
/e time (timeposition)
/e play (id)
thats how mafia works
curb
GET REKT FOOL

[E] Open/Close CHAT GUI

GUI made by @Kyutatsuki#9221
]]
backgroundcolortitle = C3(0.1,0.1,0)
bordercolortitle = C3(1,1,0)
GUI = Instance.new("ScreenGui", Player.PlayerGui)
GUI.Name = "BlackHoleKyutatsukiGui"
textlabel = Instance.new("TextLabel",GUI)
textlabel.AnchorPoint = Vector2.new(1,1)
textlabel.Position = UDim2.new(1,500+5,1,-5)
textlabel.Size = UDim2.new(0,500,0,400)
textlabel.BorderSizePixel = 5
textlabel.BorderColor3 = bordercolortitle
textlabel.BackgroundColor3 = backgroundcolortitle
textlabel.BackgroundTransparency = 0.1
textlabel.TextTransparency = 0.1
textlabel.TextColor3 = C3(1,1,0)
textlabel.TextScaled = true
textlabel.TextYAlignment = Enum.TextYAlignment.Center
textlabel.Font = Enum.Font.SciFi
textlabel.Text = title

guiopen = false
debouncebutton = false
function openhelp()
if debouncebutton == false then
if guiopen == false then
debouncebutton = true
textlabel:TweenPosition(UDim2.new(1,0-5,1,-5),Enum.EasingDirection.InOut,Enum.EasingStyle.Quad,0.2)
guiopen = true
wait(0.2)
else
debouncebutton = true
textlabel:TweenPosition(UDim2.new(1,500+5,1,-5),Enum.EasingDirection.InOut,Enum.EasingStyle.Quad,0.2)
guiopen = false
wait(0.2)
end
end
debouncebutton = false
end
openhelp()

Mouse.KeyDown:connect(function(key)
if key == "e" then
openhelp()
end
end)

--//=================================\\
--||      ASSIGN THINGS TO KEYS
--\\=================================//
local AddInstance = function(Object, ...)
local Obj = Instance.new(Object)
for i,v in next,(...) do
Obj[i] = v
end
return Obj
end

local TopHat = CreatePart(3, Character, "Fabric", 0, 0, "Really black", "Hat", VT(1,1,1),false)
TopHat.Color = C3(0,0,0)
local HatWeld = CreateWeldOrSnapOrMotor("Weld", Head, Head, TopHat, CF(0,0.7,0), CF(0, 0, 0))
CreateMesh("SpecialMesh", TopHat, "FileMesh", "", "", VT(1,1,1)*1.05, VT(0,0,0))

local Jevil = false
local SITTING = false
plr.Chatted:connect(function(message)
if message:sub(1,8) == "/e play " then
SONG = message:sub(9)
end
if message:sub(1,6) == "NOHATS" then
                if Head:FindFirstChild("Jevil") then
                Head.Jevil:Remove()
    end
    CreateMesh("SpecialMesh", TopHat, "FileMesh", "", "", VT(1,1,1)*1.05, VT(0,0,0))
end
if message:sub(1,6) == "TOPHAT" then
    if Mode ~= "Nuclear" then
    CreateMesh("SpecialMesh", TopHat, "FileMesh", "1028713", "46542901", VT(1,1,1)*1.05, VT(0,0,0))
    else
            CreateMesh("SpecialMesh", TopHat, "FileMesh", "1028713", "1563327", VT(1,1,1)*1.05, VT(0,0,0))
        end
end
if message:sub(1,17) == "I CAN DO ANYTHING" then
        SONG = 2597271983
if Jevil == false then
    Jevil = true
                    local sound = Instance.new("Sound")
                sound.SoundId = "rbxassetid://2544975373"
                sound.Volume = 10
                sound.Parent = Head
                sound:Play()
            local Reaper = AddInstance("Part",{
            Parent = hed,
            CFrame = hed.CFrame,
            Name = "Jevil",
            formFactor = "Symmetric",
            Size = Vector3.new(1, 1, 1),
            CanCollide = false,
            TopSurface = "Smooth",
            BottomSurface = "Smooth",
            Locked = true,
        })
        local Weld = AddInstance("Weld",{
            Parent = Reaper,
            Part0 = hed,
            C0 = CFrame.new(0, 0.8, 0.4)*CFrame.Angles(0, 0, 0),
            Part1 = Reaper,
        })
        local Mesh = AddInstance("SpecialMesh",{
            Parent = Reaper,
            MeshId = "rbxassetid://193760002",
            TextureId = "rbxassetid://89867215",
            Scale = Vector3.new(1.1, 1.1, 1.1),
            VertexColor = Vector3.new(0.5, 0.5, 0.5),
        })
end
end
if message:sub(1,13) == "GET REKT FOOL" then
        CreateSound2("rbxassetid://1292661979", Character, 100, 1)
end
if message:sub(1,3) == "HEX" then
SONG = 1143128932
end
if message:sub(1,2) == "DS" then
SONG = 1751171913
end
if message:sub(1,21) == "thats how mafia works" then
mafia()
end
if message:sub(1,3) == "SIT" then
SITTING = true
end
if message:sub(1,5) == "NOSIT" then
SITTING = false
end
if message:sub(1,6) == "ah yes" then
SONG = 243199198
end
if message:sub(1,30) == "I CANT BELIEVE YOUVE DONE THIS" then
       CreateSound2("rbxassetid://527749592", Character, 100, 1)
end
if message:sub(1,4) == "AAAA" then
        CreateSound2("rbxassetid://547868092", Character, 100, 1)
end
if message:sub(1,4) == "curb" then
SONG = 434976383
sick.TimePosition = 0
end
if message:sub(1,8) == "/e time " then
sick.TimePosition = message:sub(9)
end
end)

function MouseUp(Mouse)
HOLD = false
end

function KeyDown(Key)
    KEYHOLD = true

        if Key == "p" then
bestmatesA()
        end
                if Key == "y" then
bestmatesB()
            end
                if Key == "u" then
cheekibreeki()
                end