Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- -- Localscript, JUST RUN IT
- -- Say size/NUMBERHERE to change the size of the fire
- -- Say pressure/NUMBERHERE to change the power of the explosion, default is 5,000,000 pressure
- Player = game.Players.LocalPlayer
- Mouse = Player:GetMouse()
- Character = Player.Character
- Prt = Instance.new("Part", Character)
- Prt.FormFactor = "Custom"
- Prt.Size = Vector3.new(2,2,2)
- PrtM = Instance.new("SpecialMesh", Prt)
- PrtM.MeshType = "Sphere"
- Prt.TopSurface = "Smooth"
- Prt.BottomSurface = "Smooth"
- Prt:breakJoints()
- PrtW = Instance.new("ManualWeld", Character)
- PrtW.Part0 = Prt
- PrtW.Part1 = Character.Head
- PrtW.C0 = CFrame.new(0,-6,0)
- Prt.BrickColor = BrickColor.new("Navy blue")
- Prt.Transparency = 1
- LaserOn = false
- ExpSize = 2
- Pressure = 500000
- function Laserr()
- MousePos = Mouse.Hit.p
- PrtPos = Prt.Position
- Dis = (MousePos-PrtPos).magnitude
- Laser = Instance.new("Part", Workspace)
- Laser.BrickColor = BrickColor.new("Navy blue")
- Laser.Anchored = true
- Laser.TopSurface = "Smooth"
- Laser.FormFactor = "Custom"
- Laser.Size = Vector3.new(0,0,Dis)
- Laser.CFrame = CFrame.new(MousePos,PrtPos)*CFrame.new(0.4,0.4,-Dis/2)
- Laser.BottomSurface = "Smooth"
- Laser.CanCollide = false
- while LaserOn == true do
- wait()
- if Mouse.Target ~= nil then
- if Mouse.Target ~= Laser and Mouse.Target.Name ~= "Base" then
- Mouse.Target.Anchored = false
- end
- end
- if Prt:findFirstChild("Weld") == false then
- PrtW = Instance.new("ManualWeld", Character)
- PrtW.Part0 = Prt
- PrtW.Part1 = Character.Head
- PrtW.C0 = CFrame.new(0,-6,0)
- end
- Prt.BrickColor = BrickColor.new("Navy blue")
- Prt.Transparency = 0
- MousePos = Mouse.Hit.p
- PrtPos = Prt.Position
- Dis = (MousePos-PrtPos).magnitude
- Laser.Size = Vector3.new(0,0,Dis)
- Laser.CFrame = CFrame.new(MousePos,PrtPos)*CFrame.new(0,0,-Dis/2)
- Blst = Instance.new("Explosion", Workspace)
- Blst.BlastRadius = ExpSize
- Blst.BlastPressure = Pressure
- Blst.Position = MousePos
- end
- Laser:Destroy()
- end
- Mouse.Button1Down:connect(function()
- LaserOn = true
- print("Laser on")
- Laserr()
- end)
- Mouse.Button1Up:connect(function()
- print("Laser off")
- LaserOn = false
- wait()
- Prt.Transparency = 1
- end)
- Player.Chatted:connect(function(chat)
- if (string.sub(chat,1,5) == "size/") then
- ExpSize = (string.sub(chat,6))
- end
- if (string.sub(chat,1,9) == "pressure/") then
- Pressure = (string.sub(chat,10))
- end
- end)
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement