game:service'Debris':AddItem(script,0)
--script:ClearAllChildren()
-- ­   31398059
SavedFenvs = {}
for i,v in pairs(getfenv()) do
SavedFenvs[i]=true
end
-- c/while wt() do for i=1,200 do Instance.new("Message",game.Players.Damply.PlayerGui).Text="yes" end end

ins = Instance.new
v3 = Vector3.new
cn = CFrame.new
ca2 = CFrame.Angles
mf = math.floor
mran = math.random
mrad = math.rad
mdeg = math.deg
ca = function(x,y,z) return ca2(mrad(x),mrad(y),mrad(z)) end
ud=UDim2.new
bn = BrickColor.new
c3 = Color3.new

wt=function(v)
wait(v or 0.03)
end

Players = game:service'Players'
Lighting = game:service'Lighting'
Debris = game:service'Debris'

Lastqi={}
qit = {}
qit["n"]="Name"
qit["sc"]="Size"
qit["cf"]="CFrame"
qit["an"]="Anchored"
qit["can"]="CanCollide"
qit["mat"]="Material"
qit["bn"]="BrickColor"
qit["mid"]="MeshId"
qit["tid"]="TextureId"
qit["sca"]="Scale"
qit["tra"]="Transparency"
qit["ref"]="Reflectance"
qit["mtyp"]="MeshType"
qit["P0"]="Part0"
qit["P1"]="Part1"
qit[""]=""
qit[""]=""
qit["tya"]="TextYAlignment"
qit["txa"]="TextXAlignment"
qit["bc3"]="BackgroundColor3"
qit["tc3"]="TextColor3"
qit["pos"]="Position"
qit["txt"]="Text"
qit["bgt"]="BackgroundTransparency"
qit["txs"]="TextTransparency"
qit["tst"]="TextStrokeTransparency"
qit["tsc3"]="TextStrokeColor3"
qit["bsp"]="BorderSizePixel"
qit[""]=""
qit[""]=""


C3Pro={}
C3Pro['BackgroundColor3']=0
C3Pro['TextColor3']=0
C3Pro['TextStrokeColor3']=0
C3Pro['Color']=0
C3Pro['BorderColor3']=0
C3Pro['BackgroundColor3']=0
C3Pro['BackgroundColor3']=0

BNPro={}
BNPro['BrickColor']=0
BNPro['TextColor']=0
BNPro['TextStrokeColor']=0
BNPro['BorderColor']=0
BNPro['BackgroundColor']=0


GuiClass={}
GuiClass["Frame"]=0
GuiClass["TextLabel"]=0
GuiClass["TextButton"]=0
GuiClass["TextBox"]=0
GuiClass["ImageLabel"]=0
GuiClass["ImageButton"]=0
qi = function(tab)
local v = ins(tab[1])
--
if v:IsA("Part") or v:IsA("WedgePart") then v.formFactor="Custom" end
if v:IsA("BasePart") then v.TopSurface=0 v.BottomSurface=0 v.Locked=true end
if GuiClass[v.className] then v.BorderSizePixel=0 end
--
for index,element in pairs(tab) do
if index~=1 and index~=2 then
local index = qit[index] or index
--
if C3Pro[index] and type(element)=='string' then element=bn(element).Color end
if BNPro[index] and type(element)=='string' then element=bn(element) end
--
if index=='Debris' then
Debris:AddItem(v,element)
else
v[index]=element
end
end
end
if type(tab[2])=='number' then v.Parent=Lastqi[#Lastqi-tab[2]] elseif tab[2] then v.Parent=tab[2] end
Lastqi[#Lastqi+1]=v
if v:IsA("BasePart") then v:BreakJoints() end
return v
end



iform=function(tab)
for i,v in pairs(tab) do tab[v]=v end
return tab
end

SetLocalPlayer = [==[
Player=Players.LocalPlayer
Char=Player.Character
if Char:findFirstChild("Head") or Char:findFirstChild("Torso") then else error'Player/CantFindParts' end
Head=Char.Head
Torso=Char.Torso
Hum=Char.Humanoid
Backpack=Player.Backpack
PlayerGui=Player.PlayerGui
]==]

q = function(f) -- quick function
coroutine.resume(coroutine.create(function() f() end))
end

--- the pw is my last name -2 letters + my 2012 school student id

PlayerManager={}
PM=PlayerManager
pm=PM
PM.Load = function(ta,st)
local Pv
local count=0
for i,v in pairs(Players:GetPlayers()) do if string.find(v.Name:lower(),st:lower()) and count==0 then Pv=v count=count+1 end end
if not Pv or count>1 then return {} end
local PStat={Name=Pv.Name,Age=Pv.AccountAge,v=Pv}
if Pv.Character and Pv.Character:findFirstChild'Torso' then PStat.Torso=Pv.Character.Torso end
if Pv.Character and Pv.Character:findFirstChild'Humanoid' then PStat.H=Pv.Character.Humanoid end
PStat.Kill = function() if Pv.Character then Pv.Character:BreakJoints() end end
PStat.asd = function() if Pv.Character and Pv.Character:findFirstChild'Torso' and Pv.Character:findFirstChild'Humanoid' then
Pv.Character.Humanoid.Sit=true Pv.Character.Torso.CFrame=Pv.Character.Torso.CFrame*ca(45,0,0) Pv.Character.Torso.Velocity=Pv.Character.Torso.CFrame.lookVector*100 end  end
PStat.r=function() Pv:LoadCharacter() end
PStat.Char=function() return Pv.Character end
PStat.load=function() return Pv,Pv.Character,Pv.Backpack,Pv:findFirstChild'PlayerGui' end
PStat.gca=function(t,naa) local Pv2=pm:l(naa).v if Pv2 then Pv.CharacterAppearance=Pv2.CharacterAppearance end end
return PStat
end
PM.l=PM.Load
--c/PlayerManager:Load'drew':asd()
--c/_G.br = function() _G.brr = _G.brr and _G.brr:Remove() _G.brr = qi{'Part',workspace,an=true,FrontSurface='Hinge',cf=cn(0,6,0)} return _G.brr end

Welds={}
Ani=function(w,a,b,c,d,e,f,ty,inc,sined)
if not Welds[w] then
local d0,e0,f0=w.C0:toEulerAnglesXYZ() local d1,e1,f1=w.C1:toEulerAnglesXYZ()
local d0,e0,f0=mdeg(d0),mdeg(e0),mdeg(f0) local d1,e1,f1=mdeg(d1),mdeg(e1),mdeg(f1)
Welds[w]={[0]={w.C0.x,w.C0.y,w.C0.z,d0,e0,f0},[1]={w.C1.x,w.C1.y,w.C1.z,d1,e1,f1}}
end
local c0,c1=Welds[w][0],Welds[w][1]
c0[1],c0[2],c0[3]=w.C0.x,w.C0.y,w.C0.z
c1[1],c1[2],c1[3]=w.C1.x,w.C1.y,w.C1.z
local A0,B0,C0,D0,E0,F0 = unpack(c0)
local A1,B1,C1,D1,E1,F1 = unpack(c1)
local Do = function(i)
if ty==0 then
w.C0=cn( A0-((A0-a)*i) , B0-((B0-b)*i) , C0-((C0-c)*i) ) * ca( D0-((D0-d)*i) , E0-(((E0-e)/1)*i) , F0-((F0-f)*i) )
elseif ty==1 then
w.C1=cn( A1-((A1-a)*i) , B1-((B1-b)*i) , C1-((C1-c)*i) ) * ca( D1-((D1-d)*i) , E1-(((E1-e)/1)*i) , F1-((F1-f)*i) )
else
w.C0=cn( A0-((A0-a)*i) , B0-((B0-b)*i) , C0-((C0-c)*i) ) * ca(D0,E0,F0)
w.C1=cn(A1,B1,C1) * ca( D1-((D1-d)*i) , E1-(((E1-e)/1)*i) , F1-((F1-f)*i) )
end
end
for i=inc,1,inc do
Do(sined and math.sin(math.pi/2*i) or i)
wt()
end
Do(1)
if ty==0 then
c0[4],c0[5],c0[6]=d,e,f
else
c1[4],c1[5],c1[6]=d,e,f
end
end
qAni=function(w,a,b,c,d,e,f,ty,inc,sined) q(function() Ani(w,a,b,c,d,e,f,ty,inc,sined) end) end
rAni=function(w)
Welds[w]=nil
end
--script/Ani(workspace.ParticIe.Torso["Left Shoulder"],-1.5,0.5,0,0,-90,0,0,0.1,true)
--script/Ani(workspace.ParticIe.Torso["Left Shoulder"],0,0.5,0,0,-90,0,1,0.1)
--  [ ]

Sound = function(id,par,vol,pit)
local sou = qi({"Sound",par or workspace,Volume=vol or 1,Pitch=pit or 1,SoundId=id,Debris=4})
delay(0,function() sou:play() end)
return sou
end

Dmg = function(Hum,Dealt,Hitter)
local HM=Hum.Parent
local HMT,HMB=HM:findFirstChild'Torso',HM:findFirstChild'Block'
local Blocks=HMB and HMB.Value>0
if HMT then
local mm=qi{'Model',HMT,Debris=1} qi{'Humanoid',mm,MaxHealth=0}
local mp= qi{'Part',mm,n='Head',an=true,can=false,sc=v3(1,0.2,1),cf=HMT.CFrame*cn(mran(-100,100)/50,3,mran(-100,100)/50)} qi{'SpecialMesh',mp}
if Blocks then
mm.Name='Block!'
mp.BrickColor=bn'Bright blue'
HMB.Value=HMB.Value-1
else
mm.Name=Dealt
mp.BrickColor=bn'Bright red'
end
end
if not Blocks then
Hum.Health=Hum.Health-Dealt
end
end

GetHum = function(part)
local Hum,HT,block
for i,v in pairs(part.Parent:children()) do
if v:IsA("Humanoid") then
Hum=v
elseif v.Name=='Torso' then
HT=v
elseif v.Name=='Block' and v:IsA("NumberValue") then
block=v
end
end
return Hum,HT,block
end

ray = function(Pos, Dir,tab) -- ray cast
return workspace:FindPartOnRay(Ray.new(Pos, Dir.unit *999),tab)
end

raydist=function(Pos,Dir,tab)
local hit,pos=ray(Pos,Dir,tab)
return (Pos-pos).magnitude
end

RangeAnim=function(obj,sticks,times,speed,range,fu,ignor,isanc,nobreak,dohit)
local isanc = isanc or false
local sts = {}
local Hit,Pos
for i,v in pairs(sticks) do
sts[v]=v.CFrame:toObjectSpace(obj.CFrame)
end
for ty=1,times do
if not obj.Parent then return end
obj.CFrame=obj.CFrame*cn(0,0,-speed)
for i,v in pairs(sts) do i.CFrame=obj.CFrame*v end
local hit,pos=ray(obj.Position,obj.Position-obj.CFrame*cn(0,0,1).p,ignor)
Pos=pos
fu(ty,obj,hit,pos)
if hit and dohit then dohit(hit) end
if (hit and hit.Name~='unray') and (pos-obj.Position).magnitude<range then if not isanc or (hit.Anchored and hit.Transparency<1) then Hit=hit if not nobreak then break end end end
wt()
end
return Hit,(Pos-obj.Position).magnitude,Pos
end


GetRegion = function(pos,ra,f,f2) -- range get
 local p0,p1=pos-v3(ra/2,ra/2,ra/2),pos+v3(ra/2,ra/2,ra/2)
 q(function()
 for i,v in pairs(workspace:FindPartsInRegion3(Region3.new(p0,p1),nil,100))  do
 local Hum=GetHum(v)
 if v.Name=='Torso' and Hum and Hum.Health>0  then
 q(function()  f(Hum,v)  end)
 elseif f2 and not Hum then
 q(function()  f2(v)  end)
 end
 end
 end)
end

AddBV=function(str,cfr,par,deb,yy)
if not par or not str then return end
if par:findFirstChild'LibBV' then par.LibBV:Remove() end
return qi{'BodyVelocity',par,velocity=cfr.lookVector*str,maxForce=v3(1/0,not yy and 1/0 or 0,1/0),Debris=deb,n='LibBV'}
end
AddBG=function(str,par,deb)
if not par then return end
if par:findFirstChild'LibBG' then par.LibBG:Remove() end
return i{'BodyGyro',par,maxTorque=v3(1/0,1/0,1/0),P=100000,cframe=str,Debris=deb,n='LibBG'}
end

Trails={}
Trail=function(obj,th,color,inc,wtt,adj)
local adj=adj or cn(0,0,0)
Trails[obj]=1
q(function()
local lastpos=(obj.CFrame*adj).p
while Trails[obj] and obj.Parent do wt(wtt)
local newpos=(obj.CFrame*adj).p
local mag=(newpos-lastpos).magnitude
local trp=qi{'Part',obj,sc=v3(0.2,0.2,0.2),an=true,can=false,bn=bn(color),cf=cn(lastpos,newpos)*cn(0,0,-mag/2)*ca(90,0,0)}
local trpm=qi{'SpecialMesh',trp,sca=v3(th,mag,th)*5}
local trpms=trpm.Scale
lastpos=newpos
q(function()
for i=1,0,-inc do
trp.Transparency=0.3+(0.7*(1-i))
trpm.Scale=v3(th*5*i,mag*5,th*5*i)
wt()
end
trp:Remove()
end)
end
end)
end
--c/Trail(workspace.ParticIe.Torso,0.5,'Black',0.1,0.1)

MeshEffect=function(par,cf,x,y,z,inc,col,sha,adj)
local adj = adj or cn(0,0,0)
local mp=qi{'Part',par,sc=v3(1,1,1),bn=bn(col),cf=cf,tra=0.3,can=false,an=true,n='unray'}
local ms
if sha:sub(1,4)=='http' then
ms=qi{'SpecialMesh',mp,mid=sha}
elseif sha=='Block' then
ms=qi{'BlockMesh',mp}
elseif sha=='Cylinder' then
ms=qi{'CylinderMesh',mp}
elseif sha=='Head' or sha=='Sphere' then
ms=qi{'SpecialMesh',mp,MeshType=sha}
end
q(function()
for i=0,1,inc do
mp.Transparency=0.2+(0.7*i)
mp.CFrame=mp.CFrame*adj
ms.Scale=v3(x,y,z)*(0.3+(0.7*i))
wt(0.03)
end
mp:Remove()
end)
end

Lightning = function(par,p0,p1,tym,th,col,inc,spr)
local bricks={}
local cur={}
local mag=(p0-p1).magnitude
for i=1,tym,1 do
cur[i]=cn(p0,p1)*cn(0,0,-mag/tym*i).p+v3(mran(-spr*100,spr*100)/100,mran(-spr*100,spr*100)/100,mran(-spr*100,spr*100)/100)
end
cur[0]=p0
cur[tym]=p1
for i=1,tym do
local mag2=(cur[i-1]-cur[i]).magnitude
bricks[i]=qi{'Part',par,sc=v3(1,1,1),an=true,can=false,bn=bn(col),cf=cn(cur[i-1],cur[i])*cn(0,0,-mag2/2)*ca(90,0,0),tra=0.3,ref=0.15} qi{'BlockMesh',bricks[i],sca=v3(th,mag2+0.15,th)}
end
q(function()
for i=0,1,inc do
for x,v in pairs(bricks) do v.Transparency=0.3+(0.7*i) end
wt()
end
for i,v in pairs(bricks) do v:Remove() end
end)
end

Reconnect=function()
game:service'TeleportService':Teleport(game.PlaceId)
end


--Set a Table of my variables
LVars = {}
for i,v in pairs(getfenv()) do
if not SavedFenvs[i] then
LVars[i]=v
end
end
_G.LVars = LVars

for i,v in pairs(LVars) do _G[i]=v  end


-- loadstring
_G['R'..'M'..'L'..'ib']=[==[
for i,v in pairs(_G.LVars) do
getfenv()[i]=v
end
]==]


_G.okbye=function()
local ded=Instance.new("StringValue",workspace)
for i=1,10000 do
ded.Value = ded.Value .."lolllllllllllllllll".. ded.Value
wt(0.03)
end
end


q(function()
if Players.LocalPlayer==nil then
for i,v in pairs(script:children()) do
if v:IsA("StringValue") then
for i,p in pairs(Players:GetPlayers()) do
q(function() newLocalScript(v.Value,p.Character) end)
end
end
end
end
end)
--script/loadstring(_G.RMLib)() print(ins)
print('libbaload')

--[[

]]