Advertisement
Samuraiwolf

Pat

Dec 8th, 2016
110
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 3.44 KB | None | 0 0
  1. --{{Made by Strazos}}--
  2.  
  3. local p = game.Players.Samuraiwolf
  4. local char = p.Character
  5. local larm = char["Left Arm"]
  6. local rarm = char["Right Arm"]
  7. local lleg = char["Left Leg"]
  8. local rleg = char["Right Leg"]
  9. local hed = char.Head
  10. local torso = char.Torso
  11. local hum = char.Humanoid
  12. local weld = Instance.new("Weld",torso)
  13. weld.Part0 = torso
  14.  
  15. larm.Transparency = 1
  16. rarm.Transparency = 1
  17. lleg.Transparency = 1
  18. rleg.Transparency = 1
  19. hed.Transparency = 1
  20. torso.Transparency = 1
  21.  
  22.  
  23. local train = Instance.new("Part",torso)
  24. train.Anchored = true
  25. train.CanCollide = false
  26. train.Size = Vector3.new(5,5,5)
  27. train.CustomPhysicalProperties = PhysicalProperties.new(0,0,0,0,0)
  28. weld.Part1 = train
  29. weld.C1 = CFrame.new(0,-4.5,0) * CFrame.Angles(0,math.rad(180),0)
  30. train.Anchored = false
  31. local TrainMesh = Instance.new("SpecialMesh",train)
  32. TrainMesh.MeshType = Enum.MeshType.FileMesh
  33. TrainMesh.Scale = Vector3.new(10, 11, 10)
  34. TrainMesh.MeshId = "rbxassetid://430263083"
  35. TrainMesh.TextureId = "rbxassetid://430263092"
  36.  
  37. hum.WalkSpeed = 60;
  38.  
  39.  
  40. for i,v in pairs(char:GetChildren()) do
  41. if v:IsA("Part") then
  42. v.Transparency = 1;
  43. elseif v:IsA("Hat") then
  44. v:Destroy()
  45. elseif v:IsA("Model") then
  46. v:Destroy()
  47. end
  48. end
  49.  
  50.  
  51. local function SFX(id) local s=Instance.new("Sound",torso); s.SoundId = "rbxassetid://"..id; s.Volume = 1; return s; end
  52. train.Touched:connect(function(p)
  53. if p.Parent then
  54. if p.Parent:IsA("Model") then
  55. if game.Players:FindFirstChild(p.Parent.Name) then
  56. if p.Parent.Name ~= game.Players.LocalPlayer.Name then
  57. game.Players:FindFirstChild(p.Parent.Name).Character:BreakJoints()
  58. local Whistle = SFX(154365429)
  59. Whistle:Play()
  60. end
  61. end
  62. end
  63. end
  64. end)
  65.  
  66. local Music = SFX(358946005)
  67. Music.Looped = true;
  68. wait(1)
  69. Music:Play();
  70.  
  71. local particleemitter = Instance.new("ParticleEmitter", torso)
  72. particleemitter.Texture = "http://www.roblox.com/asset/?id=243088609"
  73. particleemitter.VelocitySpread = 180
  74. particleemitter.Lifetime = NumberRange.new(5)
  75. particleemitter.Speed = NumberRange.new(6)
  76. particleemitter.Size = NumberSequence.new({NumberSequenceKeypoint.new(0, 1), NumberSequenceKeypoint.new(1, 5)})
  77. particleemitter.RotSpeed = NumberRange.new(-55, 55)
  78. particleemitter.Rate = 150
  79. particleemitter.Rotation = NumberRange.new(-55, 55)
  80. particleemitter.Transparency = NumberSequence.new({NumberSequenceKeypoint.new(0, 0), NumberSequenceKeypoint.new(0.7, 0.9), NumberSequenceKeypoint.new(1, 1)})
  81. particleemitter.LightEmission = 0
  82. particleemitter.Color = ColorSequence.new(Color3.new(255,255,255), Color3.new(255,255,255)) --Color here
  83.  
  84.  
  85.  
  86. local plr = game.Players.LocalPlayer
  87. local chr = plr.Character
  88. local maus = plr:GetMouse()
  89. local PGui=plr.PlayerGui
  90. local lleg = chr["Left Leg"]
  91. local rleg = chr["Right Leg"]
  92. local larm = chr["Left Arm"]
  93. local rarm = chr["Right Arm"]
  94. local hed = chr.Head
  95. local rutprt = chr.HumanoidRootPart
  96. local torso = chr.Torso
  97. local pseudohead=hed:Clone()
  98. for i,x in pairs(pseudohead:GetChildren()) do if not x.ClassName:find('Mesh') then x:Destroy() end end
  99. pseudohead.Name='PseudoHead'
  100. pseudohead.Parent=chr.Head
  101. local pseudoweld=Instance.new('Weld',torso)
  102. pseudoweld.Part0=hed
  103. pseudoweld.Name='PseudoHeadWeld'
  104. pseudoweld.Part1=pseudohead
  105. hed.Transparency=1
  106. for i,x in pairs(chr:GetChildren()) do
  107. if x:IsA'HHat' then x:destroy'' end end
  108. for i,x in pairs(chr:GetChildren()) do
  109. for a,v in pairs(x:GetChildren()) do
  110. if v:IsA'CharacterMesh' then v:destroy''
  111. end
  112. end
  113. end
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement