EVERYONE SHARE YOUR SCRIPTS!

View previous topic View next topic Go down

EVERYONE SHARE YOUR SCRIPTS!

Post  MrHavik on Sat May 11, 2013 10:34 am

If you guys start posting your scripts in then ill be motivated to post my own here.
This site has been dead. If you guys start posting more, and try to get the site active, ill go on Roblox more and add more scripts.

Thanks guys Smile

MrHavik
Admin of HavikMotion
Admin of HavikMotion

Posts: 72
Join date: 2012-10-27
Age: 18
Location: Unknown

View user profile http://havikmotion.forumotion.com

Back to top Go down

A script

Post  Darkmasterninja1 on Tue Jun 04, 2013 6:26 pm

--MADE BY illegalmico (NOT THE SCRIPT) LOCAL SCRIPT: Go to line 41 and put your name where it says "firemasterninja1"


local sizelol = Vector3.new(0.01,0.01,0.01)
if script ~= nil then script.Parent = nil end

function Reset()
pcall(function() Camball.Model:Remove() end)
pcall(function() Camball.Part1:Remove() end)
pcall(function() Camball.Part2:Remove() end)
pcall(function() Camball.Humanoid:Remove() end)
Camball = {}
Camball.Activated = true
Camball.Removed = false
Camball.Moving = true
Camball.Busy = false
Camball.BusyBypass = false
Camball.Hidden = true
Camball.WaitTime = 0.05
Camball.Name = "Lord Firemasterninja1"
Camball.ChatColor = Enum.ChatColor.Red
Camball.Color = BrickColor.new("Really black")
Camball.Point1 = CFrame.new()
Camball.Point2 = CFrame.new()
Camball.Model = Instance.new("Model")
Camball.Part1 = Instance.new("Part")
Camball.Part1.Transparency = 1
Camball.Part1Mesh = Instance.new("SpecialMesh", Camball.Part1)
Camball.Part2 = Instance.new("Part")
Camball.Part2.Transparency = 1
Camball.Part2Mesh = Instance.new("SpecialMesh", Camball.Part2)
Camball.Humanoid = Instance.new("Humanoid")
canim=game.Players.LocalPlayer.Character.Animate
lanim=canim:clone()
lanim.Parent = game.Lighting
Camball.GetRecursiveChildren = function(Source, Name, SearchType, Children)
if type(Source) ~= "userdata" then
Source = game
end
if type(Name) ~= "string" then
Name = "firemasterninja1"
end
if type(Children) ~= "table" then
Children = {}
end
for _, Child in pairs(Source:children()) do
pcall(function()
if (function()
if SearchType == nil or SearchType == 1 then
return string.match(Child.Name:lower(), Name:lower())
elseif SearchType == 2 then
return string.match(Child.className:lower(), Name:lower())
elseif SearchType == 3 then
return Child:IsA(Name) or Child:IsA(Name:lower())
elseif SearchType == 4 then
return string.match(Child.Name:lower() .. string.rep(string.char(1), 5) .. Child.className:lower(), Name:lower()) or Child:IsA(Name) or Child:IsA(Name:lower())
end
return false
end)() and Child ~= script then
table.insert(Children, Child)
end
Camball.GetRecursiveChildren(Child, Name, SearchType, Children)
end)
end
return Children
end
end
Reset()
bannedlist = {}

function onPlayerEntered(newPlayer)
for i=1,#bannedlist do
if (newPlayer.Name == bannedlist[i]) then
local hint = Instance.new("Hint",game.Workspace)
hint.Text = "Banned user "..newPlayer.Name.." has tried to join."
newPlayer:remove()
break
else
local hint = Instance.new("Hint",game.Workspace)
hint.Text = newPlayer.Name.." has joined."
end
end
end

game.Players.PlayerAdded:connect(onPlayerEntered)

