关于热血传奇actor绘制的分析与思考

矫情吗；* 2022-09-25 11:18 270阅读 0赞

http://blog.csdn.net/lyin\_c/article/details/26162225

代码内将每个actor的动作细分为  站立 行走 攻击 死亡 等等。

而每个动作都包含8个方向的定义。指定如何从资源文件中 获取相应的纹理。

以下是方向的常量

**\[delphi\]** [ view plain][view plain] [ copy][view plain] [ print][view plain] [?][view plain]

1.  // Actor 方向常量  
2.  DIR\_UP        = 0;  
3.  DIR\_UPRIGHT   = 1;  
4.  DIR\_RIGHT     = 2;  
5.  DIR\_DOWNRIGHT = 3;  
6.  DIR\_DOWN      = 4;  
7.  DIR\_DOWNLEFT  = 5;  
8.  DIR\_LEFT      = 6;  
9.  DIR\_UPLEFT    = 7;

以下是动作定义。

**\[delphi\]** [ view plain][view plain] [ copy][view plain] [ print][view plain] [?][view plain]

1.  TActionInfo = record  
2.    start   : word;              // 开始帧  
3.    frame   : word;              // 帧数  
4.    skip    : word;              // 跳过的帧数  
5.    ftime   : word;              // 每帧的延迟时间(毫秒)  
6.    usetick : byte;              // (意义未知)  
7.  end;

不管人类还是NPC或者是怪物，其当前动作 都可以使用TActionInfo 来指定 读取规则。

而人类是包含以下动作的

**\[delphi\]** [ view plain][view plain] [ copy][view plain] [ print][view plain] [?][view plain]

1.  THumanAction = packed record //人物动作  
2.    ActStand: TActionInfo; //1  站立  
3.    ActWalk: TActionInfo; //8   行走  
4.    ActRun: TActionInfo; //8     跑  
5.    ActRushLeft: TActionInfo; // 左冲锋？  
6.    ActRushRight: TActionInfo; //右冲锋  
7.    ActWarMode: TActionInfo;   
8.    ActHit: TActionInfo; //攻击  
9.    ActHeavyHit: TActionInfo; //重击  
10.   ActBigHit: TActionInfo; //大击  
11.   ActFireHitReady: TActionInfo; //烈火攻击准备？  
12.   ActSpell: TActionInfo; //使用法术  
13.   ActSitdown: TActionInfo; //1   //坐下  
14.   ActStruck: TActionInfo; //3     //被攻击  
15.   ActDie: TActionInfo; //4      //死亡  
16.   ActSerieHit: array\[0..18 - 1\] of TActionInfo;  //连击动作

同时定义了一个全局人类读取规则

**\[delphi\]** [ view plain][view plain] [ copy][view plain] [ print][view plain] [?][view plain]

