标题: [历史] 关于人工生命体AI的问题 [打印本页]

---

作者: 御龙    时间: 2006-1-31 18:39     标题: 关于人工生命体AI的问题

我只小鸟老是自己冲去打怪,练起很辛苦
后来听了关于AI的事...
但是还是不懂
有人能教我改或者直接发下载地址吗....

---

作者: 御龙    时间: 2006-1-31 20:39

没人回答只好顶下先...

---

作者: 乱舞星屑    时间: 2006-1-31 20:45

以下是已经改好的AI,小鸟果冻被动,LOLI小羊主动





require "./AI/Const.lua"
require "./AI/Util.lua"                                       

-----------------------------
-- state
-----------------------------
IDLE_ST                                        = 0
FOLLOW_ST                                = 1
CHASE_ST                                = 2
ATTACK_ST                                = 3
MOVE_CMD_ST                                = 4
STOP_CMD_ST                                = 5
ATTACK_OBJECT_CMD_ST                        = 6
ATTACK_AREA_CMD_ST                        = 7
PATROL_CMD_ST                                = 8
HOLD_CMD_ST                                = 9
SKILL_OBJECT_CMD_ST                        = 10
SKILL_AREA_CMD_ST                        = 11
FOLLOW_CMD_ST                                = 12
----------------------------



------------------------------------------
-- global variable
------------------------------------------
MyState                                = IDLE_ST        -- 弥檬狼 惑怕绰 绒侥
MyEnemy                                = 0                -- 利 id
MyDestX                                = 0                -- 格利瘤 x
MyDestY                                = 0                -- 格利瘤 y
MyPatrolX                        = 0                -- 沥蔓 格利瘤 x
MyPatrolY                        = 0                -- 沥蔓 格利瘤 y
ResCmdList                        = List.new()        -- 抗距 疙飞绢 府胶飘
MyID                                = 0                -- 龋巩努风胶 id
MySkill                                = 0                -- 龋巩努风胶狼 胶懦
MySkillLevel                        = 0                -- 龋巩努风胶狼 胶懦 饭骇
------------------------------------------










------------- command process  ---------------------

function        OnMOVE_CMD (x,y)
       
        TraceAI ("OnMOVE_CMD")

        if ( x == MyDestX and y == MyDestY and MOTION_MOVE == GetV(V_MOTION,MyID)) then
                return                -- 泅犁 捞悼吝牢 格利瘤客 鞍篮 镑捞搁 贸府窍瘤 臼绰促.
        end

        local curX, curY = GetV (V_POSITION,MyID)
        if (math.abs(x-curX)+math.abs(y-curY) > 15) then                -- 格利瘤啊 老沥 芭府 捞惑捞搁 (辑滚俊辑 刚芭府绰 贸府窍瘤 臼扁 锭巩俊)
                List.pushleft (ResCmdList,{MOVE_CMD,x,y})                        -- 盔贰 格利瘤肺狼 捞悼阑 抗距茄促.        
                x = math.floor((x+curX)/2)                                                        -- 吝埃瘤痢栏肺 刚历 捞悼茄促.  
                y = math.floor((y+curY)/2)                                                        --
        end

        Move (MyID,x,y)       
       
        MyState = MOVE_CMD_ST
        MyDestX = x
        MyDestY = y
        MyEnemy = 0
        MySkill = 0

end




function        OnSTOP_CMD ()

        TraceAI ("OnSTOP_CMD")

        if (GetV(V_MOTION,MyID) ~= MOTION_STAND) then
                Move (MyID,GetV(V_POSITION,MyID))
        end
        MyState = IDLE_ST
        MyDestX = 0
        MyDestY = 0
        MyEnemy = 0
        MySkill = 0

end




function        OnATTACK_OBJECT_CMD (id)

        TraceAI ("OnATTACK_OBJECT_CMD")

        MySkill = 0
        MyEnemy = id
        MyState = CHASE_ST

end




function        OnATTACK_AREA_CMD (x,y)

        TraceAI ("OnATTACK_AREA_CMD")

        if (x ~= MyDestX or y ~= MyDestY or MOTION_MOVE ~= GetV(V_MOTION,MyID)) then
                Move (MyID,x,y)       
        end
        MyDestX = x
        MyDestY = y
        MyEnemy = 0
        MyState = ATTACK_AREA_CMD_ST
       
end



function        OnPATROL_CMD (x,y)

        TraceAI ("OnPATROL_CMD")

        MyPatrolX , MyPatrolY = GetV (V_POSITION,MyID)
        MyDestX = x
        MyDestY = y
        Move (MyID,x,y)
        MyState = PATROL_CMD_ST

