鱼阵的LUA实现

--[[

------------------------------------

一条鱼

------------------------------------

Ivan_han@2013/4/16 11:08:17

------------------------------------

]]

function CreateObj(pSpriteFrame)

return CCSprite:createWithSpriteFrame(pSpriteFrame)

end

Fish = class("Fish", CreateObj)

Fish.__index = Fish

Fish.isCatch = false

--Fish.fishType=1

CCLuaLog("Fish...................."..tostring(Fish.__index))

function Fish:spriteWithSpriteFrame(pSpriteFrame)

local fish = Fish.new(pSpriteFrame)

if (fish~=nil)then

fish:autorelease()

fish:retain()

end

return fish

end

function Fish:spriteWithSpriteFrameName(pszSpriteFrameName)

if(pszSpriteFrameName == nil) then

CCLuaLog("Fish.spriteWithSpriteFrameName.pszSpriteFrameName.Nil!")

return nil

end

local pFrame = CCSpriteFrameCache:sharedSpriteFrameCache():spriteFrameByName(pszSpriteFrameName)

if (pFrame~=nil)then

return self:spriteWithSpriteFrame(pFrame)

end

end

function Fish:randomCatch(level)

local rnd = SIX_Utility:new():RNDNUM(0,9)

if(rand >= level) then

return true

end

return false

end

function Fish:getIsCatch()

return isCatch

end

function Fish:setIsCatch(IsCatch)

isCatch=IsCatch

end

--[[

三阶贝塞尔曲线（P_0,P_1,P_2,P_3）退化为二阶贝塞尔曲线（P_0,P_1,P_2，即抛物线：起点P_0=控制点P_1,控制点P_2,终点P_3）

参数说明：

startP----轨迹起点

endP----轨迹终点

startAngle----

endAngle----

time----动画时长

]]

function Fish:moveWithParabola(startP,endP,startAngle,endAngle,time)

local sx = startP.x;

local sy = startP.y;

local ex =endP.x;

local ey =endP.y;

local h = self:getContentSize().height * 0.5;

local pos=CCPoint(sx,sy);

self:setPosition(pos);

self:setRotation(startAngle);

-- 贝塞尔曲线

local bezier=ccBezierConfig:new();

-- 控制点1(起点)

bezier.controlPoint_1 = ccp(sx, sy);

-- 控制点2

--bezier.controlPoint_2 = ccp(sx+(ex-sx)*0.5, sy+(ey-sy)*0.5);

bezier.controlPoint_2 = ccp(sx+(ex-sx)*0.5, sy+(ey-sy)*0.5+100);

-- 终点

bezier.endPosition = ccp(endP.x, endP.y);

local actionMove = CCBezierTo:create(time, bezier);

local actionRotate = CCRotateTo:create(time, endAngle);

local action = CCSpawn:createWithTwoActions(actionMove, actionRotate);

local pcc=CCCallFunc:create(function()

self:removeFromParentAndCleanup(true)

end)

local sq = CCSequence:createWithTwoActions(action,pcc);

self:runAction(sq);

end

function CircleTrace(t)

--圆中心为(350,300)，半径为150，轨迹起点为(500,300)的逆时针圆轨迹

local x=150*math.cos(2*math.pi*t)

local y=150*math.sin(2*math.pi*t)

return ccp(350+x,300+y)

end

function EllipseTrace(t)

--椭圆中心为(350,300)，长半径为150，短半径为120，轨迹起点为(500,300)，焦点F_1为(260,300)，焦点F_2为(440,300)的逆时针椭圆轨迹

local C=ccp(350,300)

local a=150

local b=120

local c=90

local x=a*math.cos(2*math.pi*t)

local y=b*math.sin(2*math.pi*t)

return ccp(C.x+x,C.y+y)

end

function SinTrace(t)

--轨迹起点为(500,300)，振幅为150的正弦曲线轨迹

local C=ccp(350,300)

local a=150

local x=a*2*math.pi*t

