KoopaCar - RBXLUA

-- > CREATED BY WULFBUG9 2014
-- > Seriously, I made this. (wulfbug9)
-- > I'm releasing a ton of my other scripts on this pastebin, too. So go check them out.
function rand(a)return (math.random()-.5)*2*a end
function q(f,arg)return coroutine.resume(coroutine.create(f),unpack(arg or {}))end
function fade(p,s)q(function(part,start)for i=start,1,.05 do part.Transparency = part.Transparency+0.05 wait(1/30)end end,{p,s})end
function appear(p,s)q(function(part,start)for i=start,0,-.05 do part.Transparency = part.Transparency-0.05 wait(1/30)end end,{p,s})end
function Part(Name,Parent,Size,CFrame,Color,Trans,Anch,Can,Mat,Ref)
    local p = Instance.new("Part",Parent)p.Name = Name
    p.FormFactor = "Custom"p.Size = Size
    p.Anchored = Anch p.CFrame = CFrame
    p.BrickColor = BrickColor.new(Color)p.Transparency = Trans
    p.TopSurface = 0 p.CanCollide = Can
    p.BottomSurface = 0 p.Material = Mat
    p.Reflectance = Ref or 0;p:BreakJoints()
    p.Locked = true;return p
end
function WedgePart(Name,Parent,Size,CFrame,Color,Trans,Anch,Can,Mat,Ref)
    local p = Instance.new("WedgePart",Parent)p.Name = Name
    p.FormFactor = "Custom"p.Size = Size
    p.Anchored = Anch p.CFrame = CFrame
    p.BrickColor = BrickColor.new(Color)p.Transparency = Trans
    p.TopSurface = 0 p.CanCollide = Can
    p.BottomSurface = 0 p.Material = Mat
    p.Reflectance = Ref or 0;p:BreakJoints()
    p.Locked = true;return p
end
function CornerWedgePart(Name,Parent,Size,CFrame,Color,Trans,Anch,Can,Mat,Ref)
    local p = Instance.new("CornerWedgePart",Parent)p.Name = Name;p.Size = Size
    p.Anchored = Anch p.CFrame = CFrame
    p.BrickColor = BrickColor.new(Color)p.Transparency = Trans
    p.TopSurface = 0 p.CanCollide = Can
    p.BottomSurface = 0 p.Material = Mat
    p.Reflectance = Ref or 0;p:BreakJoints()
    p.Locked = true;return p
end
function Mesh(Parent,Type,Scale,ID,TID)
    local m = Instance.new("SpecialMesh",Parent)m.MeshType = Type
    m.Scale = Scale or Vector3.new(1,1,1)
    if ID then m.MeshId = ID end if TID then m.TextureId = TID end
    return m
end
function Weld(p1,p2,c0,c1)
    local w = Instance.new("Weld",p1)w.Part0 = p1;w.Part1 = p2
    w.C0,w.C1 = c0 or CFrame.new(),c1 or CFrame.new()
    return w
end
function cslerp(c1,c2,t)
    local function s(a,b,c)return (1-c)*a+(c*b)end
    local com1 = {c1.X,c1.Y,c1.Z,c1:toEulerAnglesXYZ()}
    local com2 = {c2.X,c2.Y,c2.Z,c2:toEulerAnglesXYZ()}
    for i,v in pairs(com1)do com1[i] = s(v,com2[i],t)end
    return CFrame.new(com1[1],com1[2],com1[3])*CFrame.Angles(select(4,unpack(com1)))