end




function        OnHOLD_CMD ()

        TraceAI ("OnHOLD_CMD")

        MyDestX = 0
        MyDestY = 0
        MyEnemy = 0
        MyState = HOLD_CMD_ST

end




function        OnSKILL_OBJECT_CMD (level,skill,id)

        TraceAI ("OnSKILL_OBJECT_CMD")

        MySkillLevel = level
        MySkill = skill
        MyEnemy = id
        MyState = CHASE_ST

end




function        OnSKILL_AREA_CMD (level,skill,x,y)

        TraceAI ("OnSKILL_AREA_CMD")

        Move (MyID,x,y)
        MyDestX = x
        MyDestY = y
        MySkillLevel = level
        MySkill = skill
        MyState = SKILL_AREA_CMD_ST
       
end




function        OnFOLLOW_CMD ()

        -- 措扁疙飞篮 措扁惑怕客 绒侥惑怕甫 辑肺 傈券矫挪促.
        if (MyState ~= FOLLOW_CMD_ST) then
                MoveToOwner (MyID)
                MyState = FOLLOW_CMD_ST
                MyDestX, MyDestY = GetV (V_POSITION,GetV(V_OWNER,MyID))
                MyEnemy = 0
                MySkill = 0
                TraceAI ("OnFOLLOW_CMD")
        else
                MyState = IDLE_ST
                MyEnemy = 0
                MySkill = 0
                TraceAI ("FOLLOW_CMD_ST --> IDLE_ST")
        end

end




function        ProcessCommand (msg)

        if                (msg[1] == MOVE_CMD) then
                OnMOVE_CMD (msg[2],msg[3])
                TraceAI ("MOVE_CMD")
        elseif        (msg[1] == STOP_CMD) then
                OnSTOP_CMD ()
                TraceAI ("STOP_CMD")
        elseif        (msg[1] == ATTACK_OBJECT_CMD) then
                OnATTACK_OBJECT_CMD (msg[2])
                TraceAI ("ATTACK_OBJECT_CMD")
        elseif        (msg[1] == ATTACK_AREA_CMD) then
                OnATTACK_AREA_CMD (msg[2],msg[3])
                TraceAI ("ATTACK_AREA_CMD")
        elseif        (msg[1] == PATROL_CMD) then
                OnPATROL_CMD (msg[2],msg[3])
                TraceAI ("PATROL_CMD")
        elseif        (msg[1] == HOLD_CMD) then
                OnHOLD_CMD ()
                TraceAI ("HOLD_CMD")
        elseif        (msg[1] == SKILL_OBJECT_CMD) then
                OnSKILL_OBJECT_CMD (msg[2],msg[3],msg[4],msg[5])
                TraceAI ("SKILL_OBJECT_CMD")
        elseif        (msg[1] == SKILL_AREA_CMD) then
                OnSKILL_AREA_CMD (msg[2],msg[3],msg[4],msg[5])
                TraceAI ("SKILL_AREA_CMD")
        elseif        (msg[1] == FOLLOW_CMD) then
                OnFOLLOW_CMD ()
                TraceAI ("FOLLOW_CMD")
        end
end




-------------- state process  --------------------


function        OnIDLE_ST ()
       
        TraceAI ("OnIDLE_ST")

        local cmd = List.popleft(ResCmdList)
        if (cmd ~= nil) then               
                ProcessCommand (cmd)        -- 抗距 疙飞绢 贸府
                return
        end

        local        object = GetOwnerEnemy (MyID)
        if (object ~= 0) then                                                        -- MYOWNER_ATTACKED_IN
                MyState = CHASE_ST
                MyEnemy = object
                TraceAI ("IDLE_ST -> CHASE_ST : MYOWNER_ATTACKED_IN")
                return
        end

        object = GetMyEnemy (MyID)
        if (object ~= 0) then                                                        -- ATTACKED_IN
                MyState = CHASE_ST
                MyEnemy = object
                TraceAI ("IDLE_ST -> CHASE_ST : ATTACKED_IN")
                return
        end

        local distance = GetDistanceFromOwner(MyID)
        if ( distance > 3 or distance == -1) then                -- MYOWNER_OUTSIGNT_IN
                MyState = FOLLOW_ST
                TraceAI ("IDLE_ST -> FOLLOW_ST")
                return;
        end

end




