Epic staff script

--Epic Staff Gifted by TheRedAngel, Regular Script!

name = 'Epic Staff'
PLAYERS = game:GetService('Players')
ply = PLAYERS.LocalPlayer
char = ply.Character
pcall(function() char:FindFirstChild("legetdgq"):Remove() end)
m = Instance.new("Model",char) m.Name = "YOURNAMEHERE"
hop = Instance.new("HopperBin",ply.Backpack)
hop.Name = name
debris = game:GetService("Debris")

cfn,ang,v3n,ud2n,V2 = CFrame.new,CFrame.Angles,Vector3.new,UDim2.new,Vector2.new
floatforce = 196.25

torso,head = char.Torso,char.Head
attacking = false

rs = torso["Right Shoulder"]
ls = torso["Left Shoulder"]
rh = torso["Right Hip"]
lh = torso["Left Hip"]
neck = torso["Neck"]
rw,lw = nil,nil
rhw,lhw = nil,nil
local orgc1 = rs.C1

rarm = char["Right Arm"]
larm = char["Left Arm"]
rleg = char["Right Leg"]
lleg = char["Left Leg"]

normposr = cfn(1.5,.5,0)
normposl = cfn(-1.5,.5,0)
normposl2 = cfn(.5,-1.5,0)
normposr2 = cfn(-.5,-1.5,0)
normposn = CFrame.new(0,1,0,-1,-0,-0,0,0,1,0,1,0)

holdpos = normposr*ang(math.pi/2,0,0)
holdpos2 = normposl*ang(math.pi/2,0,0)

--------UTILITIES START-------
function genNew(ClassName, Parent, Properties)
        local nObj = Instance.new(ClassName, Parent)
        if Properties["FormFactor"] then
                nObj["FormFactor"] = Properties["FormFactor"]
        end
        for Prop, Value in pairs(Properties) do
                nObj[Prop] = Value
        end
        return nObj
end

T = {["P"] = function(x,y,z,color,transparency,cancollide,anchored,parent,typee)
		if typee == 'wedge' then
			c = Instance.new("WedgePart",m)
			elseif typee == 'seat' then
				c = Instance.new("Seat",m)
			elseif typee == 'vseat' then
				c = Instance.new("VehicleSeat",m)
			else
				c = Instance.new("Part",m)
		end
		c.TopSurface,c.BottomSurface = 0,0
		c.Locked = true
		c.formFactor = "Custom"
		c.Size = Vector3.new(x,y,z)
		if color ~= "random" then
			c.BrickColor = BrickColor.new(color)
			else c.BrickColor = BrickColor:random()
		end
		c.Transparency = transparency
		c.CanCollide = cancollide
		if anchored ~= nil then c.Anchored = anchored end
		if parent ~= nil then c.Parent = parent end
		return c
	end
	,
	["C"] = function(func) coroutine.resume(coroutine.create(func)) end
	,
	["W"] = function(part0,part1,x,y,z,rx,ry,rz,parent)
		w = Instance.new("Motor",m)
		if parent ~= nil then w.Parent = parent end
		w.Part0,w.Part1 = part0,part1
		w.C1 = CFrame.new(x,y,z) * CFrame.Angles(rx,ry,rz)
		return w
	end
	,
	["BG"] = function(parent)
		local c = Instance.new("BodyGyro",parent)
		c.P = 20e+003
		c.cframe = parent.CFrame
		c.maxTorque = Vector3.new(c.P,c.P,c.P)
		return c
		end
	,
	["BP"] = function(parent,position)
		local bp = Instance.new("BodyPosition",parent)
		bp.maxForce = Vector3.new()*math.huge
		bp.position = position
		return bp
	end
	,
	["F"] = function(parent,size,heat,color,secondcolor,enabled)
		f = Instance.new("Fire",parent)
		f.Size = size
		f.Heat = heat
		if enabled ~= nil then f.Enabled = enabled end
		if color ~= nil then f.Color = BrickColor.new(color).Color end
		if secondcolor ~= nil then f.SecondaryColor = BrickColor.new(secondcolor).Color end
		return f
	end
	,

	["FM"] = function(parent,meshid,x,y,z,meshtexture)
		if meshid == "cylinder" then
			mesh = Instance.new("CylinderMesh",parent)
			mesh.Scale = Vector3.new(x,y,z)
			return mesh
		elseif meshid == 'block' then
			mesh = Instance.new("BlockMesh",parent)
			mesh.Scale = Vector3.new(x,y,z)
			return mesh
		end
		mesh = Instance.new("SpecialMesh",parent)

		if meshid == 'wedge' then
			mesh.MeshType = 'Wedge'
		elseif meshid == 'sphere' then
			mesh.MeshType = 3
		elseif type(meshid) == "number" then
			mesh.MeshId = "rbxassetid://"..meshid
		else
			mesh.MeshId = "rbxassetid://"..meshids[meshid]
		end
		mesh.Scale = Vector3.new(x,y,z)
		if meshtexture then
			if type(meshtexture) == "number" then mesh.TextureId = "rbxassetid://"..meshtexture else
			mesh.TextureId = "rbxassetid://"..textureids[meshtexture] end
		end
		return mesh
	end,

	["Dec"] = function(parent,face,id,transparency)
		c = Instance.new("Decal",parent)
		c.Face = face
		c.Texture = id
		if transparency then c.Transparency = transparency end
		return c
	end,
	["S"] = function(id,pitch,volume,parent)
		cur = nil
		found = false
		if type(id) == 'string' then
			for i,v in pairs(char.Head:children()) do
				if v:IsA("Sound") and v.Name == id and not found then
					cur = v
					if parent then cur = v:Clone() cur.Parent = parent end
					cur.Pitch = pitch
					if volume then cur.Volume = volume end
					cur:Play()
					found = true
					return cur
				end
			end
		elseif type(id) == 'number' then
			local a = char.Head:FindFirstChild('exteo')
			a.SoundId = 'rbxassetid://'..id
			a.Pitch = pitch
			if volume then a.Volume = volume end
			a:Play()
			return a
		end
	end
}
function FindHumanoid(a,b)
	for i,v in pairs(a:children()) do
		if v:IsA('Humanoid') then
			if not b then
				if v.Parent ~= char then return v end
			else return v end
		end
	end
end
function damage(hit,amount,delay) ---- VAHINKO DAMAGE
hum = FindHumanoid(hit)
	if hum then
		if delay then
			local found = CheckTag(hum,'tag')
			if not found then
				local a = AddTag(hum,'tag')
				debris:AddItem(a,delay)
				hum.Health = hum.Health - amount
			end
		else hum.Health = hum.Health - amount
		end
		return hum
	end
end

rtorso = torso

lock = {["R"] =
	function(a)
		if a == 1 then
			rabrick = T.P(1,1,1,"White",1,false,false)
			rw = T.W(rabrick,rtorso,1.5,.5,0,0,0,0)
			T.W(rarm,rabrick,0,-.5,0,0,0,0)
		elseif a == 2 then
			rlbrick = T.P(1,1,1,"White",1,false,false)
			rhw = T.W(rlbrick,rtorso,-.5,-1.5,0,0,0,0)
			T.W(rleg,rlbrick,0,-.5,0,0,0,0)
		elseif a == 0 then
			rs.Parent = rtorso
			rw.Parent = nil
			rabrick:Destroy() rabrick = nil
		elseif a == -1 then
			rhw.Parent = nil
			rh.Parent = rtorso
			rlbrick:Destroy() rlbrick = nil
		end
	end
	, ["L"] = function(a)
		if a == 1 then
			labrick = T.P(1,1,1,"White",1,false,false)
			lw = T.W(labrick,rtorso,-1.5,.5,0,0,0,0)
			T.W(larm,labrick,0,-.5,0,0,0,0)
		elseif a == 2 then
			llbrick = T.P(1,1,1,"White",1,false,false)
			lhw = T.W(llbrick,rtorso,.5,-1.5,0,0,0,0)
			T.W(lleg,llbrick,0,-.5,0,0,0,0)
		elseif a == 0 then
			ls.Parent = rtorso
			lw.Parent = nil
			labrick:Destroy() labrick = nil
		elseif a == -1 then
			lhw.Parent = nil
			lh.Parent = rtorso
			llbrick:Destroy() llbrick = nil
		end
	end
}

function spaas(position,radius,number,number2,color)
	mode = Instance.new("Model",m)

	for i = 1,number2 do
		pos = position+v3n(M.R(-radius,radius),M.R(-radius,radius),M.R(-radius,radius))
		mag = (position-pos).magnitude

		col = color or 'Toothpaste'
		local laz = T.P(.1,mag,.1,col,0,false,true,mode)

		T.FM(laz,'cylinder',.3,1,.3)
		laz.CFrame = (cfn(position,pos)*cfn(0,0,-mag/2))*ang(math.pi/2,0,0)

		cframe = (laz.CFrame*cfn(0,-mag/2,0)).p
		pos2 = cframe+v3n(M.R(-radius,radius),M.R(-radius,radius),M.R(-radius,radius))
		mag2 = (cframe-pos2).magnitude
		local laz2 = T.P(.1,mag2,.1,col,0,false,true,mode)
		T.FM(laz2,'cylinder',.3,1,.3)
		laz2.CFrame = (cfn(cframe,pos2)*cfn(0,0,-mag2/2))*ang(math.pi/2,0,0)

		previo = laz2
		for i = 1,number do
			cframe = (previo.CFrame*cfn(0,-mag/2,0)).p
			pos2 = cframe+v3n(M.R(-radius,radius),M.R(-radius,radius),M.R(-radius,radius))
			mag2 = (cframe-pos2).magnitude

			local laz2 = T.P(.1,mag2,.1,col,0,false,true,mode)
			T.FM(laz2,'cylinder',.3,1,.3)
			laz2.CFrame = (cfn(cframe,pos2)*cfn(0,0,-mag2/2))*ang(math.pi/2,0,0)

			previo = laz2
		end

	end
	debris:AddItem(mode,.1)
	return mode
end
function lightning(startpos,endpos,times,offse,livetime,col,dmg)
local curpos = startpos
for i = 1,times do
	mag = (startpos-endpos).magnitude offs = {-offse,offse}
	offset = v3n(offs[M.R(1,2)],offs[M.R(1,2)],offs[M.R(1,2)])
	laz = T.P(.1,.1,mag/times,col,0,false,true,m)
	if dmg then laz.Touched:connect(function(hit) damage(hit.Parent,dmg[1],dmg[2]) end) end
	apos = (cfn(curpos,endpos)*cfn(0,0,-mag/times)).p+offset
	if times == i then
		mag2 = (curpos-endpos).magnitude
		laz.Size = v3n(.1,.1,mag2)
		laz.CFrame = cfn(curpos,endpos)*cfn(0,0,-mag2/2)
	else
		laz.CFrame = cfn(curpos,apos)*cfn(0,0,-mag/times/2)
	end
	curpos = laz.CFrame*cfn(0,0,-mag/times/2).p debris:AddItem(laz,livetime)
end
end
------MESHIDS---
meshids = {["penguin"] = 15853464, ["ring"] = 3270017,
["spike"] = 1033714,["cone"] = 1082802,["crown"] = 20329976,["crossbow"] = 15886761,
["cloud"] = 1095708,["mjolnir"] = 1279013,["diamond"] = 9756362, ["hand"] = 37241605,
["fist"] = 65322375,["skull"] = 36869983,["totem"] = 35624068,["spikeb"] = 9982590,["dragon"] = 58430372,["fish"] = 31221717, ["coffee"] = 15929962,["spiral"] = 1051557,
["ramen"] = 19380188,["lightning"] = 72583597,["bullet"]=2697549,['cheese'] = 1090700,["pan"] = 24342877,["ketchup"] = 29690481,
["duck"] = 9419831,["unicorn"]=84003494}---some meshids
textureids = {["cone"] = 1082804,["rainbow"] = 28488599,["fish"] = 31221733, ["coffee"] = 24181455,["monster"] = 33366441,["ramen"] = 19380153,
["cheese"] = 1090703}
soundids = {["bell"] = 20005706,["flintlock"] = 13510352,["falcon"] = 1387390,['sensa'] = 4700455,
['midas'] = 17385513;
['spark'] = 10756118;
['boom'] = 10730819;
['plank'] = 10548112;
['harmonica1'] = 33069371;
['harmonica2'] = 33069412;
['thump'] = 10730819;
['hit'] = 2801263;
['crunch'] = 15047813;
}
function AddTag(object,tagname)	local tag = Instance.new("BoolValue",object) tag.Name = tagname return tag end
function CheckTag(object,tagname) local found = object:FindFirstChild(tagname) if found then return found else return _ end end
function RemoveTag(object,tagname) local found = CheckTag(object,tagname) if found then found:Remove() end end
for i,v in pairs(soundids) do ---Remove sounds
	for _,q in pairs(char.Head:children()) do
		if q.Name == i then q:Remove() end
	end
end
for i,v in pairs(soundids) do ----Add sounds
sound = Instance.new("Sound")
sound.SoundId = "http://www.roblox.com/asset/?id="..v
sound.Name = i
sound.Parent = char.Head
end
genNew('Sound',char.Head,{
	Name = 'slash';
	SoundId = 'rbxasset://sounds//swordslash.wav'
})

waitbp = function(a,r) while (a.Parent.Position-a.position).magnitude > r do wait() end end

M = {["R"] = function(a,b) return math.random(a,b) end,
["Cos"] = function(a) return math.cos(a) end,
["Sin"] = function(a) return math.sin(a) end,
["D"] = function(a) return math.rad(a) end
}

function findground(position,radius,ignore)
	if ignore then
		ig = ignore table.insert(ig,m)
	else ig = {m}
	end
	local ray = Ray.new(position.p,position.p+(position.p-v3n(0,200,0)).unit*radius)
	local obj,pos2 = Workspace:FindPartOnRayWithIgnoreList(ray,ig)
	if obj and pos2 then return obj,pos2 else return nil end
end
rweld = _
faketorso = _
function faketor()
	if rtorso == torso then
		torso.Transparency = 1
		faketorso = T.P(2,2,1,'White',0,false,false,char)
		rweld = T.W(faketorso,torso,0,0,0,0,0,0)
		rtorso = faketorso hw.Part1 = rtorso
		for i,v in pairs({lh,ls,rh,rs}) do v.Part0 = rtorso end
	elseif rtorso ~= torso then
		rtorso = torso
		for i,v in pairs({lh,ls,rh,rs}) do v.Part0 = rtorso end
		hw.Part1 = torso
		faketorso:Remove()
		rweld:Remove()
		torso.Transparency = 0
	end

end

function calcp(a,b) --- Direction CFrame
	return cfn(a,v3n(b.x,a.y,b.z))
end

function weldall(q)
if q == 1 then a,b = 1,2 else a,b = -1,0 end
for i = a,b do lock.R(i) lock.L(i) end
end

function speak(a,b)
game:GetService('Chat'):Chat(p,a,b)
end
function FindPlayers(a,b,c) --- Finds Players near a part
list = {}
for _,v in pairs(Workspace:children()) do
	if v:IsA("Model") then
		for _,child in pairs(v:children()) do
			if child:IsA("Humanoid") then
				if c and child.Parent ~= char then
					if (a-child.Torso.Position).magnitude < b then
					table.insert(list,child.Parent)
					end
				elseif not c then
					if (a-child.Torso.Position).magnitude < b then
					table.insert(list,child.Parent)
					end
				end
			end
		end
	end
end
return list
end
--------UTILITIES END-------
Staff = Instance.new("Model",m)

hdl = T.P(.5,4,.5,'White',0,false,false,Staff)
T.FM(hdl,'cylinder',1,1,1)
hw = T.W(hdl,rtorso,0,0,.75,0,0,M.D(-45))

p = T.P(2,2,2,'Black',0,false,false,Staff) p.Shape = 0
T.W(p,hdl,0,3,0,0,0,0)
p2 = T.P(1,1,1,'White',0,false,false,Staff)
T.FM(p2,'crown',.9,.9,.9)
T.W(p2,hdl,0,2,.2,math.pi,0,0)

hat = T.P(1,1,1,'White',0,false,false,Staff)
T.FM(hat,49927327,1,1,1,'rainbow')
T.W(hat,p,0,1.4,0,0,0,0)
hat = T.P(1,1,1,'White',0,false,false,Staff)
T.FM(hat,22053998,1.2,1,1,'rainbow')

T.W(hat,p,0,.5,-.5,0,0,0)
p2 = T.P(.5,1.5,.4,'White',0,false,false,Staff)
T.FM(p2,'sphere',1,1,1)
T.W(p2,p,0,-1,-.75,0,0,0)
mouth = T.P(.5,.1,.1,'Nougat',0,false,false,Staff)
mouth_mesh = T.FM(mouth,'sphere',1,1,1)
mouth_weld = T.W(mouth,p,0,-.5,-.8,0,0,0) mouth_weld_normal = mouth_weld.C1


equipped = false

-----------ZOMBIE MAKER FUNCTION------------
function Exorcism()
pos = torso.Position+torso.CFrame.lookVector*3+v3n(0,-3,0)

person = Instance.new("Model",Workspace)
person.Name = 'Zombie'

----PARTS-------
local hed = T.P(1,1,1,'White',0,true,false,person) hed.Name = 'Head'
Instance.new("SpecialMesh",hed).Scale = v3n(1.25,1.25,1.25)
local tor = T.P(2,2,1,'White',0,true,false,person) tor.Name = 'Torso'
local ar = T.P(1,2,1,'White',0,true,false,person) ar.Name = 'Left Arm'
q = T.W(ar,tor,-.5,0.5,0,0,math.pi/2,0,tor)
q.C0 = cfn(1,0.5,0)*ang(0,math.pi/2,0)
local ar = T.P(1,2,1,'White',0,true,false,person) ar.Name = 'Right Arm'
q2 = T.W(ar,tor,.5,0.5,0,0,math.pi/2,0,tor)
q2.C0 = cfn(-1,0.5,0)*ang(0,math.pi/2,0)

local ar = T.P(1,2,1,'White',0,true,false,person) ar.Name = 'Right Leg'
T.W(ar,tor,-.5,-2,0,0,0,0,tor)
local ar = T.P(1,2,1,'White',0,true,false,person) ar.Name = 'Left Leg'
T.W(ar,tor,.5,-2,0,0,0,0,tor)

T.W(hed,tor,0,1.5,0,0,0,0,tor)

----PARTS-------

q.MaxVelocity = .1
q.DesiredAngle = math.pi/2
q2.MaxVelocity = .1
q2.DesiredAngle = math.pi/2

local hum = Instance.new("Humanoid",person)
Instance.new("Skin",person).SkinColor = BrickColor.new('Earth green')
tor.CFrame = calcp(torso.Position+torso.CFrame.lookVector*5,torso.Position)

shirt = Instance.new('Shirt',person)
shirt.ShirtTemplate = 'http://www.roblox.com/asset/?id=79001892'

pants = Instance.new('Pants',person)
pants.PantsTemplate = 'http://www.roblox.com/asset/?id=79001892'
crown = T.P(1,1,1,'White',0,false,false)
T.FM(crown,1031410,1,1,1,1031417)
T.W(crown,hed,-.2,.85,0,0,0,M.D(20))
face = T.Dec(hed,'Front','http://www.roblox.com/asset/?id=65180938')

---DYING---
hum.Died:connect(function() wait(2) hum.Parent:Remove() end)
---DYING---
end
-----------ZOMBIE MAKER FUNCTION------------


function Equip()
	if not equipped then
		equipped = true
		hw.Part1 = rarm
		speak('At your service','Blue')
		hw.C1 = cfn(0,-1,0)*ang(-math.pi/2,0,0)
	elseif equipped then
		equipped = false
		hw.Part1 = rtorso
		hw.C1 = cfn(0,0,.75)*ang(0,0,M.D(-45))
	end
	normh = hw.C1
end
function Fly(mouse)
	bp = T.BP(torso,torso.Position)
	bg = T.BG(torso)
	holding = true
	lock.R(1) lock.L(1) 	lock.R(2) lock.L(2)
	rw.C1 = normposr*ang(0,0,M.D(30))
	lw.C1 = normposl*ang(0,0,M.D(-30))
	rhw.C1 = normposr2*ang(0,0,M.D(-30))*cfn(-.4,.1,0)
	lhw.C1 = normposl2*ang(0,0,M.D(30))*cfn(.4,.1,0)
	while holding do
		unit = (torso.Position-mouse.hit.p).unit
		bp.position = bp.position+unit*-5
		bg.cframe = cfn(torso.Position,mouse.hit.p)*ang(-math.pi/2,0,0)
		wait()
	end
	for i = -1,0 do lock.R(i) lock.L(i) end
	bp:Remove()
	bg:Remove()
end

function earthdragon(mouse)
local ground,_ = findground(torso.CFrame,10,{char})
local mag = (torso.Position-mouse.hit.p).magnitude
	if ground then
	T.C(function()
	local dragon = Instance.new("Model",m)
	local main = T.P(1,1,1,'White',1,false,true)
	local old = main
	s = 10
	T.C(function()
	while wait() do
		wait()
		if #dragon:children() > 0 then

			old.CFrame = cfn(main.Position,old.Position)
			for i,v in pairs(dragon:children()) do
				if i == #dragon:children() then
				old = v
				v.CFrame = cfn(old.Position,v.Position)*cfn(0,0,-s)
				else
				v.CFrame = cfn(old.Position,v.Position)*cfn(0,0,-s)
				end
				old = v
			end
		end
	end
	end)

		for i = 1,mag/10 do
			local cube = genNew('Part',dragon,{
				BrickColor = ground.BrickColor;
				Size = v3n(s,s,s);
				Anchored = true;
				TopSurface = ground.TopSurface;
				BottomSurface = ground.BottomSurface;
				CanCollide = false;
				Material = ground.Material;
				})
			cube.CFrame = p.CFrame
		end
		local r = mag/2
		holding = true

		local cf = cfn(torso.Position,mouse.hit.p)*cfn(0,0,-r)*ang(0,-math.pi/2,0)
		for i = 0,360-s,3 do
			wait()
			main.CFrame = cf*cfn(M.Cos(M.D(i))*r,M.Sin(M.D(i))*r,0)
		end
		dragon:Remove()
		end)
	end
end

neck2 = _
function necko(a) if a == 1 then neck2 = T.W(char.Head,faketorso,0,1.5,0,0,0,0) normposn2 = neck2.C0 elseif a == 0 then neck2:Remove() end end

ef = function(a)
	T.C(function()
		local p = T.P(1,1,1,'White',0,false,true)
		p.CFrame = a
		local msh = T.FM(p,'ring',1,1,1)
		for i,v in pairs(FindPlayers(p.Position,5)) do damage(v,5,.1) end
		for i = 1,5 do
			msh.Scale = v3n(i,i,1)
			p.Transparency = i/5
			wait()
		end
		p:Remove()
	end)
end

function Punches()
	faketor()
	lock.R(1) lock.L(1)
	hw.Part1 = torso
	o = 1*.95
	for _ = 1,5 do
	speak('One','Red')
	T.S('hit',2)
	for i = 0,1,o do
	wait()
	rweld.C1 = cfn()*ang(0,M.D(40*i),0)
	rw.C1 = normposr*ang(M.D(90*i),0,M.D(40*i))
	lw.C1 = normposl*ang(M.D(90*i),0,M.D(40*i))
	end

	ef(rarm.CFrame*cfn(0,-1,0)*ang(math.pi/2,0,0))
	for i = 1,0,-o do
	wait()
	rweld.C1 = cfn()*ang(0,M.D(40*i),0)
	rw.C1 = normposr*ang(M.D(90*i),0,M.D(40*i))
	lw.C1 = normposl*ang(M.D(90*i),0,M.D(40*i))
	end
	speak('Two','Red')
	T.S('hit',2)
	for i = 0,1,o do
	wait()
	rweld.C1 = cfn()*ang(0,M.D(-40*i),0)
	rw.C1 = normposr*ang(M.D(90*i),0,M.D(-40*i))
	lw.C1 = normposl*ang(M.D(90*i),0,M.D(-40*i))
	end
	ef(larm.CFrame*cfn(0,-1,0)*ang(math.pi/2,0,0))
	for i = 1,0,-o do
	wait()
	rweld.C1 = cfn()*ang(0,M.D(-40*i),0)
	rw.C1 = normposr*ang(M.D(90*i),0,M.D(-40*i))
	lw.C1 = normposl*ang(M.D(90*i),0,M.D(-40*i))
	end
	end
	replics = {'Even my granny punches harder!';'You Weakling!';'Do it H-A-R-D-E-R!';'U gotta do better!';'That wuldnt hurt a fly!';'YOU CANT BE SERIOUS!';'That was WAY TOO SLOW!';'You totally MISSED!';}
	speak(replics[math.random(#replics)],'Red')
	rweld.C1 = cfn()
	faketor()
	lock.R(0) lock.L(0)
end

function Kick()
faketor()
necko(1)
weldall(1)
local con = lleg.Touched:connect(function(hit) hum = damage(hit.Parent,30,.5) if hum then
hum.Sit = true
hum.Torso.Velocity = calcp(torso.Position,hum.Torso.Position).lookVector*100+v3n(0,100,0)
end
end)
o = 1/5
for i = 0,1,o do
lhw.C1 = normposl2*ang(M.D(-90*i),0,0)
rhw.C1 = normposr2*ang(M.D(45*i),0,0)
rw.C1 = normposr*ang(M.D(160*i),0,0)
lw.C1 = normposl*ang(M.D(160*i),0,0)
rweld.C1 = cfn()*ang(M.D(-20*i),0,0)
neck2.C0 = normposn2*ang(M.D(20*i),0,0)*cfn(0,0,.3*i)
wait()
end
for i = 1,0,-o do
lhw.C1 = normposl2*ang(M.D(-90*i),0,0)
rhw.C1 = normposr2*ang(M.D(45*i),0,0)
rw.C1 = normposr*ang(M.D(160*i),0,0)
lw.C1 = normposl*ang(M.D(160*i),0,0)
rweld.C1 = cfn()*ang(M.D(-20*i),0,0)
neck2.C0 = normposn2*ang(M.D(20*i),0,0)*cfn(0,0,.3*i)
wait()
end

for i = 0,1,o do
rhw.C1 = normposr2*ang(M.D(-45*i),0,0)*cfn(0,0,.4*i)
lhw.C1 = normposl2*ang(M.D(80*i),0,0)*cfn(0,-.3*i,-.2*i)
rw.C1 = normposr*ang(M.D(-60*i),0,0)
lw.C1 = normposl*ang(M.D(-60*i),0,0)
rweld.C1 = cfn()*ang(M.D(30*i),0,0)
neck2.C0 = normposn2*ang(M.D(-20*i),0,0)*cfn(0,0,-.2*i)
wait()
end
for i = 1,0,-o do
rhw.C1 = normposr2*ang(M.D(-45*i),0,0)*cfn(0,0,.4*i)
lhw.C1 = normposl2*ang(M.D(80*i),0,0)*cfn(0,-.3*i,-.2*i)
rw.C1 = normposr*ang(M.D(-60*i),0,0)
lw.C1 = normposl*ang(M.D(-60*i),0,0)
rweld.C1 = cfn()*ang(M.D(30*i),0,0)
neck2.C0 = normposn2*ang(M.D(-20*i),0,0)*cfn(0,0,-.2*i)
wait()
end
faketor() con:disconnect()
weldall(0)
end

sword = _

function SwordOut()
	lock.R(1)
	if not sword then
		speak('Time for sword training','Blue')
		for i = 0,1,.1 do
			rw.C1 = normposr*ang(M.D(90*i),0,0)
			wait()
		end
		for i = 0,1,.2 do
			rw.C1 = holdpos*ang(M.D(40*i),0,M.D(10*i))
			mouth_mesh.Scale = v3n(1,2*i,1)
			mouth_weld.C1 = mouth_weld_normal*cfn(0,.2*i,-.1*i)
			wait()
		end
		sword = Instance.new("Model",m)
		sword_hdl = T.P(.1,2,.1,'White',0,false,false,sword) T.FM(sword_hdl,'cylinder',1,1,1)
		sword_tip = T.P(.3,1,.3,'New Yeller',0,false,false,sword)

		sword_hdl_wld = T.W(sword_hdl,mouth,0,0,0,math.pi/2,0,0)
		sword_tip_wld = T.W(sword_tip,sword_hdl,0,-2.5,0,0,0,0)
		for i = 0,1,.2 do
			sword_tip.Size = v3n(.3,5*i,.3)
			sword_tip_wld.Parent,sword_tip_wld.Part1 = m,sword_hdl
			sword_tip_wld.C1 = cfn(0,3*i,0)
			sword_hdl_wld.C1 = cfn(0,0,-1.25*i)*ang(-math.pi/2+M.D(90*i),0,M.D(45*i))
			wait()
		end
		sword_hdl_wld.Part1 = rarm
		sword_hdl_wld.C1 = cfn(0,-1,0)*ang(-math.pi/2,0,0) npos = sword_hdl_wld.C1
		for i = 1,0,-.2 do
			rw.C1 = holdpos*ang(M.D(40*i),0,M.D(10*i))
			mouth_mesh.Scale = v3n(1,(2*i)+1,1)
			mouth_weld.C1 = mouth_weld_normal*cfn(0,.2*i,-.1*i)
			wait()
		end
		rw.C1 = holdpos
		lock.R(0)
	else sword:Remove() sword = nil lock.R(0)
	end
end
function Slash()
	local con = sword_tip.Touched:connect(function(hit) damage(hit.Parent,10,.1) end)
	lock.R(1) T.S('slash',1)
	for i = 0,1,1/3 do
	rw.C1 = holdpos*ang( M.D(30*i),M.D(60*i),M.D(-40*i) )
	wait()
	end
	old = rw.C1
	for i = 0,1,1/3 do
	rw.C1 = old*ang(M.D(-120*i),0,0)
	wait()
	end
	for i = 1,0,-1/3 do
	rw.C1 = old*ang(M.D(-120*i),0,0)
	wait()
	end
	for i = 1,0,-1/3 do
	rw.C1 = holdpos*ang( M.D(30*i),M.D(60*i),M.D(-40*i) )
	wait()
	end
	lock.R(0)
	con:disconnect()
end

function Grab()
if not huma then
	found = _
	for i,v in pairs(FindPlayers(torso.Position,10,'')) do
		if not found then
			found = v
		end
	end
	if found then huma = found.Humanoid
	lock.R(1)
	huma_wld = T.W(huma.Torso,torso,0,.1,-1.1,0,0,0)
	rw.C1 = holdpos*ang(M.D(30),0,M.D(30))
	sword_hdl_wld.C1 = npos*ang(0,0,M.D(90))
	huma.PlatformStand = true
	huma_con = huma.Changed:connect(function(prop) if prop == 'PlatformStand' then huma.PlatformStand = true end end)
	end
else
	speak('Muahahahaa!','Blue')
	f = T.F(p,5,3,'Magenta')
	wait(2)
	f.Parent = huma.Torso
	huma.Health = 0
	huma = _
	huma_wld:Remove()
	sword_hdl_wld.C1 = npos
	lock.R(0)
end
end
function Release()
	if huma then
		huma_wld:Remove()
		huma_con:disconnect()
		huma.PlatformStand = false
		huma = nil
		sword_hdl_wld.C1 = npos
		lock.R(0)
	end
end

function Dance()
	faketor()
	weldall(1)
	for _,v in pairs({{0,1,.2},{1,0,-.2}}) do
	for i = v[1],v[2],v[3] do
		rweld.C1 = cfn()*ang(0,M.D(90*i),0)
		rw.C1 = normposr*cfn(-.3*i,.4*i,0)*ang(0,0,M.D(120*i))
		lw.C1 = normposl*cfn(.3*i,0,0)*ang(0,0,M.D(-50*i))
		wait()
	end
	end
	for _,v in pairs({{0,1,.2},{1,0,-.2}}) do
	for i = v[1],v[2],v[3] do
		rweld.C1 = cfn()*ang(0,M.D(-90*i),0)
		lw.C1 = normposl*cfn(.3*i,0,0)*ang(0,0,M.D(-120*i))
		rw.C1 = normposr*cfn(-.3*i,.4*i,0)*ang(0,0,M.D(50*i))
		wait()
	end
	end
	faketor()
	weldall(0)
end
charge = 0
function Rasengan()
lock.R(1) lock.L(1)
	for i = 0,1,.1 do
		rw.C1 = normposr*cfn(-.2*i,0,-.3*i)*ang(M.D(90*i),0,M.D(-40*i))
		lw.C1 = normposl*cfn(.2*i,0,-.3*i)*ang(M.D(90*i),0,M.D(40*i))
		wait()
	end
	local brick = T.P(1,1,1,'Deep blue',.5,false,false)
	local wld = T.W(brick,larm,0,-1.5,0,0,0,0)
	local msh = T.FM(brick,'sphere',1,1,1)
	holding = true
	T.C(function() while holding do spaas(brick.Position,1,3,5,'New Yeller')  wait(.3) end end)
	while holding do
		if charge < 5 then
			charge = charge+1
			msh.Scale = v3n(charge,charge,charge)
		else break
		end
		wait(.5)
	end
	for i = 1,-.5,-.1 do
		rw.C1 = normposr*cfn(-.2*i,0,-.3*i)*ang(M.D(90*i),0,M.D(-40*i))
		lw.C1 = normposl*cfn(.2*i,0,-.3*i)*ang(M.D(90*i),0,M.D(40*i))
		wait()
	end
	char.Humanoid.WalkSpeed = 100
	wait(1)
	for i = -.5,0,1/5 do
		rw.C1 = normposr*cfn(-.2*i,0,-.3*i)*ang(M.D(90*i),0,M.D(-40*i))
		lw.C1 = normposl*cfn(.2*i,0,-.3*i)*ang(M.D(90*i),0,M.D(40*i))
		wait()
	end
	for i = 0,1,1/5 do
		lw.C1 = normposl*ang(M.D(90*i),0,0)
		wait()
	end
	char.Humanoid.WalkSpeed = 16
	wld:Remove()
	brick.Anchored = true
	msh.MeshId = "rbxassetid://"..meshids['spikeb']
	local cha = charge
	T.C(function()
	for i = 0,70,2 do
		msh.Scale = v3n(cha+i/2,cha+i/2,cha+i/2)
		brick.Transparency = i/70
		wait()
	end
	brick:Remove()
	end)
	charge = 0
	lock.R(0) lock.L(0)
end

---GUIS---
udim = function(a,b) return UDim2.new(a,0,b,0) end

beans,bar = 3,0
pcall(function() ply.PlayerGui.lol:Remove() end)
gui = Instance.new("ScreenGui",ply.PlayerGui)
gui.Name = 'lol'
mainframe = genNew('Frame',gui,{
	Size = udim(.1,.1);
	Position = udim(0,.5);})
sensuframe = genNew('Frame',mainframe,{
	Size = udim(.7,1);
	Position = udim(0,0);})
refillframe = genNew('Frame',mainframe,{
	Size = udim(.3,1);
	Position = udim(.7,0);})

function update(a) fr,huh,o = _,_,_
if a == 'Beans' then o = 1/3 image = 'http://www.roblox.com/asset/?id=84570235' fr = sensuframe color = 'White' huh = beans tran = 1
elseif a == 'Bar' then o = 1/5 image = '' fr = refillframe color = 'New Yeller' huh = bar tran = 0 end
	fr:ClearAllChildren()
	for i = 1-tran,huh do
	but = genNew('ImageLabel',fr,{
		Size = udim(o,1);
		Position = udim(o*(-1+i),0);
		Image = image;
		BackgroundTransparency = tran;
		BackgroundColor = BrickColor.new(color);
	})
end
end
update('Beans')
-----------
sitbp = nil
function sit()
if not sitbp then
lock.R(2) lock.L(2)
sitbp = T.BP(torso,torso.Position)
for i = 0,1,.1 do
wait()
rhw.C1 = normposr2*ang(M.D(90*i),0,M.D(-30*i))
lhw.C1 = normposl2*ang(M.D(90*i),0,M.D(30*i))
sitbp.position = torso.Position - v3n(0,.9*i,0)
end
elseif sitbp then
for i = 1,0,-.1 do
wait()
rhw.C1 = normposr2*ang(M.D(90*i),0,M.D(-30*i))
lhw.C1 = normposl2*ang(M.D(90*i),0,M.D(30*i))
sitbp.position = torso.Position - v3n(0,.9*i,0)
end
lock.R(-1) lock.L(-1)
sitbp:Remove() sitbp = nil
end
end

function Eat()
if beans > 0 then
lock.R(1)
	for i = 0,1,.1 do
		rw.C1 = normposr*ang(M.D(120*i),0,M.D(-40*i))
		wait()
	end
	T.S('crunch',1)
	beans = beans-1 update('Beans')
	hum = FindHumanoid(char,'')
	hum.Health = hum.MaxHealth
	for i = 1,0,-.1 do
		rw.C1 = normposr*ang(M.D(120*i),0,M.D(-40*i))
		wait()
	end
	lock.R(0)
else
	sit()
	speak('Refilling','Green')
	while beans < 3 do for i = 1,5 do bar = i update('Bar') wait(1) end beans=beans+1 update('Beans') bar = 0 end
	bar = 0 refillframe:ClearAllChildren()
	sit()
end
end

klist = {
	{'r',function() if sword then Release() else Equip() end end};
	{'t',function(a) earthdragon(a) end,''};
	{'q',function() Punches() end};
	{'e',function() Kick() end};
	{'f',function() SwordOut() end};
	{'c',function() Rasengan() end,''};
	{'z',function() Eat() end};
	{'g',function() if sword then Grab() else Dance() end end};
	{'j',function() Exorcism() end};
}

onButton1Down = function(mouse)
	if sword then
		Slash()
	else
		Fly(mouse)
	end
end

hop.Deselected:connect(function() lock.R(0) lock.L(0) end)
hop.Selected:connect(function(mouse)
	mouse.Button1Up:connect(function() holding = false end)
	mouse.KeyUp:connect(function(a) for i,v in pairs(klist) do if a == v[1] and v[3] ~= nil then holding = false end end end)
	mouse.KeyDown:connect(function(key)
		if attacking then return end
		for i,v in pairs(klist) do
			if key == v[1] then attacking = true v[2](mouse) attacking = false end
		end
	end)
	mouse.Button1Down:connect(function() if attacking then return end attacking = true onButton1Down(mouse) attacking = false end)
end)
--mediafire