end
local char
---------------------------------------------
player = game:service("Players").LocalPlayer
repeat wait() char = player.Character until char
pcall(function()char:FindFirstChild("Animate"):Destroy()end)
root = char:WaitForChild("HumanoidRootPart")
torso = char:WaitForChild("Torso")
humanoid = char:WaitForChild("Humanoid")
mouse = player:GetMouse()
step = game:service("RunService").Stepped
asset = "http://www.roblox.com/asset/?id="
meshes = {["blast"] = 20329976,["ring"] = 3270017,["spike"] = 1033714,["cone"] = 1082802,["crown"] = 20329976,["cloud"] = 1095708,["diamond"] = 9756362}
sounds = {["explode"] = 130792180;}
colour = "White"
scolour = tostring(BrickColor.random())--"Lime green"
Attacking = false
local bv,bp,bg
hover = 10
carspeed = 60
keysdown = {}
c0ls = CFrame.new(-1,0.5,0)*CFrame.Angles(math.pi/6,0,0)
c0rs = CFrame.new(1,0.5,0)*CFrame.Angles(math.pi/6,0,0)
c1ls = CFrame.new(0.5,0.5,0)
c1rs = CFrame.new(-0.5,0.5,0)
c0tw = CFrame.new(0,0,0)
c1tw = CFrame.new(0,0,0)
rs = Weld(torso,char:WaitForChild("Right Arm"),c0rs,c1rs)
ls = Weld(torso,char:WaitForChild("Left Arm"),c0ls,c1ls)
tw = Weld(root,torso,c0tw,c1tw)
---------------------------------------------
function Smoke(origin,color)
    local p = Part("Effect",workspace,Vector3.new(2,2,2),origin*CFrame.new(rand(10),-1,rand(10)),color or "Black",.1,false,false,"SmoothPlastic")
    local m = Mesh(p,"Sphere",Vector3.new(1.25,1.25,1.25))
    local bp = Instance.new("BodyPosition",p)bp.D = 100 bp.P = 100 bp.position = p.Position+Vector3.new(0,7,0)
    q(function(pa,me)
        fade(pa,.1)
        for i=25,100 do
            me.Scale = me.Scale+Vector3.new(0.15,0.1,0.15)
            wait(1/30)
        end
        pa:Destroy()
    end,{p,m})
end
function crownExplode(origin,color,size)
    local p = Part("Effect",workspace,Vector3.new(size,size,size),origin,color,.2,true,false,"SmoothPlastic")
    local m = Mesh(p,"FileMesh",Vector3.new(size/2,size/2,size/2),asset..meshes["crown"])
    q(function(pa,me)
        for i=.2,1,.025 do
            me.Scale = me.Scale+Vector3.new(0.75,0.75,0.75)
            pa.Transparency = i
            wait(1/30)
        end
        pa:Destroy()
    end,{p,m})
end
function quickSound(id,v)
    local s = Instance.new("Sound",workspace)
    s.SoundId = id
    s.PlayOnRemove = true
    s.Volume = v or 1
    delay(0.025,function()s:remove()end)
end
function checkDmgArea(origin,dmg,d)
    for i,v in pairs(workspace:children())do
        if v~=char and v:FindFirstChild("Torso") then
            local h;
            for _,k in pairs(v:children())do if k:IsA("Humanoid") then h = k end end
            local dist = (origin.p - v:FindFirstChild("Torso").CFrame.p).magnitude
            if dist < d and h~=nil then
                h.Health = h.Health - dmg
            end
        end
    end
end
function Shoot(start,dmg)
    dmg = dmg or 15
    local vel = start.lookVector
    local p = Part("Bullet",workspace,Vector3.new(4,4,4),start,"Black",0,true,false,"SmoothPlastic")
    local m = Mesh(p,"Sphere")
    local num = 0
    local ign = char:children()
    local connect
    connect = step:connect(function()
        num = num + 1
        local pp = p.Position
        local h,po
        vel = vel - Vector3.new(0,math.min(999.5,vel.magnitude/50),0)
        repeat
            local r = Ray.new(pp,vel.unit*math.min(999.5,vel.magnitude/100+4))
            h,po = workspace:FindPartOnRayWithIgnoreList(r,ign)
            if h then
                if h.CanCollide then break
                else table.insert(ign,h)h = nil
                end
            else break
            end
        until false
        p.CFrame = CFrame.new(po,po+vel)
        q(function(b)
            local a = b:Clone()
            a.Parent = workspace
            for i=1,-.05,-.05 do
                wait()
                a:FindFirstChild("Mesh").Scale = Vector3.new(i,i,i)
                a.Transparency = a.Transparency + .05
            end
            a:Destroy()
        end,{p})
        if h or num > 300 then
            local cf = p.CFrame
            for i=1,3 do Smoke(cf*CFrame.new(0,4,0),"Black")end
            crownExplode(CFrame.new(cf.x,cf.y,cf.z),"Black",2)
            quickSound(asset..sounds["explode"],2)
            checkDmgArea(cf,dmg,10)
            p:Destroy()
            connect:disconnect()
        end
    end)