function        OnFOLLOW_ST ()

        TraceAI ("OnFOLLOW_ST")

        if (GetDistanceFromOwner(MyID) <= 3) then                --  DESTINATION_ARRIVED_IN
                MyState = IDLE_ST
                TraceAI ("FOLLOW_ST -> IDLW_ST")
                return;
        elseif (GetV(V_MOTION,MyID) == MOTION_STAND) then
                MoveToOwner (MyID)
                TraceAI ("FOLLOW_ST -> FOLLOW_ST")
                return;
        end

end




function        OnCHASE_ST ()

        TraceAI ("OnCHASE_ST")

        if (true == IsOutOfSight(MyID,MyEnemy)) then        -- ENEMY_OUTSIGHT_IN
                MyState = IDLE_ST
                MyEnemy = 0
                MyDestX, MyDestY = 0,0
                TraceAI ("CHASE_ST -> IDLE_ST : ENEMY_OUTSIGHT_IN")
                return
        end
        if (true == IsInAttackSight(MyID,MyEnemy)) then  -- ENEMY_INATTACKSIGHT_IN
                MyState = ATTACK_ST
                TraceAI ("CHASE_ST -> ATTACK_ST : ENEMY_INATTACKSIGHT_IN")
                return
        end

        local x, y = GetV (V_POSITION,MyEnemy)
        if (MyDestX ~= x or MyDestY ~= y) then                        -- DESTCHANGED_IN
                MyDestX, MyDestY = GetV (V_POSITION,MyEnemy);
                Move (MyID,MyDestX,MyDestY)
                TraceAI ("CHASE_ST -> CHASE_ST : DESTCHANGED_IN")
                return
        end

end




function        OnATTACK_ST ()

        TraceAI ("OnATTACK_ST")
       
        if (true == IsOutOfSight(MyID,MyEnemy)) then        -- ENEMY_OUTSIGHT_IN
                MyState = IDLE_ST
                TraceAI ("ATTACK_ST -> IDLE_ST")
                return
        end

        if (MOTION_DEAD == GetV(V_MOTION,MyEnemy)) then   -- ENEMY_DEAD_IN
                MyState = IDLE_ST
                TraceAI ("ATTACK_ST -> IDLE_ST")
                return
        end
               
        if (false == IsInAttackSight(MyID,MyEnemy)) then  -- ENEMY_OUTATTACKSIGHT_IN
                MyState = CHASE_ST
                MyDestX, MyDestY = GetV (V_POSITION,MyEnemy);
                Move (MyID,MyDestX,MyDestY)
                TraceAI ("ATTACK_ST -> CHASE_ST  : ENEMY_OUTATTACKSIGHT_IN")
                return
        end
       
        if (MySkill == 0) then
                Attack (MyID,MyEnemy)
        else
                SkillObject (MyID,MySkillLevel,MySkill,MyEnemy)
                MySkill = 0
        end
        TraceAI ("ATTACK_ST -> ATTACK_ST  : ENERGY_RECHARGED_IN")
        return


end




function        OnMOVE_CMD_ST ()

        TraceAI ("OnMOVE_CMD_ST")

        local x, y = GetV (V_POSITION,MyID)
        if (x == MyDestX and y == MyDestY) then                                -- DESTINATION_ARRIVED_IN
                MyState = IDLE_ST
        end
end




function OnSTOP_CMD_ST ()


end




function OnATTACK_OBJECT_CMD_ST ()

       

end




function OnATTACK_AREA_CMD_ST ()

        TraceAI ("OnATTACK_AREA_CMD_ST")

        local        object = GetOwnerEnemy (MyID)
        if (object == 0) then                                                       
                object = GetMyEnemy (MyID)
        end

        if (object ~= 0) then                                                        -- MYOWNER_ATTACKED_IN or ATTACKED_IN
                MyState = CHASE_ST
                MyEnemy = object
                return
        end

        local x , y = GetV (V_POSITION,MyID)
        if (x == MyDestX and y == MyDestY) then                        -- DESTARRIVED_IN
                        MyState = IDLE_ST
        end

end




function OnPATROL_CMD_ST ()

        TraceAI ("OnPATROL_CMD_ST")

        local        object = GetOwnerEnemy (MyID)
        if (object == 0) then                                                       
                object = GetMyEnemy (MyID)
        end

        if (object ~= 0) then                                                        -- MYOWNER_ATTACKED_IN or ATTACKED_IN
                MyState = CHASE_ST
                MyEnemy = object
                TraceAI ("PATROL_CMD_ST -> CHASE_ST : ATTACKED_IN")
                return
        end

        local x , y = GetV (V_POSITION,MyID)
        if (x == MyDestX and y == MyDestY) then                        -- DESTARRIVED_IN
                MyDestX = MyPatrolX
                MyDestY = MyPatrolY
                MyPatrolX = x
                MyPatrolY = y
                Move (MyID,MyDestX,MyDestY)
        end

