API tools faq
paste
Advertisement
tomonaoboys

さよなら (sayo-nara)

tomonaoboys
Jan 5th, 2018
1,031
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Lua 8.60 KB | None | 0 0
raw download clone embed print report
  1. local function swait(num)
  2.     if script:IsA("localScript")then
  3.     if num~=nil then
  4.         for i=1,num do
  5.             game:GetService("RunService").RenderStepped:wait()
  6.         end
  7.     else
  8.         game:GetService("RunService").RenderStepped:wait()
  9.     end
  10.     else
  11.     if num~=nil then
  12.         for i=1,num do
  13.             game:GetService("RunService").Heartbeat:wait()
  14.         end
  15.     else
  16.         game:GetService("RunService").Heartbeat:wait()
  17.     end
  18.     end
  19.  
  20. return true
  21. end local mysterious="さ"if mysterious~="さ"then error("I didn't thought this.")end
  22. local function DoRagdoll(Model)
  23.     local function Rope(Part1,Position1,Part2,Position2,Length)
  24.     local a1=Instance.new("Attachment",Part1)a1.Position=Position1 local a2=Instance.new("Attachment",Part2)a2.Position=Position2
  25.     local rope=Instance.new("RopeConstraint",Part1)rope.Attachment0=a1 rope.Attachment1=a2 rope.Length=Length
  26.     end
  27.     if Model:FindFirstChild("HumanoidRootPart")then Model.HumanoidRootPart:Destroy()end
  28.     if Model:FindFirstChild("Torso")then
  29.         --if Model:FindFirstChild("Head")then Rope(Model.Torso,Vector3.new(0,1,0),Model.Head,Vector3.new(0,0,0),.25)end
  30.         if Model:FindFirstChild("Right Arm")then Rope(Model.Torso,Vector3.new(-1.25,.5,0),Model["Right Arm"],Vector3.new(0,.5,0),.25)end
  31.         if Model:FindFirstChild("Left Arm")then Rope(Model.Torso,Vector3.new(1.25,.5,0),Model["Left Arm"],Vector3.new(0,.5,0),.25)end
  32.         if Model:FindFirstChild("Right Leg")then Rope(Model.Torso,Vector3.new(-.5,-1,0),Model["Right Leg"],Vector3.new(0,.5,0),.25)end
  33.         if Model:FindFirstChild("Left Leg")then Rope(Model.Torso,Vector3.new(.5,-1,0),Model["Left Leg"],Vector3.new(0,.5,0),.25)end
  34.     end
  35. end
  36. local function ToMesh(Part)
  37.     local Mesh=Instance.new("SpecialMesh",Part)
  38.     if Part.Shape==Enum.PartType.Block then Mesh.MeshType="Brick"elseif Part.Shape==Enum.PartType.Ball then Mesh.MeshType="Sphere"elseif Part.Shape==Enum.PartType.Cylinder then Mesh.MeshType="Cylinder"end
  39.     Mesh.Scale=Part.Size*20 Part.Size=Vector3.new()
  40.     return Mesh
  41. end mysterious=mysterious.."よ".."な"
  42. local function NoiseEffectBiB(Parent,Siz,Threshold,Lifetime,V3Position,idk,TrRandomize)
  43.     if idk==nil then idk=1 end
  44.     local bb=Instance.new("BillboardGui",Parent)if V3Position~=nil then bb.ExtentsOffset=V3Position end bb.Size=UDim2.new(1,0,1,0)bb.AlwaysOnTop=0
  45.     if math.random(100)>Threshold then
  46.     local Tr=0 if TrRandomize then Tr=math.random(TrRandomize*100)/100 end
  47.     local R=Instance.new("TextLabel",bb)R.Text=""R.Size=UDim2.new(math.random(Siz*idk/2)/idk,0,math.random(Siz*idk/2)/idk,0)
  48.     R.Position=UDim2.new(-Siz/2+math.random(Siz),0,-Siz/2+math.random(Siz),0)
  49.     R.BorderSizePixel=0 R.BackgroundTransparency=2/3+Tr R.BackgroundColor3=Color3.new(1)
  50.     R.ZIndex=0
  51.     end
  52.     if math.random(100)>Threshold then
  53.     local Tr=0 if TrRandomize then Tr=math.random(TrRandomize*100)/100 end
  54.     local G=Instance.new("TextLabel",bb)G.Text=""G.Size=UDim2.new(math.random(Siz*idk/2)/idk,0,math.random(Siz*idk/2)/idk,0)
  55.     G.Position=UDim2.new(-Siz/2+math.random(Siz),0,-Siz/2+math.random(Siz),0)
  56.     G.BorderSizePixel=0 G.BackgroundTransparency=2/3+Tr G.BackgroundColor3=Color3.new(0,1)
  57.     G.ZIndex=0
  58.     end
  59.     if math.random(100)>Threshold then
  60.     local Tr=0 if TrRandomize then Tr=math.random(TrRandomize*100)/100 end
  61.     local B=Instance.new("TextLabel",bb)B.Text=""B.Size=UDim2.new(math.random(Siz*idk/2)/idk,0,math.random(Siz*idk/2)/idk,0)
  62.     B.Position=UDim2.new(-Siz/2+math.random(Siz),0,-Siz/2+math.random(Siz),0)
  63.     B.BorderSizePixel=0 B.BackgroundTransparency=2/3+Tr B.BackgroundColor3=Color3.new(0,0,1)
  64.     B.ZIndex=0
  65.     end
  66.     spawn(function()swait(nil or Lifetime)bb:Destroy()end)
  67. end mysterious=mysterious.."ら"
  68. local PL=nil--game:service("Players").LocalPlayer
  69. if script:IsA("Script")then PL=owner else PL=game:service("Players").LocalPlayer end
  70. local PC=PL.Character
  71. local Hum=PC:FindFirstChildOfClass("Humanoid")
  72. local Root=PC:FindFirstChild("Torso")--actuary not root
  73. local Head=PC:FindFirstChild("Head")if PC:FindFirstChild("HumanoidRootPart")then PC.HumanoidRootPart:Destroy()end
  74. script.Parent=PC
  75. local function Doll_It(Part0,Part1,cf)
  76.     local a=Instance.new("Glue",Part0)swait()
  77.     a.Part0=Part1 a.Part1=Part1
  78.     --if cf then a.C0=cf end
  79. end mysterious=mysterious.."(sayonara s".."c"if mysterious~="さよなら".."(sayonara sc"then PL:Kick("Did you tried to edit it?")end
  80. local function ieraseurmotor(chr)
  81.     for i,p in pairs(chr:children())do
  82.         for i2,p2 in pairs(p:children())do
  83.             if p2:IsA("Motor6D")and(tostring(p2)~="RootJoint"and tostring(p2)~="Neck")then
  84.                 p2:Destroy()
  85.             end
  86.         end
  87.     end
  88. end mysterious=mysterious.."ript)"if mysterious~="さよなら".."(sayonara script)"then PL:Kick("Did you tried to edit it?")end
  89. --swait(30)
  90. ieraseurmotor(PC)
  91. local SOUNDEFFECT=false
  92. if PC:FindFirstChild("Animate")then PC.Animate:Destroy()end if Hum:FindFirstChild("Animator")then Hum.Animator:Destroy()end
  93. local part0=Instance.new("Part",PC)part0.Size=Vector3.new(6,1,6)local m=ToMesh(part0)part0.Anchored=true part0.Name="THIS IS THE FLOOR THATZ HIGH IDK THAT'S WHY!!!!"
  94. part0.CFrame=CFrame.new(Root.CFrame.p+Vector3.new(0,8,0))
  95. local function ua(pt)
  96.     if pt:IsA("BasePart")and pt~=part0 then pt.Anchored=false end
  97.     for i,v in pairs(pt:children())do ua(v)end
  98. end mysterious=mysterious.." by".." t"
  99. spawn(function()while swait()do part0.Anchored=true part0.CanCollide=false end end)local FixV=Instance.new("BodyVelocity",part0)FixV.MaxForce=Vector3.new(1,1,1)/0
  100. FixV.Velocity=Vector3.new()local RopeA0=Instance.new("Attachment",part0)local RopeA1=Instance.new("Attachment",Head)
  101. local OMGTHEROPE=Instance.new("RopeConstraint",Head)OMGTHEROPE.Visible=true OMGTHEROPE.Length=6 OMGTHEROPE.Restitution=0 RopeA1.Position=Vector3.new(0,-.5,.5)
  102. OMGTHEROPE.Attachment0=RopeA0 OMGTHEROPE.Attachment1=RopeA1
  103. part0.Material="SmoothPlastic"mysterious=mysterious.."omonaobo"
  104. DoRagdoll(PC)
  105. --if PC:FindFirstChild("Right Arm")then Doll_It(PC.Torso,PC["Right Arm"])print("d")end
  106. PL.Chatted:connect(function(m)
  107. if m=="SE"then if SOUNDEFFECT then SOUNDEFFECT=false error("3I\I/-\B13|>")else SOUNDEFFECT=true error("3I\I/-\B13|>") end end
  108. end)
  109. local s=Instance.new("Sound",Root)s.SoundId="rbxassetid://1286436928"s.Volume=2 s.Looped=true s:Play()
  110. spawn(function()
  111.     while swait()do
  112.         Hum.PlatformStand=true
  113.         local se=math.random(100)
  114.         if SOUNDEFFECT then
  115.             if se<=10 then s:ClearAllChildren()end
  116.             if se>=11 and se<=14 then Instance.new("DistortionSoundEffect",s).Level=.25 end
  117.             if se>=15 and se<=19 then Instance.new("ReverbSoundEffect",s)end
  118.             if se>=20 and se<=24 then Instance.new("EqualizerSoundEffect",s)end
  119.             if se>=25 and se<=30 then Instance.new("PitchShiftSoundEffect",s).Octave=1+math.random(-40,40)/200 end
  120.             if se>=31 and se<=35 then Instance.new("EchoSoundEffect",s)end
  121.         else s:ClearAllChildren()end
  122.         NoiseEffectBiB(Root,30,20,math.random(60),Vector3.new(0,0,0),64,1)
  123.         Hum.Name="ERROR"if PC:FindFirstChildOfClass("ForceField")then PC:FindFirstChildOfClass("ForceField").Visible=false else Instance.new("ForceField",PC)end
  124.         Hum.Health=0/0 Hum.MaxHealth=1/0
  125.         ua(PC)
  126.     end
  127. end)
  128. --Intro? and something
  129. if 1 then
  130. local bb=Instance.new("BillboardGui",part0)bb.Size=UDim2.new(1,0,1,0)bb.AlwaysOnTop=true
  131. local B=Instance.new("TextLabel",bb)B.Size=UDim2.new(1,0,1,0)B.Font="Bodoni"
  132. B.Position=UDim2.new(0,0,0,0)
  133.  
  134. B.Text="An error occurred on "..tostring(PC:GetFullName()).."."..script.Name
  135.  
  136. B.ZIndex=256 B.TextSize=32 B.TextColor3=Color3.new(1,1,1)B.TextStrokeTransparency=0
  137. B.BackgroundTransparency=1
  138. spawn(function()for i=1,360 do B.TextStrokeTransparency=math.random(0,80)/100 B.TextTransparency=B.TextStrokeTransparency swait()end
  139. B.Text="さよなら"B.TextSize=64 for i=0,1,.01 do B.TextTransparency=i+math.random(0,80)/100 B.TextStrokeTransparency=B.TextTransparency swait()end bb:Destroy()end)
  140. end
  141. mysterious=mysterious.."ys"
  142. spawn(function()if mysterious~="さよなら".."(sayonara script)".." by".." tomonaoboys"then PL:Kick("Did you tried to edit it?")end error(mysterious)end)spawn(function()error("I just made this suck script because it became able to watch sometimes, and do not try rewriting credit.")end)if mysterious~="さよなら".."(sayonara script)".." by".." tomonaoboys"then PL:Kick("Did you tried to edit it?")end
  143. for i=0,100,.25 do
  144.     NoiseEffectBiB(Root,50,i,math.random(10),Vector3.new(0,0,0),.5,1)swait()if mysterious~="さよなら".."(sayonara script)".." by".." tomonaoboys"then PL:Kick("Did you tried to edit it?")end
  145. end if mysterious~="さよなら".."(sayonara script)".." by".." tomonaoboys"then PL:Kick("Did you tried to edit it?")end
  146. --[[
  147. クレジットを編集しないでね
  148. do not try editing credit
  149.  
  150. もしそうしたいなら、つくって
  151. create your own if want to make own
  152.  
  153. もしクレジットを書き換えたら
  154. if you did rewriting credit
  155.  
  156.  
  157.  
  158. もうしらないよ
  159. i don't care
  160. ]]--
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement
Public Pastes
Advertisement
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy.  OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!