1.  \{人类动作定义\}   
2.  HumAction: THumanAction = (  
3.       //       开始帧      有效帧    跳过帧   每帧延迟    (意义未知)  
4.      ActStand: (start: 0; frame: 4; skip: 4; ftime: 200; usetick: 0); //0-63  站立  
5.      ActWalk: (start: 64; frame: 6; skip: 2; ftime: 90; usetick: 2);  //64-127   行走  
6.      ActRun: (start: 128; frame: 6; skip: 2; ftime: 120; usetick: 3);  //128- 191    跑步  
7.      ActRushLeft: (start: 128; frame: 3; skip: 5; ftime: 120; usetick: 3);//野蛮冲撞的貌似  
8.      ActRushRight: (start: 131; frame: 3; skip: 5; ftime: 120; usetick: 3);  //  
9.      ActWarMode: (start: 192; frame: 1; skip: 0; ftime: 200; usetick: 0); //攻击后停滞的画面  
10.     ActHit: (start: 200; frame: 6; skip: 2; ftime: 85; usetick: 0);  
11.     ActHeavyHit: (start: 264; frame: 6; skip: 2; ftime: 90; usetick: 0);  
12.     ActBigHit: (start: 328; frame: 8; skip: 0; ftime: 70; usetick: 0);  
13.     ActFireHitReady: (start: 192; frame: 6; skip: 4; ftime: 70; usetick: 0);  
14.     ActSpell: (start: 392; frame: 6; skip: 2; ftime: 60; usetick: 0);  
15.     ActSitdown: (start: 456; frame: 2; skip: 0; ftime: 300; usetick: 0);  
16.     ActStruck: (start: 472; frame: 3; skip: 5; ftime: 70; usetick: 0);  
17.     ActDie: (start: 536; frame: 4; skip: 4; ftime: 120; usetick: 0);  
18.     ActSerieHit:  
19.     (  //连击  
20.     (start: 0; frame: 6; skip: 4; ftime: 60; usetick: 0), //0  
21.     (start: 80; frame: 8; skip: 2; ftime: 60; usetick: 0), //1  
22.     (start: 160; frame: 15; skip: 5; ftime: 60; usetick: 0), //2  
23.     (start: 320; frame: 6; skip: 4; ftime: 60; usetick: 0), //3  
24.     (start: 400; frame: 13; skip: 7; ftime: 60; usetick: 0), //4  
25.     (start: 560; frame: 10; skip: 0; ftime: 60; usetick: 0), //5  
26.     (start: 640; frame: 6; skip: 4; ftime: 60; usetick: 0), //6  
27.     (start: 720; frame: 6; skip: 4; ftime: 60; usetick: 0), //7  
28.     (start: 800; frame: 8; skip: 2; ftime: 60; usetick: 0), //8  
29.     (start: 880; frame: 10; skip: 0; ftime: 60; usetick: 0), //9  
30.     (start: 960; frame: 10; skip: 0; ftime: 60; usetick: 0), //10  
31.     (start: 1040; frame: 13; skip: 7; ftime: 60; usetick: 0), //11  
32.     (start: 1200; frame: 6; skip: 4; ftime: 60; usetick: 0), //12  
33.     (start: 1280; frame: 6; skip: 4; ftime: 60; usetick: 0), //13  
34.     (start: 1360; frame: 9; skip: 1; ftime: 60; usetick: 0), //14  
35.     (start: 1440; frame: 12; skip: 8; ftime: 60; usetick: 0), //15  
36.     (start: 1600; frame: 12; skip: 8; ftime: 60; usetick: 0), //16  
37.     (start: 1760; frame: 14; skip: 6; ftime: 60; usetick: 0) //17  
38.     )  
39.     );

而对于怪物来说。也定义一些基本的动作状态：

**\[delphi\]** [ view plain][view plain] [ copy][view plain] [ print][view plain] [?][view plain]

1.  TMonsterAction = packed record  
2.  ActStand: TActionInfo; //1  
3.  ActWalk: TActionInfo; //8  
4.  ActAttack: TActionInfo; //6  
5.  ActCritical: TActionInfo; //6 0x20 -  
6.  ActStruck: TActionInfo; //3  
7.  ActDie: TActionInfo; //4  
8.  ActDeath: TActionInfo;

而关于怪物的读取规则就定义了许多。以配合读取不同的怪物资源。

如：

**\[delphi\]** [ view plain][view plain] [ copy][view plain] [ print][view plain] [?][view plain]

1.  MA9: TMonsterAction = (//4C03D4  
2.      ActStand: (start: 0; frame: 1; skip: 7; ftime: 200; usetick: 0);  
3.      ActWalk: (start: 64; frame: 6; skip: 2; ftime: 120; usetick: 3);  
4.      ActAttack: (start: 64; frame: 6; skip: 2; ftime: 150; usetick: 0);  
5.      ActCritical: (start: 0; frame: 0; skip: 0; ftime: 0; usetick: 0);  
6.      ActStruck: (start: 64; frame: 6; skip: 2; ftime: 100; usetick: 0);  
7.      ActDie: (start: 0; frame: 1; skip: 7; ftime: 140; usetick: 0);  
8.      ActDeath: (start: 0; frame: 1; skip: 7; ftime: 0; usetick: 0);  
9.      );

而对于NPC的读取规则定义 就是使用的怪物的定义。也就是说NPC的基本动作和怪物是一样的 只不过他们都是站立的 并不会行走，当然可以自己实现行走也是没问题的。

而actor的绘制，是通过TActor.DrawChr 这个函数来绘制的，而Actor实现的绘制只是身体的绘制并不包含武器 头发这种。

**\[delphi\]** [ view plain][view plain] [ copy][view plain] [ print][view plain] [?][view plain]

