Scripting Helpers is winding down operations and is now read-only. More info→

Ai following one player please help?

Asked by

6 years ago

I´m creating a horror game, i created a mian script who works for all ai on a folder but i have a problem it follows only one player and ignore the others players

001local Distance = 40
002 
003local Damage = 100 
004 
005local scaryimg = game.ReplicatedStorage:WaitForChild("ScaryPlayer")
006 
007local candamage = true
008 
009local Wander = true
010local WanderX, WanderZ = 10, 10
011 
012function Added(Monsters)
013    spawn(function()
014 
015    function getHumanoid(model)
016        for _, v in pairs(model:GetChildren()) do
017            if v:IsA'Humanoid' --[[v:FindFirstChild("Humanoid")]] then
018                return v
019            end
020        end
021    end
022 
023    local zombie = Monsters
024 
025    local human = getHumanoid(zombie)
026    local hroot = zombie:FindFirstChild("HumanoidRootPart")
027    local zspeed = hroot.Velocity.magnitude
028 
029 
030    local pfs = game:GetService("PathfindingService")
031 
032    function GetPlayerNames()
033        local players = game:GetService('Players'):GetChildren()
034        local name = nil
035        for _, v in pairs(players) do
036            if v:IsA'Player' then
037                name = tostring(v.Name)
038            end
039        end
040        return name
041    end
042    function GetPlayersBodyParts(t)
043        local torso = t
044        if torso then
045            local figure = torso.Parent
046            if figure then
047            for _, v in pairs(figure:GetChildren()) do
048                if v:IsA'Part' then
049                    return v.Name
050                end
051                end
052            end
053        else
054            return "HumanoidRootPart"
055        end
056    end
057 
058    function GetTorso(part)
059        local chars = game.Workspace:GetChildren()
060        local torso = nil
061        for _, v in pairs(chars) do
062            if v:IsA'Model' and v ~= script.Parent and v.Name == GetPlayerNames() then
063                local charRoot = v:FindFirstChild'HumanoidRootPart'
064                if (charRoot.Position - part).magnitude < Distance then
065                    torso = charRoot
066                end
067            end
068        end
069        return torso
070    end
071 
072    local path
073    local waypoint
074    local oldpoints
075    local isWandering = 0
076 
077    if Wander then
078        spawn(function()
079            while isWandering == 0 do
080                isWandering = 1
081                local desgx, desgz = hroot.Position.x + math.random(-WanderX, WanderX), hroot.Position.z + math.random(-WanderZ, WanderZ)
082                human:MoveTo( Vector3.new(desgx, 0, desgz) )
083                wait(math.random(4, 6))
084                isWandering = 0
085            end
086        end)
087    end
088 
089    while wait() do
090        local enemytorso = GetTorso(hroot.Position) 
091        if enemytorso ~= nil then -- if player detected
092            isWandering = 1
093            local function checkw(t)
094                local ci = 3
095                if ci > #t then
096                    ci = 3
097                end
098                if t[ci] == nil and ci < #t then
099                    repeat
100                        ci = ci + 1
101                        wait()
102                    until t[ci] ~= nil
103                    return Vector3.new(1, 0, 0) + t[ci]
104                else
105                    ci = 3
106                    return t[ci]
107                end
108            end
109 
110            path = pfs:FindPathAsync(hroot.Position, enemytorso.Position)
111            waypoint = path:GetWaypoints()
112            oldpoints = waypoint
113            local connection;
114 
115            local direct = Vector3.FromNormalId(Enum.NormalId.Front)
116            local ncf = hroot.CFrame * CFrame.new(direct)
117            direct = ncf.p.unit
118            local rootr = Ray.new(hroot.Position, direct)
119            local phit, ppos = game.Workspace:FindPartOnRay(rootr, hroot)
120 
121            if path and waypoint or checkw(waypoint) then
122                if checkw(waypoint) ~= nil and checkw(waypoint).Action == Enum.PathWaypointAction.Walk then
123                    human:MoveTo( checkw(waypoint).Position )
124                    human.Jump = false
125                end
126 
127                if checkw(waypoint) ~= nil and checkw(waypoint).Action == Enum.PathWaypointAction.Jump then
128                    human.Jump = true
129                    connection = human.Changed:connect(function()
130                        human.Jump = true
131                    end)
132                    human:MoveTo( checkw(waypoint).Position )
133                else
134                    human.Jump = false
135                end
136 
137                hroot.Touched:connect(function(p)
138                    local bodypartnames = GetPlayersBodyParts(enemytorso)
139                    if p:IsA'Part' and not p.Name == bodypartnames and phit and phit.Name ~= bodypartnames and phit:IsA'Part' and rootr:Distance(phit.Position) < 5 then
140                        connection = human.Changed:connect(function()
141                            human.Jump = true
142                        end)
143                    else
144                        human.Jump = false
145                    end
146                end)
147 
148                if connection then
149                    connection:Disconnect()
150                end
151 
152            else
153                for i = 3, #oldpoints do
154                    human:MoveTo( oldpoints[i].Position )   
155                end
156            end
157        elseif enemytorso == nil and canWander then -- if player not detected
158            isWandering = 0
159            path = nil
160            waypoint = nil
161            human.MoveToFinished:Wait()
162        end
163    end
164    end)
165end
166 
167workspace.AiEnemys.ChildAdded:connect(Added)
168 
169for _,Monsters in pairs(workspace.AiEnemys:GetChildren())do
170    wait(0.1)
171    Added(Monsters) --CALL THE CODE WHEN PLAYER ENTER
172end
 View all 172 lines...

Help me please i need this urgently Thanks

2 answers

Answered by

climethestair 1663

6 years ago

Edited 6 years ago

You issue is likely here:

01function GetTorso(part)
02            local chars = game.Workspace:GetChildren()
03            local torso = nil
04            for _, v in pairs(chars) do
05                if v:IsA'Model' and v ~= script.Parent and v.Name == GetPlayerNames() then
06                    local charRoot = v:FindFirstChild'HumanoidRootPart'
07                    if (charRoot.Position - part).magnitude < Distance then
08                        torso = charRoot
09                    end
10                end
11            end
12            return torso
13        end

Specifically here:

1local charRoot = v:FindFirstChild'HumanoidRootPart'
2              if (charRoot.Position - part).magnitude < Distance then
3                  torso = charRoot
4              end

You are not comparing the player distances, you will always get the last player in the Chars table. Assuming you are going for the closest player, you need to compare the current v value with the current torso's distance to the monster and set torso equal to which one is closer.

ok thanks imagYTOP 19 — 6y

Answered by

imagYTOP 19

6 years ago

Edited 6 years ago

i Tried make something similar like you said me but i don´t works:

01--New Code
02 
03function GetTorso(pos)
04        local char = game.Workspace:children()
05        local torso = nil
06        local Id = nil
07        local human = nil
08        local Ad = nil
09        for ea = 1, #char do
10            Ad = char[ea]
11            if (Ad.className == "Model") and (Ad ~= script.Parent)  then
12                Id = Ad:findFirstChild("Torso")
13                local charRoot = Ad:findFirstChild("Humanoid")
14                if (Id ~= nil) and (charRoot ~= nil)  then
15                    if (Id.Position - pos).magnitude < SearchDistance then
16                        torso = Id
17                    end
18                end
19            end
20        end
21        return torso
22    end
 View all 22 lines...

please help me with this thanks

sorry im so noob with the pathfinder

Ai following one player please help?

2 answers

Answer this question