復刻版齣招音傚,武功音傚;音量問題

Niv

1.
Dos版齣招可聞音傚,如掌,劒,刀聲.
復刻版速度很快(髮現根本不齣齣招音傚),隻有武功音傚.
atk**.wav文件變得多餘,(可能為防讀取齣錯畱下?).
如此武功意境感覺不行(特別是dos版改好武功移過來,感覺大打折釦).
復刻版作者遺畱此問題嗎?或者有什么辦法解決?

2.
揹景音樂的'音量'和齣招,武功音傚的'音量'可否在代碼中調節?
在繫統音量控製器中把midi或混閤器音量調低,,轉換場景后揹景音樂一變又自動囬復到最大音量....怎么解決..
(weyl的pascal復刻版)

3.
Thank you!

[发帖际遇]: Niv在老顽童处骗取《养蜂秘法》，翻印成《如何饲养文化型蜜蜂》出版被查出偷税漏税，罚款银两17.

[ 本帖最后由 Niv 于 2009-7-31 03:48 编辑 ]

winson7891

电脑3个月没开过声音，有空帮你看看~

路过别打~~

[发帖际遇]: winson7891发现石破天准备用银票擦屁股，赶紧送上两卷草纸，换回一张银票，兑换银两21。

killer_zingy

我资质有限, 看不懂lz在说些什么

[发帖际遇]: killer_zingy冒充青木堂主向反清份子征收活动经费，结果：骗得银两31.

飘夜

同楼上 不知道楼主在说些什么

[发帖际遇]: 飘夜在华山山谷捡到被令狐冲打落的宝剑，送回给宁女侠，宁女侠感谢万分，送你银两25.

Niv

武功出招的时候...
先出atk**.wav的音效,再出e**.wav的音效.
(例如降龙十八掌,先出出招音效atk02,再出武功动画&音效e07.)
复刻版根本听不到atk...的音效.够清楚了吧?

[发帖际遇]: Niv挺身而出，阻止萧峰打“段正淳”，成功挽救阿朱，得到奖励银两43.

weyl

原帖由 Niv 于 2009-7-31 17:40 发表
武功出招的时候...
先出atk**.wav的音效,再出e**.wav的音效.
(例如降龙十八掌,先出出招音效atk02,再出武功动画&音效e07.)
复刻版根本听不到atk...的音效.够清楚了吧?

[发帖际遇]: Niv挺身而出，阻止萧峰打“段正 ...

我才知道是这么回事，代码里面根本没写

音量是每次播放的时候重设了一下，可以把那一句去掉

Niv

原帖由 weyl 于 2009-7-31 20:06 发表


我才知道是这么回事，代码里面根本没写

音量是每次播放的时候重设了一下，可以把那一句去掉

这样 ......望老大在后续版本完善..多了出招音效感觉真的好很多.
拳,剑,刀,特也有了明显的区别感...
正在学习代码中...

[发帖际遇]: Niv去长白山捉火蟾，送给韦一笑，得感谢费银两25.

游泳的鱼

原帖由 weyl 于 2009-7-31 20:06 发表


我才知道是这么回事，代码里面根本没写

音量是每次播放的时候重设了一下，可以把那一句去掉

出招动画延迟参数里面就包括了两个音效的延迟时间。先是在出招动画开始时播放atk，然后延迟一定帧数后播放E**，同时开始显示武功效果动画。

不过要注意在SDL中要用不同的通道来播放这两个wav。我一开始象播放midi一样只打开一个通道，结果播放e**时只能关闭前面的atk了。

Niv

应该是这段吧... 请问改哪呢?
音量是每次播放的时候重设,是哪句?

procedure InitialMusic;
var
  i: integer;
  str: string;
begin
  for i := 0 to 23 do
  begin
    str := 'music\' + inttostr(i) + '.mp3';
    if fileexists(pchar(str)) then
      Music := Mix_LoadMUS(pchar(str))
    else
      Music := nil;
  end;
  for i := 0 to 52 do
  begin
    str := formatfloat('sound\e00', i) + '.wav';
    if fileexists(pchar(str)) then
      ESound := Mix_LoadWav(pchar(str))
    else
      ESound := nil;
  end;
  for i := 0 to 23 do
  begin
    str := formatfloat('sound\atk00', i) + '.wav';
    if fileexists(pchar(str)) then
      ASound := Mix_LoadWav(pchar(str))
    else
      ASound := nil;
  end;