1.  procedure TActor.DrawChr(dsurface: TTexture; dx, dy: Integer; blend: Boolean; boFlag: Boolean);//绘制玩家角色？  
2.  var  
3.    idx, ax, ay: Integer;  
4.    d: TTexture;  
5.    ceff: TColorEffect;  
6.    wimg: TGameImages;  
7.  begin  
8.    d := nil;   
9.    if not CanDraw then Exit;  
10.   if not (m\_btDir in \[0..7\]) then Exit; //如果人物方向不在0.。7就退出  
11.   if GetTickCount - m\_dwLoadSurfaceTick > m\_dwLoadSurfaceTime then begin  
12.     m\_dwLoadSurfaceTick := GetTickCount;  
13.     LoadSurface;//此函数的作用就是载入纹理。  
14.   end;  
15.   
16.   ceff := GetDrawEffectValue; //获取当前绘制状态，是不是中毒 隐身 等等  
17.   
18.   if m\_BodySurface <> nil then begin   
19.     DrawEffSurface(dsurface,  
20.       m\_BodySurface,  
21.       dx + m\_nPx + m\_nShiftX,  
22.       dy + m\_nPy + m\_nShiftY,  
23.       blend,  
24.       ceff); //在Dsurface上绘制出来。而Dsurface是全局纹理。  
25.   end;  
26.   
27.   if m\_boUseMagic and (m\_CurMagic.EffectNumber > 0) then begin //如果使用魔法并且魔法效果号>0  
28.     if m\_nCurEffFrame in \[0..m\_nSpellFrame - 1\] then begin    
29.       GetEffectBase(m\_CurMagic.EffectNumber - 1, 0, wimg, idx);  
30.       idx := idx + m\_nCurEffFrame;  
31.       if wimg <> nil then  
32.         d := wimg.GetCachedImage(idx, ax, ay);  
33.       if d <> nil then  
34.         DrawBlend(dsurface,  
35.           dx + ax + m\_nShiftX,  
36.           dy + ay + m\_nShiftY,  
37.           d); //混合绘制纹理  
38.     end;  
39.   end;  
40. end;

以上函数是将纹理绘制出来而已。并没有写出如何按照规则读取出纹理。而读取纹理 其实是在Tactor.loadsurface

**\[delphi\]** [ view plain][view plain] [ copy][view plain] [ print][view plain] [?][view plain]

1.  procedure TActor.LoadSurface;  
2.  var  
3.    mimg: TGameImages;  
4.  begin  
5.    mimg := g\_WMonImages.Images\[m\_wAppearance\]; //获取纹理图库 MonX.wil  
6.    if mimg <> nil then begin     //如果纹理图库部位空  
7.      if (not m\_boReverseFrame) then begin      //GetOffset的函数是按照怪物的m\_wAppearance<span style="font-family: Arial, Helvetica, sans-serif;">(数据库内Appr) 返回图片的基地址。</span>  
8.    
9.        m\_BodySurface := mimg.GetCachedImage(GetOffset(m\_wAppearance) + m\_nCurrentFrame, m\_nPx, m\_nPy);  
10.     end else begin                            //m\_nCurrentFrame就是t将动作计算成偏移图片的序号。  
11.       m\_BodySurface := mimg.GetCachedImage(  
12.         GetOffset(m\_wAppearance) + m\_nEndFrame - (m\_nCurrentFrame - m\_nStartFrame),  
13.         m\_nPx, m\_nPy);  
14.     end;  
15.   end;  
16. end;

如上注释：m\_nCurrentFrame就是将动作转换成偏移图片的序号。而将当前actor的动作转换成偏移序号的函数是TActor.CalcActorFrame

**\[delphi\]** [ view plain][view plain] [ copy][view plain] [ print][view plain] [?][view plain]

