战斗系统强化——战场上查看任意敌人/队友状态（复刻版）

winson7891

改——竟然忘记了战场总人物数BRoleAmong这个变量，简化了~郁闷
附件的旧的，不过代码很简单了，就不重发了~呵呵

----
哇哈哈哈~~竟然真的被我做出来了！

似乎论坛上各位大大都只去搞那个50指令，没有为mod的战斗系统做这样的改进

那小弟就在这方面努力，尝试着是否能做出来呢~

没想到，过程比想象中的要简单呢！

附件中是已经改好的kys_battle.pas文件,有复刻版源码的可以直接用delphi等编译，就不多说了

代码真的很简单，只是加一个流程罢了，如下：
procedure viewallstatus(bnum: integer);
var
  i, step:integer;
begin
  CalCanSelect(bnum,1);
  step:=30;
  if ( SelectAim(bnum, step) ) then                  //选定某个坐标的角色
  begin
    for i:=0 to (BRoleAmount-1) do                 //在战场上搜索所有人物对照
    begin
      if (BRole[i].X = Ax ) and (BRole[i].Y =Ay) then
      begin
        ShowStatus(brole[i].rnum);
        waitanykey;
      end;
    end;
  end;
end;

当然，还要在kys_battle.pas中的battlemainconcorl中把显示状态的case of 命令（应该是第七项）下的内容改为该procedure

然后编译，那在战斗中选择状态就不再是显示当前人物属性了，而是会提供移动选择，把光标移动到任意目标脚下，选择，该角色的属性就会显示出来了！！！

哈哈哈~~方便吧？

没有经过太多测试，找到bug请指正

[table=100%,#cbb48a][tr][td][size=9pt][发帖际遇]: [url=http://www.txdx.net/event.php]winson7891借钱给游坦之整容，手术失败，花了银两25.
[/url][/font][/td][/tr][/table]

[[i] 本帖最后由 winson7891 于 2009-3-27 21:55 编辑 [/i]]

nukhuang

屏幕外面的怎么办？？？

其实只要一个菜单装满参与战斗的人名就好了吧。。。而且找起来方便（我一窍不通我什么都不知道如果不好不是我的错）

[发帖际遇]: nukhuang暑假期间在洛阳绿竹巷参加《任盈盈琴箫兴趣班》，学习中级课程，报名费银两42。

winson7891

其实屏幕外还是能找到的，光标依然有效，就是看不到位置，不好找，这的确要改进

不过其实在640*480的分辨率底下，应该是够了

你说那个所有角色的人名菜单嘛~

我不喜欢这种死板的方式，这是一点

另外一点就是，例如有一堆叫“少林弟子”的NPC，打出人名菜单你知道谁跟谁吗？

所以还是直接选择比较好的

Zalman

路过~~~
踩一下！

苍天有悔

还是只能看懂一部分