end




function OnHOLD_CMD_ST ()

        TraceAI ("OnHOLD_CMD_ST")
       
        if (MyEnemy ~= 0) then
                local d = GetDistance(MyEnemy,MyID)
                if (d ~= -1 and d <= GetV(V_ATTACKRANGE,MyID)) then
                                Attack (MyID,MyEnemy)
                else
                        MyEnemy = 0;
                end
                return
        end


        local        object = GetOwnerEnemy (MyID)
        if (object == 0) then                                                       
                object = GetMyEnemy (MyID)
                if (object == 0) then                                               
                        return
                end
        end

        MyEnemy = object

end




function OnSKILL_OBJECT_CMD_ST ()
       
end




function OnSKILL_AREA_CMD_ST ()

        TraceAI ("OnSKILL_AREA_CMD_ST")

        local x , y = GetV (V_POSITION,MyID)
        if (GetDistance(x,y,MyDestX,MyDestY) <= GetV(V_SKILLATTACKRANGE,MyID,MySkill)) then        -- DESTARRIVED_IN
                SkillGround (MyID,MySkillLevel,MySkill,MyDestX,MyDestY)
                MyState = IDLE_ST
                MySkill = 0
        end

end







function OnFOLLOW_CMD_ST ()

        TraceAI ("OnFOLLOW_CMD_ST")

        local ownerX, ownerY, myX, myY
        ownerX, ownerY = GetV (V_POSITION,GetV(V_OWNER,MyID)) -- 林牢
        myX, myY = GetV (V_POSITION,MyID)                                          -- 唱
       
        local d = GetDistance (ownerX,ownerY,myX,myY)

        if ( d <= 3) then                                                                          -- 3伎 捞窍 芭府搁
                return
        end

        local motion = GetV (V_MOTION,MyID)
        if (motion == MOTION_MOVE) then                       -- 捞悼吝
                d = GetDistance (ownerX, ownerY, MyDestX, MyDestY)
                if ( d > 3) then                                  -- 格利瘤 函版 ?
                        MoveToOwner (MyID)
                        MyDestX = ownerX
                        MyDestY = ownerY
                        return
                end
        else                                                  -- 促弗 悼累
                MoveToOwner (MyID)
                MyDestX = ownerX
                MyDestY = ownerY
                return
        end
       
end








function        GetOwnerEnemy (myid)
        local result = 0
        local owner  = GetV (V_OWNER,myid)
        local actors = GetActors ()
        local enemys = {}
        local index = 1
        local target
        for i,v in ipairs(actors) do
                if (v ~= owner and v ~= myid) then
                        target = GetV (V_TARGET,v)
                        if (target == owner) then
                                if (IsMonster(v) == 1) then
                                        enemys[index] = v
                                        index = index+1
                                else
                                        local motion = GetV(V_MOTION,i)
                                        if (motion == MOTION_ATTACK or motion == MOTION_ATTACK2) then
                                                enemys[index] = v
                                                index = index+1
                                        end
                                end
                        end
                end
        end

        local min_dis = 100
        local dis
        for i,v in ipairs(enemys) do
                dis = GetDistance2 (myid,v)
                if (dis < min_dis) then
                        result = v
                        min_dis = dis
                end
        end
       
        return result
end





function        GetMyEnemy (myid)
        local result = 0

        local type = GetV (V_HOMUNTYPE,myid)
        if (type == LIF or type == LIF_H or type == AMISTR or type == AMISTR_H or type == LIF2 or type == LIF_H2 or type == AMISTR2 or type == AMISTR_H2) then
                result = GetMyEnemyB (myid)
        elseif (type == FILIR or type == FILIR_H or type == VANILMIRTH or type == VANILMIRTH_H or type == FILIR2 or type == FILIR_H2 or type == VANILMIRTH2 or type == VANILMIRTH_H2) then
                result = GetMyEnemyA (myid)
        end
        return result
end