local y=a*math.sin(2*math.pi*t)

return ccp(C.x+x,C.y+y)

end

--[[

获得圆上点的坐标

参数说明：

startP--轨迹起点坐标

centerP--圆心坐标

deltArg--相对于轨迹起点的辐角主值增量

]]

function GetCirclePos(startP,centerP,deltArg)

local startarg=math.atan2(startP.y-centerP.y,startP.x-centerP.x);--轨迹起点相对于圆心的辐角主值

local tempx=(startP.x-centerP.x)*(startP.x-centerP.x);

local tempy=(startP.y-centerP.y)*(startP.y-centerP.y);

local r=math.sqrt(tempx+tempy);--圆的半径

local x=r*math.cos(startarg+deltArg)--圆上点相对于圆心的X坐标偏移

local y=r*math.sin(startarg+deltArg)--圆上点相对于圆心的Y坐标偏移

return ccp(centerP.x+x,centerP.y+y)

end

--[[

圆轨迹

参数说明：

t----轨迹参数方程中的参数

startP----轨迹起点坐标

centerP----圆心坐标

direction----取值浮点数，表示圈数，正、负圈数分别表示逆、顺时针旋转

]]

--function CircleTraceFunc(t,startP,centerP,direction)

function CircleTraceFunc(t,startPx,startPy,centerPx,centerPy,direction)

local startP=ccp(startPx,startPy)

local centerP=ccp(centerPx,centerPy)

--圆中心为centerP，半径为r，轨迹起点为startP的direction弧度圆轨迹

local startarg=math.atan2(startP.y-centerP.y,startP.x-centerP.x);--轨迹起点相对于圆心的辐角主值

local tempx=(startP.x-centerP.x)*(startP.x-centerP.x);

local tempy=(startP.y-centerP.y)*(startP.y-centerP.y);

local r=math.sqrt(tempx+tempy);--圆的半径

local x=r*math.cos(startarg+2*math.pi*t*direction)

local y=r*math.sin(startarg+2*math.pi*t*direction)

--return ccp(centerP.x+x-startPx,centerP.y+y-startPy)--改为相对位置以支持CCRepeatForever无限次重复动画

return ccp(centerP.x+x,centerP.y+y)

end

--[[

直线运动和匀速圆周运动合成的轨迹，我们称之为摆线

过原点startP=(0,0)、半径为r的摆线参数方程为

x=r(a-sina)

y=r(1-cosa)

在这里实参数a是在弧度之下，圆滚动的角度。对每一个给出的a ，圆心的坐标为(ra,r)。

参数说明：

t----轨迹参数方程中的参数

]]

function CycloidTrace(t)

local startP=ccp(200,300)--摆线轨迹起点

local direction=3

local r=50;

local a=2*math.pi*t*direction

local x=r*(a-math.sin(a))

local y=r*(1-math.cos(a))

return ccp(startP.x+x,startP.y+y)

end

--[[

摆线轨迹

参数说明：

t----轨迹参数方程中的参数

startP----轨迹起点坐标

r----圆的半径

deltArg----取值浮点数，相对于轨迹起点的辐角主值增量

direction----拱形的个数

reserved----保留参数

]]

--function CycloidTraceFunc(t,startPx,startPy,r,deltArg,direction)

function CycloidTraceFunc(t,startPx,startPy,r,deltArg,direction,reservedx,reservedy)

local a=2*math.pi*t*direction

local x=r*(a-math.sin(a))

local y=r*(1-math.cos(a))

local startPt=ccp(x,y)

local centerPt=ccp(r*a,r)--圆心坐标

local retPt=GetCirclePos(startPt,centerPt,deltArg)

local startP=ccp(startPx,startPy)--摆线轨迹起点deltArg=0

return ccp(startP.x+retPt.x,startP.y+retPt.y)

end

--[[

具体的运动轨迹由轨迹类型、轨迹起点坐标、轨迹速度等相互独立的参数来控制

参数说明：

pathType--轨迹类型

arg1--第一个额外参数，圆轨迹要用到

]]