end
function Fire()
    Attacking = true
    for i=1,10 do
        wait(1/30)
        local speed = i/10
        rs.C0 = cslerp(rs.C0,c0rs*CFrame.Angles(-math.pi/2.5,0,0),speed)
        ls.C0 = cslerp(ls.C0,c0ls*CFrame.Angles(-math.pi/2.5,0,0),speed)
        tw.C0 = cslerp(tw.C0,c0tw*CFrame.Angles(0,math.pi/2,0),speed)
    end
    local b = Part("Bullet",char,Vector3.new(4,4,4),torso.CFrame,"Black",0,false,false,"SmoothPlastic")
    Mesh(b,"Sphere")
    local w = Weld(torso,b,CFrame.new(0,0,-.5))
    for i=1,5 do
        wait(1/30)
        local speed = i/5
        rs.C0 = cslerp(rs.C0,c0rs*CFrame.Angles(math.pi/2.5,0,0),speed)
        ls.C0 = cslerp(ls.C0,c0ls*CFrame.Angles(math.pi/2.5,0,0),speed)
        tw.C0 = cslerp(tw.C0,c0tw,speed)
        w.C0 = cslerp(w.C0,CFrame.new(0,5,-3),speed)
    end
    Shoot(b.CFrame,52.5)
    b:Destroy()
    for i=1,10 do
        wait(1/30)
        local speed = i/20
        rs.C0 = cslerp(rs.C0,c0rs,speed)
        ls.C0 = cslerp(ls.C0,c0ls,speed)
        tw.C0 = cslerp(tw.C0,c0tw,speed)
    end
    Attacking = false
end
---------------------------------------------
pcall(function()char:FindFirstChild("CAR"):Destroy()end)
model = Instance.new("Model",char)
model.Name = "CAR"
base = Part("P",model,Vector3.new(6,6,6),torso.CFrame*CFrame.new(6,6,0),colour,0,false,false,"Plastic")
torso.CFrame = base.CFrame
basem = Mesh(base,"Sphere",Vector3.new(1,.5,1))
side = Part("P",model,Vector3.new(6,2,6),torso.CFrame*CFrame.new(6,6,0),colour,0,false,false,"Plastic")
sidem = Mesh(side,"FileMesh",Vector3.new(5.375,5.375,20),asset..meshes["ring"])
sidew = Weld(base,side,CFrame.new(0,1,0)*CFrame.Angles(math.pi/2,0,0))
side2 = Part("P",model,Vector3.new(6,2,6),torso.CFrame*CFrame.new(6,6,0),scolour,0,false,false,"Plastic")
side2m = Mesh(side2,"FileMesh",Vector3.new(5.375,5.375,5),asset..meshes["ring"])
side2w = Weld(side,side2,CFrame.new(0,0,-1.25))
under = Part("P",model,Vector3.new(2,6,2),torso.CFrame*CFrame.new(6,6,0),scolour,0,false,false,"Plastic")
underm = Mesh(under,"FileMesh",Vector3.new(2,6,2),asset..meshes["spike"])
underw = Weld(base,under,CFrame.new(0,-1,0)*CFrame.Angles(math.pi,0,0))
prop = Part("P",model,Vector3.new(0.5,0,4),torso.CFrame*CFrame.new(6,6,0),scolour,0,false,false,"Plastic")
propm = Mesh(prop,"Sphere")
propw = Weld(under,prop,CFrame.new(0,2.25,0))
torweld = Weld(base,root,CFrame.new(0,3,-1))
bp = Instance.new("BodyPosition")
bp.maxForce = Vector3.new(0,1/0,0)
bv = Instance.new("BodyVelocity")
bv.maxForce = Vector3.new(1/0,0,1/0)
bg = Instance.new("BodyGyro")
bg.maxTorque = Vector3.new(1/0,1/0,1/0)
humanoid.WalkSpeed = 0
---------------------------------------------
mouse.KeyDown:connect(function(key)
    key:lower()
    keysdown[key] = true
end)
mouse.KeyUp:connect(function(key)
    key:lower()
    keysdown[key] = false
end)
mouse.Button1Down:connect(function()
    if not Attacking then
        Fire()
    end
end)
local function bn(key) return keysdown[key]and 1 or 0 end
---------------------------------------------
step:connect(function()
    hover = hover-bn("e")+bn("q")
    bp.Parent,bg.Parent,bv.Parent = base,base,base
    bp.position = Vector3.new(0,math.sin(tick())+hover,0)
    bg.cframe = workspace.CurrentCamera.CoordinateFrame
    local vel = workspace.CurrentCamera.CoordinateFrame:vectorToWorldSpace(Vector3.new(0-bn("a")+bn("d"),0,0-bn("w")+bn("s")))*Vector3.new(1,0,1)
    bv.velocity = (vel.magnitude > 0 and vel.unit*carspeed)or Vector3.new(0,0,0)
    propw.C0 = propw.C0*CFrame.Angles(0,.2,0)
end)