function invis(o) for i,v in pairs(o:children()) do if v:IsA("BasePart") then v.Transparency=1 end invis(v) end end

function newhats(p,o,o2) for i,v in pairs(p:children()) do if v:IsA("Hat") then v.Handle.Transparency = 1 local np=v.Handle:Clone'' np.Transparency=0 np.Mesh.Scale=np.Mesh.Scale*1.1 np.Parent=o np.CFrame=v.Handle.CFrame stick2(np,o2,o) end end end

function findclass(prt,cls) clases=0 for i,v in pairs(prt:children()) do if v.className:lower() == cls:lower() then clases=clases + 1 end end return clases end

function getclass(prt,cls) for i,v in pairs(prt:children()) do if v.className:lower() == cls:lower() then return v end end return nil end

function rtab(tabz,obj) for i=1,#tabz do if tabz[i] == obj then tr(tabz,i) break end end end

function RandomPlayer(spiz) local torz=spis local torses={} for i,v in pairs(Serv.kx:children()) do if v ~= Serv.kx.LocalPlayer and v.Character ~= nil and v.Character:findFirstChild("Torso") then ti(torses,v.Character.Torso) end end if #torses > 0 then torz=torses[rn(1,#torses)] end return torz end

function FDesDes(ob,str) for i,v in pairs(ob:children()) do if v.Name:lower() == str:lower() then return true end return FDesDes(v,str) end end

x2,y2,z2=a.insw[tn][2]["p0x"],a.insw[tn][2]["p0y"],a.insw[tn][2]["p0z"] end a.Welding=a.Welding + 1 local twa=1 if smmx >= 1 then else

for i=smmx,0.8,smmx do twa = 1 if c0orc1==0 then wexx.C0=cn(x2-(((x2-aa)/twa)*i),y2-(((y2-bb)/twa)*i),z2-(((z2-cc)/twa)*i)) *ca(xx2-(((xx2-rd(xx))/twa)*i),yy2-(((yy2-rd(yy))/twa)*i),zz2-(((zz2-rd(zz))/twa)*i)) elseif c0orc1==1 then

wexx.C1=ca(xx2-(((xx2-rd(xx))/twa)*i),yy2-(((yy2-rd(yy))/twa)*i),zz2-(((zz2-rd(zz))/twa)*i))end if fu then q(fu) end w() end

for i=0.8,1,smmx*0.45 do twa = 1 if c0orc1==0 then wexx.C0=cn(x2-(((x2-aa)/twa)*i),y2-(((y2-bb)/twa)*i),z2-(((z2-cc)/twa)*i)) *ca(xx2-(((xx2-rd(xx))/twa)*i),yy2-(((yy2-rd(yy))/twa)*i),zz2-(((zz2-rd(zz))/twa)*i)) elseif c0orc1==1 then

wexx.C1=ca(xx2-(((xx2-rd(xx))/twa)*i),yy2-(((yy2-rd(yy))/twa)*i),zz2-(((zz2-rd(zz))/twa)*i))end if fu then q(fu) end w() end

end

local i=1 if c0orc1==0 then wexx.C0=cn(x2-(((x2-aa)/twa)*i),y2-(((y2-bb)/twa)*i),z2-(((z2-cc)/twa)*i)) *ca(xx2-(((xx2-rd(xx))/twa)*i),yy2-(((yy2-rd(yy))/twa)*i),zz2-(((zz2-rd(zz))/twa)*i)) elseif c0orc1==1 then wexx.C1=cn(x2-(((x2-aa)/twa)*i),y2-(((y2-bb)/twa)*i),z2-(((z2-cc)/twa)*i)) *ca(xx2-(((xx2-rd(xx))/twa)*i),yy2-(((yy2-rd(yy))/twa)*i),zz2-(((zz2-rd(zz))/twa)*i))

