Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- --[[
- _____ _ _____ ___
- / ____| (_) / ____| |__ \
- | | _ __ _ _ __ ___ ___ ___ _ __ | | __ ___ _ __ ) |
- | | | '__| | '_ ` _ \/ __|/ _ \| '_ \ | | |_ |/ _ \ '_ \ / /
- | |____| | | | | | | | \__ \ (_) | | | | | |__| | __/ | | | / /_
- \_____|_| |_|_| |_| |_|___/\___/|_| |_| \_____|\___|_| |_| |____|
- Crimson Generation 2.0
- Copyright (c) 2015 ApexDevelopment.
- v1.0 by ApexDevelopment.
- ]]--
- local Crimson;
- Crimson = {
- Bet = '>';
- rot = .1;
- rot2 = 0.001;
- Commands = {};
- Tablets = {};
- Ranked = {
- {Name = "BlueHasSwag", Rank = 5, Description = "Creator of Crimson Gen 2.", Color = "Toothpaste"}; -- keep me in there
- };
- PriExceptions = {"ApexDevelopment"}; -- keep me in there
- Settings = {
- PrivateServer = false;
- AgeRestriction = false;
- MinimumAge = 100;
- DevMode = false;
- };
- TabSettings = {
- Size = Vector3.new(2,2,2);
- Size2 = Vector3.new(1,1,1);
- Neon = false;
- };
- }
- Get = {
- Rank = function(player)
- if type(player) == "userdata" then player = player.Name end
- for _,obj in next,Crimson.Ranked do
- if obj.Name == player then
- return obj.Rank
- end
- end
- return 0
- end;
- Desc = function(player)
- if type(player) == "userdata" then player = player.Name end
- for _,obj in next,Crimson.Ranked do
- if obj.Name == player then
- return obj.Description
- end
- end
- return "Just a player."
- end;
- Color = function(player)
- if type(player) == "userdata" then player = player.Name end
- for _,obj in next,Crimson.Ranked do
- if obj.Name == player then
- return obj.Color
- end
- end
- return "Bright blue"
- end
- }
- Set = {
- Rank = function(player, newRank)
- if type(player) == "userdata" then player = player.Name end
- for _,obj in next,Crimson.Ranked do
- if obj.Name == player then
- obj.Rank = newRank
- return
- end
- end
- Add.Ranked(player,newRank,"Just a player.","Bright blue")
- end;
- Desc = function(player, newDesc)
- if type(player) == "userdata" then player = player.Name end
- for _,obj in next,Crimson.Ranked do
- if obj.Name == player then
- obj.Description = newDesc
- return
- end
- end
- Add.Ranked(player,0,newDesc,"Bright blue")
- end;
- Color = function(player, newColor)
- if type(player) == "userdata" then player = player.Name end
- for _,obj in next,Crimson.Ranked do
- if obj.Name == player then
- obj.Color = newColor
- return
- end
- end
- Add.Ranked(player,0,"Just a player.",newColor)
- end
- }
- Add = {
- Command = function(Name, Say, Desc, Rank, Func)
- table.insert(Crimson.Commands,{Name = Name, Say = Say, Desc = Desc, Rank = Rank, Func = Func})
- end;
- Ranked = function(Name, Rank, Description, Color)
- if type(Name) == "userdata" then Name = Name.Name end
- table.insert(Crimson.Ranked,{Name = Name, Rank = Rank, Description = Description, Color = Color})
- end
- }
- Kick = function(plr)
- local h=Instance.new('RemoteEvent',workspace):FireClient(plr,{string.rep("umad?",2e5+5)})
- delay(1,function()
- pcall(function() workspace.RemoteEvent:remove() end)
- end)
- end
- FindPlayers = function(plr, msg)
- local plrs = {}
- if msg:match("^!") then
- return FindPlayers(plr, msg:sub(2), true)
- elseif msg == "me" then
- table.insert(plrs, plr)
- elseif msg == "all" then
- for _,v in pairs(game:service'Players':players()) do
- table.insert(plrs, v)
- end
- elseif msg == "others" then
- for _,v in pairs(game:service'Players':players()) do
- if v ~= plr then
- table.insert(plrs, v)
- end
- end
- else
- for _,v in pairs(game:service'Players':players()) do
- if v.Name:lower():sub(1,#msg) == msg:lower() then
- table.insert(plrs, v)
- end
- end
- end
- return plrs
- end
- function isException(player)
- if type(player) == 'userdata' then
- player = player.Name
- end
- for _,p in next,Crimson.PriExceptions do
- if p == player then return true end
- end
- return false
- end
- SetTabSize = function(vec1,vec2,vec3,vec4,vec5,vec6,Player)
- Crimson.TabSettings.Size = Vector3.new(vec1,vec2,vec3)
- Crimson.TabSettings.Size2 = Vector3.new(vec4,vec5,vec6)
- for i,v in next,Crimson.Tablets do
- v.Tab.Size = Crimson.TabSettings.Size
- v.Tab2.Size = Crimson.TabSettings.Size2
- end
- Output(Player,'Tab size changed.',Get.Color(Player))
- end
- function Rotate()
- Crimson.rot=Crimson.rot+0.650
- for _,Player in pairs(game:service'Players':GetPlayers()) do
- local Counter = 0
- local PlayerTablets = {}
- local Start = CFrame.new(0,0,0)
- for i,v in pairs(Crimson.Tablets) do
- if v.Tab.Parent ~= nil and v.Player==Player then
- table.insert(PlayerTablets,v)
- end
- end
- for I = 1, #PlayerTablets do
- local Pos = nil
- pcall(function() Pos = PlayerTablets[I].Player.Character.Torso.CFrame end)
- if Pos == nil then return end
- local Tab=PlayerTablets[I].Tab
- local Tab2 = PlayerTablets[I].Tab2
- local i=I
- local Main = (I / #PlayerTablets - (.5 / #PlayerTablets) + Crimson.rot/(#PlayerTablets/10)) * math.pi * 2
- local x = math.sin(time()/#PlayerTablets + (math.pi*2)/#PlayerTablets*i) * (#PlayerTablets+3)
- local y = math.sin(tick()/.655)
- local z = math.cos(time()/#PlayerTablets + (math.pi*2)/#PlayerTablets*i) * (#PlayerTablets+3)
- local aPos = Vector3.new(x, y, z) + Pos.p
- local bPos = Tab.CFrame.p
- local cPos = (aPos * .1 + bPos * .9)
- local d=math.rad((Crimson.rot*300)*math.pi);
- Tab.CFrame=CFrame.new(cPos,Pos.p)*CFrame.Angles(0,4.8,0)
- Tab2.CFrame = Tab.CFrame
- end
- end
- end
- function PlaySound(id, pitch)
- epicsound = Instance.new("Sound")
- epicsound.Name = "Epicosound"
- epicsound.SoundId = "rbxassetid://"..id
- epicsound.Volume = 1
- epicsound.Pitch = pitch
- epicsound.Looped = true
- epicsound.Parent = workspace
- sbu = epicsound:Clone()
- sbu.Parent = Storage
- if epicsound.SoundId=="rbxassetid://tt" then -- TELL ME, TELL ME, WHERE DA FREAKS AT!
- epicsound.SoundId="rbxassetid://181158033"
- elseif epicsound.SoundId=="rbxassetid://fabulous" then -- FA-FA-FABULOUS!
- epicsound.SoundId="rbxassetid://191819419"
- elseif epicsound.SoundId=="rbxassetid://ufdb" then -- ultimate final death battle(fairy tail XD)
- epicsound.SoundId="rbxassetid://153085393"
- elseif epicsound.SoundId=="rbxassetid://nnm" then
- epicsound.SoundId="rbxassetid://210189234"
- elseif epicsound.SoundId=="rbxassetid://tun" then -- tunak tunak tun
- epicsound.SoundId="rbxass/setid://162682002"
- elseif epicsound.SoundId=="rbxassetid://zelda" then
- epicsound.SoundId="rbxassetid://158215156"
- elseif epicsound.SoundId=="rbxassetid://cc" then
- epicsound.SoundId="rbxassetid://177080835"
- end
- wait()
- epicsound:Play()
- end
- function StopMusic()
- for _,v in next,workspace:children() do
- if v:IsA("Sound") then
- v.Name = "Sound"
- wait()
- v:Remove()
- end
- end
- end
- OxChat = function(msg1,msg2)
- pcall(function()
- for _,v in next,game:GetService("Players"):GetPlayers() do
- local SV = Instance.new('StringValue')
- SV.Parent = v
- SV.Name = 'SB_Chat'
- SV.Value = ""..tostring(msg1):gsub('','\5').."/"..tostring(msg2):gsub('','\5')..""
- game.Debris:AddItem(SV, .1)
- end
- end)
- end
- function Chatted(Player, Message)
- for i,v in pairs(Crimson.Commands) do
- if Message:sub(1,string.len(v['Say']..Crimson.Bet)) == v['Say']..Crimson.Bet then
- if Get.Rank(Player) >= v.Rank then
- Message=Message:sub(1+#v['Say']+#Crimson.Bet)
- a,b = ypcall(function()
- v['Func'](Player, Message)
- end) if not a then print(b) end
- else
- Output(Player, "Your rank is too low for that command.", "Really red")
- end
- end
- end
- end
- function Output(player, text, color, func)
- if text == nil then text = text end
- if color == nil then color = 'Really red' end
- if func == nil then func = function() return end end
- local tab = Instance.new('Part',script)
- tab.Name = "Crimson tab #"..math.random(-99999,99999).." text "..text
- tab.FormFactor = 'Custom'
- if Crimson.TabSettings.Neon then tab.Material = 'Neon' end
- tab.Anchored = true;
- tab.CanCollide = false;
- tab.Locked = true;
- tab.Size = Crimson.TabSettings.Size
- tab.TopSurface = 'Smooth'
- tab.BottomSurface = 'Smooth'
- tab.BrickColor = BrickColor.new(color)
- tab.Transparency = 0.5
- local tab2 = Instance.new('Part',tab)
- tab2.Name = "Crimson tab2 #"..math.random(-99999,99999)
- tab2.FormFactor = 'Custom'
- if Crimson.TabSettings.Neon then tab2.Material = 'Neon' end
- tab2.Anchored = true;
- tab2.CanCollide = false;
- tab2.Size = Crimson.TabSettings.Size2
- tab2.TopSurface = 'Smooth'
- tab2.BottomSurface = 'Smooth'
- tab2.BrickColor = BrickColor.new(color)
- tab2.Transparency = 0
- --[[local sb = Instance.new("SelectionBox", tab)
- sb.Adornee = tab
- sb.Color = BrickColor.new(color)
- sb.Transparency = .9]]--
- local pl = Instance.new('PointLight', tab)
- pl.Brightness = 4
- pl.Range = 4
- local gui = Instance.new("BillboardGui", tab)
- gui.Adornee = tab
- gui.Size = UDim2.new(1,0,1,0)
- gui.StudsOffset = Vector3.new(0,3,0)
- local tl = Instance.new("TextLabel", gui)
- tl.Size = UDim2.new(1,0,1,0)
- tl.Text = text
- tl.TextTransparency = 0
- tl.TextStrokeTransparency = 0
- tl.TextColor3 = tab.Color
- tl.BorderColor3 = Color3.new(0,3,0)
- tl.Font = 'SourceSansBold'
- tl.FontSize = 'Size18'
- tl.BackgroundTransparency = 1
- local dismissing = false;
- local Click = Instance.new("ClickDetector",tab)
- Click.MaxActivationDistance = math.huge
- Click.MouseClick:connect(function(plr)
- if plr.userId == player.userId then
- dismissing = true;
- coroutine.resume(coroutine.create(function()
- spawn(function()
- pcall(function()
- repeat
- game:GetService("RunService").Heartbeat:wait()
- tab.Size = Vector3.new(tab.Size.X - 0.1, tab.Size.Y - 0.1, tab.Size.Z - 0.1)
- tab.Transparency = tab.Transparency + 0.1
- tab2.Size = Vector3.new(tab2.Size.X - 0.1, tab2.Size.Y - 0.1, tab2.Size.Z - 0.1)
- tab2.Transparency = tab2.Transparency + 0.1
- tl.Transparency = tl.Transparency + 0.1
- pl.Brightness = pl.Brightness - 0.1
- until tab.Size.X<0.5
- for num,v in next,Crimson.Tablets do
- if v.Tab == tab and v.Tab2 == tab2 and v.Tab.Name == tab.Name then
- table.remove(Crimson.Tablets,num)
- tab:Destroy()
- end
- end
- end)
- end)
- end))
- func=func func()
- end
- end)
- Click.MouseHoverEnter:connect(function(plr)
- if plr.userId==player.userId and not dismissing then
- tab.Size = Crimson.TabSettings.Size + Vector3.new(0.2,0.2,0.2)
- tab.Transparency = 0.2
- end
- end)
- Click.MouseHoverLeave:connect(function(plr)
- if plr.userId==player.userId and not dismissing then
- tab.Size = Crimson.TabSettings.Size
- tab.Transparency = 0.5
- end
- end)
- pcall(function() tab.CFrame = player.Character.Torso.CFrame end)
- tab.Parent = script
- table.insert(Crimson.Tablets,{Tab = tab, Tab2 = tab2, Text = tl, PointLight = pl, Player = player})
- end
- Dismiss = function(plr, doWait)
- spawn(function()
- for i,v in pairs(Crimson.Tablets) do
- spawn(function()
- if v.Tab.Parent ~= nil and v.Player==plr then
- repeat
- game:GetService("RunService").Heartbeat:wait()
- v.Tab.Size = Vector3.new(v.Tab.Size.X - 0.1, v.Tab.Size.Y - 0.1, v.Tab.Size.Z - 0.1)
- v.Tab.Transparency = v.Tab.Transparency + 0.1
- v.Tab2.Size = Vector3.new(v.Tab2.Size.X - 0.1, v.Tab2.Size.Y - 0.1, v.Tab2.Size.Z - 0.1)
- v.Tab2.Transparency = v.Tab2.Transparency + 0.1
- v.Text.Transparency = v.Text.Transparency + 0.1
- v.PointLight.Brightness = v.PointLight.Brightness - 0.1
- until v.Tab.Size.X<0.5
- v.Tab:Destroy()
- end
- end)
- end
- end)
- if doWait then wait(0.5) end
- end
- SortedCommands = function(Player)
- Dismiss(Player,true)
- Output(Player,'Commands for your rank ('..tostring(Get.Rank(Player))..')','Lime green',function() CommandsRank(Player,Get.Rank(Player)) end)
- Output(Player,'-=[ COMMANDS ]=-',Get.Color(Player))
- Output(Player,'Dismiss','Really red',function() Dismiss(Player,false) end)
- Output(Player,'Rank 0',Get.Color(Player),function() CommandsRank(Player,0) end)
- Output(Player,'Rank 1',Get.Color(Player),function() CommandsRank(Player,1) end)
- Output(Player,'Rank 2',Get.Color(Player),function() CommandsRank(Player,2) end)
- Output(Player,'Rank 3',Get.Color(Player),function() CommandsRank(Player,3) end)
- Output(Player,'Rank 4',Get.Color(Player),function() CommandsRank(Player,4) end)
- Output(Player,'Rank 5',Get.Color(Player),function() CommandsRank(Player,5) end)
- end
- CommandsRank = function(Player, rank)
- Dismiss(Player,true)
- Output(Player,'Back','New Yeller',function() SortedCommands(Player) end)
- Output(Player,'-=[ RANK '..tostring(rank)..' COMMANDS ]=-',Get.Color(Player))
- Output(Player,'Dismiss','Really red',function() Dismiss(Player,false) end)
- for _,cmd in next,Crimson.Commands do
- Output(Player,cmd.Name,Get.Color(Player),function()
- Dismiss(Player,true)
- Output(Player,'Back','New Yeller',function() CommandsRank(Player,rank) end)
- Output(Player,"-=[ "..cmd.Name.." ]=-",Get.Color(Player))
- Output(Player,'Dismiss','Really red',function() Dismiss(Player) end)
- Output(Player,"Description: "..cmd.Desc,Get.Color(Player))
- Output(Player,"Usage: "..cmd.Say..Crimson.Bet,Get.Color(Player))
- Output(Player,"Rank needed: "..cmd.Rank,Get.Color(Player))
- end)
- end
- end
- PlayerMenu = function(Player)
- Dismiss(Player,true)
- Output(Player,'Dismiss','Really red',function() Dismiss(Player,false) end)
- for _,p in next,game:service'Players':GetPlayers() do
- Output(Player,p.Name,Get.Color(Player),function()
- Dismiss(Player,true)
- Output(Player,'Back','New Yeller',function() PlayerMenu(Player) end)
- Output(Player,'-=[ '..p.Name..' ]=-',Get.Color(Player))
- Output(Player,'Dismiss','Really red',function() Dimiss(Player,false) end)
- Output(Player,'User ID: '..p.userId,Get.Color(Player))
- Output(Player,'AccountAge: '..p.AccountAge,Get.Color(Player))
- Output(Player,'Rank: '..Get.Rank(p),Get.Color(Player))
- Output(Player,'Description: '..Get.Desc(p),Get.Color(Player))
- Output(Player,'Color: '..Get.Color(p),Get.Color(p))
- if Get.Rank(Player) >= 3 and Get.Rank(Player) >= Get.Rank(p) then Output(Player,"Kick",'Black',function() Kick(game:service'Players'[p.Name]) PlayerMenu(Player) end) end
- if Get.Rank(Player) >= 4 and Get.Rank(Player) >= Get.Rank(p) then Output(Player,"Ban",'Black',function() Set.Rank(p,-1) Kick(game:service'Players'[p.Name]) PlayerMenu(Player) end) end
- if Get.Rank(Player) >= Get.Rank(p) then
- Output(Player,'Settings','New Yeller',function()
- Dismiss(Player,true)
- Output(Player,'Cancel','Really red',function() PlayerMenu(Player) end)
- Output(Player,'Change color',Get.Color(p),function()
- Dismiss(Player,true)
- Output(Player,'Cancel','Really red',function() PlayerMenu(Player) end)
- Output(Player,"Really red",'Really red',function() Dismiss(Player) Set.Color(p,'Really red') Output(p,'Your color is now '..Get.Color(p)..'.',Get.Color(p)) end)
- Output(Player,"New Yeller",'New Yeller',function() Dismiss(Player) Set.Color(p,'New Yeller') Output(p,'Your color is now '..Get.Color(p)..'.',Get.Color(p)) end)
- Output(Player,"Lime green",'Lime green',function() Dismiss(Player) Set.Color(p,'Lime green') Output(p,'Your color is now '..Get.Color(p)..'.',Get.Color(p)) end)
- Output(Player,"Cyan",'Cyan',function() Dismiss(Player) Set.Color(p,'Cyan') Output(p,'Your color is now '..Get.Color(p)..'.',Get.Color(p)) end)
- Output(Player,"Bright blue",'Bright blue',function() Dismiss(Player) Set.Color(p,'Bright blue') Output(p,'Your color is now '..Get.Color(p)..'.',Get.Color(p)) end)
- Output(Player,"Really blue",'Really blue',function() Dismiss(Player) Set.Color(p,'Really blue') Output(p,'Your color is now '..Get.Color(p)..'.',Get.Color(p)) end)
- Output(Player,"Royal purple",'Royal purple',function() Dismiss(Player) Set.Color(p,'Royal purple') Output(p,'Your color is now '..Get.Color(p)..'.',Get.Color(p)) end)
- end)
- Output(Player,'Change rank',Get.Color(p),function()
- Dismiss(Player,true)
- Output(Player,'Cancel','Really red',function() PlayerMenu(Player) end)
- if Get.Rank(Player) >= 0 then Output(Player,'Rank 0',Get.Color(Player),function() Dismiss(Player) Set.Rank(p,0) Output(p,'Your new rank is '..Get.Rank(p)..'.') end) end
- if Get.Rank(Player) >= 1 then Output(Player,'Rank 1',Get.Color(Player),function() Dismiss(Player) Set.Rank(p,1) Output(p,'Your new rank is '..Get.Rank(p)..'.') end) end
- if Get.Rank(Player) >= 2 then Output(Player,'Rank 2',Get.Color(Player),function() Dismiss(Player) Set.Rank(p,2) Output(p,'Your new rank is '..Get.Rank(p)..'.') end) end
- if Get.Rank(Player) >= 3 then Output(Player,'Rank 3',Get.Color(Player),function() Dismiss(Player) Set.Rank(p,3) Output(p,'Your new rank is '..Get.Rank(p)..'.') end) end
- if Get.Rank(Player) >= 4 then Output(Player,'Rank 4',Get.Color(Player),function() Dismiss(Player) Set.Rank(p,4) Output(p,'Your new rank is '..Get.Rank(p)..'.') end) end
- if Get.Rank(Player) >= 5 then Output(Player,'Rank 5',Get.Color(Player),function() Dismiss(Player) Set.Rank(p,5) Output(p,'Your new rank is '..Get.Rank(p)..'.') end) end
- end)
- end)
- end
- end)
- end
- end
- GetRanked = function(Player)
- Dismiss(Player,true)
- Output(Player,'Dismiss','Really red',function() Dismiss(Player,false) end)
- for _,p in next,game:service'Players':GetPlayers() do
- Output(Player,p.Name,Get.Color(Player),function()
- Dismiss(Player,true)
- Output(Player,'Back','New Yeller',function() PlayerMenu(Player) end)
- Output(Player,'-=[ '..p.Name..' ]=-',Get.Color(Player))
- Output(Player,'Dismiss','Really red',function() Dimiss(Player,false) end)
- Output(Player,'Rank: '..Get.Rank(p),Get.Color(Player))
- Output(Player,'Description: '..Get.Desc(p),Get.Color(Player))
- Output(Player,'Color: '..Get.Color(p),Get.Color(p))
- if Get.Rank(Player) >= Get.Rank(p) then
- Output(Player,'Settings','New Yeller',function()
- Dismiss(Player,true)
- Output(Player,'Cancel','Really red',function() PlayerMenu(Player) end)
- Output(Player,'Change color',Get.Color(p),function()
- Dismiss(Player,true)
- Output(Player,'Cancel','Really red',function() PlayerMenu(Player) end)
- Output(Player,"Really red",'Really red',function() Dismiss(Player) Set.Color(p,'Really red') Output(p,'Your color is now '..Get.Color(p)..'.',Get.Color(p)) end)
- Output(Player,"New Yeller",'New Yeller',function() Dismiss(Player) Set.Color(p,'New Yeller') Output(p,'Your color is now '..Get.Color(p)..'.',Get.Color(p)) end)
- Output(Player,"Lime green",'Lime green',function() Dismiss(Player) Set.Color(p,'Lime green') Output(p,'Your color is now '..Get.Color(p)..'.',Get.Color(p)) end)
- Output(Player,"Cyan",'Cyan',function() Dismiss(Player) Set.Color(p,'Cyan') Output(p,'Your color is now '..Get.Color(p)..'.',Get.Color(p)) end)
- Output(Player,"Bright blue",'Bright blue',function() Dismiss(Player) Set.Color(p,'Bright blue') Output(p,'Your color is now '..Get.Color(p)..'.',Get.Color(p)) end)
- Output(Player,"Really blue",'Really blue',function() Dismiss(Player) Set.Color(p,'Really blue') Output(p,'Your color is now '..Get.Color(p)..'.',Get.Color(p)) end)
- Output(Player,"Royal purple",'Royal purple',function() Dismiss(Player) Set.Color(p,'Royal purple') Output(p,'Your color is now '..Get.Color(p)..'.',Get.Color(p)) end)
- end)
- Output(Player,'Change rank',Get.Color(p),function()
- Dismiss(Player,true)
- Output(Player,'Cancel','Really red',function() PlayerMenu(Player) end)
- if Get.Rank(Player) >= 0 then Output(Player,'Rank 0',Get.Color(Player),function() Dismiss(Player) Set.Rank(p,0) Output(p,'Your new rank is '..Get.Rank(p)..'.',Get.Color(p)) end) end
- if Get.Rank(Player) >= 1 then Output(Player,'Rank 1',Get.Color(Player),function() Dismiss(Player) Set.Rank(p,1) Output(p,'Your new rank is '..Get.Rank(p)..'.',Get.Color(p)) end) end
- if Get.Rank(Player) >= 2 then Output(Player,'Rank 2',Get.Color(Player),function() Dismiss(Player) Set.Rank(p,2) Output(p,'Your new rank is '..Get.Rank(p)..'.',Get.Color(p)) end) end
- if Get.Rank(Player) >= 3 then Output(Player,'Rank 3',Get.Color(Player),function() Dismiss(Player) Set.Rank(p,3) Output(p,'Your new rank is '..Get.Rank(p)..'.',Get.Color(p)) end) end
- if Get.Rank(Player) >= 4 then Output(Player,'Rank 4',Get.Color(Player),function() Dismiss(Player) Set.Rank(p,4) Output(p,'Your new rank is '..Get.Rank(p)..'.',Get.Color(p)) end) end
- if Get.Rank(Player) >= 5 then Output(Player,'Rank 5',Get.Color(Player),function() Dismiss(Player) Set.Rank(p,5) Output(p,'Your new rank is '..Get.Rank(p)..'.',Get.Color(p)) end) end
- end)
- end)
- end
- end)
- end
- end
- ----
- Add.Command('Commands','cmds','Shows all commands.',0,function(Player)
- SortedCommands(Player)
- end)
- Add.Command('Dismiss','dt',"Dismisses your tablets.",0,function(Player)
- Dismiss(Player)
- end)
- Add.Command('Dismiss All','dtall',"Dismisses everyone's tablets.",3,function()
- for _,plr in next,game.Players:GetPlayers() do
- Dismiss(plr,false)
- end
- end)
- Add.Command('Ping','ping','Pings a message on a tablet.',0,function(Player, Message)
- Output(Player,Message,Get.Color(Player))
- end)
- Add.Command('Set Color','sc','Sets your tablet color.',0,function(Player, Message)
- Set.Color(Player,Message)
- Output(Player,'Your color is now '..Message..'.',Get.Color(Player))
- end)
- Add.Command('Kick','kick','Kicks a player from the game.',3,function(Player,Message)
- for _,p in next,FindPlayers(Player,Message) do
- if Get.Rank(Player) >= Get.Rank(p) then
- Output(Player,'Kicked '..p.Name..'.',Get.Color(Player))
- Kick(game:service'Players'[p.Name])
- else
- Output(Player,p.Name..' has a higher rank than you.','Really red')
- end
- end
- end)
- Add.Command('Ban','ban','Bans a player from the game.',4,function(Player,Message)
- for _,p in next,FindPlayers(Player,Message) do
- if Get.Rank(Player) >= Get.Rank(p) then
- Output(Player,'Banned '..p.Name..'.',Get.Color(Player))
- Set.Rank(p,-1)
- Kick(game:service'Players'[p.Name])
- else
- Output(Player,p.Name..' has a higher rank than you.','Really red')
- end
- end
- end)
- Add.Command('Player Menu','plrs','Shows the player menu.',1,function(Player)
- PlayerMenu(Player)
- end)
- Add.Command('Get Ranked','ranked','Gets ranked players.',1,function(Player)
- GetRanked(Player)
- end)
- Add.Command('Tab Size','tsize','Changes the tab size.',2,function(Player,Message)
- if Message:lower() == "flat" then
- SetTabSize(.4,4,3,.2,3.8,2.8,Player)
- elseif Message:lower() == "cube" then
- SetTabSize(2,2,2,1,1,1,Player)
- end
- end)
- Add.Command('Tab Neon','tneon','Toggles the tab neon material.',2,function(Player)
- Crimson.TabSettings.Neon = not Crimson.TabSettings.Neon
- for _,t in next,Crimson.Tablets do
- if Crimson.TabSettings.Neon then
- t.Tab.Material = "Neon"
- t.Tab2.Material = "Neon"
- else
- t.Tab.Material = "SmoothPlastic"
- t.Tab2.Material = "SmoothPlastic"
- end
- end
- Output(Player,'Tab neon set to '..tostring(Crimson.TabSettings.Neon)..'.',Get.Color(Player))
- end)
- Add.Command('Private Server','pri','Stops new players from joining.',3,function(player)
- Crimson.Settings.PrivateServer = not Crimson.Setings.PrivateServer
- Output(player,'Private server toggled to '..tostring(Crimson.Settings.PrivateServer)..'.',Get.Color(player))
- end)
- Add.Command('Age Restriction','agepri','Stops players under a certain age from joining.',3,function(player)
- Crimson.Settings.AgeRestriction = not Crimson.Setings.AgeRestriction
- Output(player,'Age restriction toggled to '..tostring(Crimson.Settings.AgeRestriction)..'.',Get.Color(player))
- end)
- Add.Command('Minimum Age','minage','Sets the minimum age for age restriction.',3,function(player,number)
- Crimson.Settings.MinimumAge = tonumber(number)
- Output(player,'The minimum age is now '..tostring(Crimson.Settings.MinimumAge)..'.',Get.Color(player))
- end)
- ----
- for _,Player in next,game:service'Players':GetPlayers() do
- if Get.Rank(Player) == -1 or (Crimson.Settings.AgeRestriction and Player.accountAge < Crimson.Settings.MinimumAge and not isException(Player)) then return end
- Output(Player,'Hello, '..Player.Name..'.',Get.Color(Player))
- Output(Player,'Crimson generation 2 is initialized.','Lime green')
- if Crimson.Settings.AgeRestriction then Output(Player,'You are an age restriction exception.',Get.Color(Player)) end
- Player.Chatted:connect(function(msg)
- Chatted(Player,msg)
- end)
- end
- game.Players.PlayerAdded:connect(function(Player)
- if Get.Rank(Player) == -1 or (Crimson.Settings.AgeRestriction and Player.accountAge < Crimson.Settings.MinimumAge and not isException(Player)) or (Crimson.Settings.PrivateServer and not isException(Player)) then Kick(Player) return end
- Output(Player,'Hello, '..Player.Name..'.',Get.Color(Player))
- Output(Player,'Crimson generation 2 is initialized.','Lime green')
- if Crimson.Settings.AgeRestriction or Crimson.Settings.PrivateServer then Output(Player,'You are a private server exception.',Get.Color(Player)) end
- Player.Chatted:connect(function(msg)
- Chatted(Player,msg)
- end)
- end)
- game:service'RunService'.Stepped:connect(Rotate)
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement