--https://github.com/Mokiros/roblox-FE-compatibility
if game:GetService("RunService"):IsClient() then error("Script must be server-side in order to work; use h/ and not hl/") end
local Player,game,owner = owner,game
local RealPlayer = Player
do print("FE Compatibility code V2 by Mokiros")local RealPlayer=RealPlayer;script.Parent=RealPlayer.Character;local a=function(b)b[1].f[b[2]]=nil end;local c={__index={disconnect=a,Disconnect=a}}local d={__index={Connect=function(b,e)local f=tostring(math.random(0,10000))while b.f[f]do f=tostring(math.random(0,10000))end;b.f[f]=e;return setmetatable({b,f},c)end}}d.__index.connect=d.__index.Connect;local function g()return setmetatable({f={}},d)end;local h={Hit=CFrame.new(),KeyUp=g(),KeyDown=g(),Button1Up=g(),Button1Down=g(),Button2Up=g(),Button2Down=g()}h.keyUp=h.KeyUp;h.keyDown=h.KeyDown;local i={InputBegan=g(),InputEnded=g()}local CAS={Actions={},BindAction=function(self,j,k,l,...)CAS.Actions[j]=k and{Name=j,Function=k,Keys={...}}or nil end}CAS.UnbindAction=CAS.BindAction;local function m(self,n,...)for o,e in pairs(self[n].f)do e(...)end end;h.T=m;i.T=m;local p=Instance.new("RemoteEvent")p.Name="UserInput_Event"p.OnServerEvent:Connect(function(q,r)if q~=RealPlayer then return end;h.Target=r.e;h.Hit=r.d;if not r.f then local s=r.c==Enum.UserInputState.Begin;if r.b==Enum.UserInputType.MouseButton1 then return h:T(s and"Button1Down"or"Button1Up")end;if r.b==Enum.UserInputType.MouseButton2 then return h:T(s and"Button2Down"or"Button2Up")end;for o,t in pairs(CAS.Actions)do for o,u in pairs(t.Keys)do if u==r.a then t.Function(t.Name,r.c,r)end end end;h:T(s and"KeyDown"or"KeyUp",r.a.Name:lower())i:T(s and"InputBegan"or"InputEnded",r,false)end end)p.Parent=NLS([==[local a=script:WaitForChild("UserInput_Event")local b=owner:GetMouse()local c=game:GetService("UserInputService")local d=function(e,f)if f then return end;a:FireServer({a=e.KeyCode,b=e.UserInputType,c=e.UserInputState,d=b.Hit,e=b.Target})end;c.InputBegan:Connect(d)c.InputEnded:Connect(d)local g,h;local i=game:GetService("RunService").Heartbeat;while true do if g~=b.Hit or h~=b.Target then g,h=b.Hit,b.Target;a:FireServer({f=1,Target=h,d=g})end;for j=1,2 do i:Wait()end end]==],script)local v=game;local w={__index=function(self,u)local x=rawget(self,"_RealService")if x then return typeof(x[u])=="function"and function(o,...)return x[u](x,...)end or x[u]end end,__newindex=function(self,u,y)local x=rawget(self,"_RealService")if x then x[u]=y end end}local function z(t,A)t._RealService=typeof(A)=="string"and v:GetService(A)or A;return setmetatable(t,w)end;local B={GetService=function(self,x)return rawget(self,x)or v:GetService(x)end,Players=z({LocalPlayer=z({GetMouse=function(self)return h end},Player)},"Players"),UserInputService=z(i,"UserInputService"),ContextActionService=z(CAS,"ContextActionService"),RunService=z({_btrs={},RenderStepped=v:GetService("RunService").Heartbeat,BindToRenderStep=function(self,j,o,k)self._btrs[j]=self.Heartbeat:Connect(k)end,UnbindFromRenderStep=function(self,j)self._btrs[j]:Disconnect()end},"RunService")}rawset(B.Players,"localPlayer",B.Players.LocalPlayer)B.service=B.GetService;z(B,game)game,owner=B,B.Players.LocalPlayer end -- a shotgun gun used to edit velocity and use vectors and working freezeing c02
lp=game.Players.LocalPlayer
pl=lp.Character
tol=Instance.new("HopperBin",lp.Backpack)
tol.Name="L_Shotgun"--ContentDownloader
Part = function(x,y,z,color,tr,cc,an,parent)
local p = Instance.new('Part',parent or Weapon)
p.formFactor = 'Custom'
p.Size = Vector3.new(x,y,z)
p.BrickColor = BrickColor.new(color)
p.CanCollide = cc
p.Transparency = tr
p.Anchored = an
p.TopSurface,p.BottomSurface = 0,0
return p
end
s = Instance.new("Sound")s.Name = "Sound"
s.SoundId = "http://www.roblox.com/asset?id=131632972"s.Volume = 1
s.Pitch = 1 s.Looped = false s.PlayOnRemove = false s.archivable = false
s.Parent = pl.Torso
s2 = Instance.new("Sound")s.Name = "Sound"
s2.SoundId = "http://roblox.com/asset/?id=131072992"s2.Volume = 1
s2.Pitch = 1 s2.Looped = false s2.PlayOnRemove = false s2.archivable = false
s2.Parent = pl.Torso
s3 = Instance.new("Sound")s.Name = "Sound"
s3.SoundId = "http://www.roblox.com/asset/?id=30624262"s3.Volume = 1
s3.Pitch = .225 s3.Looped = false s3.PlayOnRemove = false s3.archivable = false
s3.Parent = pl.Torso
Lightning = function(Start,End,Times,Offset,Color,Thickness,Transparency)
    local magz = (Start - End).magnitude local curpos = Start local trz = {-Offset,Offset}
    for i=1,Times do
                local li = Instance.new("Part",workspace) li.TopSurface =0 li.BottomSurface = 0 li.Anchored = true  li.Transparency = Transparency or 0.4 li.BrickColor = BrickColor.new(Color)
        li.formFactor = "Custom" li.CanCollide = false li.Size = Vector3.new(Thickness,Thickness,magz/Times) local ofz = Vector3.new(trz[math.random(1,2)],trz[math.random(1,2)],trz[math.random(1,2)])
                                function touch(hit)
                if hit.Parent:findFirstChild("Humanoid") ~= nil and hit.Parent ~=pl then
                hit.Parent:BreakJoints()
                end end li.Touched:connect(touch)
                local trolpos = CFrame.new(curpos,End)*CFrame.new(0,0,magz/Times).p+ofz
        if Times == i then
            local magz2 = (curpos - End).magnitude li.Size = Vector3.new(Thickness,Thickness,magz2)
            li.CFrame = CFrame.new(curpos,End)*CFrame.new(0,0,-magz2/2)
        else
            li.CFrame = CFrame.new(curpos,trolpos)*CFrame.new(0,0,magz/Times/2)
        end
        curpos = li.CFrame*CFrame.new(0,0,magz/Times/2).p game.Debris:AddItem(li,0.25)
    end
end
Weld = function(p0,p1,x,y,z,rx,ry,rz,par)
p0.Position = p1.Position
local w = Instance.new('Motor',par or p0)
w.Part0 = p0
w.Part1 = p1
w.C1 = CFrame.new(x,y,z)*CFrame.Angles(rx,ry,rz)
return w
end
Mesh = function(par,num,x,y,z)
local msh = _
if num == 1 then msh = Instance.new("CylinderMesh",par)
elseif num == 2 then msh = Instance.new("SpecialMesh",par) msh.MeshType = 3
elseif num == 3 then msh = Instance.new("BlockMesh",par)
elseif type(num) == 'string' then msh = Instance.new("SpecialMesh",par) msh.MeshId = num
end
msh.Scale = Vector3.new(x,y,z)
return msh
end
shotval=0
function onClicked(mouse)
Debounce = true
if shotval==2 then print("out") return end
if shotval==0 then print("1")
lod.BrickColor=BrickColor.new("")s:play()
for i=1,5 do
Lightning(shot1.Position,mouse.Hit.p,math.random(5,10),math.random(-2.5,2.5),"Royal purple",0.05,0.35)end end
if shotval==1 then print("2")
lod2.BrickColor=BrickColor.new("")s:play()
for i=1,5 do
Lightning(shot2.Position,mouse.Hit.p,math.random(5,10),math.random(-2.5,2.5),"Royal purple",0.05,0.35)end end
shotval=shotval+1
end
function onKeyDown(key)
key = key:lower()
if key == "r" then
if shotval>=2 then
shotval=-10900
lod.BrickColor=BrickColor.new("Really red")s2:play()
wait(.75)
lod2.BrickColor=BrickColor.new("Really red")s2:play()
wait(1)
smoke.Enabled=true
s3:play()
wait(1.5)
smoke.Enabled=false
shotval=0
end end end
tol.Selected:connect(function(mouse)
mouse.Button1Down:connect(function() onClicked(mouse) end)
mouse.KeyDown:connect(onKeyDown)
mo=Instance.new("Model",pl)
pa1= Part(.3,.3,1,'Really black',0,false,false,mo)
wl1= Weld(pa1,pl['Right Arm'],0,-1,0,0,0,0,mo)
pa1= Part(.3,.3,.4,'Really black',0,false,false,mo)
wl1= Weld(pa1,pl['Right Arm'],0,-1.2,-.5,-math.pi/5,0,0,mo)
pa1= Part(.3,2,.3,'Really black',0,false,false,mo)
wl1= Weld(pa1,pl['Right Arm'],0,-1.75,-.6,0,0,0,mo)
pa1= Part(.4,2,.4,'Dark stone grey',0,false,false,mo)--pa1.Material="Neon"
wl1= Weld(pa1,pl['Right Arm'],0.2,-2.25,-.6,0,0,0,mo)
m1= Mesh(pa1,1,1,1,1)
pa1= Part(.4,2,.4,'Dark stone grey',0,false,false,mo)--pa1.Material="Neon"
wl1= Weld(pa1,pl['Right Arm'],-0.2,-2.25,-.6,0,0,0,mo)
m1= Mesh(pa1,1,1,1,1)
shot2= Part(.3,2,.3,'Really black',0,false,false,mo)
wl1= Weld(shot2,pl['Right Arm'],0.2,-2.26,-.6,0,0,0,mo)
m1= Mesh(shot2,1,1,1,1)
shot1= Part(.3,2,.3,'Really black',0,false,false,mo)
wl1= Weld(shot1,pl['Right Arm'],-0.2,-2.26,-.6,0,0,0,mo)
m1= Mesh(shot1,1,1,1,1)
pa1= Part(.2,.5,.2,'Really black',0,false,false,mo)
wl1= Weld(pa1,pl['Right Arm'],-0.2,-1.25,-.6,0,0,-math.pi/5,mo)
pa1= Part(.2,.5,.2,'Really black',0,false,false,mo)
wl1= Weld(pa1,pl['Right Arm'],0.2,-1.25,-.6,0,0,math.pi/5,mo)
pa1= Part(.3,.5,.3,'Really black',0,false,false,mo)
wl1= Weld(pa1,pl['Right Arm'],0.2,-1.2,-.7,-math.pi/5,0,0,mo)
m1= Mesh(pa1,1,1,1,1)
pa1= Part(.3,.5,.3,'Really black',0,false,false,mo)
wl1= Weld(pa1,pl['Right Arm'],-0.2,-1.2,-.7,-math.pi/5,0,0,mo)
m1= Mesh(pa1,1,1,1,1)
lod2= Part(.2,.5,.2,'Really red',0,false,false,mo)
wl1= Weld(lod2,pl['Right Arm'],0.2,-1.15,-.75,-math.pi/5,0,0,mo)
m1= Mesh(lod2,1,1,1,1)
lod= Part(.2,.5,.2,'Really red',0,false,false,mo)
wl1= Weld(lod,pl['Right Arm'],-0.2,-1.15,-.75,-math.pi/5,0,0,mo)
m1= Mesh(lod,1,1,1,1)
pa1= Part(.4,.5,.5,'',0,false,false,mo)
wl1= Weld(pa1,pl['Right Arm'],0,-2.75,-.3,0,0,0,mo)
pa1= Part(.3,.5,.3,'Really black',0,false,false,mo)
wl1= Weld(pa1,pl['Right Arm'],0,-2.8,0,0,0,0,mo)
m1= Mesh(pa1,1,1,1,1)
pa1= Part(.1,.1,.1,'Really red',0.75,false,false,mo)
wl1= Weld(pa1,pl['Right Arm'],0,-5.55,0,0,0,0,mo)
m1= Mesh(pa1,1,.3,30,.3)
bb= Part(.1,.1,.1,'Bright red',0,false,false,mo)
wl1= Weld(bb,pl['Right Arm'],0,-2,0,-math.pi/3,0,0,mo)
m1= Mesh(bb,2,2.5,2.5,2.5)
pa1= Part(.5,1,.5,'Bright red',0,false,false,mo)
wl1= Weld(pa1,bb,0,-.5,0,0,0,0,mo)
m1= Mesh(pa1,1,1,1,1)
pa1= Part(.3,.65,.3,'',0,false,false,mo)
wl1= Weld(pa1,bb,0,.25,0,0,0,0,mo)
m1= Mesh(pa1,1,1,1,1)
pa1= Part(.3,.5,.3,'Dark stone grey',0,false,false,mo)
wl1= Weld(pa1,bb,0.1,-.74,0,0,0,0,mo)
pa1= Part(.1,.1,.1,'Really black',0,false,false,mo)
wl1= Weld(pa1,bb,0.25,-.74,0,0,0,0,mo)
m1= Mesh(pa1,3,.1,2,.1)
pa1= Part(.1,.1,.1,'Really black',0,false,false,mo)
wl1= Weld(pa1,bb,0.25,-.74,.05,0,0,0,mo)
m1= Mesh(pa1,3,.1,2,.1)
pa1= Part(.1,.1,.1,'Really black',0,false,false,mo)
wl1= Weld(pa1,bb,0.25,-.74,-.05,0,0,0,mo)
m1= Mesh(pa1,3,.1,2,.1)
pa1= Part(.1,.1,.1,'Really black',0,false,false,mo)
wl1= Weld(pa1,bb,0.25,-.74,.1,0,0,0,mo)
m1= Mesh(pa1,3,.1,2,.1)
pa1= Part(.1,.1,.1,'Really black',0,false,false,mo)
wl1= Weld(pa1,bb,0.25,-.74,-.1,0,0,0,mo)
m1= Mesh(pa1,3,.1,2,.1)
pa1= Part(.2,.6,.2,'Really black',0,false,false,mo)
wl1= Weld(pa1,pl['Right Arm'],0,-2.5,0,0,0,0,mo)
pa1= Part(.3,.3,1,'Really black',0,false,false,mo)
wl1= Weld(pa1,pl['Right Arm'],0,-1.2,0,math.pi/8,0,0,mo)
m1= Mesh(pa1,3,1,.1,1)
smo= Part(.1,.1,.1,'Dark stone grey',1,false,false,mo)
wl1= Weld(smo,bb,0.1,-.74,0,0,0,-math.pi/2,mo)
smoke=Instance.new("Smoke",smo)
smoke.Color=Color3.new(.85,0,2.55)
smoke.RiseVelocity=100
smoke.Enabled=false




--
bas = Part(1,1,1,'',1,false,false,mo)
bas:BreakJoints()
fakel = Instance.new("Weld",mo)
fakel.Part0 = pl.Torso
fakel.Part1 = bas
coroutine.wrap(function()
for angle = 0, 95, 10 do
fakel.C0 = CFrame.new(1.5, 0.5, 0) * CFrame.Angles(math.rad(angle),math.rad(angle/8),0)
wait()
end
end)()
welditbro = Instance.new("Weld", mo)
welditbro.C0 = CFrame.new(0, 0.5, 0)
welditbro.Part0 = pl['Right Arm']
welditbro.Part1 = bas
bas2 = Part(1,1,1,'',1,false,false,mo)
bas2:BreakJoints()
fakel2 = Instance.new("Weld",mo)
fakel2.Part0 = pl.Torso
fakel2.Part1 = bas2
coroutine.wrap(function()
for angle = 0, 30, 5 do
fakel2.C0 = CFrame.new(-1.5, 0.5, 0) * CFrame.Angles(math.rad(-angle),math.rad(-angle/5),math.rad(-angle/5))
wait()
end
end)()
welditbro2 = Instance.new("Weld", mo)
welditbro2.C0 = CFrame.new(0, 0.5, 0)
welditbro2.Part0 = pl['Left Arm']
welditbro2.Part1 = bas2
end)
tol.Deselected:connect(function(mouse)
loop=true
mo:remove()
end)