十分粗糙的复刻版动作声音修正

轩辕夏禹

我在上个月在播放人物动作动画的代码里并没有播放动作的声音，今天心血来潮便改了一改。
50指令里的播放效果和lua脚本里的播放效果都无需填入武功编号，所以没法播放武功的音效，我到目前为止还想不到解决方案，就只好直接新建一个PlayActionAmination2(bnum, mode, mnum: integer);了。
改动的地方如下：
kys_battle新建一个PlayActionAmination2；
kys_engine新建一个PlaySound2;




源码在此：

1. procedure PlayActionAmination2(bnum, mode, mnum: integer);
   
2. var
   
3.   d1, d2, dm, rnum, i, beginpic, endpic, idx, grp, tnum, len, spic: integer;
   
4.   filename: string;
   
5. begin
   
6.   d1 := Ax - Bx;
   
7.   d2 := Ay - By;
   
8.   dm := abs(d1) - abs(d2);
   
9.   if (dm >= 0) then
   
10.     if d1 < 0 then
    
11.       Brole[bnum].Face := 0
    
12.     else
    
13.       Brole[bnum].Face := 3
    
14.   else if d2 < 0 then
    
15.     Brole[bnum].Face := 2
    
16.   else
    
17.     Brole[bnum].Face := 1;
    
18. 
    
19.   Redraw;
    
20.   rnum := brole[bnum].rnum;
    
21.   if rrole[rnum].AmiFrameNum[mode] > 0 then
    
22.   begin
    
23.     beginpic := 0;
    
24.     for i := 0 to 4 do
    
25.     begin
    
26.       if i >= mode then
    
27.         break;
    
28.       beginpic := beginpic + rrole[rnum].AmiFrameNum[i] * 4;
    
29.     end;
    
30.     beginpic := beginpic + Brole[bnum].Face * rrole[rnum].AmiFrameNum[mode];
    
31.     endpic := beginpic + rrole[rnum].AmiFrameNum[mode] - 1;
    
32. 
    
33.     filename := format('%3d', [rrole[rnum].HeadNum]);
    
34. 
    
35.     for i := 1 to length(filename) do
    
36.       if filename[i] = ' ' then
    
37.         filename[i] := '0';
    
38. 
    
39.     idx := fileopen('fight\fight' + filename + '.idx', fmopenread);
    
40.     grp := fileopen('fight\fight' + filename + '.grp', fmopenread);
    
41.     len := fileseek(grp, 0, 2);
    
42.     fileseek(grp, 0, 0);
    
43.     fileread(grp, FPic[0], len);
    
44.     tnum := fileseek(idx, 0, 2) div 4;
    
45.     fileseek(idx, 0, 0);
    
46.     fileread(idx, FIdx[0], tnum * 4);
    
47.     fileclose(grp);
    
48.     fileclose(idx);
    
49.     spic := beginpic + rrole[rnum].SoundDealy[mode] - 1;
    
50. 
    
51.     for i := beginpic to endpic do
    
52.     begin
    
53.       DrawBfieldWithAction(bnum, i);
    
54.       if i = spic then PlaySound2(rmagic[mnum].SoundNum, 0);
    
55.       sdl_updaterect(screen, 0, 0, screen.w, screen.h);
    
56.       sdl_delay(20);
    
57.     end;
    
58.   end;
    
59. 
    
60. end;

复制代码

1. procedure PlaySound2(SoundNum, times: integer); overload;
   
2. begin
   
3.   if SoundNum in [Low(asound)..High(asound)] then
   
4.     if asound[SoundNum] <> nil then
   
5.       Mix_PlayChannel(-1, asound[SoundNum], times);
   
6. 
   
7. end;

复制代码

极其简单的修改，但可以让那些atk的音效播放出来，敝人相当满意。
不知道五十指令里的播放效果和lua脚本里的播放效果该怎么弄，所以才会新建一个playaction的代码供battle里的attackaction使用，不知道dos版里50指令的播放效果有没有声音播放呢？
就这样，希望一些已经修正过这项问题的大大们可以无私的贴上修正后的代码，以取代敝人这段白痴代码。

