View difference between Paste ID: M5QrbpV8 and A9RaJ2Cz
SHOW: | | - or go back to the newest paste.
1
--repeat wait() until _G and _G['Check'] print('Globals Loaded')
2
--g=getfenv()
3
--coroutine.resume(_G.Include,g,_G)
4
--coroutine.resume(IncludeLibrary,g,Finite.Custom)
5
--repeat wait() until inew~=nil and v3~=nil and c3~=nil
6
7
--Controls are q,e,t,r,k (might forget to put more hea
8
9
--You do not need to put your name anywhere in the script (Posted by handsomejhzzzzzz)
10
11
12
inew=Instance.new
13
v3=Vector3.new
14
c3=Color3.new
15
On=true
16
Distance=20
17
Minimum=5
18
Maximum=10000000000000
19
LightColor=c3(0/255,230/255,150/255)
20
Light=inew('PointLight')
21
Light.Color=LightColor
22
XVec=v3(0,0,0)
23
Target=nil
24
Adorn=nil
25
BP=inew("BodyPosition")
26
BP.maxForce=v3(9990000, 9990000, 9990000)
27
BP.P=9990000.000
28
BP.D=100000.000
29
BP.position=v3(0,50,0)
30
Q=false
31
E=false
32
hit=nil
33
FireSize=10
34
FireColor=c3(255/255,255/255,255/255)
35
FireHeat=10
36
RunService=game:GetService('RunService')
37
Player=game.Players.LocalPlayer
38
Mouse=Player:GetMouse()
39
coroutine.wrap(function()
40
script.Parent=nil
41
RunService.RenderStepped:connect(function()
42
if On==false then
43
Adorn=nil
44
end
45
hit=Mouse.Hit
46
Unit=(hit.p-Player.Character.Head.Position).unit
47
NewPos=Player.Character.Head.Position+(Unit*Distance)-XVec
48
if BP==nil then
49
BP=inew("BodyPosition")
50
else
51
BP.position=NewPos
52
end
53
if Adorn~=nil then
54
BP.Parent=Adorn
55
Light.Parent=Adorn
56
else
57
BP.Parent=nil
58
Light.Parent=nil
59
end
60
if Mouse.Target~=nil then Target=Mouse.Target else Target=nil end			
61
if Q==true and E==false then
62
if Distance-2<Minimum then
63
Distance=Minimum
64
elseif Distance-2>=Minimum then
65
Distance=Distance-2
66
end
67
end
68
if Q==false and E==true then
69
if Distance+2>Maximum then
70
Distance=Maximum
71
elseif Distance+2<=Maximum then
72
Distance=Distance+2
73
end			
74
end	
75
if Distance<Minimum then
76
Distance=Minimum
77
end	
78
end)
79
end)()
80
Player.Chatted:connect(function(msg)
81
if string.lower(string.sub(msg,1,5))=='make/' then
82
for e=1,tonumber(string.sub(msg,6)) do
83
local Col=Color3.new(math.random(1,255)/255,math.random(1,255)/255,math.random(1,255)/255)
84
local br=Instance.new('Part', workspace)
85
br.Size=Vector3.new(math.random(2,8),math.random(2,8),math.random(2,8))
86
br.Position=Player.Character.Head.Position+ Vector3.new(math.random(-tonumber(string.sub(msg,6)),tonumber(string.sub(msg,6))), math.random(-tonumber(string.sub(msg,6)),tonumber(string.sub(msg,6))),math.random(-tonumber(string.sub(msg,6)),tonumber(string.sub(msg,6)))    )
87
br.BrickColor=BrickColor.new(Col)
88
end
89
end
90
end)
91
Mouse.KeyDown:connect(function(key)
92
if (key)=='q' then
93
Q=true
94
elseif (key)=='e' then
95
E=true
96
elseif (key)=='t' then
97
if Adorn~=nil then
98
BP.Parent=nil
99
Adorn.Velocity=Adorn.Velocity+(((Adorn.Position+XVec)-Player.Character.Head.Position)).unit*200
100
Adorn=nil
101
end
102
end
103
end)
104
Mouse.KeyUp:connect(function(key)
105
if (key)=='q' then
106
Q=false
107
elseif (key)=='e' then
108
E=false
109
elseif key=='k' and Adorn~=nil then
110
for i, v in pairs(Adorn.Parent:GetChildren()) do
111
if v:IsA('Humanoid') then v.Health=0 end
112
end
113
elseif key=='b' and Adorn~=nil then
114
Adorn:BreakJoints()
115
elseif (key)=='r' and Adorn ~=nil then
116
if Adorn.Parent:FindFirstChild('ThisIsAModel') and Adorn.Parent.Fire.Value==false then
117
for i, var in pairs(Adorn.Parent:GetChildren()) do
118
if var:IsA('BasePart') then
119
fire=inew('Fire',var)
120
fire.Color=FireColor
121
fire.Name='Fire23445'
122
fire.Size=FireSize
123
fire.Heat=FireHeat
124
end
125
end
126
Adorn.Parent.Fire.Value=true
127
elseif Adorn.Parent:FindFirstChild('ThisIsAModel') and Adorn.Parent.Fire.Value==true then
128
for i, var in pairs(Adorn.Parent:GetChildren()) do
129
if var:IsA('BasePart') and var:FindFirstChild('Fire23445') then
130
var.Fire23445:Destroy()
131
end
132
end
133
Adorn.Parent.Fire.Value=false
134
elseif not Adorn.Parent:FindFirstChild('ThisIsAModel') then
135
if not Adorn:FindFirstChild('Fire23445') then
136
fire=inew('Fire',Adorn)
137
fire.Color=FireColor
138
fire.Name='Fire23445'
139
fire.Size=FireSize
140
fire.Heat=FireHeat
141
elseif Adorn:FindFirstChild('Fire23445') then
142
Adorn.Fire23445:Destroy()
143
end
144
end
145
elseif (key)=='z' and Adorn ~=nil then
146
if Adorn.Parent:FindFirstChild('ThisIsAModel') then
147
if Adorn.Parent.Ghost.Value==false then
148
for i, v in pairs(Adorn.Parent:GetChildren()) do
149
if v:IsA('BasePart') then
150
if v.Transparency==0 then
151
tick=inew('BoolValue',v)
152
tick.Name='Trans'
153
v.Transparency=0.5
154
else
155
v.Transparency=v.Transparency*2
156
end
157
end
158
end
159
Adorn.Parent.Ghost.Value=true
160
elseif Adorn.Parent.Ghost.Value==true then
161
for i, v in pairs(Adorn.Parent:GetChildren()) do
162
if v:IsA('BasePart') then
163
if v:FindFirstChild('Trans') then
164
v.Transparency=0
165
v.Trans:Destroy()
166
else
167
v.Transparency=v.Transparency/2
168
end
169
end
170
end
171
Adorn.Parent.Ghost.Value=false
172
end
173
elseif not Adorn.Parent:FindFirstChild('ThisIsAModel') then
174
if Adorn:FindFirstChild('Trans') then
175
Adorn.Transparency=Adorn.Transparency/2
176
Adorn.Trans:Destroy()
177
if Adorn:FindFirstChild('Trans2') then
178
Adorn.Transparency=0
179
Adorn.Trans2:Destroy()
180
end
181
elseif not Adorn:FindFirstChild('Trans') then
182
inew('BoolValue',Adorn).Name='Trans'
183
if Adorn.Transparency<=0 then
184
inew('BoolValue',Adorn).Name='Trans2'
185
Adorn.Transparency=0.5
186
else Adorn.Transparency=Adorn.Transparency*2
187
end
188
end
189
end
190
end
191
end)
192
Mouse.Button1Down:connect(function()
193
if Adorn==nil and BP.Parent==nil and Target~=nil and (hit.p-Player.Character.Head.Position).magnitude<=Maximum and Target:IsDescendantOf(workspace) then
194
Distance=(Target.Position-Player.Character.Head.Position).magnitude
195
XVec=(hit.p-Target.Position)
196
if not Target.Parent:FindFirstChild('ThisIsAModel') then
197
local rt=Target.Size
198
Minimum=math.sqrt((rt.X^2+rt.Y^2+rt.Z^2))+.5
199
else 
200
local rt=Target.Parent:GetModelSize()
201
Minimum=math.sqrt((rt.X^2+rt.Y^2+rt.Z^2))+.5
202
end	
203
Adorn=Target
204
end
205
end)
206
207
Mouse.Button1Up:connect(function()
208
if Adorn~=nil  then
209
Adorn=nil
210
BP.Parent=nil
211
end
212
end)