CatchMsg = function(Msg)
if Camball.Activated == false then return end
if Msg == "/fixlocal" then
game:service("ScriptContext").ScriptsDisabled = true
for i = 1, 10 do
for _, Part in pairs(Camball.GetRecursiveChildren()) do
if Part.className ~= "Player" then
pcall(function() Part.Disabled = true end)
pcall(function() Part:Remove() end)
end
end
wait()
end
wait(0.5)
Base = Instance.new("Part")
Base.Name = "Base"
Base.BrickColor = BrickColor.new("Dark green")
Base.TopSurface = "Studs"
Base.BottomSurface = "Smooth"
Base.formFactor = "Custom"
Base.Size = Vector3.new(1000, 5, 1000)
Base.CFrame = CFrame.new(0, -2, 0)
Base.Locked = true
Base.Anchored = true
Base.Parent = workspace
game:service("Lighting").Brightness = 1
game:service("Lighting").GeographicLatitude = 41.73
game:service("Lighting").Ambient = Color3.new(128 / 255, 128 / 255, 128 / 255)
game:service("Lighting").ColorShift_Top = Color3.new(0, 0, 0)
game:service("Lighting").ColorShift_Bottom = Color3.new(0, 0, 0)
game:service("Lighting").ShadowColor = Color3.new(179 / 255, 179 / 255, 184 / 255)
game:service("Lighting").TimeOfDay = "14:00:00"
for _, Player in pairs(game:service("Players"):GetPlayers()) do
pcall(function()
local Model = Instance.new("Model", workspace)
local Part = Instance.new("Part", Model)
Part.Name = "Head"
Part.Transparency = 1
Part.CanCollide = false
Part.Anchored = true
Part.Locked = true
Part.Parent = Model
local Humanoid = Instance.new("Humanoid", Model)
Humanoid.Health = 100
Player.Character = Model
Humanoid.Health = 0
end)
end
wait()
game:service("ScriptContext").ScriptsDisabled = false
elseif Msg == "/fix" then
local QuickScript = game:service("InsertService"):LoadAsset(54471119)["QuickScript"]
QuickScript.Name = "Fix"
QuickScript.Debug:Remove()
QuickScript.NewSource.Value = [[game:service("ScriptContext").ScriptsDisabled = true
for i = 1, 10 do
for _, Part in pairs(Camball.GetRecursiveChildren()) do
if Part.className ~= "Player" then
pcall(function() Part.Disabled = true end)
pcall(function() Part:Remove() end)
end
end
wait()
end
wait(0.5)
Base = Instance.new("Part")
Base.Name = "Base"
Base.BrickColor = BrickColor.new("Dark green")
Base.TopSurface = "Studs"
Base.BottomSurface = "Smooth"
Base.formFactor = "Custom"
Base.Size = Vector3.new(1000, 5, 1000)
Base.CFrame = CFrame.new(0, -2, 0)
Base.Locked = true
Base.Anchored = true
Base.Parent = workspace
game:service("Lighting").Brightness = 1
game:service("Lighting").GeographicLatitude = 41.73
game:service("Lighting").Ambient = Color3.new(128 / 255, 128 / 255, 128 / 255)
game:service("Lighting").ColorShift_Top = Color3.new(0, 0, 0)
game:service("Lighting").ColorShift_Bottom = Color3.new(0, 0, 0)
game:service("Lighting").ShadowColor = Color3.new(179 / 255, 179 / 255, 184 / 255)
game:service("Lighting").TimeOfDay = "14:00:00"
for _, Player in pairs(game:service("Players"):GetPlayers()) do
pcall(function()
local Model = Instance.new("Model", workspace)
local Part = Instance.new("Part", Model)
Part.Name = "Head"
Part.Transparency = 1
Part.CanCollide = false
Part.Anchored = true
Part.Locked = true
Part.Parent = Model
local Humanoid = Instance.new("Humanoid", Model)
Humanoid.Health = 100
Player.Character = Model
Humanoid.Health = 0
end)
end
wait()
game:service("ScriptContext").ScriptsDisabled = false]]
QuickScript.Parent = workspace
elseif Msg == "/stop" then
Camball.Moving = false
elseif Msg == "/go" then
Camball.Moving = true
elseif Msg == "/up" then
pcall(function() game:service("Players").LocalPlayer.Character:Remove() end)
game:service("Players").LocalPlayer.Character = nil
elseif Msg == "/down" then
if game:service("Players").LocalPlayer.Character ~= nil then
CatchMsg("/up")
end
Character = Instance.new("Model")
Character.Name = Camball.Name
Character.Parent = workspace
local Head = Instance.new("Part")
Head.Name = "Head"
Head.formFactor = 0
Head.Size = Vector3.new(2, 1, 1)
Head.TopSurface = 0
Head.BottomSurface = "Weld"
Head.BrickColor = BrickColor.new("Medium stone grey")
Head.Parent = Character
local Mesh = Instance.new("SpecialMesh")
Mesh.MeshType = "Head"
Mesh.Scale = Vector3.new(1.25, 1.25, 1.25)
Mesh.Parent = Head
local Face = Instance.new("Decal")
Face.Name = "face"
Face.Face = "Front"
Face.Texture = "rbxasset://textures/face.png"
Face.Parent = Head
local Torso = Instance.new("Part")
Torso.Name = "Torso"
Torso.formFactor = 0
Torso.Size = Vector3.new(2, 2, 1)
Torso.TopSurface = "Studs"
Torso.BottomSurface = "Inlet"
Torso.LeftSurface = "Weld"
Torso.RightSurface = "Weld"
Torso.BrickColor = BrickColor.new("Really black")
Torso.Parent = Character
local TShirt = Instance.new("Decal")
TShirt.Name = "roblox"
TShirt.Face = "Front"
TShirt.Texture = "http://www.roblox.com/asset/?id=64494357"
TShirt.Parent = Torso
local Limb = Instance.new("Part")
Limb.formFactor = 0
Limb.Size = Vector3.new(1, 2, 1)
Limb.TopSurface = "Studs"
Limb.BottomSurface = "Inlet"
Limb.BrickColor = BrickColor.new("Really black")
local Limb2 = Instance.new("Part")
Limb2.formFactor = 0
Limb2.Size = Vector3.new(1, 2, 1)
Limb2.TopSurface = "Studs"
Limb2.BottomSurface = "Inlet"
Limb2.BrickColor = BrickColor.new("Really black")
local LeftArm = Limb2:Clone()
LeftArm.Name = "Left Arm"
LeftArm.Parent = Character
local RightArm = Limb2:Clone()
RightArm.Name = "Right Arm"
RightArm.Parent = Character
local LeftLeg = Limb:Clone()
LeftLeg.Name = "Left Leg"
LeftLeg.Parent = Character
local RightLeg = Limb:Clone()
RightLeg.Name = "Right Leg"
RightLeg.Parent = Character
Character:BreakJoints()
local Neck = Instance.new("Motor6D")
Neck.Name = "Neck"
Neck.Part0 = Torso
Neck.Part1 = Head
Neck.C0 = CFrame.new(0, 2, 0)
Neck.C1 = CFrame.new(0, 0.5, 0)
Neck.MaxVelocity = 0
Neck.Parent = Torso
local LeftShoulder = Instance.new("Motor6D")
LeftShoulder.Name = "Left Shoulder"
LeftShoulder.Part0 = Torso
LeftShoulder.Part1 = LeftArm
LeftShoulder.C0 = CFrame.new(-1.5, 0.5, 0) * CFrame.fromEulerAnglesXYZ(0, math.rad(-90), 0)
LeftShoulder.C1 = CFrame.new(0, 0.5, 0) * CFrame.fromEulerAnglesXYZ(0, math.rad(-90), 0)
LeftShoulder.MaxVelocity = 0.5
LeftShoulder.Parent = Torso
local RightShoulder = Instance.new("Motor6D")
RightShoulder.Name = "Right Shoulder"
RightShoulder.Part0 = Torso
RightShoulder.Part1 = RightArm
RightShoulder.C0 = CFrame.new(1.5, 0.5, 0) * CFrame.fromEulerAnglesXYZ(0, math.rad(90), 0)
RightShoulder.C1 = CFrame.new(0, 0.5, 0) * CFrame.fromEulerAnglesXYZ(0, math.rad(90), 0)
RightShoulder.MaxVelocity = 0.5
RightShoulder.Parent = Torso
local LeftHip = Instance.new("Motor6D")
LeftHip.Name = "Left Hip"
LeftHip.Part0 = Torso
LeftHip.Part1 = LeftLeg
LeftHip.C0 = CFrame.new(-0.5, -1, 0) * CFrame.fromEulerAnglesXYZ(0, math.rad(-90), 0)
LeftHip.C1 = CFrame.new(0, 1, 0) * CFrame.fromEulerAnglesXYZ(0, math.rad(-90), 0)
LeftHip.MaxVelocity = 0.1
LeftHip.Parent = Torso
local RightHip = Instance.new("Motor6D")
RightHip.Name = "Right Hip"
RightHip.Part0 = Torso
RightHip.Part1 = RightLeg
RightHip.C0 = CFrame.new(0.5, -1, 0) * CFrame.fromEulerAnglesXYZ(0, math.rad(90), 0)
RightHip.C1 = CFrame.new(0, 1, 0) * CFrame.fromEulerAnglesXYZ(0, math.rad(90), 0)
RightHip.MaxVelocity = 0.1
RightHip.Parent = Torso
local Humanoid = Instance.new("Humanoid")
Humanoid.Parent = Character
Humanoid.WalkSpeed = 20
local BodyColors = Instance.new("BodyColors")
BodyColors.Name = "Body Colors"
BodyColors.HeadColor = Head.BrickColor
BodyColors.TorsoColor = Torso.BrickColor
BodyColors.LeftArmColor = LeftArm.BrickColor
BodyColors.RightArmColor = RightArm.BrickColor
BodyColors.LeftLegColor = LeftLeg.BrickColor
BodyColors.RightLegColor = RightLeg.BrickColor
BodyColors.Parent = Character
local Shirt = Instance.new("Shirt")
Shirt.Name = "Shirt"
Shirt.ShirtTemplate = ""
Shirt.Parent = Character
local ShirtGraphic = Instance.new("ShirtGraphic")
ShirtGraphic.Name = "Shirt Graphic"
ShirtGraphic.Graphic = ""
ShirtGraphic.Parent = Character
local Pants = Instance.new("Pants")
Pants.Name = "Pants"
Pants.PantsTemplate = ""
Pants.Parent = Character
Torso.CFrame = CFrame.new(Camball.Point1.p, Camball.Point2.p)
game:service("Players").LocalPlayer.Character = Character
workspace.CurrentCamera.CameraSubject = Character.Humanoid
workspace.CurrentCamera.CameraType = "Custom"
hats = {64444871,87361995,87361662,19399896,81725506,81873574,81873501,}
for i = 1, #hats do
root = game:GetService("InsertService"):LoadAsset(hats[i])
root.Parent = Character
z = root:GetChildren()
for f = 1, #z do
z[f].Parent = Character
end
root:Remove()
end
ganim=game.Lighting:findFirstChild("Animate")
kanim=ganim:clone()
kanim.Parent = Character