[发帖际遇]: 轩辕夏禹拍丁春秋的马屁，获赠金钱银两5两。

[ 本帖最后由 轩辕夏禹 于 2010-3-16 01:10 编辑 ]

jy02785317

不懂
不过lua版似乎播放声音无问题

winson7891

哇~15分啊……

不过话说原来不是已经有一套这样的功能么？

刚才翻了一下源码，一下子翻到了~

[发帖际遇]: winson7891闯入绝情谷，从裘千尺手中夺取“绝情丹”，转手卖于杨过，得到银两18。

轩辕夏禹

我没看到啊……
还是说这是winson大您自己写的，然后你忘了？？
因为我翻遍了源码也没看到啊，我迟点回家再翻翻看。
我想知道dos般的50指令播放效果会不会播放声音

[发帖际遇]: 轩辕夏禹大量收购血竭、田七、没药、熊胆，想转卖给赵王府，提前被郭靖黄蓉劫走，亏损银两10两。

[ 本帖最后由 轩辕夏禹 于 2010-3-15 16:55 编辑 ]

weyl

好像是我写的

[发帖际遇]: weyl于令狐冲口渴之时制止了其偷西瓜的行为，并送与令狐冲美酒一瓶，事后令狐冲赠送其银两5两。

winson7891

看吧~

话说轩辕你的源码啥版本啊……

轩辕夏禹

不会吧……
我现在还在网吧打魔兽，晚上再回家看看。
话说，bt大，dos版的50指令播放效果时会不会显示音效哦？
我是指atk的声音哦。

[发帖际遇]: 轩辕夏禹收集大量金针卖给黄蓉，得钱银两4两。

weyl

dos版可能会吧
dos版或复刻版的指令应该都指向对应子程，只要改了那个子程就可以了

killer_zingy

从来电脑不开声.......
还不知道妇科有这个问题........

[发帖际遇]: killer_zingy想前往牛家村发掘曲灵风藏宝，却被侯通海弄脏了衣服，买新衣服花去银两5两。

轩辕夏禹

乌鸦大，我找了找没发现啊，我的源码是论坛资源下载站里自带的。

[发帖际遇]: 金花婆婆和灭绝师太对战时，被倚天剑削飞的一大块珊瑚金杖，正好砸晕了观战的轩辕夏禹，卖碎金块换得银两4两的膏药钱去治伤。

老衲法号乱来

汗，我找了一下原版复刻，的确没有显示atksound这个功能

但initial是有的

可能真的是我不知道什么时候手多加的……自己都不记得了汗~

不过这很重要吗……只是抄一下playsound的格式改几个字母罢了~

另外提醒一下LZ, overload当两个功能用同样名字时才用的，只有一个功能的话不需要加~

[发帖际遇]: 老衲法号乱来于令狐冲口渴之时制止了其偷西瓜的行为，并送与令狐冲美酒一瓶，事后令狐冲赠送其银两8两。

轩辕夏禹

这我也没想到，主要是想要修复原版复刻的这个问题，再加上技术有限，只好做这么粗糙的了。

[发帖际遇]: 轩辕夏禹投石杀死蒙古大汗蒙哥，天下闻名，增加声望5。

老衲法号乱来

我没有说你的功能粗糙啊~~

能用，逻辑不复杂，没有浪费资源~

即使改进了又会好多少？这样很好，不是吗？

就是overload有点多余~

[发帖际遇]: 老衲法号乱来在老顽童处骗取《养蜂秘法》，翻印成《如何饲养文化型蜜蜂》出版后获利银两13。

轩辕夏禹

其实我可以很不要脸的说，我看不懂overload的意思……

[发帖际遇]: 轩辕夏禹发现牛家村曲灵风藏宝，共银两15两。