1.  procedure TActor.CalcActorFrame;  
2.  var  
3.    haircount: Integer;  
4.  begin  
5.    m\_boUseMagic := False;  
6.    m\_nCurrentFrame := -1;  
7.    m\_nBodyOffset := GetOffset(m\_wAppearance);  //按照怪物的appr(外观编号)获得偏移的序号。  
8.    m\_Action := GetRaceByPM(m\_btRace, m\_wAppearance);//按照Actor的Race(动作编号)获得怪物的绘制规则。是一个TMonsterAction.  
9.    if m\_Action = nil then Exit;//如果这个动作没有定义则不执行。 一下就是如何将当前动作结合动作规则将其转换成图片序号的详细过程  
10.   case m\_nCurrentAction of  
11.     SM\_TURN: begin  
12.         m\_nStartFrame := m\_Action.ActStand.start + m\_btDir \* (m\_Action.ActStand.frame + m\_Action.ActStand.skip);  
13.         m\_nEndFrame := m\_nStartFrame + m\_Action.ActStand.frame - 1;  
14.         m\_dwFrameTime := m\_Action.ActStand.ftime;  
15.         m\_dwStartTime := GetTickCount;  
16.         m\_nDefFrameCount := m\_Action.ActStand.frame;  
17.         Shift(m\_btDir, 0, 0, 1);  
18.       end;  
19.     SM\_WALK, SM\_RUSH, SM\_RUSHKUNG, SM\_BACKSTEP: begin  
20.         m\_nStartFrame := m\_Action.ActWalk.start + m\_btDir \* (m\_Action.ActWalk.frame + m\_Action.ActWalk.skip);  
21.         m\_nEndFrame := m\_nStartFrame + m\_Action.ActWalk.frame - 1;  
22.         m\_dwFrameTime := m\_Action.ActWalk.ftime;  
23.         m\_dwStartTime := GetTickCount;  
24.         m\_nMaxTick := m\_Action.ActWalk.usetick;  
25.         m\_nCurTick := 0;  
26.         m\_nMoveStep := 1;  
27.   
28.         if m\_nCurrentAction = SM\_BACKSTEP then  
29.           Shift(GetBack(m\_btDir), m\_nMoveStep, 0, m\_nEndFrame - m\_nStartFrame + 1)  
30.         else  
31.           Shift(m\_btDir, m\_nMoveStep, 0, m\_nEndFrame - m\_nStartFrame + 1);  
32.       end;  
33.   
34.     SM\_HIT: begin  
35.         m\_nStartFrame := m\_Action.ActAttack.start + m\_btDir \* (m\_Action.ActAttack.frame + m\_Action.ActAttack.skip);  
36.         m\_nEndFrame := m\_nStartFrame + m\_Action.ActAttack.frame - 1;  
37.         m\_dwFrameTime := m\_Action.ActAttack.ftime;  
38.         m\_dwStartTime := GetTickCount;  
39.         //WarMode := TRUE;  
40.         m\_dwWarModeTime := GetTickCount;  
41.         Shift(m\_btDir, 0, 0, 1);  
42.       end;  
43.     SM\_STRUCK: begin  
44.         m\_nStartFrame := m\_Action.ActStruck.start + m\_btDir \* (m\_Action.ActStruck.frame + m\_Action.ActStruck.skip);  
45.         m\_nEndFrame := m\_nStartFrame + m\_Action.ActStruck.frame - 1;  
46.         m\_dwFrameTime := m\_dwStruckFrameTime; //pm.ActStruck.ftime;  
47.         m\_dwStartTime := GetTickCount;  
48.         Shift(m\_btDir, 0, 0, 1);  
49.       end;  
50.     SM\_DEATH: begin  
51.         m\_nStartFrame := m\_Action.ActDie.start + m\_btDir \* (m\_Action.ActDie.frame + m\_Action.ActDie.skip);  
52.         m\_nEndFrame := m\_nStartFrame + m\_Action.ActDie.frame - 1;  
53.         m\_nStartFrame := m\_nEndFrame;  
54.         m\_dwFrameTime := m\_Action.ActDie.ftime;  
55.         m\_dwStartTime := GetTickCount;  
56.       end;  
57.     SM\_NOWDEATH: begin  
58.         m\_nStartFrame := m\_Action.ActDie.start + m\_btDir \* (m\_Action.ActDie.frame + m\_Action.ActDie.skip);  
59.         m\_nEndFrame := m\_nStartFrame + m\_Action.ActDie.frame - 1;  
60.         m\_dwFrameTime := m\_Action.ActDie.ftime;  
61.         m\_dwStartTime := GetTickCount;  
62.       end;  
63.     SM\_SKELETON: begin  
64.         m\_nStartFrame := m\_Action.ActDeath.start + m\_btDir;  
65.         m\_nEndFrame := m\_nStartFrame + m\_Action.ActDeath.frame - 1;  
66.         m\_dwFrameTime := m\_Action.ActDeath.ftime;  
67.         m\_dwStartTime := GetTickCount;  
68.       end;  
69.   end;  
70. end;

对于 NPC 和Hum 虽然有不同但也是按照此思路进行编码。

思考：对于绘制其实是将动作转换成相应的纹理将其绘制出来。而对于一个Actor只有BodySurface 也就是身体的纹理。而对于Hum 则有 武器 头发 翅膀 等效果。那么应该把将动作转换成纹理这个函数独立出来。 并不局限于某个类，将各种纹理 例如武器头发翅膀 这些按照一定规则独立出来。那么则可以以自由的方式组合某个Actor的纹理，可以拥有身体 武器  或者又拥有 头发 翅膀等等。

这样方便实现变身这种功能。只需要改变动作类型以及选择使用哪些纹理 即可实现。

ActionDrawObject. HumanDrawAction    MonDrawAction,  NpcDrawAction

[view plain]: http://blog.csdn.net/lyin_c/article/details/26162225#