generic image
Processing...
  • Games
  • Catalog
  • Develop
  • Robux
  • Search in Players
  • Search in Games
  • Search in Catalog
  • Search in Groups
  • Search in Library
  • Log In
  • Sign Up
  • Games
  • Catalog
  • Develop
  • Robux
   
ROBLOX Forum » Game Creation and Development » Scripters
Home Search
 

Re: Taser Doesn't Deploy

Previous Thread :: Next Thread 
Stewie140 is not online. Stewie140
Joined: 24 Dec 2010
Total Posts: 212
05 Mar 2016 01:33 PM
Could someone fix my script that is modded? Whenever I deploy this taser, it will not stop tasing because I have a custom sound effect. Could someone help? Thanks!
Script:

local Tool = script.Parent;

autolength = 5
enabled = true
enabled2 = true
benabled = true
pgui = nil
mtarg = nil
mousedown = false
target = nil
cart = true
electrictextures = {"http://www.roblox.com/asset/?id=109201383", "http://www.roblox.com/asset/?id=109201366", "http://www.roblox.com/asset/?id=109201474", "http://www.roblox.com/asset/?id=109201980", "http://www.roblox.com/asset/?id=109202011"}

function BarbTouched(hit, barb)
if hit == nil then return end
if hit.Parent == nil then return end
if hit.Parent:findFirstChild("Humanoid") or hit.Parent:findFirstChild("Zombie") ~= nil then
if hit.Parent.Name == game.Players.LocalPlayer.Name then return end
if target ~= nil then return end

if hit.Parent:findFirstChild("OverrideScript") == nil then
local s = script.Parent.OverrideScript:clone()
s.Parent = hit.Parent
target = hit.Parent
s.Disabled = false
end

barb:Remove()

elseif hit.CanCollide == true then
barb:Remove()
end
end

function DriveStun(hit)
if hit.Parent:findFirstChild("Humanoid") or hit.Parent:findFirstChild("Zombie") ~= nil then
local s = script.Parent.DriveStunScript:clone()
s.Parent = hit.Parent
s.Disabled = false
end
end