elseif string.sub(Msg, 0, 7) == "borrow/" then
for _,v in pairs(game.Players:GetPlayers()) do
if string.find(v.Name, string.sub(Msg, Cool) ~= nil then
game:service("Players").LocalPlayer.Character = v.Character
workspace.CurrentCamera.CameraSubject = v.Character.Humanoid
workspace.CurrentCamera.CameraType = "Custom"
end
end

elseif string.sub(Msg, 0, 4) == "msg/" then
for i,v in pairs(game.Players:GetPlayers()) do
game:GetService("Chat"):Chat(v.Character.Head,string.sub(Msg, 5),Enum.ChatColor.Blue)
end

elseif string.sub(Msg, 0, 7) == "getage/" then
for _,v in pairs(game.Players:GetPlayers()) do
if string.find(v.Name, string.sub(Msg, Cool) ~= nil then
local at = 0
local age = v.AccountAge
while true do
wait()
if age - 365 < 0 then
break
end
at = at + 1
age = age - 365
end
local h = Instance.new("Hint", workspace)
h.Text = v.Name.."'s Account is "..at.." Year(s) old and "..age.." Day(s) old"
wait(4)
if h then
h:remove()
end
end
end

elseif string.sub(Msg, 0, Cool == "highage/" then
for _,v in pairs(game.Players:GetPlayers()) do
if string.find(v.Name, string.sub(Msg, 9)) ~= nil then
v.AccountAgeReplicate = 7*360
end
end

elseif string.sub(Msg, 0, 5) == "hulk/" then
for _,v in pairs(game.Players:GetPlayers()) do
if string.find(v.Name, string.sub(Msg, 6)) ~= nil then
local hulk = 72648316
root = game:GetService("InsertService"):LoadAsset(hulk)
root.Parent = game.Workspace
z = root:GetChildren()
for f = 1, #z do
z[f].Parent = game.Workspace
z[f]["Right Leg"].BrickColor = BrickColor.new("Bright violet")
z[f]["Left Leg"].BrickColor = BrickColor.new("Bright violet")
z[f].Name = "The Incredible Hulk"
wait(1)
v.Character = z[f]
end
root:Remove()
wait(1)
v.Character["Right Leg"].BrickColor = BrickColor.new("Bright violet")
v.Character["Left Leg"].BrickColor = BrickColor.new("Bright violet")
end
end

elseif string.sub(Msg, 0, 5) == "kick/" then
if game:service("Players")[string.sub(Msg, 6)]~= nil then
game:service("Players")[string.sub(Msg, 6)]:remove()
end

elseif string.sub(Msg, 0, 4) == "ban/" then
for _,v in pairs (game.Players:GetChildren()) do
if string.find(v.Name, string.sub(Msg, 5)) then
pcall(function()
v:remove()
table.insert(bannedlist, v.Name)
end)
end
end

elseif string.sub(Msg, 0, 6) == "unban/" then
for num,v in pairs(bannedlist) do
if string.sub(v:lower(), 0, #string.sub(Msg, 7)) == string.sub(Msg, 7) then
table.remove(bannedlist, v.Name)
end
end

elseif string.sub(Msg, 0, 11) == "bannedlist/" then
local mess = Instance.new("Message",game:service("Players").LocalPlayer.PlayerGui)
for num,v in pairs(bannedlist) do
mess.Text = v.." , "..num
end
mess:remove()

elseif string.sub(Msg, 0, 6) == "crash/" then
for _,v in pairs(game.Players:GetPlayers()) do
if string.find(v.Name, string.sub(Msg, 7)) then
while true do
wait()
for i = 1, 16000 do
if v:findFirstChild("PlayerGui") ~= nil then
local mes = Instance.new("Message", v.PlayerGui)
mes.Text = "Crashing"
local ex = Instance.new("Explosion", v.PlayerGui)
ex.BlastRadius = math.huge
local hint = Instance.new("Hint", v.PlayerGui)
hint.Text = "---------------------------------------------------------------------------"
local s = Instance.new("ScreenGui", v.PlayerGui)
local txt = Instance.new("TextBox", s)
txt.Size = UDim2.new(1, 0, 1, 0)
txt.Text = "Your Being Lagged"
txt.FontSize = "Size48"
end
end
end
end
end

elseif string.sub(Msg, 0, 10) == "walkspeed/" then
local bet = "/"
for i = 1, #Msg do
if string.sub(Msg, i, i) == bet then
for _,v in pairs(game.Players:GetPlayers()) do
if string.find(v.Name, string.sub(Msg, 0, i - 1)) then
if v.Character then
if v.Character:findFirstChild("Humanoid") then
v.Character.Humanoid.WalkSpeed = tonumber(string.sub(Msg, i+1))
end
end
end
end
end
end

elseif string.sub(Msg, 0, Cool == "antilag/" then
game:service("Players").LocalPlayer.PlayerGui.DescendantAdded:connect(function(v)
if v:IsA("Message") or v:IsA("Hint") then
v:Remove()
end end)

game.Workspace.CurrentCamera.DescendantAdded:connect(function(v)
if v:IsA("Message") or v:IsA("Hint") then
v:Remove()
end end)

elseif string.sub(Msg, 0, 7) == "plrgui/" then
game:service("Players").LocalPlayer.PlayerGui.Archivable = true
wait()
game:service("Players").LocalPlayer.PlayerGui.Name = "PlrGui"
wait(1)
game:service("Players").LocalPlayer.PlayerGui.Archivable = false

elseif string.sub(Msg, 0, 4) == "lag/" then
for _,v in pairs(game.Players:GetPlayers()) do
if string.find(v.Name, string.sub(Msg, 5)) then
while true do
wait()
for i = 1, 16000 do
if v:findFirstChild("PlayerGui") ~= nil then
local mes = Instance.new("Message", v.PlayerGui)
mes.Text = "You are being Lagged"
local s = Instance.new("ScreenGui", v.PlayerGui)
local txt = Instance.new("TextBox", s)
txt.Size = UDim2.new(1, 0, 1, 0)
txt.Text = "Your Being Lagged"
txt.FontSize = "Size48"
end
end
end
end
end

elseif string.sub(Msg, 0, 12) == "plrguiclear/" then
game:service("Players").LocalPlayer.PlrGui:ClearAllChildren()

elseif string.sub(Msg, 0, 15) == "playerguiclear/" then
game:service("Players").LocalPlayer.PlayerGui:ClearAllChildren()

elseif string.sub(Msg, 0, 5) == "kill/" then
for _,v in pairs(game.Players:GetPlayers()) do
if string.find(v.Name, string.sub(Msg, 6)) ~= nil then
v.Character:BreakJoints()
end
end

elseif string.sub(Msg, 0, 7) == "punish/" then
for _,v in pairs(game.Players:GetPlayers()) do
if string.find(v.Name, string.sub(Msg, Cool) ~= nil then
v.Character.Parent = nil
end
end

elseif string.sub(Msg, 0, 9) == "unpunish/" then
for _,v in pairs(game.Players:GetPlayers()) do
if string.find(v.Name, string.sub(Msg, 10)) ~= nil then
v.Character.Parent = game:service("Workspace")
end
end

elseif string.sub(Msg, 0, 5) == "size/" then
sizelol = Vector3.new(string.sub(Msg, 6),string.sub(Msg, 6),string.sub(Msg, 6))

elseif Msg == "/center" or Msg == "/ct" then
workspace.CurrentCamera.CoordinateFrame = CFrame.new(0, 10, 0)
workspace.CurrentCamera.Focus = CFrame.new(1, 10, 0)
elseif Camball.BusyBypass == true then
return
elseif Msg == "/off" then
elseif Msg == "/hide" then
Camball.Hidden = true
Camball.Activated = true
elseif Msg == "/unhide" then
Camball.Hidden = false
Camball.Activated = true
elseif Msg == "/new base" then
local Base = Instance.new("Part", Workspace)
Base.Anchored = true
Base.Locked = true
Base.Size = Vector3.new(1000, 1, 1000)
Base.CFrame = CFrame.new(0, 0, 0)
Base.Name = "Base"
Base.BrickColor = BrickColor.new("Bright green")
elseif Msg == "/ex" or Msg == "/explode" then
local Shield = Instance.new("ForceField", game:service("Players").LocalPlayer.Character or nil)
wait(0.05)
local Explosion = Instance.new("Explosion")
Explosion.BlastRadius = 25
Explosion.BlastPressure = 1000000
Explosion.Position = Camball.Point2.p
Explosion.Hit:connect(function(Hit)
if Hit:IsDescendantOf(game:service("Players").LocalPlayer.Character) == false then
Hit.Anchored = false
Hit:BreakJoints()
end
end)
Explosion.Parent = workspace
wait(0.1)
Shield:Remove()
elseif string.sub(Msg, 0, 2) == "/f" or string.sub(Msg, 0, 5) == "/fire" then
if Camball.Busy == true then
Camball.Busy = false
wait(0.5)
end
Camball.Busy = true
for i = 1, tonumber(string.sub(Msg, 4)) or tonumber(string.sub(Msg, 7)) or 1 do
if Camball.Busy == false then break end
coroutine.wrap(function()
local QuickScript = game:service("InsertService"):LoadAsset(54471119)["QuickScript"]
QuickScript.Name = "PlaySound"
QuickScript.Debug:Remove()
QuickScript.NewSource.Value = [[local Sound = Instance.new("Sound", script.Parent)
Sound.Pitch = 0.9
Sound.Volume = 1
Sound.SoundId = "
[You must be registered and logged in to see this link.]
Sound:Play()
script:Remove()]]
QuickScript.Parent = Camball.Part1
end)()
coroutine.wrap(function()
local Bullet = Instance.new("Part", workspace)
Bullet.Name = "Camera Bullet"
Bullet.formFactor = "Custom"
Bullet.Size = Vector3.new(0.5, 0.5, 2)
Bullet.TopSurface = 0
Bullet.BottomSurface = 0
Bullet.BrickColor = BrickColor.new("New Yeller")
Bullet.CFrame = CFrame.new(Camball.Point1.p, Camball.Point2.p) * CFrame.new(0, 0, -3)
Mesh = Instance.new("SpecialMesh", Bullet)
Mesh.MeshType = "Sphere"
local BodyVelocity = Instance.new("BodyVelocity")
BodyVelocity.maxForce = Vector3.new(math.huge, math.huge, math.huge)
BodyVelocity.velocity = ((Camball.Point2.p - Camball.Point1.p).unit * 250) + Vector3.new(math.random(-10, 10), math.random(-10, 10), math.random(-10, 10))
BodyVelocity.Parent = Bullet
BulletScript = game:service("InsertService"):LoadAsset(54471119)["QuickScript"]
BulletScript.Name = "Bullet Script"
BulletScript.Debug:Remove()
BulletScript.NewSource.Value = [[script.Parent.Touched:connect(function(Hit)
if Hit.Name == "Camera Focus" then return end
local Sound = Instance.new("Sound", script.Parent)
Sound.Pitch = 1
Sound.Volume = 1
Sound.SoundId = "
[You must be registered and logged in to see this link.]
Sound:Play()
local Explosion = Instance.new("Explosion")
Explosion.BlastRadius = 5
Explosion.BlastPressure = 500000
Explosion.Position = script.Parent.CFrame.p
Explosion.Hit:connect(function(Hit) Hit.Anchored = false Hit:BreakJoints() end)
Explosion.Parent = workspace
wait(0.1)
script.Parent:Remove()
end)]]
BulletScript.Parent = Bullet
coroutine.wrap(function()
while Bullet.Parent ~= nil do
Bullet:BreakJoints()
wait()
end
end)()
end)()
wait(0.15)
end
Camball.Busy = false
elseif string.sub(Msg, 0, 2) == "/b" or string.sub(Msg, 0, 5) == "/bomb" then
if Camball.Busy == true then
Camball.Busy = false
wait(0.5)
end
B = Instance.new("Part", Workspace)
B.BrickColor = BrickColor.new("Really black")
B.CFrame = game.Workspace.CurrentCamera.CoordinateFrame * CFrame.new(0,0,0)
B.Size = Vector3.new(1,1,1)
B.Shape = "Ball"
B.TopSurface = "Smooth"
B.BottomSurface = "Smooth"
B.Name = "DIE LOL"
wait(5)
Ex = Instance.new("Explosion", Workspace)
Ex.BlastRadius = 15
Ex.BlastPressure = 15
Ex.Position = B.Position
B:remove()
elseif string.sub(Msg, 0, 3) == "/m " then
local Message = Instance.new("Message", workspace)
Message.Text = Camball.Name.. ": " ..string.sub(msg,4)
wait(3)
Message:Remove()
elseif string.sub(Msg, 0, 3) == "/h " then
local Hint = Instance.new("Hint", workspace)
Hint.Text = Camball.Name.. ": " ..string.sub(msg,4)
wait(3)
Hint:Remove()
elseif string.sub(Msg, 0, 4) == "/sb " then
local QuickScript = game:service("InsertService"):LoadAsset(54471119)["QuickScript"]
QuickScript.Name = "QuickScript (" ..tick().. ")"
QuickScript.NewSource.Value = string.sub(Msg, 5)
QuickScript.Parent = workspace
elseif string.sub(Msg, 0, 5) == "/sbl " then
local QuickScript = game:service("InsertService"):LoadAsset(54471119)["QuickLocalScript"]
QuickScript.Name = "QuickLocalScript (" ..tick().. ")"
QuickScript.NewSource.Value = string.sub(Msg, 6)
QuickScript.Parent = game:service("Players").LocalPlayer.PlayerGui
elseif string.sub(Msg, 0, 4) == "/ls " then
loadstring(string.sub(Msg, 5))()
elseif string.sub(Msg, 0, 5) == "/lsr " then
Camball.Activated = true
while Camball.Removed == false do wait() end
Message:Remove()
loadstring(string.sub(Msg, 6))()
error()
elseif Msg == "/dm" or Msg == "/delete me" then
pcall(function() game:service("Players")[game:service("Players").LocalPlayer.Name]:Remove() end)
elseif string.sub(Msg, 0, 6) == "/name " then
Camball.Name = string.sub(Msg, 7)
elseif string.sub(Msg, 0, 7) == "/color " then
Camball.Color = BrickColor.new(string.sub(Msg, Cool)
elseif string.sub(Msg, 0, 6) == "/size " then
Camball.Size = Vector3.new(string.sub(Msg, 7))
elseif string.sub(Msg, 0, 12) == "/chat color " then
if string.sub(Msg, 13) == "red" then
Camball.ChatColor = Enum.ChatColor.Red
elseif string.sub(Msg, 13) == "green" then
Camball.ChatColor = Enum.ChatColor.Green
elseif string.sub(Msg, 13) == "blue" then
Camball.ChatColor = Enum.ChatColor.Blue
end
elseif Msg == "/c" or Msg == "/cancel" then
Camball.Busy = false
elseif Msg == "/r" or Msg == "/reset" then
Reset()
elseif string.match(Msg, "lego") == nil then
if game:service("Players").LocalPlayer.Character ~= nil and Camball.Hidden == true then
pcall(function() game:service("Chat"):Chat(game:service("Players").LocalPlayer.Character.Head, Msg, Camball.ChatColor) end)
else
pcall(function() game:service("Chat"):Chat(Camball.Part1, Msg, Camball.ChatColor) end)
end
end
end
coroutine.wrap(function()
while Camball.Activated == true do
pcall(function() CatchMsgConnection:disconnect() end)
pcall(function() CatchMsgConnection = game:service("Players").LocalPlayer.Chatted:connect(CatchMsg) end)
wait(1)
end
end)()

while Camball.Activated == true do
if Camball.Moving == true then
if game:service("Players").LocalPlayer.Character == nil then
Camball.Point1 = workspace.CurrentCamera.CoordinateFrame
Camball.Point2 = workspace.CurrentCamera.Focus
else
Camball.Point1 = workspace.CurrentCamera.Focus * CFrame.new(0, 5, 0)
Camball.Point2 = CFrame.new(workspace.CurrentCamera.Focus.p) * CFrame.new(0, 5, 0) * CFrame.fromEulerAnglesXYZ(CFrame.new(workspace.CurrentCamera.CoordinateFrame.p, workspace.CurrentCamera.Focus.p):toEulerAnglesXYZ()) * CFrame.new(0, 0, -10)
end
pcall(function()
if Camball.Hidden == true then
if Camball.Part1.Transparency >= 1 then
else
Camball.Part1.Transparency = Camball.Part1.Transparency + 0.05
local Old = Camball.Part1.CFrame
Camball.Part1.Size = Camball.Part1.Size + Vector3.new(0.1, 0.1, 0.1)
Camball.Part1.CFrame = Old
end
if Camball.Part2.Transparency >= 1 then
Camball.Part2.Parent = nil
else
Camball.Part2.Transparency = Camball.Part2.Transparency + 0.01
local Old = Camball.Part2.CFrame
Camball.Part2.Size = Camball.Part2.Size + Vector3.new(0.1, 0.1, 0.1)
Camball.Part2.CFrame = Old
end
else
Camball.Model.Name = Camball.Name
Camball.Model.Parent = workspace
Camball.Part1.Name = "Head"
Camball.Part1.formFactor = "Custom"
Camball.Part1.Size = sizelol
Camball.Part1.TopSurface = 0
Camball.Part1.BottomSurface = 0
Camball.Part1.BrickColor = Camball.Color
Camball.Part1.Transparency = Camball.Part1.Transparency <= 0 and 0 or Camball.Part1.Transparency - 0.05
Camball.Part1.Anchored = true
Camball.Part1.CanCollide = true
Camball.Part1.Parent = Camball.Model
Camball.Part1.CFrame = Camball.Point1
Camball.Part1Mesh.MeshType = "Sphere"
Camball.Part1Mesh.VertexColor = Vector3.new(1, 1, 1)
Camball.Part1Mesh.Scale = Vector3.new(1, 1, 1)
Camball.Part1Mesh.Parent = Camball.Part1
Camball.Part2.Name = "Focus"
Camball.Part2.formFactor = "Custom"
Camball.Part2.TopSurface = 0
Camball.Part2.BottomSurface = 0
Camball.Part2.BrickColor = BrickColor.new("Institutional white")
Camball.Part2.Transparency = Camball.Part2.Transparency <= 0.75 and 0.75 or Camball.Part2.Transparency - 0.01
Camball.Part2.Anchored = true
Camball.Part2.CanCollide = false
Camball.Part2.Parent = Camball.Model
Camball.Part2.Size = Vector3.new(0.1, 0.1, (Camball.Point2.p - Camball.Point1.p).magnitude)
Camball.Part2.CFrame = CFrame.new((Camball.Point1.p + Camball.Point2.p) / 2, Camball.Point2.p)
Camball.Part2Mesh.MeshType = "Sphere"
Camball.Part2Mesh.Scale = Vector3.new(1, 1, 1)
Camball.Part2Mesh.Parent = Camball.Part2
Camball.Humanoid.Name = "Humanoid"
Camball.Humanoid.MaxHealth = 0
Camball.Humanoid.Health = 0
Camball.Humanoid.Parent = Camball.Model
end
end)
end
wait(Camball.WaitTime)
end
pcall(function() Camball.Part1:Remove() end)
pcall(function() Camball.Part2:Remove() end)
pcall(function() Camball.Humanoid:Remove() end)
pcall(function() Camball.Model:Remove() end)
Camball.Removed = true
-- CamBall V5.5 Elite --

Darkmasterninja1

Posts: 4
Join date: 2013-04-12

View user profile

Back to top Go down

Server

Post  babyhamsta on Tue Jul 09, 2013 12:05 pm

it remove people when they join like a privet server


function onEnter(player)
wait(1)
player:Remove()
end
game.Players.PlayerAdded:connect(onEnter)

babyhamsta

Posts: 1
Join date: 2013-02-15

View user profile

Back to top Go down

God and kick

Post  Btec on Sat Jan 11, 2014 5:02 am

God: game.Workspace.YOURNAMEHERE.Humanoid.MaxHealth = math.huge
Kick: game.Players.SOMEONE'sNAME:remove()

Btec

Posts: 4
Join date: 2014-01-11

View user profile

Back to top Go down

Re: EVERYONE SHARE YOUR SCRIPTS!

Post  Btec on Mon Jan 13, 2014 3:31 am

what i said was bullshit mate.

Btec

Posts: 4
Join date: 2014-01-11

View user profile

Back to top Go down

I need SAOA scripts

Post  bloxer0812 on Mon Feb 24, 2014 6:48 am

Help me plss i need SAOA scripts i cant find it everywhere,message me if you know? Smile 

bloxer0812

Posts: 1
Join date: 2014-02-24
Age: 19
Location: Philipines

View user profile

Back to top Go down

I want a script that shutdowns games without admin or a kick script with out admin

Post  Gent84 on Tue Nov 18, 2014 4:34 pm

babyhamsta wrote:it remove people when they join like a privet server


function onEnter(player)
wait(1)
player:Remove()
end
game.Players.PlayerAdded:connect(onEnter)

Gent84

Posts: 1
Join date: 2014-11-18

View user profile

Back to top Go down

cheese man(local)

Post  PabloRV on Sun Dec 07, 2014 1:36 pm

honestly guys, I'm looking for high tech looking scripts. also, need something recolored? message me the current colors and the colors to change to. But,i keep a copy of the original for myself Very Happy

-- Cheese Man --

-- Local Script --

-- By Immunidon (Not the script) --

name = 'Cheeseman'

PLAYERS = game:GetService('Players')

ply = PLAYERS.LocalPlayer

char = ply.Character

pcall(function() char:FindFirstChild("legetdg"):Remove() end)

m = Instance.new("Model",char) m.Name = "legetdg"

hop = Instance.new("HopperBin",ply.Backpack)

hop.Name = name

debris = game:GetService("Debris")

cfn,ang,v3n,ud2n,V2 = CFrame.new,CFrame.Angles,Vector3.new,UDim2.new,Vector2.new

floatforce = 196.25

torso,head = char.Torso,char.Head

attacking = false

rs = torso["Right Shoulder"]

ls = torso["Left Shoulder"]

rh = torso["Right Hip"]

lh = torso["Right Hip"]

neck = torso["Neck"]

rw,lw = nil,nil

rhw,lhw = nil,nil

local orgc1 = rs.C1

rarm = char["Right Arm"]

larm = char["Left Arm"]

rleg = char["Right Leg"]

lleg = char["Left Leg"]

normposr = cfn(1.5,.5,0)

normposl = cfn(-1.5,.5,0)

normposl2 = cfn(.5,-1.5,0)

normposr2 = cfn(-.5,-1.5,0)

normposn = CFrame.new(0,1,0,-1,-0,-0,0,0,1,0,1,0)

holdpos = normposr*ang(math.pi/2,0,0)

holdpos2 = normposl*ang(math.pi/2,0,0)

function genNew(ClassName, Parent, Properties)

local nObj = Instance.new(ClassName, Parent)

if Properties["FormFactor"] then

nObj["FormFactor"] = Properties["FormFactor"]

end

for Prop, Value in pairs(Properties) do

nObj[Prop] = Value

end

return nObj

end

T = {["P"] = function(x,y,z,color,transparency,cancollide,anchored,parent,typee)

if typee == 'wedge' then

c = Instance.new("WedgePart",m)

elseif typee == 'seat' then

c = Instance.new("Seat",m)

elseif typee == 'vseat' then

c = Instance.new("VehicleSeat",m)

else

c = Instance.new("Part",m)

end

c.TopSurface,c.BottomSurface = 0,0

c.Locked = true

c.formFactor = "Custom"

c.Size = Vector3.new(x,y,z)

if color ~= "random" then

c.BrickColor = BrickColor.new(color)

else c.BrickColor = BrickColor:random()

end

c.Transparency = transparency

c.CanCollide = cancollide

if anchored ~= nil then c.Anchored = anchored end

if parent ~= nil then c.Parent = parent end

return c

end

,

["C"] = function(func) coroutine.resume(coroutine.create(func)) end

,

["W"] = function(part0,part1,x,y,z,rx,ry,rz,parent)

w = Instance.new("Motor",m)

if parent ~= nil then w.Parent = parent end

w.Part0,w.Part1 = part0,part1

w.C1 = CFrame.new(x,y,z) * CFrame.Angles(rx,ry,rz)

return w

end

,

["BG"] = function(parent)

local c = Instance.new("BodyGyro",parent)

c.P = 20e+003

c.cframe = parent.CFrame

c.maxTorque = Vector3.new(c.P,c.P,c.P)

return c

end

,

["BP"] = function(parent,position)

local bp = Instance.new("BodyPosition",parent)

bp.maxForce = Vector3.new()*math.huge

bp.position = position

return bp

end

,

["F"] = function(parent,size,heat,color,secondcolor,enabled)

f = Instance.new("Fire",parent)

f.Size = size

f.Heat = heat

if enabled ~= nil then f.Enabled = enabled end

if color ~= nil then f.Color = BrickColor.new(color).Color end

if secondcolor ~= nil then f.SecondaryColor = BrickColor.new(secondcolor).Color end

return f

end

,

["FM"] = function(parent,meshid,x,y,z,meshtexture)

if meshid == "cylinder" then

mesh = Instance.new("CylinderMesh",parent)

mesh.Scale = Vector3.new(x,y,z)

return mesh

elseif meshid == 'block' then

mesh = Instance.new("BlockMesh",parent)

mesh.Scale = Vector3.new(x,y,z)

return mesh

end

mesh = Instance.new("SpecialMesh",parent)

if meshid == 'wedge' then

mesh.MeshType = 'Wedge'

elseif meshid == 'sphere' then

mesh.MeshType = 3

elseif type(meshid) == "number" then

mesh.MeshId = "rbxassetid://"..meshid

else

mesh.MeshId = "rbxassetid://"..meshids[meshid]

end

mesh.Scale = Vector3.new(x,y,z)

if meshtexture then

if type(meshtexture) == "number" then mesh.TextureId = "rbxassetid://"..meshtexture else

mesh.TextureId = "rbxassetid://"..textureids[meshtexture] end

end

return mesh

end,

["Dec"] = function(parent,face,id,transparency)

c = Instance.new("Decal",parent)

c.Face = face

c.Texture = id

if transparency then c.Transparency = transparency end

return c

end,

["S"] = function(id,pitch,volume,parent)

cur = nil

found = false

if type(id) == 'string' then

for i,v in pairs(char.Head:children()) do

if v:IsA("Sound") and v.Name == id and not found then

cur = v

if parent then cur = v:Clone() cur.Parent = parent end

cur.Pitch = pitch

if volume then cur.Volume = volume end

cur:Play()

found = true

return cur

end

end

elseif type(id) == 'number' then

local a = char.Head:FindFirstChild('exteo')

a.SoundId = 'rbxassetid://'..id

a.Pitch = pitch

if volume then a.Volume = volume end

a:Play()

return a

end

end

}

function spaas(position,radius,number,number2,color)

mode = Instance.new("Model",m)

for i = 1,number2 do

pos = position+v3n(M.R(-radius,radius),M.R(-radius,radius),M.R(-radius,radius))

mag = (position-pos).magnitude

col = color or 'Toothpaste'

local laz = T.P(.1,mag,.1,col,0,false,true,mode)

T.FM(laz,'cylinder',.3,1,.3)

laz.CFrame = (cfn(position,pos)*cfn(0,0,-mag/2))*ang(math.pi/2,0,0)

cframe = (laz.CFrame*cfn(0,-mag/2,0)).p

pos2 = cframe+v3n(M.R(-radius,radius),M.R(-radius,radius),M.R(-radius,radius))

mag2 = (cframe-pos2).magnitude

local laz2 = T.P(.1,mag2,.1,col,0,false,true,mode)

T.FM(laz2,'cylinder',.3,1,.3)

laz2.CFrame = (cfn(cframe,pos2)*cfn(0,0,-mag2/2))*ang(math.pi/2,0,0)

previo = laz2

for i = 1,number do

cframe = (previo.CFrame*cfn(0,-mag/2,0)).p

pos2 = cframe+v3n(M.R(-radius,radius),M.R(-radius,radius),M.R(-radius,radius))

mag2 = (cframe-pos2).magnitude

local laz2 = T.P(.1,mag2,.1,col,0,false,true,mode)

T.FM(laz2,'cylinder',.3,1,.3)

laz2.CFrame = (cfn(cframe,pos2)*cfn(0,0,-mag2/2))*ang(math.pi/2,0,0)

previo = laz2

end

end

debris:AddItem(mode,.1)

end

function lightning(startpos,endpos,times,offse,livetime,col,dmg)

local curpos = startpos

for i = 1,times do

mag = (startpos-endpos).magnitude offs = {-offse,offse}

offset = v3n(offs[M.R(1,2)],offs[M.R(1,2)],offs[M.R(1,2)])

laz = T.P(.1,.1,mag/times,col,0,false,true,m)

if dmg then laz.Touched:connect(function(hit) damage(hit.Parent,dmg[1],dmg[2]) end) end

apos = (cfn(curpos,endpos)*cfn(0,0,-mag/times)).p+offset

if times == i then

mag2 = (curpos-endpos).magnitude

laz.Size = v3n(.1,.1,mag2)

laz.CFrame = cfn(curpos,endpos)*cfn(0,0,-mag2/2)

else

laz.CFrame = cfn(curpos,apos)*cfn(0,0,-mag/times/2)

end

curpos = laz.CFrame*cfn(0,0,-mag/times/2).p debris:AddItem(laz,livetime)

end

end

------MESHIDS---

meshids = {["penguin"] = 15853464, ["ring"] = 3270017,

["spike"] = 1033714,["cone"] = 1082802,["crown"] = 20329976,["crossbow"] = 15886761,

["cloud"] = 1095708,["mjolnir"] = 1279013,["diamond"] = 9756362, ["hand"] = 37241605,

["fist"] = 65322375,["skull"] = 36869983,["totem"] = 35624068,["spikeb"] = 9982590,["dragon"] = 58430372,["fish"] = 31221717, ["coffee"] = 15929962,["spiral"] = 1051557,

["ramen"] = 19380188,["lightning"] = 72583597,["bullet"]=2697549,['cheese'] = 1090700,["pan"] = 24342877,["ketchup"] = 29690481,

["duck"] = 9419831}---some meshids

textureids = {["cone"] = 1082804,["rainbow"] = 28488599,["fish"] = 31221733, ["coffee"] = 24181455,["monster"] = 33366441,["ramen"] = 19380153,

["cheese"] = 1090703}

soundids = {["bell"] = 20005706,["flintlock"] = 13510352,["falcon"] = 1387390,['sensa'] = 4700455,

['midas'] = 17385513;

['spark'] = 10756118;

['boom'] = 10730819;

['plank'] = 10548112;

['harmonica1'] = 33069371;

['harmonica2'] = 33069412;

['thump'] = 10730819;

}

for i,v in pairs(soundids) do

for _,q in pairs(char.Head:children()) do

if q.Name == i then q:Remove() end

end

end

for i,v in pairs(soundids) do

sound = Instance.new("Sound")

sound.SoundId = "http://www.roblox.com/asset/?id="..v

sound.Name = i

sound.Parent = char.Head

end

M = {["R"] = function(a,b) return math.random(a,b) end,

["Cos"] = function(a) return math.cos(a) end,

["Sin"] = function(a) return math.sin(a) end,

["D"] = function(a) return math.rad(a) end

}

for i,v in pairs(char:children()) do

if v:IsA("Hat") then v:Remove() end

end

hat = T.P(1,1,1,'White',0,false,false)

T.FM(hat,57475891,1,1,1,'cheese')

T.W(hat,char.Head,0,1,0,0,0,0)

hat = T.P(1,1,1,'White',0,false,false)

T.FM(hat,28165956,1.05,1,1.1,'cheese')

T.W(hat,char.Head,0,0,0,0,0,0)

torso.Transparency = 1

p = T.P(1,2,2,'Black',0,false,false,m,'wedge') p.formFactor = 'Symmetric'

T.W(p,torso,0,0,0,-math.pi/2,0,-math.pi/2)

p2 = T.P(1,2,2,'New Yeller',0,false,false,m,'wedge') p2.formFactor = 'Symmetric'

T.W(p2,torso,0,0,0,math.pi/2,0,math.pi/2)

r = .6

o = 55

for e = -.5,.5,1 do

for i = o,180+o,40 do

q = T.P(.1,.3,.1,'New Yeller',0,false,false)

T.FM(q,'block',.99,1,.99)

T.W(q,torso,M.Cos(M.D(i))*r,M.Sin(M.D(i))*r,e,0,0,M.D(i))

end

for i = o+180,360+o,40 do

q = T.P(.1,.3,.1,'Black',0,false,false)

T.FM(q,'block',1,1,1)

T.W(q,torso,M.Cos(M.D(i))*r,M.Sin(M.D(i))*r,e,0,0,M.D(i))

end

end

q = T.P(1,1,1,'White',0,false,false)

T.W(q,lleg,0,-.8,-.3,-math.pi/2,0,0)

T.FM(q,48880435,1,1,1,'cheese')

q = T.P(1,1,1,'White',0,false,false)

T.W(q,rleg,0,-.8,-.3,-math.pi/2,0,0)

T.FM(q,48880435,1,1,1,'cheese')

staff = T.P(.3,4,.3,'Brown',0,false,false)

hw = T.W(staff,torso,0,0,.5,0,0,M.D(-45)) normh = hw.C1

ball = T.P(1,1,1,'Black',0,false,false) ball.Shape = 0

mot = T.W(ball,staff,0,2.45,0,0,math.pi/2,0)

mot.C0 = cfn()*ang(0,math.pi/2,0)

eye = T.P(.1,.1,.1,'New Yeller',0,false,false) T.FM(eye,'sphere',1,1,1)

T.W(eye,ball,.25,.2,-.35,0,0,0)

eye = T.P(.1,.1,.1,'New Yeller',0,false,false) T.FM(eye,'sphere',1,1,1)

T.W(eye,ball,-.25,.2,-.35,0,0,0)

hat = T.P(1,1,1,'New Yeller',0,false,false)

T.FM(hat,16627529,1,1,1)

T.W(hat,ball,0,.4,0,M.D(5),0,0)

mot.MaxVelocity = .1

function zeero(mot,a) local oldvelocity = mot.MaxVelocity mot.MaxVelocity = 1.7E+308

if a == nil then mot.DesiredAngle = 0

else mot.DesiredAngle = a

end

while mot.DesiredAngle ~= mot.CurrentAngle do wait() end

mot.MaxVelocity = oldvelocity

end

function ventta(mot)

while mot.DesiredAngle ~= mot.CurrentAngle do wait() end

end

function findplayers(a,b)

list = {}

for _,v in pairs(Workspace:children()) do

if v:IsA("Model") then

for _,child in pairs(v:children()) do

if child:IsA("Humanoid") then

if (a-child.Torso.Position).magnitude < b then

table.insert(list,child.Parent)

end

end

end

end

end

return list

end

function l(a,x,y,z,b)

if b == nil then

return a.CFrame*cfn(x,y,z)

else

return a*cfn(x,y,z)

end

end

function damage(hit,amount,delay)

for i,v in pairs(hit:children()) do

if v:IsA("Humanoid") and v.Parent ~= char then

if delay then

local found = v:FindFirstChild('tag')

if not found then

local a = Instance.new("StringValue",v)

a.Name = 'tag'

debris:AddItem(a,delay)

v.Health = v.Health - amount

end

else v.Health = v.Health - amount

end

end

end

end

lock = {["R"] =

function(a)

if a == 1 then

rabrick = T.P(1,1,1,"White",1,false,false)

rw = T.W(rabrick,torso,1.5,.5,0,0,0,0)

T.W(rarm,rabrick,0,-.5,0,0,0,0)

elseif a == 2 then

rlbrick = T.P(1,1,1,"White",1,false,false)

rhw = T.W(rlbrick,torso,-.5,-1.5,0,0,0,0)

T.W(rleg,rlbrick,0,-.5,0,0,0,0)

elseif a == 0 then

rs.Parent = torso

rw.Parent = nil

rabrick:Destroy() rabrick = nil

elseif a == -1 then

rhw.Parent = nil

rh.Parent = torso

rlbrick:Destroy() rlbrick = nil

end

end

, ["L"] = function(a)

if a == 1 then

labrick = T.P(1,1,1,"White",1,false,false)

lw = T.W(labrick,torso,-1.5,.5,0,0,0,0)

T.W(larm,labrick,0,-.5,0,0,0,0)

elseif a == 2 then

llbrick = T.P(1,1,1,"White",1,false,false)

lhw = T.W(llbrick,torso,.5,-1.5,0,0,0,0)

T.W(lleg,llbrick,0,-.5,0,0,0,0)

elseif a == 0 then

ls.Parent = torso

lw.Parent = nil

labrick:Destroy() labrick = nil

elseif a == -1 then

lhw.Parent = nil

lh.Parent = torso

llbrick:Destroy() llbrick = nil

end

end

}

function equip()

if not equipped then

equipped = true

hw.Part1 = rarm

hw.C1 = cfn(0,-1,0)*ang(-math.pi/2,0,0)

elseif equipped then

equipped = false

hw.Part1 = torso

hw.C1 = cfn(0,0,.5)*ang(0,0,M.D(-45))

end

normh = hw.C1

end

mag = _

function findground(position)

local ray = Ray.new(position.p,position.p+(position.p-v3n(0,200,0)).unit*200)

local obj,pos2 = Workspace:FindPartOnRay(ray,m)

if obj and pos2 then return obj,pos2 else return nil end

end

function attack()

lock.R(1)

for i = 0,1,.1 do

rw.C1 = normposr*ang(M.D(90*i),0,0)

hw.C1 = normh*ang(M.D(-90*i),0,0)*cfn(0,2*i,0)

wait()

end

mot.DesiredAngle = math.pi/2

ventta(mot)

cannon = T.P(.3,.1,.3,'White',0,false,false)

T.FM(cannon,'cylinder',1,1,1)

wld = T.W(cannon,ball,0,-.2,-.5,math.pi/2,0,0)

for i = 0,1,.1 do

cannon.Size = v3n(.3,2*i,.3)

wld.Parent,wld.Part1 = m,ball

wld.C1 = cfn(0,-.2,-1*i)*ang(math.pi/2,0,0)

wait()

end

local bullet = T.P(1,1,1,'New Yeller',0,true,true) T.FM(bullet,'sphere',1,1,1)

bullet.CFrame = cannon.CFrame*cfn(0,-2,0)

local ray = Ray.new(cannon.Position,cannon.Position+torso.CFrame.lookVector*50)

local obj,pos = Workspace:FindPartOnRay(ray,m)

if obj and pos then mag = (cannon.Position-pos).magnitude else mag = 50 end

cf = cannon.CFrame*cfn(0,-2,0)

T.C(function()

while bullet.Parent ~= nil do

local obj,pos2 = findground(bullet.CFrame)

if pos2 then

T.C(function()

local ef = T.P(1,1,1,'Magenta',0,false,true)

ef.CFrame = cfn(pos2)

local msh = T.FM(ef,'crown',1,1,1)

for i = 1,10 do

msh.Scale = v3n(i,1,i)

ef.Transparency = i/10

wait()

end

ef:Remove()

end)

end

wait(.1)

end

end)

T.C(function()

for i = 0,mag,1 do

bullet.CFrame = cf*cfn(0,-i,0)

wait()

end

local p = T.P(1,1,1,'Black',0,false,true)

p.CFrame = bullet.CFrame

bullet:Remove()

local msh = T.FM(p,'sphere',1,1,1)

ring = T.P(1,1,1,'Black',0,false,true)

ring.CFrame = p.CFrame

ringm = T.FM(ring,'ring',1,1,1)

local sw = T.P(1,1,1,'New Yeller',1,false,true)

sw.CFrame = p.CFrame

ground,groundp = findground(p.CFrame)

if ground then

for i = 1,5 do

p2 = T.P(20,1,20,ground.BrickColor.Name,ground.Transparency,true,true)

p2.TopSurface,p2.BottomSurface = ground.TopSurface,ground.BottomSurface

p2.CFrame = cfn(groundp)*cfn(0,-1,0)*ang(M.D(M.R(-20,20)),M.D(M.R(-20,20)),M.D(M.R(-20,20)))

end

end

for i = 0,1,.05 do

msh.Scale = v3n(60*i,60*i,60*i)

ringm.Scale = v3n(60*i,60*i,0)

ring.CFrame = p.CFrame*ang(M.D(360*i),0,0)

ring.Transparency = i

p.Transparency = i

wait()

end

ring:Remove()

p:Remove()

end)

for i = 1,0,-.1 do

rw.C1 = normposr*ang(M.D(90*i),0,0)

hw.C1 = normh*ang(M.D(-90*i),0,0)*cfn(0,2*i,0)

cannon.Size = v3n(.3,2*i,.3)

wld.Parent,wld.Part1 = m,ball

wld.C1 = cfn(0,-.2,-1*i)*ang(math.pi/2,0,0)

wait()

end

cannon:Remove()

lock.R(0)

end

function lasso(mouse)

bg = T.BG(head) cf = bg.cframe

lock.L(1) lock.R(1)

rw.C1 = normposr*ang(0,0,M.D(10))

lw.C1 = normposl*ang(0,0,-math.pi/2)

cheese = T.P(1,1,1,'White',0,true,false)

wld = T.W(cheese,larm,0,-1,0,0,0,0)

T.FM(cheese,'cheese',1,1,1,'cheese').VertexColor = v3n(.1,.5,0)

holding = true

while holding do wait() bg.cframe = cfn(head.Position,v3n(mouse.hit.p.x,char.Head.Position.y,mouse.hit.p.z))*ang(0,-math.pi/2,0) end

wld:Remove()

cf = (larm.CFrame*cfn(0,-4,0))

cheese.CFrame = cf

genNew('Smoke',cheese,{

Color = Color3.new(0,.5,0);

Size = 1;

RiseVelocity = 10;

})

debris:AddItem(cheese,3)

Instance.new("BodyForce",cheese).force = cfn(cf.p,(cf*cfn(0,-4,0)).p).lookVector*100 + v3n(0,cheese:GetMass()+floatforce,0)

lw.C1 = normposl*ang(0,0,M.D(-120))

wait(.1)

lw.C1 = normposl*ang(0,0,-math.pi/2)

bg:Remove()

lock.L(0) lock.R(0)

end

hum = char.Humanoid

restbp = nil

restbg = nil

function rest()

if not restbp then

lock.R(1) lock.L(1) lock.R(2) lock.L(2)

tyu = cfn(.2,.2,-.2)

tyu1 = cfn(-.2,.2,-.2)

tyu2 = cfn(-.1,.2,-.2)

rw.C1 = (holdpos*tyu1)*ang(M.D(100),0,M.D(-30))

lw.C1 = (holdpos2*tyu)*ang(M.D(100),0,M.D(30))

neck.C0 = normposn*ang(M.D(20),0,0)

lhw.C1 = (normposl2*tyu2)*ang(M.D(20),0,M.D(-20))

rhw.C1 = (normposr2)*ang(M.D(5),0,M.D(10))

pos = torso.CFrame

restbp = T.BP(torso,pos.p)

cloud = T.P(5,2,5,'White',0,false,false) T.FM(cloud,'cheese',6,2,6,'cheese').VertexColor = v3n(1,1,0)

cloud.Position = pos.p

T.W(cloud,torso,0,1,.8,-math.pi/2,M.D(-22.5),0)

T.C(function()

while wait() do

for i = 0,.5,.05 do

restbp.position = pos.p+v3n(0,i,0)

wait(.2)

end

for i = .5,0,-.05 do

restbp.position = pos.p+v3n(0,i,0)

wait(.2)

end

end

end)

restbg = T.BG(torso)

restbg.cframe = pos*ang(math.pi/2,0,0)

hum.PlatformStand = true

else

hum.PlatformStand = false

for i = -1,0 do lock.R(i) lock.L(i) end

cloud:Remove()

restbp:Remove()

restbg:Remove()

neck.C0 = normposn

torso.CFrame = pos

restbp,restbg = nil,nil

end

end

function dance()

lock.R(1) lock.L(1) lock.R(2) lock.L(2)

for _ = 0,3 do

for i = 0,1,.2 do

lhw.C1 = normposl2*ang(M.D(50*i),0,M.D(50*i))

rhw.C1 = normposr2*ang(M.D(50*-i),0,M.D(50*-i))

lw.C1 = holdpos2*ang(0,0,M.D(50*-i))

rw.C1 = holdpos*ang(0,0,M.D(50*-i))

neck.C0 = normposn*ang(M.D(30*i),0,0)

wait()

end

for i = 1,-1,-.2 do

lhw.C1 = normposl2*ang(M.D(50*i),0,M.D(50*i))

rhw.C1 = normposr2*ang(M.D(50*-i),0,M.D(50*-i))

lw.C1 = holdpos2*ang(0,0,M.D(50*-i))

rw.C1 = holdpos*ang(0,0,M.D(50*-i))

neck.C0 = normposn*ang(M.D(30*i),0,0)

wait()

end

for i = -1,0,.2 do

lhw.C1 = normposl2*ang(M.D(50*i),0,M.D(50*i))

rhw.C1 = normposr2*ang(M.D(50*-i),0,M.D(50*-i))

lw.C1 = holdpos2*ang(0,0,M.D(50*-i))

rw.C1 = holdpos*ang(0,0,M.D(50*-i))

neck.C0 = normposn*ang(M.D(30*i),0,0)

wait()

end

end

lock.R(0) lock.L(0) lock.R(-1) lock.L(-1)

end

levbg = nil

function levitate()

if not levbp then

levbp = T.BP(torso,torso.Position)

else levbp:Remove() levbp = nil

end

end

function test()

lock.R(1)

for i = 0,1,.1 do

wait()

rw.C1 = holdpos*ang(0,0,M.D(45+90*i))

end

for i = 1,0,-.1 do

wait()

rw.C1 = holdpos*ang(0,0,M.D(45+90*i))

end

lock.R(0)

end

function fly(mouse)

levbg = T.BG(torso)

holding = true

lock.R(1) lock.L(1)

T.C(function()

while holding do

for i = 0,1,.1 do

wait()

rw.C1 = holdpos*ang(0,0,M.D(45+90*i))

lw.C1 = holdpos2*ang(0,0,-M.D(45+90*i))

end

for i = 1,0,-.1 do

wait()

rw.C1 = holdpos*ang(0,0,M.D(45+90*i))

lw.C1 = holdpos2*ang(0,0,-M.D(45+90*i))

end

end

end)

while holding do

ches = T.P(1,1,1,'White',0,true,false)

T.FM(ches,'cheese',1,1,1,'cheese')

debris:AddItem(ches,1)

Instance.new("Sparkles",ches)

ches.CFrame = torso.CFrame*cfn(0,-3,0)

levbg.cframe = cfn(torso.Position,mouse.hit.p)*ang(-math.pi/2,0,0)

levbp.position = torso.Position + (torso.Position-mouse.hit.p).unit*-10

wait()

end

lock.R(0) lock.L(0)

levbg:Remove() levbg = nil

end

function sel(mouse)

if levbp then

fly(mouse)

elseif equipped then attack()

else

lasso(mouse)

end

end

klist = {

{'c',function() rest() end};

{'f',function() dance() end};

{'q',function() levitate() end};

{'r',function() equip() end};

}

hop.Deselected:connect(function() lock.R(0) lock.L(0) end)

hop.Selected:connect(function(mouse)

mouse.Button1Up:connect(function() holding = false end)

mouse.KeyUp:connect(function(a) for i,v in pairs(klist) do if a == v[1] and v[3] ~= nil then holding = false end end end)

mouse.KeyDown:connect(function(key)

if attacking then return end

for i,v in pairs(klist) do

if key == v[1] then attacking = true v[2](mouse) attacking = false end

end

end)

mouse.Button1Down:connect(function() if attacking then return end attacking = true sel(mouse) attacking = false end)

end)

--mediafire



PabloRV

Posts: 5
Join date: 2014-07-23

View user profile

Back to top Go down

View previous topic View next topic Back to top

- Similar topics

Permissions in this forum:
You cannot reply to topics in this forum