local function dive(obj) for i,v in pairs(obj:children()) do if i%(#obj:children()/5)==0 then w() end --if i%antisplashdamagesexhack==0 then w() end --i%(#obj:children()/4)==0 then w() end

if not v:IsA("Model") and v ~= to and v:IsA("BasePart") and v.Name=="Torso" and getclass(v.Parent,"Humanoid") ~= nil and (v.Position - pos).magnitude < mag then local av=getclass(v.Parent,"Humanoid") Dmgz(true,av,dmgx,v,fu) if tehsit then av.Sit=true end

--elseif v:IsA("BasePart") and (v.Position-pos).magnitude < mag and not v.Anchored and v:GetMass() < 200 and v.Name ~= "Handle" and findclass(v.Parent,"Humanoid") <1 and findclass(v.Parent.Parent,"Humanoid") <1 and v.Parent.Parent.Name ~= "Suit" then if (v.Position-pos).magnitude < mag/2 then v:BreakJoints() v.CFrame=cn(v.Position,pos)*ca(0,rd(180),0) end v.Velocity=cn(pos,v.Position).lookVector*forc

else q(function() if #v:children() > 0 and not v:IsA("BasePart") and v.className~="Script" and v.className~="Camera" then dive(v) end end) end

end end -- func and loop end

dive(workspace) dive(workspace.CurrentCamera) end) end

for i,v in pairs(c:children()) do if v.Name == su.Name and v ~= su then v:Remove() end end

local spi=pa(c,"","Block",1,1,1,false,false,l1,0,colzz) local spim=it("SpecialMesh",spi) if meshid2:lower()=="sphere" then spim.MeshType="Sphere" elseif meshid2:lower()=="block" then spim.MeshType="Brick" else spim.MeshType="FileMesh" spim.MeshId=meshid2 end

if anch then local spiw=weld(spi,rootz,spi,0,0,0,0,0,0) spiw.C0 =spiw.C0 *adjus else spi.Anchored=true spi.CFrame=adjus end

for i=l1,l2,l1 do spi.Transparency=i spim.Scale=mv3*(i+0.3) w() end spi:Remove'' end)

function Dmgz(blockz,aihu,dmgzz2,pos,fuu) if ft(DBDH,aihu.Parent) or aihu == hu then return end if aihu.Health==0 then return end if aihu.Parent:findFirstChild("ForceField") then return end dmgdeb2=true q(function() if (aihu.Parent:findFirstChild("Block") and aihu.Parent.Block:IsA("BoolValue") and aihu.Parent.Block.Value and not blockz) or pos.Name:lower()=="shield" then splat2(pos.Position,"Bl" .. "ock!") w(0.2) Sound(Sounds.Block,1.4,3) return end

local dmgzz=dmgzz2 if game:service'Players':findFirstChild(aihu.Parent.Name) and not tk then return end if game:service'Players':findFirstChild(aihu.Parent.Name) == nil then dmgzz=dmgzz*1.75 end ti(DBDH,aihu.Parent) if rn(1,a.cr[1]) == 1 then aihu.Health=aihu.Health-dmgzz*a.cr[2] dmgzz="Crit! " ..ts(dmgzz*a.cr[2]) else q(function() fuu(aihu.Parent) end) aihu.Health=aihu.Health-dmgzz end if not pos then return end splat2(pos.Position,dmgzz) q(function() w(0.08) tr(DBDH,ft(DBDH,aihu.Parent)) end)

if bhit==nil or (bpos - weplol.Position).magnitude > magz+0.8 then else local brea=false

for i,v in pairs(bhit.Parent:children()) do local dmge=rn(d[1],d[2])*tim

if v:IsA("Humanoid") and not DebounceTable2[v.Parent.Name] then DebounceTable2[v.Parent.Name]=true Dmgz(false,v,dmge,bhit) Sound(Sounds.Smash,0.9,1) hitx=hitx+1 brea=true break end end

if bhit.Parent ~= workspace and not brea then for i,v in pairs(bhit.Parent.Parent:children()) do local dmge=rn(d[1],d[2])*tim

if v.Parent:findFirstChild("Humanoid") and not DebounceTable2[v.Parent.Parent.Name] then DebounceTable2[v.Parent.Parent.Name]=true Dmgz(false,v.Parent.Humanoid,dmge,bhit) Sound(Sounds.Smash,0.9,1) hitx=hitx+1 break end end

end

end until hitx >= lolk or tymzup end) end

function GetRegion(p0,p1,f,f2) q(function()

for i,v in pairs(workspace:FindPartsInRegion3(Region3.new(p0,p1),c,100) ) do if v.Parent:findFirstChild("Humanoid") and v.Parent.Humanoid.Health > 0 and v.Parent:findFirstChild("Torso") then q(function() f(v.Parent) end) elseif f2 and v.Parent.Parent:findFirstChild("Humanoid") == nil then f2(v) end end

end) end

function FindGround(pos) local ax,ay,az = pos:toEulerAnglesXYZ()

local bhit,bpos=ray(pos.p,pos.p - (pos.p + v3(0,200,0)))

if bhit and bpos then return cn(bpos)*ca(ax,ay,az) end return nil end