function Fish:addPath(pathType,arg1)

if(pathType==1)then

--给定轨迹起点和恒定速度矢量（恒定速率和恒定方向）的匀速直线运动

--self:setPosition(CCPoint(200,300));

--[[

local actionBy = CCMoveBy:create(1, ccp(300,300));

local ac = CCRepeatForever:create(actionBy);

self:runAction(ac);

]]

--右上角45度直线轨迹

local pAction=CCMoveBy:create(15.0, ccp(1500,1500));

self:runAction(pAction);

end

if(pathType==2)then

--self:setPosition(CCPoint(200,300));

--[[

local pAction=CCMoveBy:create(3.0, ccp(300,0));

--self:runAction(pAction);

local ac = CCRepeatForever:create(pAction);

self:runAction(ac);

]]

--水平向右直线轨迹

local pAction=CCMoveBy:create(15.0, ccp(1500,0));

self:runAction(pAction);

--local pAction=CCMoveTo:create(3.0, ccp(500,300));--直线轨迹。参数一为动画时长，参数二为要移动到的目标点。

--创建一个加速直线运动（a>0）。1<r<2时，△a<0；r=2时，△a=0，a=2；r>2时，△a>0。

--local move_ease_in = CCEaseIn:create(pAction,2);--参数二r=2，加速度为a=2的匀加速直线运动

--local move_ease_in = CCEaseIn:create(pAction,5);--参数二r>2，加速度越来越大的变加速直线运动

--local move_ease_in = CCEaseIn:create(pAction,1.5);--参数二1<r<2，加速度越来越小的变加速直线运动

--self:runAction(move_ease_in);

--创建一个加速度越来越大的减速直线运动（a<0）,r>1，△a>0

--local move_ease_out = CCEaseOut:create(pAction,2);

--self:runAction(move_ease_out);

end

if(pathType==3)then

--轨迹起点

--self:setPosition(CCPoint(200,300));

--圆逆时针运动轨迹，参数一为动画时长，参数二为当前圆上位置的对径点坐标，参数三为轨迹方向

--给定轨迹起点和恒定速率的匀速圆周运动

--self:setPosition(CCPoint(200,300));

--[[

local actionBy = CircleAction:create(1.0, ccp(500,300),1);

local ac = CCRepeatForever:create(actionBy);

self:runAction(ac);

]]

local startP=CCPoint(self:getPositionX(),self:getPositionY());

--对于圆轨迹，arg1代表圆心坐标

if(arg1==nil)then

arg1=CCPoint(self:getPositionX()+150,self:getPositionY());

end

--对径点P

local P=CCPoint(arg1.x*2-self:getPositionX(),arg1.y*2-self:getPositionY());

--local P=CCPoint(self:getPositionX()+300,self:getPositionY());

local actionBy = CircleAction:create(5.0,P,1);

local ac = CCRepeatForever:create(actionBy);

self:runAction(ac);

end

if(pathType==4)then

--轨迹起点

--self:setPosition(CCPoint(200,300));

--圆顺时针运动轨迹，参数一为动画时长，参数二为当前圆上位置的对径点坐标，参数三为轨迹方向

self:runAction(CircleAction:create(3.0, ccp(500,300),-1));

end

if(pathType==5)then

--自定义运动轨迹，参数一为动画时长，参数二为表示轨迹参数方程的LUA函数名

--self:runAction(myAction:create(3.0,"CircleTrace"));

--self:runAction(myAction:createCircle(3.0,"CircleTraceFunc",ccp(500,300),ccp(350,300),2));

local startP=CCPoint(self:getPositionX(),self:getPositionY());

--对于圆轨迹，arg1代表圆心坐标

if(arg1==nil)then

arg1=CCPoint(self:getPositionX()-150,self:getPositionY());

end

self:runAction(myAction:createCircle(60.0,"CircleTraceFunc",startP,arg1,20));

end

if(pathType==6)then