-------------------------------------------
--  厚急傍屈 GetMyEnemy
-------------------------------------------
function        GetMyEnemyA (myid)
        local result = 0
        local owner  = GetV (V_OWNER,myid)
        local actors = GetActors ()
        local enemys = {}
        local index = 1
        local target
        for i,v in ipairs(actors) do
                if (v ~= owner and v ~= myid) then
                        target = GetV (V_TARGET,v)
                        if (target == myid) then
                                enemys[index] = v
                                index = index+1
                        end
                end
        end

        local min_dis = 100
        local dis
        for i,v in ipairs(enemys) do
                dis = GetDistance2 (myid,v)
                if (dis < min_dis) then
                        result = v
                        min_dis = dis
                end
        end

        return result
end





-------------------------------------------
--  急傍屈 GetMyEnemy
-------------------------------------------
function        GetMyEnemyB (myid)
        local result = 0
        local owner  = GetV (V_OWNER,myid)
        local actors = GetActors ()
        local enemys = {}
        local index = 1
        local type
        for i,v in ipairs(actors) do
                if (v ~= owner and v ~= myid) then
                        if (1 == IsMonster(v))        then
                                enemys[index] = v
                                index = index+1
                        end
                end
        end

        local min_dis = 100
        local dis
        for i,v in ipairs(enemys) do
                dis = GetDistance2 (myid,v)
                if (dis < min_dis) then
                        result = v
                        min_dis = dis
                end
        end

        return result
end









function AI(myid)

        MyID = myid
        local msg        = GetMsg (myid)                        -- command
        local rmsg        = GetResMsg (myid)                -- reserved command

       
        if msg[1] == NONE_CMD then
                if rmsg[1] ~= NONE_CMD then
                        if List.size(ResCmdList) < 10 then
                                List.pushright (ResCmdList,rmsg) -- 抗距 疙飞 历厘
                        end
                end
        else
                List.clear (ResCmdList)        -- 货肺款 疙飞捞 涝仿登搁 抗距 疙飞甸篮 昏力茄促.  
                ProcessCommand (msg)        -- 疙飞绢 贸府
        end

               
        -- 惑怕 贸府
        if (MyState == IDLE_ST) then
                OnIDLE_ST ()
        elseif (MyState == CHASE_ST) then                                       
                OnCHASE_ST ()
        elseif (MyState == ATTACK_ST) then
                OnATTACK_ST ()
        elseif (MyState == FOLLOW_ST) then
                OnFOLLOW_ST ()
        elseif (MyState == MOVE_CMD_ST) then
                OnMOVE_CMD_ST ()
        elseif (MyState == STOP_CMD_ST) then
                OnSTOP_CMD_ST ()
        elseif (MyState == ATTACK_OBJECT_CMD_ST) then
                OnATTACK_OBJECT_CMD_ST ()
        elseif (MyState == ATTACK_AREA_CMD_ST) then
                OnATTACK_AREA_CMD_ST ()
        elseif (MyState == PATROL_CMD_ST) then
                OnPATROL_CMD_ST ()
        elseif (MyState == HOLD_CMD_ST) then
                OnHOLD_CMD_ST ()
        elseif (MyState == SKILL_OBJECT_CMD_ST) then
                OnSKILL_OBJECT_CMD_ST ()
        elseif (MyState == SKILL_AREA_CMD_ST) then
                OnSKILL_AREA_CMD_ST ()
        elseif (MyState == FOLLOW_CMD_ST) then
                OnFOLLOW_CMD_ST ()
        end

end

---

作者: QQending    时间: 2006-1-31 20:50

放在哪里？

---

作者: 御龙    时间: 2006-1-31 20:53

我那只是小鸟的....

---

作者: 御龙    时间: 2006-1-31 20:55

呼,原来是我自己没看清楚
谢谢

---

作者: 乱舞星屑    时间: 2006-1-31 20:57

RO\AI\USER_AI\AI.lua
用WORD打开把我的覆盖,在游戏里打/HOAI就可以了

---

作者: 御龙    时间: 2006-1-31 21:00

问下在哪个文件下....忘记鸟

---

作者: 御龙    时间: 2006-1-31 21:21

,改好了.现在上去测试
韩文那部分你给的是乱码,没问题吧

---

作者: 御龙    时间: 2006-1-31 21:26

测试了下，小鸟还是主动哦...

---

作者: 御龙    时间: 2006-1-31 21:36

用了你的改了,但是还是不行...还是主动
有没有得让人直接下载的呢

---

作者: WAKATA    时间: 2006-1-31 21:54

http://bbs.rohome.net/viewthread ... &extra=page%3D3

---

欢迎光临 浆糊论坛-RO小站 (http://bbs.rohome.cn/)

Powered by Discuz! 7.2