Fun Graves - RBXLUA

-- > By wulfbug9.
-- > Nothing much to say about this.

-- > ... lol

Beginning = " R.I.P \n %s \n %s - %s \n\n "
Sayings = { "Was cool, and stuff.", "Probably gunna come back from the dead. \n Just saying. ",
    "Too happy for their own good.", "Was most likely a closet-homose\5xual. Sorry.",
    "In a happier place...?", "Everyone loved them, but they were still an as\5shole.",
    "This guy is like, totally dead, yo!", "May or may not comes back as a zombie.",
    "Not sure if dead, or buried alive...", "'Watch out guys, I'm gunna pull a Jesus on you!'",
    "There's no bones here. Go away, creep.", "I'm with stupid. -->", "<-- I'm with stupid.",
    "<3", "</3", "Will see you in he\5ll.", "Killed by love. Literally.", "Should have never eaten that cake.",
    "I'm with stupid.\n V", "Died laughing. Never heard the end of the joke.", "Got hit by a train.",
    "Brutally r\5aped by Nick Cage.", "Got stabbed by wooden stick. Was, unfortunately, a vampire.",
    "You still owe me 5 bucks, %s!", "'%s was a jerk. Kick them for me.' - Famous Last Words",
    "Found in a trash can. Presumably gang-banged to death.", "'%s-senpai didn't notice me.'",
    "Consecutively stabbed by all their ex-lovers.\nFound with exactly 74 stab wounds.\nEat karma, jerk.",
    "Stabbed by their pet unicorn.\n'Horny didn't mean it!'", "Eaten alive by their pet squirrel, Mr. Squiggles.",
    "He was #1!!", "OJ was the real killer!", "'I wonder what this tastes like...' - Last Words",
    "I was all like, woooooah! I'm dead! Awww maaan...",
}

function getYear()
    local Tick = tick()
    local YearStarted = 1970
    local Years = Tick / 60
    Years = Years / 60
    Years = Years / 24
    Years = Years / 30.5
    Years = Years / 12
    Years = math.floor(Years)
    return YearStarted + Years
end
function getPlayerYears(Player)
    local Age = Player.AccountAge
    local Year = Age / 365
    return getYear() - math.ceil(Year)
end

function getRandomPlayer(Player)
    local Players = game:service("Players"):players()
    if #Players == 1 then
        return Player
    end
    local RandPlayer
    repeat wait()
        RandPlayer = Players[math.random(1, #Players)]
    until RandPlayer ~= Player
    return RandPlayer
end
function formatGraveSaying(Player, Saying)
    return Beginning:format(Player.Name, getPlayerYears(Player), getYear()) .. Saying:format(getRandomPlayer(Player).Name)
end

function Random(A)
    return (math.random()-.5)*2*(A or 1)
end

function makeGrave(Player, Saying, CF)
    local Saying = Saying or Sayings[math.random(1, #Sayings)]
    local RandX, RandY = math.random(4, 5), math.random(5, 7)
    local CF = CF or Player.Character:GetModelCFrame()
    CF = CFrame.new(CF.X, (RandY/2), CF.Z + 2) * CFrame.Angles(0, 0, 0)
    local Grave = Instance.new("Part", workspace)
    Grave.Material = "Concrete"
    Grave.BrickColor = BrickColor.new("Grey")
    Grave.Anchored = true
    Grave.TopSurface, Grave.BottomSurface = 0, 0
    Grave.FormFactor = "Custom"
    Grave.Size = Vector3.new(RandX, RandY, .5)
    Grave.CFrame = CF * CFrame.Angles(Random(.075), Random(0), Random(.075))
    local Top = Instance.new("Part", workspace)
    Top.Material = "Concrete"
    Top.BrickColor = BrickColor.new("Grey")
    Top.Anchored = true
    Top.TopSurface, Top.BottomSurface = 0, 0
    Top.FormFactor = "Custom"
    Top.Size = Vector3.new(RandX, .5, RandX)
    Top.CFrame = Grave.CFrame * CFrame.new(0, RandY / 2, 0) * CFrame.Angles(math.pi/2, 0, 0)
    Instance.new("CylinderMesh", Top).Scale = Vector3.new(1, .99, 1)
    local Surface = Instance.new("SurfaceGui", Grave)
    Surface.Face = "Front"
    Surface.CanvasSize = Vector2.new(RandX * 100, RandY * 100)
    local Text = Instance.new("TextLabel", Surface)
    Text.BackgroundTransparency = 1
    Text.Text = formatGraveSaying(Player, Saying)
    Text.FontSize = 8
    Text.TextYAlignment = "Top"
    Text.TextWrap = true
    Text.TextStrokeTransparency = 1
    Text.TextColor3 = Color3.new(1, 1, 1)
    Text.Size = UDim2.new(1, 0, 1, 0)
end

--[[
for i, v in pairs(game:service("Players"):players()) do
    makeGrave(v)
end--]]

X, Z = -60, 0
BCF = CFrame.new(0, 3, -50)
for i = 1, #Sayings do
    local Saying = Sayings[i]
    local Player = game:service("Players"):players()[math.random(1, #game:service("Players"):players())]
    makeGrave(Player, Saying, BCF * CFrame.new(X, 0, Z))
    X = X + 10
    if i % 6 == 0 then
        Z = Z - 15
        X = -60
        wait()
    end
end