--圆中心为(350,300)，半径为150，轨迹起点为(500,300)的逆时针圆轨迹

--圆运动轨迹，参数一为动画时长，参数二为表示圆轨迹参数方程的LUA函数名，参数三为轨迹起点坐标，参数四为圆心坐标，参数五为正负圈数

--self:runAction(myAction:createCircle(3.0,"CircleTraceFunc",ccp(500,300),ccp(350,300),1));

--self:runAction(myAction:createMoveCircle(3.0,"MoveCircleTraceFunc",ccp(500,300),ccp(350,300),1,ccp(0,0)));

--self:runAction(myAction:createMoveCircle(3.0,"MoveCircleTraceFunc",ccp(500,300),ccp(350,300),1,ccp(-250,0)));

--local actionBy =myAction:createMoveCircle(3.0,"MoveCircleTraceFunc",ccp(500,300),ccp(350,300),1,ccp(-50,0));

--去掉了createMoveCircle，用createCycloid代替

local actionBy =myAction:createCycloid(3.0,"CycloidTraceFunc",ccp(200,300),ccp(50,0),3,ccp(-50,0));

local ac = CCRepeatForever:create(actionBy);

self:runAction(ac);

end

if(pathType==7)then

--自定义运动轨迹，参数一为动画时长，参数二为表示轨迹参数方程的LUA函数名

--self:runAction(myAction:create(3.0,"EllipseTrace"));

--self:runAction(myAction:create(3.0,"CycloidTrace"));

--local rdeltArg=ccp(50,0)--表示圆的半径是50，辐角主值增量是0

--self:runAction(myAction:createCircle(3.0,"CycloidTraceFunc",ccp(200,300),ccp(50,0),3));

local startP=CCPoint(self:getPositionX(),self:getPositionY());

--对于摆线轨迹，arg1代表半径和辐角主值增量

if(arg1==nil)then

arg1=CCPoint(50,0);

end

self:runAction(myAction:createCircle(3.0,"CycloidTraceFunc",startP,arg1,3));

end

if(pathType==8)then

--自定义运动轨迹，参数一为动画时长，参数二为表示轨迹参数方程的LUA函数名

--self:runAction(myAction:create(3.0,"SinTrace"));

--创建一个先加速再减速的正弦曲线轨迹运动

local pAction=myAction:create(3.0,"SinTrace");

local move_ease_inout = CCEaseInOut:create(pAction,2);

self:runAction(move_ease_inout);

end

if(pathType==9)then

self:moveWithParabola(ccp(200, 300), ccp(500, 300), 0.0, 20.0, 3.0);

end

end

--[[

------------------------------------

鱼精灵对象用到的精灵帧的管理

------------------------------------

Ivan_han@2013/4/20 14:15:17

------------------------------------

]]

FishManage = class("FishManage")

FishManage.__index = FishManage

FishManage.s_AllFish1 = nil

function FishManage:Init(pNode)

local fishType=1

CCSpriteFrameCache:sharedSpriteFrameCache():addSpriteFramesWithFile("./action/Fish01/Fish01.plist");

local pBatchName = CCString:create( "./action/Fish01/Fish01.png" );

self.s_AllFish1 = CCSpriteBatchNode:create( pBatchName:getCString() );

pNode:addChild( self.s_AllFish1 );--鱼精灵批处理结点对象s_AllFish1挂接到节点pNode上

--FishManage:addOneFish(1)

end

function FishManage:Release()

CCSpriteFrameCache:sharedSpriteFrameCache():removeSpriteFramesFromFile("./action/Fish01/Fish01.plist")

self.s_AllFish1:removeAllChildrenWithCleanup( true )

end

function FishManage:addOneGroupFish(fishgroupType)

--水平直线轨迹阵

if(fishgroupType==1)then

FishManage:addOneFish(1,2);

FishManage:addOneFish(1,2,ccp(0,350));

FishManage:addOneFish(1,2,ccp(0,250));

end