end;



//播放mp3音乐

procedure PlayMP3(MusicNum, times: integer); overload;
begin
  if MusicNum in [Low(Music)..High(Music)] then
    if Music[MusicNum] <> nil then
      Mix_PlayMusic(Music[MusicNum], times);


end;

procedure PlayMP3(filename: pchar; times: integer); overload;
begin
  //if fileexists(filename) then
  //begin
    //Music := Mix_LoadMUS(filename);
    //Mix_volumemusic(MIX_MAX_VOLUME div 3);
    //Mix_PlayMusic(music, times);
  //end;

end;

//停止当前播放的音乐

procedure StopMP3;
begin
  Mix_HaltMusic;

end;

//播放wav音效

procedure PlaySound(SoundNum, times: integer); overload;
begin
  if SoundNum in [Low(Esound)..High(Esound)] then
    if Esound[SoundNum] <> nil then
      Mix_PlayChannel(-1, Esound[SoundNum], times);

end;

procedure PlaySound(SoundNum: integer); overload;
begin
  if SoundNum in [Low(Esound)..High(Esound)] then
    if Esound[SoundNum] <> nil then
      Mix_PlayChannel(-1, Esound[SoundNum], 0);

end;

procedure PlaySound(filename: pchar; times: integer); overload;
begin
  {if fileexists(filename) then
  begin
    Sound := Mix_LoadWav(filename);
    Mix_PlayChannel(-1, sound, times);
  end;}
end;

[发帖际遇]: Niv乘船去王盘山旅游，被不明噪音弄晕，花费银两银两8。

weyl

Mix_volumemusic(MIX_MAX_VOLUME div 3);
把这句出现的地方都去掉

[发帖际遇]: weyl挺身而出，阻止萧峰打“段正淳”，阻止失败，阿朱遇难，花银两24帮助萧峰安葬阿朱.

Niv

原帖由 金圭子 于 2009-7-31 21:20 发表
能这样说话干吗要用那种“繁体字”，交流本来就是为了双方都能理解的方式来沟通，如果一种语言只有一个人懂，这种语言存在还有什么意义呢？


最初的复刻版在很多地方偷懒了，只能自己加了。不过现在很多人玩的时 ...

用紫光拼音,有时编辑繁体文件后繁简懒得切换....

我说的好像不是音乐影响性能的问题???而且是最新pascal复刻....

[发帖际遇]: Niv无意中获得赵敏的木制倚天剑，卖给摆地摊的，获利银两2.

Niv

原帖由 weyl 于 2009-7-31 21:24 发表
Mix_volumemusic(MIX_MAX_VOLUME div 3);
把这句出现的地方都去掉

[发帖际遇]: weyl挺身而出，阻止萧峰打“段正淳”，阻止失败，阿朱遇难，花银两24帮助萧峰安葬阿朱.

好的.....谢!!!

[发帖际遇]: Niv冒充青木堂主向反清份子征收活动经费，结果：骗得银两29.

Niv

原帖由 weyl 于 2009-7-31 21:24 发表
Mix_volumemusic(MIX_MAX_VOLUME div 3);
把这句出现的地方都去掉

[发帖际遇]: weyl挺身而出，阻止萧峰打“段正淳”，阻止失败，阿朱遇难，花银两24帮助萧峰安葬阿朱.

没是这句啊...这个只有1句,,前面还有'//',应该是被编辑器忽略的博....

[发帖际遇]: Niv挺身而出，阻止萧峰打“段正淳”，阻止失败，阿朱遇难，花银两49帮助萧峰安葬阿朱.

金圭子

原帖由 Niv 于 2009-7-31 21:49 发表


用紫光拼音,有时编辑繁体文件后繁简懒得切换....

我说的好像不是音乐影响性能的问题???而且是最新pascal复刻....

[发帖际遇]: Niv无意中获得赵敏的木制倚天剑，卖给摆地摊的，获利银两2.

不好意思，我这个人容易歪楼，说着说着就说到没关系的地方去了，才注意这儿是达摩堂，水了就不好了。
道个歉，我前面的帖子我自己用道具卡删了吧。

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

Niv

楼上:
小事,,,哪用道歉...不过我还以为解决我的问题了聂...

其他:
是不是编辑kys_engine.pas.这个文件啊...还是没找到音量那句..

[发帖际遇]: Niv借钱给游坦之整容，手术失败，花了银两11.