3D游戏精灵-兔子脚本 （lua语言开发,xfun平台）

require "XLuaBase"

--{{XFUN EVENT
    --在此处添加事件
X_ON_LUAINIT(OnItemInit)
X_ONCURANIMATEEND(OnItemCurAnimateEnd)  
X_ONSPRITECLOSETO(OnSpriteCloseTo)
ON_XEVENT(412,"*","OnSpriteMoveTo")

--}}XFUN EVENT

--范围半径
#define NRADIUS 1000

--动画总数
#define NANIMATECOUNT 4

--当前行走动画索引
#define NANIMATEID_MOVE 2

--精灵移动时两个节点之间的最短距离
#define NMOVE_MINDISTANCE              100
---------------------------------------------
--事件处理函数
---------------------------------------------

LXRandomMove = {}
LXRandomMove.__index = LXRandomMove

objRandomMove = {}
setmetatable(objRandomMove,LXRandomMove)                    ---设置元表数据
---------------------------------------------
--类实现函数
---------------------------------------------
--物体初始化
function LXRandomMove:OnItemInit(objSprite, fRadius)
    math.randomseed(os.time())    

    self:Init(objSprite, fRadius)
    
    --开始移动物体
    self:MoveNext()
end

--初始化数据
function    LXRandomMove:Init(objSprite, fRadius)
    self.objSprite = objSprite                    --精灵对象

    local objTrans = objSprite.GetTranslate()    --中心点位置
    self.ptCenter = objTrans.GetPosition()

    self.fRadius = fRadius                        --范围半径
              
    self.tMove = {}                             --移动速度
    if self.tMove then
        self.tMove.nMaxMove = 1.4                --最大移动速度(m/s)
        self.tMove.nMinMove = 1.0                --最小移动速度(m/s)
    end
    
    self.nPlayAnimateCount = 1                    --待机时动画总数
    self.nCurAnimate = -1                        --当前动画索引
 
    self:InitPath(self.ptCenter)                --路径节点
end

--初始化路径数据
function    LXRandomMove:InitPath(ptLast)  
    --随机路线  
    self.Nodes = {}                                --当前路径的节点    
    self.nNodeCount = 10                        --当前节点总数
    self.nNodeIndex = 1                            --当前节点索引

    local ptNode
    local ptPrevious = ptLast
    local nMove
    local fDistance
    for i = 1, self.nNodeCount, 1 do
        self.Nodes[i] = X3DPoint.CreateObject()        --节点数据
        repeat
            if i > 1 then
                ptPrevious = self.Nodes[i - 1]
            end
            nMove = self:RandomOneData(self.Nodes[i])        
            fDistance = ptLast.Distance(self.Nodes[i])
        until fDistance > NMOVE_MINDISTANCE    --两个节点之间的距离大于某值
        
        --得到地表高度
        self.Nodes[i].y = theSpace.GetTerrainHeight(self.Nodes[i])  

        --保存速度
        self.tMove[i] = nMove
    end       
end    
 
--随机一个数据
function    LXRandomMove:RandomOneData(ptNode)
    --随机速度
    local nMove  = math.random(self.tMove.nMinMove*10, self.tMove.nMaxMove*10) /10
    
    --随机半径和角度
    local nAngle = math.random(0, 360)
    local fAnale = math.rad(nAngle)
    local nRadius = math.random(0, self.fRadius)     

    --使用缓存    
    ptNode.z = self.ptCenter.y    
    ptNode.x = self.ptCenter.x + nRadius*math.cos(fAnale)        
    ptNode.z = self.ptCenter.z + nRadius*math.sin(fAnale)    
    return nMove  
end

--当前路径结束
function    LXRandomMove:OnCurPathEnd(ptLast)
    self:InitPath(ptLast)
end      

--当前动画结束
function LXRandomMove:OnItemCurAnimateEnd(param)
    if param == self.nCurAnimate then              
        self.nPlayAnimateCount = self.nPlayAnimateCount - 1
        if self.nPlayAnimateCount > 0 then
            self:PlayAnimate(this)    
        else
            self:MoveNext()             
        end        
    end
end  

--移动到下一个路径
function LXRandomMove:MoveNext()
    --当前位置
    local objTrans = self.objSprite.GetTranslate()         
    local ptCur = objTrans.GetPosition()
    
    --下一个位置
    self.nNodeIndex = self.nNodeIndex + 1  
     if self.nNodeIndex > self.nNodeCount then
        self:OnCurPathEnd(ptCur)
        self.nNodeIndex = 1
    end
    local ptNext = self.Nodes[self.nNodeIndex]

    --移动物体
    self:MoveTo(ptCur,ptNext)
end

--从一个位置移动到另外一个位置
function LXRandomMove:MoveTo(ptCur,ptNext)
    local ptDirection = ptNext - ptCur
    ptDirection.y = 0
    local fDistance =  ptNext.Distance(ptCur)
    local fTime = (fDistance/100) / self.tMove[self.nNodeIndex] *1000        --100是将单位从cm换算成m, 1000是将秒换算为毫秒

    --物体移动  
    self.objSprite.MoveTo(ptNext, ptDirection, 0, NANIMATEID_MOVE, fTime, 0)     
end    

--移动到目标位置
function LXRandomMove:OnSpriteMoveTo(param)
    --随机判断做动画还是移动
    --self.nPlayAnimateCount = math.random(0, self.nPlayAnimateCount)    
    self.nPlayAnimateCount = 1
    if self.nPlayAnimateCount > 0 then
        self:PlayAnimate()
    else
        self:MoveNext()
    end         
end

--做动画
function    LXRandomMove:PlayAnimate()
    repeat
        self.nCurAnimate = math.random(0, NANIMATECOUNT - 1)    
    until self.nCurAnimate ~= NANIMATEID_MOVE    
 
    self.objSprite.PlayAnimate(self.nCurAnimate, false)    
end

--人物靠近
function    LXRandomMove:OnSpriteCloseTo(objSprite)    
    if not objSprite then
        return
    end

    --得到自身位置
    local objSelfTrans = self.objSprite.GetTranslate()         
    local ptSelf = objSelfTrans.GetPosition()    

    --得到人物位置
    local objSpriteTrans = objSprite.GetTranslate()         
    local ptDes = objSpriteTrans.GetPosition()    

    --向人物走出一步            
    local vecDir = ptDes - ptSelf
    vecDir.Normalize()
    ptDes.x = ptSelf.x + vecDir.x*NMOVE_MINDISTANCE
    ptDes.y = ptSelf.y + vecDir.y*NMOVE_MINDISTANCE
    ptDes.z = ptSelf.z + vecDir.z*NMOVE_MINDISTANCE

    self:MoveTo(ptSelf, ptDes)
end
---------------------------------------------
--事件处理函数
---------------------------------------------
--初始化
function OnItemInit(this,nEventID,SendName,param)
    --初始化数据
    objRandomMove:OnItemInit(this, NRADIUS)        
    
    --精灵靠近
    this.EnableClosetoEvent(5)
end  

--动画结束
function OnItemCurAnimateEnd(this,nEventID,SendName,param)
    objRandomMove:OnItemCurAnimateEnd(param)    
end   

--移动到目标位置
function OnSpriteMoveTo(this,nEventID,SendName,param)
    objRandomMove:OnSpriteMoveTo(param)
end

--人物靠近
function OnSpriteCloseTo(this,nEventID,SendName,param)
    if param.bEnter == 1 then               --靠近
        local objSprite = param.ItemObject
        objRandomMove:OnSpriteCloseTo(objSprite)        
    end
end