Smart NPC

ypcall(function()
-- Main Npc Setup
math.randomseed(tick())
local npc = Instance.new("Model",workspace)
npc.Name = "NPC (Alpha Testing)"
local hum = Instance.new("Humanoid",npc)
script.Parent = npc
-- Body Parts Setup
local head = Instance.new("Part",npc)
head.Name = "Head"
head.BrickColor = BrickColor.new("Bright yellow")
head.Size = Vector3.new(2,1,1)
head.Position = Vector3.new(-6.139, 4.5, -11.435)
head.Material = "SmoothPlastic"
local headmesh = Instance.new("SpecialMesh",head)
headmesh.Scale = Vector3.new(1.25,1.25,1.25)
local face = Instance.new("Decal",head)
face.Name = "face"
face.Face = "Front"
face.Texture = "rbxasset://textures/face.png"
local larm = Instance.new("Part",npc)
larm.Name = "Left Arm"
larm.BrickColor = BrickColor.new("Bright yellow")
larm.Position = Vector3.new(-7.639, 3, -11.435)
larm.Size = Vector3.new(1,2,1)
larm.Material = "SmoothPlastic"
local rarm = Instance.new("Part",npc)
rarm.Name = "Right Arm"
rarm.BrickColor = BrickColor.new("Bright yellow")
rarm.Position = Vector3.new(-4.639, 3, -11.435)
rarm.Size = Vector3.new(1,2,1)
rarm.Material = "SmoothPlastic"
local torso = Instance.new("Part",npc)
torso.Name = "Torso"
torso.BrickColor = BrickColor.new("Bright blue")
torso.Position = Vector3.new(-6.139, 3, -11.435)
torso.Size = Vector3.new(2,2,1)
torso.Material = "SmoothPlastic"
local lleg = Instance.new("Part",npc)
lleg.Name = "Left Leg"
lleg.BrickColor = BrickColor.new("Br. yellowish green")
lleg.Position = Vector3.new(-6.639, 1, -11.435)
lleg.Size = Vector3.new(1,2,1)
lleg.Material = "SmoothPlastic"
local rleg = Instance.new("Part",npc)
rleg.Name = "Right Leg"
rleg.BrickColor = BrickColor.new("Br. yellowish green")
rleg.Position = Vector3.new(-5.639, 1, -11.435)
rleg.Size = Vector3.new(1,2,1)
rleg.Material = "SmoothPlastic"
-- Anchor parts to stop failing
for _,i in pairs(npc:GetChildren())do
    ypcall(function()i.Anchored = true end)
end
-- Motor Setups
local lhip = Instance.new("Motor",torso)
lhip.MaxVelocity = 0.1
lhip.Part0 = torso
lhip.Part1 = lleg
lhip.Name = "Left Hip"
local rhip = Instance.new("Motor",torso)
rhip.MaxVelocity = 0.1
rhip.Part0 = torso
rhip.Part1 = rleg
rhip.Name = "Right Hip"
local lshou = Instance.new("Motor",torso)
lshou.MaxVelocity = 0.15
lshou.Part0 = torso
lshou.Part1 = larm
lshou.Name = "Left Shoulder"
local rshou = Instance.new("Motor",torso)
rshou.MaxVelocity = 0.15
rshou.Part0 = torso
rshou.Part1 = rarm
rshou.Name = "Right Shoulder"
local neck = Instance.new("Motor",torso)
neck.MaxVelocity = 0.1
neck.Part0 = torso
neck.Part1 = head
neck.Name = "Neck"
-- CFrame Motor Setups
neck.C0 = CFrame.new(0, 1, 0, -1, 0, 0, 0, 0, 1, 0, 1, -0)
neck.C1 = CFrame.new(0, -0.5, 0, -1, 0, 0, 0, 0, 1, 0, 1, -0)
lhip.C0 = CFrame.new(-1, -1, 0, 0, 0, -1, 0, 1, 0, 1, 0, 0)
lhip.C1 = CFrame.new(-0.5, 1, 0, 0, 0, -1, 0, 1, 0, 1, 0, 0)
rhip.C0 = CFrame.new(1, -1, 0, 0, 0, 1, 0, 1, -0, -1, 0, 0)
rhip.C1 = CFrame.new(0.5, 1, 0, 0, 0, 1, 0, 1, -0, -1, 0, 0)
lshou.C0 = CFrame.new(-1, 0.5, 0, 0, 0, -1, 0, 1, 0, 1, 0, 0)
lshou.C1 = CFrame.new(0.5, 0.5, 0, 0, 0, -1, 0, 1, 0, 1, 0, 0)
rshou.C0 = CFrame.new(1, 0.5, 0, 0, 0, 1, 0, 1, -0, -1, 0, 0)
rshou.C1 = CFrame.new(-0.5, 0.5, 0, 0, 0, 1, 0, 1, -0, -1, 0, 0)
-- Unanchor to release NPC
for _,i in pairs(npc:GetChildren())do
    ypcall(function()i.Anchored = false end)
end
-- Setup Walking Script
local CurrentPart = nil
local MaxInc = 16

function onTouched(hit)
    if hit.Parent == nil then
        return
    end

    local humanoid = hit.Parent:findFirstChild("Humanoid")

    if humanoid == nil then
        CurrentPart = hit
    end
end

function waitForChild(parent, childName)
    local child = parent:findFirstChild(childName)

    if child then
        return child
    end

    while true do
        print(childName)

        child = parent.ChildAdded:wait()

        if child.Name==childName then
            return child
        end
    end
end

local Figure = script.Parent
local Humanoid = waitForChild(Figure, "Humanoid")
local Torso = waitForChild(Figure, "Torso")
local Left = waitForChild(Figure, "Left Leg")
local Right = waitForChild(Figure, "Right Leg")
Humanoid.Jump = true
Left.Touched:connect(onTouched)
Right.Touched:connect(onTouched)
local loop1 = coroutine.wrap(function()
    while true do
        wait(math.random(2, 4))
        if CurrentPart ~= nil then
            if math.random(1, 2) == 1 then
                Humanoid.Jump = true
            end

            Humanoid:MoveTo(Torso.Position + Vector3.new(math.random(-MaxInc, MaxInc), 0, math.random(-MaxInc, MaxInc)), CurrentPart)
        end
    end
end)
loop1()
-- NPC Cleanup on Death
hum.Died:connect(function()
    wait(5)
    npc:ClearAllChildren()
    npc.Name = "null"
    npc:Destroy()
end)
-- NPC Animation
function   waitForChild(parent, childName)
    local child = parent:findFirstChild(childName)
    if child then return child end
    while true do
        child = parent.ChildAdded:wait()
        if child.Name==childName then return child end
    end
end
local Figure = script.Parent
local Torso = waitForChild(Figure, "Torso")
local RightShoulder = waitForChild(Torso, "Right Shoulder")
local LeftShoulder = waitForChild(Torso, "Left Shoulder")
local RightHip = waitForChild(Torso, "Right Hip")
local LeftHip = waitForChild(Torso, "Left Hip")
local Neck = waitForChild(Torso, "Neck")
local Humanoid = waitForChild(Figure, "Humanoid")
local pose = "Standing"
local currentAnim = ""
local currentAnimTrack = nil
local currentAnimKeyframeHandler = nil
local currentAnimSpeed = 1.0
local animTable = {}
local animNames = {
    idle =  {
                { id = "http://www.roblox.com/asset/?id=125750544", weight = 9 },
                { id = "http://www.roblox.com/asset/?id=125750618", weight = 1 }
            },
    walk =  {
                { id = "http://www.roblox.com/asset/?id=125749145", weight = 10 }
            },
    run =   {
                { id = "run.xml", weight = 10 }
            },
    jump =  {
                { id = "http://www.roblox.com/asset/?id=125750702", weight = 10 }
            },
    fall =  {
                { id = "http://www.roblox.com/asset/?id=125750759", weight = 10 }
            },
    climb = {
                { id = "http://www.roblox.com/asset/?id=125750800", weight = 10 }
            },
    sit =   {
                { id = "http://www.roblox.com/asset/?id=178130996", weight = 10 }
            },
    toolnone = {
                { id = "http://www.roblox.com/asset/?id=125750867", weight = 10 }
            },
    toolslash = {
                { id = "http://www.roblox.com/asset/?id=129967390", weight = 10 }
            },
    toollunge = {
                { id = "http://www.roblox.com/asset/?id=129967478", weight = 10 }
            },
    wave = {
                { id = "http://www.roblox.com/asset/?id=128777973", weight = 10 }
            },
    point = {
                { id = "http://www.roblox.com/asset/?id=128853357", weight = 10 }
            },
    dance = {
                { id = "http://www.roblox.com/asset/?id=130018893", weight = 10 },
                { id = "http://www.roblox.com/asset/?id=132546839", weight = 10 },
                { id = "http://www.roblox.com/asset/?id=132546884", weight = 10 }
            },
    dance2 = {
                { id = "http://www.roblox.com/asset/?id=160934142", weight = 10 },
                { id = "http://www.roblox.com/asset/?id=160934298", weight = 10 },
                { id = "http://www.roblox.com/asset/?id=160934376", weight = 10 }
            },
    dance3 = {
                { id = "http://www.roblox.com/asset/?id=160934458", weight = 10 },
                { id = "http://www.roblox.com/asset/?id=160934530", weight = 10 },
                { id = "http://www.roblox.com/asset/?id=160934593", weight = 10 }
            },
    laugh = {
                { id = "http://www.roblox.com/asset/?id=129423131", weight = 10 }
            },
    cheer = {
                { id = "http://www.roblox.com/asset/?id=129423030", weight = 10 }
            },
}
local emoteNames = { wave = false, point = false, dance = true, dance2 = true, dance3 = true, laugh = false, cheer = false}
math.randomseed(tick())
function configureAnimationSet(name, fileList)
    if (animTable[name] ~= nil) then
        for _, connection in pairs(animTable[name].connections) do
            connection:disconnect()
        end
    end
    animTable[name] = {}
    animTable[name].count = 0
    animTable[name].totalWeight = 0
    animTable[name].connections = {}
    local config = script:FindFirstChild(name)
    if (config ~= nil) then
        table.insert(animTable[name].connections, config.ChildAdded:connect(function(child) configureAnimationSet(name, fileList) end))
        table.insert(animTable[name].connections, config.ChildRemoved:connect(function(child) configureAnimationSet(name, fileList) end))
        local idx = 1
        for _, childPart in pairs(config:GetChildren()) do
            if (childPart:IsA("Animation")) then
                table.insert(animTable[name].connections, childPart.Changed:connect(function(property) configureAnimationSet(name, fileList) end))
                animTable[name][idx] = {}
                animTable[name][idx].anim = childPart
                local weightObject = childPart:FindFirstChild("Weight")
                if (weightObject == nil) then
                    animTable[name][idx].weight = 1
                else
                    animTable[name][idx].weight = weightObject.Value
                end
                animTable[name].count = animTable[name].count + 1
                animTable[name].totalWeight = animTable[name].totalWeight + animTable[name][idx].weight
                idx = idx + 1
            end
        end
    end
    if (animTable[name].count <= 0) then
        for idx, anim in pairs(fileList) do
            animTable[name][idx] = {}
            animTable[name][idx].anim = Instance.new("Animation")
            animTable[name][idx].anim.Name = name
            animTable[name][idx].anim.AnimationId = anim.id
            animTable[name][idx].weight = anim.weight
            animTable[name].count = animTable[name].count + 1
            animTable[name].totalWeight = animTable[name].totalWeight + anim.weight
        end
    end
end
function scriptChildModified(child)
    local fileList = animNames[child.Name]
    if (fileList ~= nil) then
        configureAnimationSet(child.Name, fileList)
    end
end
script.ChildAdded:connect(scriptChildModified)
script.ChildRemoved:connect(scriptChildModified)
for name, fileList in pairs(animNames) do
    configureAnimationSet(name, fileList)
end
local toolAnim = "None"
local toolAnimTime = 0
local jumpAnimTime = 0
local jumpAnimDuration = 0.3
local toolTransitionTime = 0.1
local fallTransitionTime = 0.3
local jumpMaxLimbVelocity = 0.75
function stopAllAnimations()
    local oldAnim = currentAnim
    if (emoteNames[oldAnim] ~= nil and emoteNames[oldAnim] == false) then
        oldAnim = "idle"
    end
    currentAnim = ""
    if (currentAnimKeyframeHandler ~= nil) then
        currentAnimKeyframeHandler:disconnect()
    end
    if (currentAnimTrack ~= nil) then
        currentAnimTrack:Stop()
        currentAnimTrack:Destroy()
        currentAnimTrack = nil
    end
    return oldAnim
end
function setAnimationSpeed(speed)
    if speed ~= currentAnimSpeed then
        currentAnimSpeed = speed
        currentAnimTrack:AdjustSpeed(currentAnimSpeed)
    end
end
function keyFrameReachedFunc(frameName)
    if (frameName == "End") then
        local repeatAnim = stopAllAnimations()
        local animSpeed = currentAnimSpeed
        playAnimation(repeatAnim, 0.0, Humanoid)
        setAnimationSpeed(animSpeed)
    end
end
function playAnimation(animName, transitionTime, humanoid)
    local idleFromEmote = (animName == "idle" and emoteNames[currentAnim] ~= nil)
    if (animName ~= currentAnim and not idleFromEmote) then
        if (currentAnimTrack ~= nil) then
            currentAnimTrack:Stop(transitionTime)
            currentAnimTrack:Destroy()
        end
        currentAnimSpeed = 1.0
        local roll = math.random(1, animTable[animName].totalWeight)
        local origRoll = roll
        local idx = 1
        while (roll > animTable[animName][idx].weight) do
            roll = roll - animTable[animName][idx].weight
            idx = idx + 1
        end
        local anim = animTable[animName][idx].anim
        currentAnimTrack = humanoid:LoadAnimation(anim)
        currentAnimTrack:Play(transitionTime)
        currentAnim = animName
        if (currentAnimKeyframeHandler ~= nil) then
            currentAnimKeyframeHandler:disconnect()
        end
        currentAnimKeyframeHandler = currentAnimTrack.KeyframeReached:connect(keyFrameReachedFunc)
    end
end
local toolAnimName = ""
local toolAnimTrack = nil
local currentToolAnimKeyframeHandler = nil
function toolKeyFrameReachedFunc(frameName)
    if (frameName == "End") then
        local repeatAnim = stopToolAnimations()
        playToolAnimation(repeatAnim, 0.0, Humanoid)
    end
end
function playToolAnimation(animName, transitionTime, humanoid)
    if (animName ~= toolAnimName) then
        if (toolAnimTrack ~= nil) then
            toolAnimTrack:Stop()
            toolAnimTrack:Destroy()
            transitionTime = 0
        end
        local roll = math.random(1, animTable[animName].totalWeight)
        local origRoll = roll
        local idx = 1
        while (roll > animTable[animName][idx].weight) do
            roll = roll - animTable[animName][idx].weight
            idx = idx + 1
        end
        local anim = animTable[animName][idx].anim
        toolAnimTrack = humanoid:LoadAnimation(anim)
        toolAnimTrack:Play(transitionTime)
        toolAnimName = animName
        currentToolAnimKeyframeHandler = toolAnimTrack.KeyframeReached:connect(toolKeyFrameReachedFunc)
    end
end
function stopToolAnimations()
    local oldAnim = toolAnimName
    if (currentToolAnimKeyframeHandler ~= nil) then
        currentToolAnimKeyframeHandler:disconnect()
    end
    toolAnimName = ""
    if (toolAnimTrack ~= nil) then
        toolAnimTrack:Stop()
        toolAnimTrack:Destroy()
        toolAnimTrack = nil
    end
    return oldAnim
end
function onRunning(speed)
    if speed>0.01 then
        playAnimation("walk", 0.1, Humanoid)
        pose = "Running"
    else
        playAnimation("idle", 0.1, Humanoid)
        pose = "Standing"
    end
end
function onDied()
    pose = "Dead"
end
function onJumping()
    playAnimation("jump", 0.1, Humanoid)
    jumpAnimTime = jumpAnimDuration
    pose = "Jumping"
end
function onClimbing(speed)
    playAnimation("climb", 0.1, Humanoid)
    setAnimationSpeed(speed / 12.0)
    pose = "Climbing"
end
function onGettingUp()
    pose = "GettingUp"
end
function onFreeFall()
    if (jumpAnimTime <= 0) then
        playAnimation("fall", fallTransitionTime, Humanoid)
    end
    pose = "FreeFall"
end
function onFallingDown()
    pose = "FallingDown"
end
function onSeated()
    pose = "Seated"
end
function onPlatformStanding()
    pose = "PlatformStanding"
end
function onSwimming(speed)
    if speed>0 then
        pose = "Running"
    else
        pose = "Standing"
    end
end
function getTool()
    for _, kid in ipairs(Figure:GetChildren()) do
        if kid.className == "Tool" then return kid end
    end
    return nil
end
function getToolAnim(tool)
    for _, c in ipairs(tool:GetChildren()) do
        if c.Name == "toolanim" and c.className == "StringValue" then
            return c
        end
    end
    return nil
end
function animateTool()
    if (toolAnim == "None") then
        playToolAnimation("toolnone", toolTransitionTime, Humanoid)
        return
    end
    if (toolAnim == "Slash") then
        playToolAnimation("toolslash", 0, Humanoid)
        return
    end
    if (toolAnim == "Lunge") then
        playToolAnimation("toollunge", 0, Humanoid)
        return
    end
end
function moveSit()
    RightShoulder.MaxVelocity = 0.15
    LeftShoulder.MaxVelocity = 0.15
    RightShoulder:SetDesiredAngle(3.14 /2)
    LeftShoulder:SetDesiredAngle(-3.14 /2)
    RightHip:SetDesiredAngle(3.14 /2)
    LeftHip:SetDesiredAngle(-3.14 /2)
end
local lastTick = 0
function move(time)
    local amplitude = 1
    local frequency = 1
    local deltaTime = time - lastTick
    lastTick = time
    local climbFudge = 0
    local setAngles = false
    if (jumpAnimTime > 0) then
        jumpAnimTime = jumpAnimTime - deltaTime
    end
    if (pose == "FreeFall" and jumpAnimTime <= 0) then
        playAnimation("fall", fallTransitionTime, Humanoid)
    elseif (pose == "Seated") then
        playAnimation("sit", 0.5, Humanoid)
        return
    elseif (pose == "Running") then
        playAnimation("walk", 0.1, Humanoid)
    elseif (pose == "Dead" or pose == "GettingUp" or pose == "FallingDown" or pose == "Seated" or pose == "PlatformStanding") then
        stopAllAnimations()
        amplitude = 0.1
        frequency = 1
        setAngles = true
    end
    if (setAngles) then
        desiredAngle = amplitude * math.sin(time * frequency)
        RightShoulder:SetDesiredAngle(desiredAngle + climbFudge)
        LeftShoulder:SetDesiredAngle(desiredAngle - climbFudge)
        RightHip:SetDesiredAngle(-desiredAngle)
        LeftHip:SetDesiredAngle(-desiredAngle)
    end
    local tool = getTool()
    if tool then
        animStringValueObject = getToolAnim(tool)
        if animStringValueObject then
            toolAnim = animStringValueObject.Value
            animStringValueObject.Parent = nil
            toolAnimTime = time + .3
        end
        if time > toolAnimTime then
            toolAnimTime = 0
            toolAnim = "None"
        end
        animateTool()
    else
        stopToolAnimations()
        toolAnim = "None"
        toolAnimTime = 0
    end
end
Humanoid.Died:connect(onDied)
Humanoid.Running:connect(onRunning)
Humanoid.Jumping:connect(onJumping)
Humanoid.Climbing:connect(onClimbing)
Humanoid.GettingUp:connect(onGettingUp)
Humanoid.FreeFalling:connect(onFreeFall)
Humanoid.FallingDown:connect(onFallingDown)
Humanoid.Seated:connect(onSeated)
Humanoid.PlatformStanding:connect(onPlatformStanding)
Humanoid.Swimming:connect(onSwimming)
local runService = game:service("RunService");
playAnimation("idle", 0.1, Humanoid)
pose = "Standing"
while Figure.Parent~=nil do
    local _, time = wait(0.1)
    move(time)
end
-- Auto Heal
local loop2 = coroutine.wrap(function()
    while true do
        wait(1)
        if hum.Health<hum.MaxHealth then
            hum.Health = hum.Health + hum.MaxHealth / 100
        end
    end
end)
loop2()
end)