function GetElectricTexture()
local r = math.random(1,#electrictextures)
return electrictextures[r]
end

function onButton1Down(mouse)
mousedown = true
if not enabled then
return
end
if not enabled2 then return end
enabled = false
enabled2 = false

if mouse.Hit ~= nil then
mtarg = mouse.Hit.p
end

if cart and benabled then
benabled = false
Tool.Deployed.Value = true
local v = (mtarg - Tool.Cart.Position).unit
local v2 = ((mtarg + Vector3.new(0,-1.5,0)) - Tool.Cart.Position).unit

local spawnPos = script.Parent.Cart.Position
spawnPos = spawnPos + (v * 2)

Tool.BlastDoor1.Transparency = 1
Tool.BlastDoor2.Transparency = 1

local barb_1 = Instance.new("Part")

barb_1.Position = spawnPos
barb_1.FormFactor = 3
barb_1.Size = Vector3.new(1,1,1)
barb_1.Velocity = v * 500--1000
barb_1.BrickColor = BrickColor.new(194)
barb_1.BottomSurface = 0
barb_1.TopSurface = 0
barb_1.Name = "TaserBarb"
barb_1.Elasticity = 0
barb_1.Reflectance = 0.1
barb_1.Friction = 1

Tool.BarbMesh:clone().Parent = barb_1

local sc = Tool.BarbScript:clone()
sc.Parent = barb_1
sc.Disabled = false

local force = Instance.new("BodyForce")
force.force = Vector3.new(0,150,0)
force.Parent = barb_1

barb_1.Parent = game.Workspace

local barb_2 = barb_1:clone()
barb_2.Position = spawnPos + (v2 * 2) + Vector3.new(0,-0.5,0)
barb_2.Velocity = v2 * 500
barb_2.BodyForce.force = Vector3.new(0,150,0)
barb_2.Parent = game.Workspace

barb_1.Touched:connect(function(hit) BarbTouched(hit, barb_1) end)
barb_2.Touched:connect(function(hit) BarbTouched(hit, barb_2) end)
Tool.Handle.Shot:Play()

local al = 70 * (autolength / 5) + 2
local t = 0
local timerval = 0

coroutine.resume(coroutine.create(function()
while not enabled do
t = t + 0.1
if t < autolength then
Tool.TimerVal.Value = math.ceil(autolength - t)
else
Tool.TimerVal.Value = math.ceil(t)
end
wait(0.1)
end
Tool.TimerVal.Value = 0
end))

while (mousedown or t < autolength - 0.2) and not safety and t < 90 do
script.Parent.Handle.sound:Play()
wait(0.06)
end

if target ~= nil then
if target:findFirstChild("OverrideScript") ~= nil then target.OverrideScript:Remove() end
end

Tool.TimerVal.Value = 0
safety = false
enabled = true
wait(0.2)
enabled2 = true

elseif cart and target ~= nil then

enabled = false
local st = script.Parent.OverrideScript:clone()
st.Disabled = false
st.Parent = target

local al = 70 * (autolength / 5) + 2
local t = 0
local timerval = 0

coroutine.resume(coroutine.create(function()
while not enabled do
t = t + 0.1
if t < autolength then
Tool.TimerVal.Value = math.ceil(autolength - t)
else
Tool.TimerVal.Value = math.ceil(t)
end
wait(0.1)
end
Tool.TimerVal.Value = 0
end))

while (mousedown or t < autolength - 0.2) and not safety and t < 90 do
script.Parent.Handle.sound:Play()
wait(5)
end

if target ~= nil then
if target:findFirstChild("OverrideScript") ~= nil then target.OverrideScript:Remove() end
end

Tool.TimerVal.Value = 0
safety = false
enabled = true
wait(0.2)
enabled2 = true

elseif not cart then

enabled = false
local con2 = script.Parent.Cart.Touched:connect(DriveStun)

local al = 70 * (autolength / 5) + 2
local t = 0

coroutine.resume(coroutine.create(function()
while not enabled do
t = t + 0.1
if t < autolength then
Tool.TimerVal.Value = math.ceil(autolength - t)
else
Tool.TimerVal.Value = math.ceil(t)
end
wait(0.1)
end
Tool.TimerVal.Value = 0
end))

while (mousedown or t < autolength - 0.2) and not safety and t < 90 do
Tool.Electric.Decal.Texture = GetElectricTexture()
script.Parent.Handle.sound:Play()
wait(0.06)
end

Tool.Electric.Decal.Texture = ""
con2:disconnect()

Tool.TimerVal.Value = 0
safety = false
enabled = true
wait(0.2)
enabled2 = true
else
enabled = true
enabled2 = true
end
end

function onButton1Up(mouse)
mousedown = false
end

function UpdateDisplay()
if pgui == nil then return end
if Tool.TimerVal.Value == 0 then
pgui.Main.Countdown.Text = ""
else
pgui.Main.Countdown.Text = Tool.TimerVal.Value
end
if Tool.Cartr.Value == false then
pgui.Main.CartStatus.BackgroundColor3 = Color3.new(1,1,1)
pgui.Main.CartStatus.BorderColor3 = Color3.new(195/255,195/255,195/255)
pgui.Main.CartStatus.Text = "-"
elseif Tool.Deployed.Value == true then
pgui.Main.CartStatus.BackgroundColor3 = Color3.new(1,79/255,79/255)
pgui.Main.CartStatus.BorderColor3 = Color3.new(1,0,0)
pgui.Main.CartStatus.Text = "X"
else
pgui.Main.CartStatus.BackgroundColor3 = Color3.new(1,1,127/255)
pgui.Main.CartStatus.BorderColor3 = Color3.new(1,1,1)
pgui.Main.CartStatus.Text = "1"
end
end

function onKeyDown(key)
if key == "y" and Tool.Lamp.Light.Enabled == true then
Tool.Lamp.Light.Enabled = false
elseif key == "y" then
Tool.Lamp.Light.Enabled = true
end
if key == "r" and not enabled then
safety = true
elseif key == "r" and cart then
cart = false
Tool.Cartr.Value = false
Tool.Cart.Transparency = 1
Tool.Cart.CanCollide = false
Tool.CartPart1.Transparency = 1
Tool.CartPart1.CanCollide = false
Tool.CartPart2.Transparency = 1
Tool.CartPart2.CanCollide = false
Tool.BlastDoor1.Transparency = 1
Tool.BlastDoor1.CanCollide = false
Tool.BlastDoor2.Transparency = 1
Tool.BlastDoor2.CanCollide = false
elseif key == "r" then
Tool.Cartr.Value = true
Tool.Deployed.Value = false
cart = true
benabled = true
target = nil
Tool.Cart.Transparency = 0
Tool.Cart.CanCollide = true
Tool.CartPart1.Transparency = 0
Tool.CartPart1.CanCollide = true
Tool.CartPart2.Transparency = 0
Tool.CartPart2.CanCollide = true
Tool.BlastDoor1.Transparency = 0
Tool.BlastDoor1.CanCollide = true
Tool.BlastDoor2.Transparency = 0
Tool.BlastDoor2.CanCollide = true
elseif key == "v" then
Tool.MajorLaser.Transparency = 0.33
elseif key == "b" then
Tool.MajorLaser.Transparency = 1
end
end

function onEquippedLocal(mouse)

if mouse == nil then
print("Mouse not found")
return
end

local h = Tool.Parent:findFirstChild("Humanoid")

if h~=nil and game.Players:findFirstChild(h.Parent.Name)~=nil then
local gui = Tool.Gui:clone()
gui.Parent = game.Players:findFirstChild(h.Parent.Name).PlayerGui
pgui = gui

UpdateDisplay()

Tool.TimerVal.Changed:connect(UpdateDisplay)
Tool.Cartr.Changed:connect(UpdateDisplay)
Tool.Deployed.Changed:connect(UpdateDisplay)
end

mouse.Icon = "http://www.roblox.com/asset/?id=2966012"
mouse.Button1Down:connect(function() onButton1Down(mouse) end)
mouse.Button1Up:connect(function() onButton1Up(mouse)end)
mouse.KeyDown:connect(onKeyDown)
end


Tool.Equipped:connect(onEquippedLocal)

function onUnequippedLocal()
if pgui ~= nil then
pgui:Remove()
pgui = nil
end
if target ~= nil then
if target:findFirstChild("OverrideScript") ~= nil then target.OverrideScript:Remove() end
end
end

Tool.Unequipped:connect(onUnequippedLocal)



Report Abuse
Stewie140 is not online. Stewie140
Joined: 24 Dec 2010
Total Posts: 212
05 Mar 2016 02:35 PM
Bump!

WHOEVER FIXES IT FIRST GETS 107 ROBUX!


Report Abuse
Previous Thread :: Next Thread 
Page 1 of 1
 
 
ROBLOX Forum » Game Creation and Development » Scripters
   
 
   
  • About Us
  • Jobs
  • Blog
  • Parents
  • Help
  • Terms
  • Privacy

©2017 Roblox Corporation. Roblox, the Roblox logo, Robux, Bloxy, and Powering Imagination are among our registered and unregistered trademarks in the U.S. and other countries.



Progress
Starting Roblox...
Connecting to Players...
R R

Roblox is now loading. Get ready to play!

R R

You're moments away from getting into the game!

Click here for help

Check Remember my choice and click Launch Application in the dialog box above to join games faster in the future!

Gameplay sponsored by:
Loading 0% - Starting game...
Get more with Builders Club! Join Builders Club
Choose Your Avatar
I have an account
generic image