Jarlore kagune roblox script

------------------
--Suck Suck Suck--
------------------
--[[
        JarLore V 5.2
        LocalScript based admin
        Made by jarredbcv

        Originally made to rek oxcool1's sb
        but, I just get banned anywho.. :(

        ~ChangeLogs~
        ;Added anti remove
        ;Added mode 1,2,3,4,5,6
        ;Added Gui for admin control
        ;Added notifications
]]--
version = 5.2
wait(.1)
script.Parent=nil
local lp = game.Players.LocalPlayer
local pt = {}
local pt2 = {}
local pt3 = {}
local rad = math.rad
local pi = math.pi
local cf = CFrame.new
local ca = CFrame.Angles
local mr = math.random
local count = 0
local bcount = 0
local mode = "origin"
local bc = BrickColor.new
local slct = 0
local speed = 1
local guit = {}
local send = cf()
local as = 4
local events = {}
local fragdeb = false
local ignore = {}
local armloop = false
local grab = nil
local gdist = -5
local tim = 0
local c2timer = 0
local banned = {}
local cmds = {}
local clogs = {}
local bet = "!"

--[["The best ever!"]]--

local lerp = function(a,b,c)
    return a+(b-a)*c
end

local clerp = function(c1,c2,t)
        return c1:lerp(c2,t)
end

local ClrLerp = function(Mesh,Clr2,Step)
    Clr1 = Mesh.VertexColor
    Mesh.VertexColor = Vector3.new(lerp(Clr1.X,Clr2.X,Step),lerp(Clr1.Y,Clr2.Y,Step),lerp(Clr1.Z,Clr2.Z,Step))
end

local GetDiscoColor = function(hue)
  local section = hue % 1 * 3
    local secondary = 0.5 * math.pi * (section % 1)
  if section < 1 then
    return Vector3.new(1, 1 - math.cos(secondary), 1 - math.sin(secondary))
  elseif section < 2 then
    return Vector3.new(1 - math.sin(secondary), 1, 1 - math.cos(secondary))
  else
    return Vector3.new(1 - math.cos(secondary), 1 - math.sin(secondary), 1)
  end
end

local new = function(Object, Parent, Data)
    local Object = Instance.new(Object)
    for Index, Value in pairs(Data or {}) do
        Object[Index] = Value
    end
    Object.Parent = Parent
    return Object
end

local intable = function(tab, obj)
    for _, v in ipairs(tab) do
        if v == obj then
            return _
        end
    end
    return 0
end

local so = function(id,par,lo,pi,tm)
  Spawn(function()
    local s = new("Sound",par,{Looped=lo;Pitch=pi;SoundId = "http://roblox.com/asset/?id="..id})
    wait() -- tnx anti
    s:play()
    s.Volume=.8
    game.Debris:AddItem(s,tm)
    end)
  return s
end

local Lightning = function(Start,End,Times,Offset,Color,Thickness)
  local magz = (Start - End).magnitude
  local curpos = Start
  local trz = {-Offset,Offset}
  for i=1,Times do
    local li = new("Part",workspace,{Size=Vector3.new(Thickness,Thickness,magz/Times);BrickColor=bc('White');CanCollide=false;Anchored=true})
    local m = new("SpecialMesh",li,{MeshId='rbxassetid://9856898';Scale=Vector3.new(Thickness*2,Thickness*2,magz/Times*2);TextureId='http://www.roblox.com/asset/?id=55687933';VertexColor = Color})
    local ofz = Vector3.new(trz[math.random(1,2)],trz[math.random(1,2)],trz[math.random(1,2)])
    local trolpos = cf(curpos,End)*cf(0,0,magz/Times).p+ofz
    if Times == i then
      local magz2 = (curpos - End).magnitude li.Size = Vector3.new(Thickness,Thickness,magz2)
      li.CFrame = cf(curpos,End)*cf(0,0,-magz2/2)
    else
      li.CFrame = cf(curpos,trolpos)*cf(0,0,magz/Times/2)
    end
    curpos = li.CFrame*cf(0,0,magz/Times/2).p
    game.Debris:AddItem(li,.3)
    Spawn(function()
      for i=1,10 do
        game:service"RunService".RenderStepped:wait()
        li.Transparency = li.Transparency+.1
      end
      li:Destroy()
    end)
  end
end

local explosion = function(col1,col2,cfr,sz,rng)
    local a = new("Part",workspace,{Size=Vector3.new(1,1,1);CanCollide=false;Anchored=true})
    local a2 = new("Part",workspace,{Size=Vector3.new(1,1,1);CanCollide=false;Anchored=true})
    local a3 =  new("Part",workspace,{Size=Vector3.new(1,1,1);CanCollide=false;Anchored=true})
    v1,v2,v3=sz.x,sz.y,sz.z
    local m = new("SpecialMesh",a,{MeshId='rbxassetid://1185246';Scale=Vector3.new(v1,v2,v3);TextureId='http://www.roblox.com/asset/?id=55687933';VertexColor = col1})
    local m2 = new("SpecialMesh",a2,{MeshId='rbxassetid://9856898';Scale=Vector3.new(v1/3*2,v2/3*2,v3/3*2);TextureId='http://www.roblox.com/asset/?id=55687933';VertexColor = col2})
    local m3 = new("SpecialMesh",a3,{MeshId='rbxassetid://9856898';Scale=Vector3.new(v1/3*2,v2/3*2,v3/3*2);TextureId='http://www.roblox.com/asset/?id=55687933';VertexColor = col2})
    a.CFrame=cfr
    a2.CFrame=cfr*CFrame.Angles(math.random(),math.random(),math.random())
    a3.CFrame=cfr*CFrame.Angles(math.random(),math.random(),math.random())
    for i,v in pairs(workspace:children()) do
    if v:IsA("Model") and v:findFirstChild("Humanoid") then
        if v:findFirstChild("Head") and v:findFirstChild("Torso") then
      if (v:findFirstChild("Torso").Position - a.Position).magnitude < rng and v.Name ~= lp.Character.Name then
            v:BreakJoints()
        end
        end
    end
    end
    game.Debris:AddItem(a,.6)
    game.Debris:AddItem(a2,.6)
    game.Debris:AddItem(a3,.6)
    Spawn(function()
    while true do
        game:service"RunService".RenderStepped:wait()
        if a.Transparency >= 1 then a:Destroy() a2:Destroy() a3:Destroy() break end
      m.Scale=m.Scale+Vector3.new(.1,0.1,0.1)
      m2.Scale=m2.Scale+Vector3.new(.1,0.1,0.1)
      m3.Scale=m3.Scale+Vector3.new(.1,0.1,0.1)
      a2.CFrame=a2.CFrame*CFrame.Angles(math.rad(2),math.rad(2),math.rad(2))
      a3.CFrame=a3.CFrame*CFrame.Angles(-math.rad(2),-math.rad(2),-math.rad(2))
      a.Transparency=a.Transparency+0.05
      a2.Transparency=a2.Transparency+0.05
      a3.Transparency=a3.Transparency+0.05
    end
  end)
end

local frag = function(hit)
    local t = {}
    local A = {-1, 1}
    if hit.Name ~= "Base" and hit.Name ~= "adpart" and hit.Parent ~= lp.Character and hit.Parent.Parent ~= lp.Character and fragdeb ~= true then
        so("201858024",ch.Torso,false,math.random(7,11)/10,4)
        fragdeb = true
        hit:BreakJoints()
        local X, Y, Z = 0, 0, 0
        for x = 1, 2 do
            if hit.Size.X > 1 then
                X = hit.Size.X/2
            end
            for y = 1, 2 do
                if hit.Size.Y > 1 then
                    Y = hit.Size.Y/2
                end
                for z = 1, 2 do
                    if hit.Size.Z > 1 then
                        Z = hit.Size.Z/2
                    end
                    local obj = Vector3.new(X*A[x],Y*A[y],Z*A[z])
                    if intable(t, obj) == 0 and (X ~= 0 or Y ~= 0) and (X ~= 0 or Z ~= 0)  and (Y ~= 0 or Z ~= 0) then
                        table.insert(t, obj)
                    end
                end
            end
        end
        if #t > 0 then
            local h = hit:clone()
            local par = hit.Parent
            hit:Destroy()
            hit = h:clone()
            for _, v in ipairs(t) do
                local n = hit:clone()
                --n.FormFactor = "Custom"
                n.Size = hit.Size/2
                local x,y,z = hit.CFrame:toEulerAnglesXYZ()
                n.CFrame = CFrame.new(v/2)*CFrame.Angles(x,y,z) +hit.Position
                n.Rotation = hit.Rotation
                n.Velocity = Vector3.new(0,0,0)
                n.RotVelocity = Vector3.new(0,0,0)
                n.Parent = par
                if n.Size.X <= 1 or n.Size.Z <= 1 then n.Anchored = false;n:BreakJoints();n.Velocity=Vector3.new(math.random(-10,10),math.random(-10,10),math.random(-10,10)) spawn(function() for i=1,10 do wait() n.Transparency=n.Transparency+.1 end n:Destroy() end) end
                n:BreakJoints()
            end
        end
    end
    wait()
    fragdeb = false
end

local notif = function(txt)
    for i,v in pairs(guit) do
        v.Position = v.Position - UDim2.new(0,0,0.03,0)
    end
    local notif = new("TextLabel",notificationbin,{TextWrapped = true;TextStrokeTransparency = 0;BorderSizePixel = 2;TextScaled = true;BackgroundColor3 = Color3.new(0, 0, 0);BackgroundTransparency = 0.5;Size = UDim2.new(0.2, 0, 0.02, 0);TextColor3 = Color3.new(1, 1, 1);BorderColor3 = Color3.new(1, 1, 1);Text = "{Notification}:"..txt;Position = UDim2.new(0.395, 0, 0.942, 0);TextXAlignment = Enum.TextXAlignment.Left})
    so("205318910",lp.PlayerGui,false,1)
    table.insert(guit,notif)
    spawn(function() wait(5)
        for i=1,20 do wait()
            notif.BackgroundTransparency = notif.BackgroundTransparency +.05
            notif.TextTransparency = notif.TextTransparency +.05
            notif.TextStrokeTransparency = notif.TextStrokeTransparency +.05
        end
        notif:Destroy()
        table.remove(guit,1)
    end)
end

local function getPlayer(name)
    local nameTable = {}
    name=name:lower()
    if name == "me" then
        nameTable[#nameTable+1]=admin
    elseif name == "others" then
        for i,v in pairs(gPlayers:GetChildren()) do
            if v:IsA'Player'then
                if v.Name~=admin then
                    nameTable[#nameTable+1]=v.Name
                end
            end
        end
    elseif name == "all" then
        for i,v in pairs(gPlayers:GetChildren()) do
            if v:IsA'Player'then
                nameTable[#nameTable+1]=v.Name
            end
        end
    else
        for i,v in pairs(gPlayers:GetChildren()) do
            local lname = v.Name:lower()
            local i,j = lname:find(name)
            if i == 1 then
                return {v.Name}
            end
        end
    end
    return nameTable
end

local makeg = function()
    local jlgui = new("ScreenGui",lp.PlayerGui,{Name="JL_gui"})
    local frame = new("Frame",jlgui,{Size = UDim2.new(0.2, 0, 0.025, 0);BorderColor3 = Color3.new(1, 1, 1);Position = UDim2.new(0.395, 0, 0.97, 0);BorderSizePixel = 2;BackgroundTransparency = 0.5;BackgroundColor3 = Color3.new(0, 0, 0)})
    local textlabel = new("TextLabel",frame,{TextStrokeTransparency = 0;BorderSizePixel = 0;BackgroundColor3 = Color3.new(0, 0, 0);BackgroundTransparency = 0.9;Size = UDim2.new(0.2, 0, 1, 0);TextColor3 = Color3.new(1, 1, 1);Text = "Execute >";TextXAlignment = Enum.TextXAlignment.Right})
    textbox = new("TextBox",frame,{TextStrokeTransparency = 0;BackgroundColor3 = Color3.new(0, 0, 0);Position = UDim2.new(0.201, 0, 0, 0);Size = UDim2.new(0.785, 0, 1, 0);BackgroundTransparency = 0.9;Text = "Press [R-CTRL] to focus";TextColor3 = Color3.new(1, 1, 1);TextXAlignment = Enum.TextXAlignment.Left})
    local frame_2 = new("Frame",frame,{Size = UDim2.new(0.2, 0, 1, 0);BorderColor3 = Color3.new(1, 1, 1);Position = UDim2.new(1.02, 0, 0, 0);BorderSizePixel = 2;BackgroundTransparency = 0.5;BackgroundColor3 = Color3.new(0, 0, 0)})
    textlabel_2 = new("TextLabel",frame_2,{TextStrokeTransparency = 0;BorderSizePixel = 0;BackgroundColor3 = Color3.new(0, 0, 0);BackgroundTransparency = 0.9;Size = UDim2.new(1, 0, 1, 0);TextColor3 = Color3.new(1, 1, 1);BorderColor3 = Color3.new(0, 0, 0);Text = "FPS:n/a"})
    local frame_3 = new("Frame",frame,{Size = UDim2.new(0.2, 0, 1, 0);BorderColor3 = Color3.new(1, 1, 1);Position = UDim2.new(-.222, 0, 0, 0);BorderSizePixel = 2;BackgroundTransparency = 0.5;BackgroundColor3 = Color3.new(0, 0, 0)})
    local textlabel_3 = new("TextLabel",frame_3,{TextStrokeTransparency = 0;BorderSizePixel = 0;BackgroundColor3 = Color3.new(0, 0, 0);BackgroundTransparency = 0.9;Size = UDim2.new(1, 0, 1, 0);TextColor3 = Color3.new(1, 1, 1);BorderColor3 = Color3.new(0, 0, 0);Text = "JarLore V"..version})
    notificationbin = Instance.new("Folder", jlgui,{Name="Notification_bin"})
    listbin = Instance.new("Folder", jlgui,{Name="List_bin"})
    textbox.FocusLost:connect(function()
        local msg = textbox.Text
        local usedACommand=false
        for i,v in pairs(cmds) do
            if msg:lower():match(bet..v.Usage:lower()..'% ?') and usedACommand==false then
                usedACommand=true
                local Run, Error = ypcall(function()
                    spawn(function()
                        v.Function(lp.Name,msg:lower():match(bet..v.Usage:lower()..'%>?(.+)')or'')
                    end)
                end)
                if Error then
                    notif(Error)
                end
            end
        end
        textbox.Text = "Press [R-CTRL] to focus"
    end)
end

local makelist = function(na,list)
    local pos = -7
    local frame = new("Frame", listbin,{Size = UDim2.new(0.15, 0, 0.25, 0);BorderColor3 = Color3.new(1, 1, 1);Position = UDim2.new(0.65, 0, 0.745, 0);BorderSizePixel = 2;BackgroundTransparency = 0.5;BackgroundColor3 = Color3.new(0, 0, 0)})
    local textlabel = new("TextBox", frame,{TextStrokeTransparency = 0;BorderSizePixel = 2;BackgroundColor3 = Color3.new(0, 0, 0);Position = UDim2.new(0.01, 0, 0.005, 0);Size = UDim2.new(0.8, 0, 0.1, 0);BackgroundTransparency = 0.9;BorderColor3 = Color3.new(1, 1, 1);TextColor3 = Color3.new(1, 1, 1);Text=na})
    local scrollingframe = new("ScrollingFrame", frame,{Size = UDim2.new(1, 0, 0.87, 0);CanvasSize=UDim2.new(0,0,0,0);MidImage = "rbxassetid://65372937";BorderColor3 = Color3.new(1, 1, 1);ScrollBarThickness = 7;TopImage = "rbxassetid://65372937";Position = UDim2.new(0, 0, 0.125, 0);BottomImage = "rbxassetid://65372937";BackgroundTransparency = 0.9;BackgroundColor3 = Color3.new(0, 0, 0)})
    local textbutton = new("TextButton", frame,{TextStrokeTransparency = 0;BorderSizePixel = 2;BackgroundColor3 = Color3.new(0, 0, 0);BackgroundTransparency = 0.9;Size = UDim2.new(0.16, 0, 0.1, 0);Position = UDim2.new(0.83, 0, 0.005, 0);BorderColor3 = Color3.new(1, 1, 1);Text = "X";TextColor3 = Color3.new(1, 1, 1)})
    for i,v in pairs(list) do
        local textlabel2 = new("TextLabel", scrollingframe,{TextStrokeTransparency = 0;BorderSizePixel = 0;BackgroundColor3 = Color3.new(0, 0, 0);BackgroundTransparency = 0.9;Size = UDim2.new(1, 0, 0, 20);TextColor3 = Color3.new(1, 1, 1);TextXAlignment = Enum.TextXAlignment.Left;Text=v})
        textlabel2.Position = UDim2.new(0,0,0,pos+7)
        pos = pos + 25
        scrollingframe.CanvasSize = UDim2.new(0,0,0,pos+15)
    end
    textbutton.MouseButton1Click:connect(function()
        frame:Destroy()
    end)
end

local efx = function(part)
    if not part then return end
    local Num = 0
    local efxs = {}
    for i = 1,6 do
        local p = new("Part",workspace,{Size=Vector3.new(1,1,1);CanCollide=false;Anchored=true;CFrame=part.CFrame})
        local msh = new("SpecialMesh",p,{Scale=Vector3.new(1.55,.5,.5);MeshId='rbxassetid://9756362';TextureId='rbxassetid://25701026';VertexColor=GetDiscoColor(i/10)})
        table.insert(efxs,p)
        local p=new("Part",workspace,{Size=Vector3.new(1,1,1);CanCollide=false;Anchored=true;CFrame=part.CFrame})
        msh=new("SpecialMesh",p,{Scale=Vector3.new(1.2,.5,.5);MeshId='rbxassetid://9756362';TextureId='rbxassetid://25701026';VertexColor=GetDiscoColor(i/10+1.2)})
        table.insert(efxs,p)
    end
    for i=1,50 do wait()
        Num=Num+.1
        for i,v in pairs(efxs)do
          if(i<7)then
                v.CFrame = clerp(v.CFrame,cf(part.CFrame.p)*cf(0,-math.sin(Num)*3,0)*ca(0,1.55+Num+math.rad(360/6)*i,0)*cf(3,0,0),.1)
            else
              v.CFrame = clerp(v.CFrame,cf(part.CFrame.p)*cf(0,math.sin(Num)*3,0)*ca(0,-Num+math.rad(360/6)*i,0)*cf(3,0,0),.1)
            end
        end
    end
    for i=1,10 do wait()
        for i,v in pairs(efxs)do
            ClrLerp(v.Mesh,Vector3.new(0,0,0),.3)
            v.Mesh.Scale=v.Mesh.Scale+Vector3.new(-.15,0,0)
        end
    end
    for i,v in pairs(efxs)do
        v:Destroy()
    end
    efxs={}
end


local GetPlrs = function(Msg)
    local R = {}
    if Msg:lower() == "all" then
        for i,v in pairs(game:GetService("Players"):GetPlayers()) do
            table.insert(R, v)
        end
    else
        for i,v in pairs(game:GetService("Players"):GetPlayers()) do
            if v.Name:lower():sub(1 ,#Msg)==Msg:lower() then
                table.insert(R, v)
            end
        end
    end
    return R
end

local AddCmd = function(Name, Usage, Description, Function)
  cmds[Name] = {Name = Name, Usage = Usage, Description = Description, Function = Function}
end

local fixcol = function()
    for i=1,#pt do pt[i].BrickColor = bc("White") end
end

local np = function(sz,col)
  local new = new("Part",workspace,{Size=Vector3.new(0,sz,0);BrickColor=BrickColor.new(col);CanCollide=false;Anchored=true;Locked=true;Name="adpart"})
  return new
end

local pointa = function(var)
    if var == true then
        if armloop == false then
            armloop=true
        end
    else
        armloop=false
        ch['Right Arm'].Anchored = false
        armw.Parent = ch.Torso
    end
end

local fixspeed = function(spd)
    repeat wait() speed = speed + .025 until speed >= spd
end

local make = function()
    for i=1,6 do
        local a = np(1.2,"White")
        table.insert(pt,a)
        local a1 = np(1.4,"Black")
        table.insert(pt2,a1)
        local a2 = np(1.4,"Black")
        table.insert(pt2,a2)
        table.insert(pt3,a)
        table.insert(pt3,a1)
        table.insert(pt3,a2)
    end
end

--cmds--
AddCmd('Kill','kill','Kills <player>',function(Spkr,Msg)
  for _,player in next,GetPlrs(Msg)do
spawn(function()
    notif(player.Name.." was killed.")
        efx(player.Character.Torso)
    player.Character:BreakJoints()
end)
  end
end)

AddCmd('Kick','kick','Kicks <player>',function(Spkr,Msg)
  for _,player in next,GetPlrs(Msg)do
spawn(function()
    notif(player.Name.." was kicked.")
        efx(player.Character.Torso)
    player:Destroy()
end)
  end
end)

AddCmd('Teleport','tp', 'teleport <player1> to <player2>',function(args)
 local players1=getPlayer(args[1])
    local players2=getPlayer(args[2])
    if not players2[1] then return end
    for i,v in pairs(players1) do
        if _char(v):FindFirstChild("HumanoidRootPart") and _char(players2[1]):FindFirstChild("HumanoidRootPart") then
            _char(v).HumanoidRootPart.CFrame = _char(players2[1]).HumanoidRootPart.CFrame
        end
    end
end)

AddCmd('God','god','Gods <player>',function(Spkr,Msg)
  for _,player in next,GetPlrs(Msg)do
spawn(function()
    notif(player.Name.." was godded.")
        efx(player.Character.Torso)
    player.Character.Humanoid.MaxHealth=1e1000
end)
  end
end)

AddCmd('UnGod','ungod','UnGods <player>',function(Spkr,Msg)
  for _,player in next,GetPlrs(Msg)do
spawn(function()
    notif(player.Name.." was ungodded.")
        efx(player.Character.Torso)
    player.Character.Humanoid.MaxHealth=100
end)
  end
end)

AddCmd('ForceField','ff','ForceFields <player>',function(Spkr,Msg)
  for _,player in next,GetPlrs(Msg)do
spawn(function()
    notif(player.Name.." was given a forcefield.")
        efx(player.Character.Torso)
    Instance.new("ForceField",player.Character).Name="j_ff"
end)
  end
end)

AddCmd('ForceField','unff','UnForceFields <player>',function(Spkr,Msg)
  for _,player in next,GetPlrs(Msg)do
    spawn(function()
    notif(player.Name.."'s forcefield was removed.")
        efx(player.Character.Torso)
    player.Character:findFirstChild("j_ff"):Destroy()
end)
  end
end)

AddCmd('Song','sng','Plays <song>',function(Spkr,Msg)
  notif(Msg.." was played.")
    spawn(function()
        if not game:service"Workspace":FindFirstChild("jbcv_sound") then
            local jbcv_sond=Instance.new("Sound",game:service"Workspace")
            jbcv_sond.Name="jbcv_sound"
            jbcv_sond.Looped=true
            jbcv_sond.Volume=1
        end
        local sond=game:service"Workspace":FindFirstChild("jbcv_sound")
        sond.Volume=0
        sond.Pitch=0
        sond:Stop()
        wait()
        sond.SoundId="rbxassetid://"..Msg
        sond.Volume=1
        sond.Pitch=1
        sond:Play()
    end)
end)

AddCmd('Stop','stop','Stops <song>',function(Spkr,Msg)
  notif("Song was stopped.")
    local sond=game:service"Workspace":FindFirstChild("jbcv_sound")
    sond.Volume=0
    sond.Pitch=0
    sond:Stop()
end)

AddCmd('ShowLogs','clogs','Shows the chat logs for the server',function(Spkr,Msg)
  notif("Showing chatlogs.")
    makelist("ChatLogs",clogs)
end)

AddCmd('Commands','cmds','Shows a list of admin commands.',function(Spkr,Msg)
  notif("Showing commands.")
    local cmdtab = {}
    for i,v in pairs(cmds) do
        table.insert(cmdtab," "..v.Name.." Usage:"..v.Usage)
    end
  makelist("Commands",cmdtab)
end)


lp:GetMouse().Button1Down:connect(function()
    fixcol()
    if mode == "select" then
        so('233091183',ch.Torso,false,.8)
        if slct == 1 then
            pointa(false)
            mode = "origin"
            speed = .1
            fixspeed(1)
            return
        elseif slct == 2 then
            pointa(false)
            mode = "ghost"
            speed = .1
            fixspeed(1)
            return
        elseif slct == 3 then
            pointa(false)
            mode = "float"
            speed = .1
            fixspeed(1)
            return
        elseif slct == 4 then
            mode = "kenisis"
            speed = .1
            fixspeed(1)
            return
        elseif slct == 5 then
            pointa(false)
            mode = "saw"
            speed = .1
            fixspeed(1)
            return
        elseif slct == 6 then
            pointa(false)
            mode = "lightning"
            speed = .1
            fixspeed(1)
            return
        end
    elseif mode == "ghost" then
    so('200633455',ch.Torso,false,1)
        mode = "light"
        speed = .1
        fixspeed(1)
    elseif mode == "lightning" then
        so('228343249',ch.Torso,false,.9)
        color=GetDiscoColor(tick()*.5)
        Lightning(guide.CFrame.p,lp:GetMouse().hit.p,math.random(5,10),math.random(-2.5,2.5),color,1.5)
        explosion(color,GetDiscoColor(tick()*.3),CFrame.new(lp:GetMouse().hit.p),Vector3.new(30,30,30),20)
    elseif mode == "kenisis" then
    if lp:GetMouse().Target~=nil and grab == nil then
      if lp:GetMouse().Target.ClassName=="Part" and lp:GetMouse().Target.Name~="Base" then
        gdist = -(ch:findFirstChild("Right Arm").Position - lp:GetMouse().Target.CFrame.p).magnitude
        grab=lp:GetMouse().Target
        local dis = (ch:findFirstChild("Head").Position - workspace.CurrentCamera.CoordinateFrame.p).magnitude
        lp.CameraMaxZoomDistance = dis
        lp.CameraMinZoomDistance = dis
      end
    end
    elseif mode == "float" then
    so('233856106',ch.Torso,false,.9)
        mode = "fly"
        bg=Instance.new("BodyGyro",ch.Torso)
    bv=Instance.new("BodyVelocity",ch.Torso)
    bg.maxTorque = Vector3.new(math.huge,math.huge,math.huge)
      bv.maxForce = Vector3.new(99e3,99e3,99e3)
      if(ch.Humanoid.Sit ~= true)then ch.Humanoid.PlatformStand = true end
        speed = .1
        fixspeed(1)
    elseif mode == "origin" then
        tim = game:service'RunService'.Stepped:wait()
        if (tim - c2timer < .2) then
            c2timer = tim
            speed = .15
            send = lp:GetMouse().Hit.p
            mode = "tele"
            wait(.2)
            so('161006033',ch.Torso,false,.9)
            ch.Torso.CFrame = cf(send)*cf(0,3,0)*ca(0,ch.Torso.Rotation.Y,0)
            speed = .05
            mode="origin"
            fixspeed(1)
        else
            wait(.15)
        end
        c2timer = tim
    end
end)

lp:GetMouse().Button2Down:connect(function()
  if mode == "kenisis" and grab then
    tim = game:service'RunService'.Stepped:wait()
    if (tim - c2timer < .2) then
      so('235097661',ch.Torso,false,1)
      local shot = grab
      grab=nil
      shot.Velocity=(lp:GetMouse().Hit.p-ch["Right Arm"].Position).unit*375
    else
      wait(.15)
    end
    c2timer = tim
  end
end)

lp:GetMouse().Button1Up:connect(function()
    if mode == "fly" then
        mode = "float"
    so('233856106',ch.Torso,false,.8)
        bg:Destroy()
    bv:Destroy()
    ch.Humanoid.PlatformStand = false
        ch.Torso.CFrame = cf(ch.Torso.CFrame.X,ch.Torso.CFrame.Y,ch.Torso.CFrame.Z)*ca(0,ch.Torso.Rotation.Y,0)
        speed = .1
        fixspeed(1)
    elseif mode == "light" then
    so('200633455',ch.Torso,false,.9)
        mode = "ghost"
        speed = .1
        fixspeed(1)
    elseif mode == "kenisis" then
    grab = nil
        lp.CameraMaxZoomDistance = 400
        lp.CameraMinZoomDistance = 0.5
    end
end)

lp:GetMouse().KeyDown:connect(function(k)
    k = k:lower()
    if k == "e" and mode ~= "select" and mode ~= "fly" and mode ~= "light" then
        so('233091183',ch.Torso,false,.9)
        pointa(true)
        mode = "select"
        slct = 1
        speed = .1
        fixspeed(1)
    elseif string.byte(k) == 49 then
        textbox:CaptureFocus()
    end
end)

lp:GetMouse().WheelForward:connect(function()
    if mode =="kenisis" then
        gdist = gdist - 10
    end
end)

lp:GetMouse().WheelBackward:connect(function()
    if mode =="kenisis" then
    if gdist < -5 then
            gdist = gdist + 10
    end
    end
end)

guide = new("Part",workspace,{Size=Vector3.new(2,0,2);BrickColor=BrickColor.new("");CanCollide=false;Anchored=true;Locked=true;Transparency=1})
pl = new("PointLight",guide,{Color=BrickColor.new("Bright orange").Color;Range=0})
light = new("Fire",guide,{Size=3;Heat=0;Enabled=false})
BP=new("BodyPosition",nil,{maxForce=Vector3.new(9990000, 9990000, 9990000);position=Vector3.new(0,0,0)})
make()

local curplrs = game.Players:GetPlayers()

for i,v in pairs(curplrs) do
    v.Chatted:connect(function(m)
        table.insert(clogs,"["..v.Name.."]: "..m)
    end)
end

game:service"Players".ChildAdded:connect(function(p)
    if p.ClassName == "Player" then
        notif(p.Name.." has joined the server.")
        p.Chatted:connect(function(m)
            table.insert(clogs,"["..p.Name.."]: "..m)
        end)
    end
end)

game:service"Players".ChildRemoved:connect(function(p)
    if p.ClassName == "Player" then
        notif(p.Name.." has left the server.")
    end
end)

game:service("RunService").Stepped:connect(function()
    ch = lp.Character
    bcount = 0
  for i=1,#pt do
        bcount = bcount + 2
        if mode == "origin" then
            count = count + .0025
            if i <= 3 then
                pt[i].CFrame = clerp(pt[i].CFrame,cf(ch.Torso.CFrame.p)*ca(0,count+rad(360/3)*i,0)*cf(2,-3,0)*ca(-pi/2,0,0),speed)
            else
                pt[i].CFrame = clerp(pt[i].CFrame,cf(ch.Torso.CFrame.p)*ca(0,-count-rad(360/3)*i,0)*cf(2.3,-3,0)*ca(pi/2,pi,0),speed)
            end
        elseif mode == "tele" then
            pt[i].CFrame = clerp(pt[i].CFrame,cf(send)*ca(0,0,pi/2)*ca(-count-rad(360/6)*i,0,0)*cf(0,3,0)*ca(pi/2,-pi/2,0),speed)
        elseif mode == "select" then
            guide.CanCollide=false
            ch.Humanoid.MaxHealth = 100
            ch.Humanoid.WalkSpeed=16
            pt[i].CFrame = clerp(pt[i].CFrame,ch.Torso.CFrame*ca(0,rad(-15)+rad(360/12)*i,0)*cf(5,0,0)*ca(pi/2,pi,0),speed)
            if lp:GetMouse().Target == pt[i] then
                if i == 1 then
                    pt[i].BrickColor = bc("")
                    slct = i
                elseif i == 2 then
                    pt[i].BrickColor = bc("Royal purple")
                    slct = i
                elseif i == 3 then
                    pt[i].BrickColor = bc("Lapis")
                    slct = i
                elseif i == 4 then
                    pt[i].BrickColor = bc("Lime green")
                    slct = i
                elseif i == 5 then
                    pt[i].BrickColor = bc("Really red")
                    slct = i
                elseif i == 6 then
                    pt[i].BrickColor = bc("New Yeller")
                    slct = i
                end
            else
                pt[i].BrickColor = bc("White")
            end
        elseif mode == "float" then
            guide.CanCollide=true
            count = count + .02
            local goto = ch.Torso.CFrame*CFrame.new(0,-3,0)
            if Vector3.new(0, ch.Torso.Velocity.y, 0).magnitude > 5 then
                guide.CFrame=CFrame.new(goto.X,goto.Y,goto.Z)
            else
                guide.CFrame=CFrame.new(goto.X,guide.CFrame.Y,goto.Z)
            end
            if i <= 3 then
                pt[i].CFrame = clerp(pt[i].CFrame,cf(ch.Torso.CFrame.p)*ca(0,count+rad(360/3)*i,0)*cf(4,-3,0)*ca(pi/2,pi-rad(30),0),speed)
            else
                pt[i].CFrame = clerp(pt[i].CFrame,cf(ch.Torso.CFrame.p)*ca(0,-count-rad(360/3)*i,0)*cf(4.3,-3,0)*ca(pi/2,pi+rad(30),0),speed)
            end
        elseif mode == "kenisis" then
            count = count + .02
      if grab ~= nil then
        light.Enabled=true
        BP.Parent=grab
        a= ch["Right Arm"].CFrame*CFrame.new(0,gdist,0)*CFrame.Angles(math.rad(90),0,-math.rad(180))
        BP.position=a.p
      else
        BP.Parent=nil
        light.Enabled=false
      end
            light.Color = bc("Lime green").Color
            guide.CFrame=ch['Right Arm'].CFrame*cf(0,-1.5,0)
            local goto = ch.Torso.CFrame*CFrame.new(0,-3,0)
            if i <= 3 then
                pt[i].CFrame = clerp(pt[i].CFrame,ch['Right Arm'].CFrame*ca(0,count+rad(360/3)*i,0)*cf(.5,-1,0)*ca(pi/2,pi-rad(130),0),speed)
            else
                pt[i].CFrame = clerp(pt[i].CFrame,ch['Right Arm'].CFrame*ca(0,-count-rad(360/3)*i,0)*cf(.7,-1,0)*ca(pi/2,pi-rad(130),0),speed)
            end
        elseif mode == "ghost" then
            local ff = new("ForceField",ch)
            ch.Humanoid.MaxHealth = 100000
            ch.Humanoid.Health = 100000
            game.Debris:AddItem(ff,.001)
            light.Enabled=false
            ch.Humanoid.WalkSpeed=35
            pl.Range=0
            count = count + .005
            if i <= 3 then
                pt[i].CFrame =  clerp(pt[i].CFrame,cf(ch.Torso.CFrame.p)*cf(0,-math.sin(count)*3,0)*ca(0,1.55+count+math.rad(360/3)*i,0)*cf(3,0,0)*ca(0,pi,0),speed)
            else
                pt[i].CFrame =  clerp(pt[i].CFrame,cf(ch.Torso.CFrame.p)*cf(0,math.sin(count)*3,0)*ca(0,-count+math.rad(360/3)*i,0)*cf(3,0,0)*ca(0,pi,0),speed)
            end
            ypcall(function()
                ch.Torso.CanCollide = false
                ch.Head.CanCollide = false
            end)
        elseif mode == "light" then
            ch.Humanoid.MaxHealth = 100
            ch.Humanoid.WalkSpeed=16
            guide.CFrame = CFrame.new(ch.Torso.CFrame.p)*CFrame.new(0,7,0)
            light.Enabled=true
            light.Color = bc("Bright orange").Color
            pl.Range=60
            count = count + .005
            if i <= 3 then
                pt[i].CFrame =  clerp(pt[i].CFrame,cf(ch.Torso.CFrame.p)*cf(0,7,0)*ca(count,count,count+math.rad(360/3)*i)*cf(1.5,0,0),speed)
            else
                pt[i].CFrame =  clerp(pt[i].CFrame,cf(ch.Torso.CFrame.p)*cf(0,7,0)*ca(count+1.1,count,count+math.rad(360/3)*i)*cf(2.25,0,0)*ca(0,0,0),speed)
            end
            ypcall(function()
                ch.Torso.CanCollide = false
                ch.Head.CanCollide = false
            end)
        elseif mode == "fly" then
            guide.CanCollide=false
            Direction = CFrame.new(ch.Torso.Position,lp:GetMouse().Hit.p)
            bg.cframe = Direction*CFrame.Angles(-1.55,0,0)
            bv.velocity = lp:GetMouse().Hit.lookVector*50
            count = count + .01
            if i <= 3 then
                pt[i].CFrame = clerp(pt[i].CFrame,ch.Torso.CFrame*ca(0,count+rad(360/3)*i,0)*cf(2,-3,0)*ca(pi/2,rad(30),0),speed)
            else
                pt[i].CFrame = clerp(pt[i].CFrame,ch.Torso.CFrame*ca(0,-count-rad(360/3)*i,0)*cf(2,3,0)*ca(pi/2,-rad(30),0),speed)
            end
        elseif mode == "saw" then
            count = count + .015
            local part = pt[i]
            part.CFrame = clerp(pt[i].CFrame,ch.Torso.CFrame*ca(-count-rad(360/6)*i,0,0)*cf(0,3,0)*ca(pi/2,-pi/2,0),speed)
            local shootpos = pt[i].CFrame*cf(-2,0,0)
            local startpos = pt[i].CFrame*cf(-1.2,0,0)
            local ray = Ray.new(startpos.p,(shootpos.p - startpos.p).unit*2)
            local hit,position = game.Workspace:FindPartOnRayWithIgnoreList(ray,ignore)
            if hit then
                frag(hit)
            end
        elseif mode == "lightning" then
            count = count + .015
            guide.CFrame = cf(ch.Torso.CFrame.p)*CFrame.new(0,7,0)
            guide.CFrame = CFrame.new(guide.CFrame.p,lp:GetMouse().Hit.p)
            if i <= 3 then
                pt[i].CFrame = clerp(pt[i].CFrame,guide.CFrame*ca(-pi/2,count+rad(360/3)*i,0)*cf(1.7,0,0)*ca(pi/2,0,0),speed)
            else
                pt[i].CFrame = clerp(pt[i].CFrame,guide.CFrame*ca(-pi/2,-count-rad(360/3)*i,0)*cf(2,0,0)*ca(pi/2,-rad(30),0),speed)
            end
        end
        ignore = {}
        if bcount < 13 then
            pt2[bcount-1].CFrame = pt[i].CFrame *cf(-0.8,-0.5,0)*ca(0,0,rad(60))
            pt2[bcount].CFrame = pt[i].CFrame *cf(-0.8,0.5,0)*ca(0,0,-rad(60))
        end
        table.insert(ignore,pt2[bcount-1])
        table.insert(ignore,pt2[bcount])
    end
    if armloop then
        if ch.Torso:findFirstChild("Right Shoulder") then
        armw = ch.Torso:findFirstChild("Right Shoulder")
        armw.Parent = nil
end
        ch['Right Arm'].Anchored = true
        local p0 = ch.Torso.CFrame
        p0 = p0 + ((p0 * ca(pi/-2,0,0)).lookVector * -0.5) + (p0 * ca(0,pi/-2,0)).lookVector
        local p1 = p0 + ((p0.p-lp:GetMouse().Hit.p).unit * -2)
        ch['Right Arm'].CFrame = cf((p0.p + p1.p)/2,p0.p) * ca(-math.pi/2,0,0)
    end
    for i,v in pairs(pt3) do
            if v.Parent ~= workspace then
            for i=1,#pt3 do game.Debris:AddItem(pt3[i],.1) end
            pt3 = {}
            pt2 = {}
            pt = {}
            make()
        end
    end
    if not lp.PlayerGui:findFirstChild("JL_gui") then
        makeg()
    end
    if guide.Parent ~= workspace then
            guide = new("Part",workspace,{Size=Vector3.new(2,0,2);BrickColor=BrickColor.new("");CanCollide=false;Anchored=true;Locked=true;Transparency=1})
            pl = new("PointLight",guide,{Color=BrickColor.new("Bright orange").Color;Range=0})
            light = new("Fire",guide,{Size=3;Heat=0;Enabled=false})
    end
    if textlabel_2 then
        textlabel_2.Text = "FPS: "..math.floor(1/wait()*2)
    end
end)

efx(lp.Character.Torso)
wait(.1)
notif("JarLore Version"..version.." has successfully loaded.")
wait(2)
notif("You may start by pressing [L-CTRL] to focus.")

--[["That'sa all folks!"]]--

wait(0)
local Parts = {
  game.Players.LocalPlayer.Character.Torso
}
local w = {}
for i = 2, 24 do
  Parts[i] = Instance.new("Part", game.Players.LocalPlayer.Character)
  Parts[i].BrickColor = BrickColor.Black()
  Parts[i].Material = "Granite"
  Parts[i].CanCollide = false
  Parts[i].Locked = false
  Parts[i].formFactor = "Symmetric"
  Parts[i].Size = Vector3.new(1.5, 3, 3)
  function onTouched(part)
    local h = Parts[i].Parent:findFirstChild("Humanoid")
    if h ~= nil then
      h.Health = h.Health - 0
      wait(0)
    end
  end
  Parts[i].Touched:connect(onTouched)
  Mesh = Instance.new("BlockMesh", Parts[i])
  Mesh.Name = "Mesh"
  if i > 75 then
    mult = (i - 25) / 1
  else
    mult = 0
  end
  Mesh.Scale = Vector3.new(math.abs(0.5 - (i - 0) / 50) + 0 + mult, 0.3 - (i - 0.15) / 69, 0.6)
  w[i - 1] = Instance.new("Weld", Parts[i])
  w[i - 1].Part0 = Parts[i - 1]
  w[i - 1].Part1 = Parts[i]
  w[i - 1].C0 = CFrame.new(0, 0, 0.75)
  w[i - 1].C1 = CFrame.new(0, 0, -0.75)
end
w[1].C0 = CFrame.new(0, -0.35, 0)
function Smooth(WhereTo0, Welds)
  local CR0 = CFrame.new(Welds[1].C1:toEulerAnglesXYZ()).p
  local CR1 = CFrame.new(WhereTo0).p
  local AddTo0 = (CR1 - CR0) / 6.9
  for a = 1, #Welds do
    Welds[a].C1 = Welds[a].C1 * CFrame.fromEulerAnglesXYZ(AddTo0.x, AddTo0.y, AddTo0.z)
  end
end
local scr = Instance.new("ScreenGui", game.Players.LocalPlayer.PlayerGui)
local absx = scr.AbsoluteSize.X
local absy = scr.AbsoluteSize.Y
scr:Destroy()
local mouse = game.Players.LocalPlayer:GetMouse()
game:GetService("RunService").RenderStepped:connect(function()
  local r = CFrame.new(Vector3.new((mouse.Y - absy / 2) / absy, (mouse.X - absx / 2) / absx, 0.025)).p
  local y = r.y
  local x = r.x
  local z = r.z
  Smooth(Vector3.new(y, x, -z), w)
end)
wait(0)
local Parts = {
  game.Players.LocalPlayer.Character.Torso
}
local w = {}
for i = 2, 24 do
  Parts[i] = Instance.new("Part", game.Players.LocalPlayer.Character)
  Parts[i].BrickColor = BrickColor.Black()
  Parts[i].Material = "Granite"
  Parts[i].CanCollide = false
  Parts[i].Locked = false
  Parts[i].formFactor = "Symmetric"
  Parts[i].Size = Vector3.new(1.1, 0.9, 2.5)
  function onTouched(part)
    local h = Parts[i].Parent:findFirstChild("Humanoid")
    if h ~= nil then
      h.Health = h.Health - 0
      wait(0)
    end
  end
  Parts[i].Touched:connect(onTouched)
  Mesh = Instance.new("BlockMesh", Parts[i])
  Mesh.Name = "Mesh"
  if i > 75 then
    mult = (i - 25) / 1
  else
    mult = 0
  end
  Mesh.Scale = Vector3.new(math.abs(0.5 - (i - 0) / 50) + 0 + mult, 0.3 - (i - 0.15) / 99, 0.6)
  w[i - 1] = Instance.new("Weld", Parts[i])
  w[i - 1].Part0 = Parts[i - 1]
  w[i - 1].Part1 = Parts[i]
  w[i - 1].C0 = CFrame.new(0, 0, 0.69)
  w[i - 1].C1 = CFrame.new(0, 0, -0.69)
end
w[1].C0 = CFrame.new(0, -0.35, 0)
function Smooth(WhereTo0, Welds)
  local CR0 = CFrame.new(Welds[1].C1:toEulerAnglesXYZ()).p
  local CR1 = CFrame.new(WhereTo0).p
  local AddTo0 = (CR1 - CR0) / 6.9
  for a = 1, #Welds do
    Welds[a].C1 = Welds[a].C1 * CFrame.fromEulerAnglesXYZ(AddTo0.x, AddTo0.y, AddTo0.z)
  end
end
local scr = Instance.new("ScreenGui", game.Players.LocalPlayer.PlayerGui)
local absx = scr.AbsoluteSize.X
local absy = scr.AbsoluteSize.Y
scr:Destroy()
local mouse = game.Players.LocalPlayer:GetMouse()
game:GetService("RunService").RenderStepped:connect(function()
  local r = CFrame.new(Vector3.new((mouse.Y - absy / 2) / absy, (mouse.X - absx / 2) / absx, 0.025)).p
  local y = r.y
  local x = r.x
  local z = r.z
  Smooth(Vector3.new(y, x, -z), w)
end)