--斜直线轨迹阵

if(fishgroupType==2)then

FishManage:addOneFish(1,1,ccp(-50,50))

FishManage:addOneFish(1,1,ccp(-25,75))

FishManage:addOneFish(1,1,ccp(0,100))

FishManage:addOneFish(1,1,ccp(-70,25))

end

--圆轨迹阵

if(fishgroupType==3)then

local startP=ccp(0,300)

local centerP=ccp(150,300)

local deltArg=math.pi*0.2

for i=1,10 do

local startP=GetCirclePos(startP,centerP,deltArg*(i-1))

FishManage:addOneFish(1,3,startP,centerP)

end

end

--圆轨迹阵

if(fishgroupType==4)then

local startP=ccp(500,300)

local centerP=ccp(350,300)

local deltArg=math.pi*0.2

for i=1,10 do

local startP=GetCirclePos(startP,centerP,deltArg*(i-1))

FishManage:addOneFish(1,5,startP,centerP)

end

end

--摆线轨迹阵

if(fishgroupType==5)then

local startP=ccp(200,300)

local rdeltArg=ccp(50,0)

local deltArg=math.pi*0.2

for i=1,10 do

rdeltArg.y=deltArg*(i-1)

FishManage:addOneFish(1,7,startP,rdeltArg)

end

end

end

function FishManage:addOneFish(fishType,pathType,startP,arg1)

if(startP==nil)then

startP=ccp(0,300)

end

--[[

if(arg1==nil)then

arg1=ccp(150,300)

end

]]

local pArray = CCArray:create()

for i=1,9 do

local pStrBuffer = string.format('fish0%d_%d.png',fishType,i)

local pSpriteFrame = CCSpriteFrameCache:sharedSpriteFrameCache():spriteFrameByName( pStrBuffer )

pArray:addObject( pSpriteFrame )

end

-- 由帧缓存生成action，帧延迟0.1f

local pAnimation =CCAnimation:createWithSpriteFrames(pArray,0.1);

local fish_act = CCRepeatForever:create(CCAnimate:create(pAnimation));

-- 通过起始帧生成鱼实体

local Name="fish0"..tostring(fishType).."_1.png"

local pFish = Fish:spriteWithSpriteFrameName(Name)

if (pFish) then

pFish:setScale(1.0);

pFish:setTag(fishType);

pFish:setPosition(startP);

pFish:setIsCatch(false);

pFish:runAction(fish_act);

pFish:addPath(pathType,arg1);

--self.s_AllFish1:addChild(pFish)--生成的鱼精灵对象挂接到鱼精灵批处理结点对象s_AllFish1上

--生成的鱼精灵对象挂接到鱼精灵批处理结点对象s_AllFish1的父节点上

local pNode=self.s_AllFish1:getParent()

pNode:addChild( pFish );

end

CCLuaLog("pFish="..tostring(pFish))

end

SceneGame.lua中调用Fish.lua：

-- 弹起(鼠标在控件区域内)

function onCCControlEventTouchUpInside(pSender,name)

CCLuaLog("SceneGame.pSender["..tostring(pSender).."].name["..name.."].onCCControlEventTouchUpInside")

--add by Ivan_han

if name=="MyDepot" then

--FishManage:addOneFish(1,1,ccp(0,100))

FishManage:addOneGroupFish(2)

elseif name=="Task" then

FishManage:addOneGroupFish(1)

elseif name=="Help" then

--FishManage:addOneFish(1,3)

FishManage:addOneGroupFish(3)

elseif name=="Shop" then

FishManage:addOneFish(1,4)

elseif name=="Supplement" then

--FishManage:addOneFish(1,5,ccp(500,300),ccp(350,300))

FishManage:addOneGroupFish(4)

elseif name=="Bullet" then

FishManage:addOneFish(1,6)

elseif name=="Set" then

--FishManage:addOneFish(1,7)

FishManage:addOneGroupFish(5)

else

FishManage:addOneFish(1,8)

end

end：