function MakeCrater(pos,sc,tyms,debz) q(function() if not debz then debz = 5 end

if tms%3==0 then GetRegion(bal.Position-v3(rr,rr,rr),bal.Position+v3(rr,rr,rr),function(v) Dmgz(false,v.Humanoid,rn(1,3),v.Torso) if v.Torso:findFirstChild("SBP") == nil then ti(bped,v) qi({"BodyPosition",v.Torso,Name="SBP",D=6000,maxForce=v3(200000,200000,200000),position=bal.Position}) end end) end

if tms%3==0 then GetRegion(bal.Position-v3(rr,rr,rr),bal.Position+v3(rr,rr,rr),function(v) Dmgz(false,v.Humanoid,rn(1,3),v.Torso) if v.Torso:findFirstChild("SBP") == nil then ti(bped,v) qi({"BodyPosition",v.Torso,Name="SBP",D=6000,maxForce=v3(200000,200000,200000),position=bal.Position}) end end) end

wait()

end

for i,v in pairs(bped) do q(function() for i,vv in pairs(v.Torso:children()) do if vv.Name == "SBP" then vv:Remove() end end end) end

q(function() local cfz = {rip.CFrame,arm.CFrame,fis.CFrame} for i=1,15 do local lolv3=v3(rn(-1*sc,1*sc),rn(-1*sc,1*sc),rn(-1*sc,1*sc)) rip.CFrame=cfz[1]+lolv3 fis.CFrame=cfz[3]+lolv3 arm.CFrame=cfz[2]+lolv3 wait() end

hol.CFrame = pos for i=1,6 do hol.Size=v3(1,1,i*5) hol.CFrame=pos*cn(0,0,(5*i)/2) wait() end

for i=1,6 do hol.Size=v3(i*5,1,30) hol.CFrame=pos*cn(0,0,15) wait() end

local swr = {} for i=1,14 do local swor = pa(su,"","Block",0,0,0,false,true,0.2,0,"Really red") qi({"SpecialMesh",swor,MeshType="FileMesh",Scale=v3(4,4,4),MeshId=Decs.SplinteredSky,TextureId=Decs.SplinteredSkyT,VertexColor=v3(0,0,0.8)}) ti(swr,swor) end

local swr2 ={} for i=1,8 do local swor = pa(su,"","Block",0,0,0,false,true,0.2,0,"Really red") qi({"SpecialMesh",swor,MeshType="FileMesh",Scale=v3(4,4,4),MeshId=Decs.SplinteredSky,TextureId=Decs.SplinteredSkyT,VertexColor=v3(0,0,0.8)}) ti(swr2,swor) end

if aa then db1.Transparency = 0.1 else for i=1,0.1,-0.1 do db1.Transparency = i wait() end end

else

ebs = false if aa then db1.Transparency = 1 else for i=0.1,1,0.1 do db1.Transparency = i wait() end end

end end) end

local efm = ef.Mesh.Scale

function e(aa) if aa ~= nil then ef.Mesh.Scale=efm*aa else ef.Mesh.Scale=efm end if ef.Transparency < 0.4 then

for i=0.3,1,0.1 do ef.Transparency = i wait() end

else

q(function() for i=1,0.3,-0.1 do ef.Transparency = i wait() end end)

end end

q(function() while true do if ebs then for i=0.4,0.7,0.025 do local tra = (i+0.15)*(db1.Mesh.Scale.x/4) db2.Transparency =i wait() db2.Mesh.Scale=db1.Mesh.Scale*1.2+v3(tra*(db1.Mesh.Scale.x/5),tra*(db1.Mesh.Scale.x/5),tra*(db1.Mesh.Scale.x/5)) end

for i=1,5,0.5 do to.Size=v3(2,i,2) to.CFrame=cn(tpos+v3(0,i/2,0)) to2.CFrame = to.CFrame*cn(0,(i/2)+1,0) wait() end wait(3.5) for i=0.2,1,0.1 do to.Transparency = i to2.Transparency = i wait() end to:Remove() to2:Remove() end)

for i=1,8 do Lightning(bla2.Position,tpos,math.floor((bla2.Position-tpos).magnitude/18)+1,1.5,"Really red",0.3,0) wait(0.04) end fac = false

local to = pa(su,"","Block",0,0,0,false,false,0.2,0,"Really red") it('CylinderMesh',to).Scale=v3(9,0.2,9)*5 local tom = qi({"Weld",to,Part0=ra,Part1=to})

q(function() for i=1,40 do if i == 20 then for hax=-50,50,25 do SpawnTornado(t.CFrame*cn(0,3,0)*ca(0,rd(hax),0),1,1.2,6) end end tom.C0 = cn(0,-2.3,0)*ca(rd(rn(-8,8)),0,rd(rn(-8,8))) wait() end fade(to,0.1) end) c1(hanw,spd*0.3,1,0,0,0,360*5,0,0) cleanweld(hanw,"a1")