超华丽视觉 频谱！音频增强模块 Bass For RMXP!支持音频ogg wma!
下了 没一个顶的 ！ 我晕#==============================================================================# ■ Graphics#------------------------------------------------------------------------------# 重新定义Graphics 防止当机! 重要!#==============================================================================class __ "\000\000\000\000\000\000\360?"# sparc (IEEE754 双精度 大Endian):## .pack("d") => "?\360\000\000\000\000\000\000" if fftval=256 fftval = BASS_DATA_FFT256 elsif fftval=512 fftval = BASS_DATA_FFT512 elsif fftval=1024 # 眼睛开始花了! fftval = BASS_DATA_FFT1024 elsif fftval=2048 fftval = BASS_DATA_FFT2048 elsif fftval=4096 fftval = BASS_DATA_FFT4096 elsif fftval=8192 fftval = BASS_DATA_FFT8192 else return nil end fft = Win32API.new("bass.dll","BASS_ChannelGetData",'ipi','i') fft.call(@stream,@fft_p,fftval) return @fft_pend#--------------------------------------------------------------------------# ● 解开包#--------------------------------------------------------------------------def getpack(no=4) return getfftdata.unpack("d"+no.to_s)end#--------------------------------------------------------------------------# ● 暂停播放#--------------------------------------------------------------------------def pause act=Win32API.new("bass.dll","BASS_ChannelPause",'i','i') act.call(@stream)end#--------------------------------------------------------------------------# ● 恢复播放#--------------------------------------------------------------------------def recovery play = Win32API.new("bass.dll","BASS_ChannelPlay",'ii','i') play.call(@stream,0)end#--------------------------------------------------------------------------# ● 停止播放#--------------------------------------------------------------------------def stop stop = Win32API.new("bass.dll","BASS_ChannelStop",'i','i') stop.call(@stream)end#--------------------------------------------------------------------------# ● 取播放状态#--------------------------------------------------------------------------def getstatus active = Win32API.new("bass.dll","BASS_ChannelIsActive",'i','i') return active.call(@stream)end#--------------------------------------------------------------------------# ● 取播放状态文本#--------------------------------------------------------------------------def getstatusstr active = Win32API.new("bass.dll","BASS_ChannelIsActive",'i','i') string = "未知状态" case active.call(@stream) when 0 string ="停止播放" when 1 string ="正在播放" when 2 string ="等待播放" when 3 string ="暂停播放" end return stringend#--------------------------------------------------------------------------# ● 前进后退#--------------------------------------------------------------------------def seek(pos=0) setpos = Win32API.new("AuxiliaryLib.dll","seek",'ii','v') setpos.call(@stream,pos)end#--------------------------------------------------------------------------# ● 置音量#--------------------------------------------------------------------------def setvol(vol=100) setvol = Win32API.new("AuxiliaryLib.dll","SetVol",'ii','v') setvol.call(@stream,vol)end#--------------------------------------------------------------------------# ● 取音量#--------------------------------------------------------------------------def getvol getvol = Win32API.new("AuxiliaryLib.dll","GetVol",'i','i') return getvol.call(@stream)end#--------------------------------------------------------------------------# ● 置播放位置#--------------------------------------------------------------------------def seek_to(pos = 0) to = Win32API.new("AuxiliaryLib.dll","To",'ii','v') getvol.call(@stream,to)endend复制代码附件下 由于 Music 都是 流行歌曲 而且 3种格式 mp3 wma ogg 所以包 比较大!
版务...附件上不上...上千脑了 ...
下载地址:http://down.qiannao.com/space/fi ... /Project1.rar/.page
本帖来自P1论坛作者kula1900，因Project1站服务器在国外有时候访问缓慢不方便作者交流学习，经联系P1站长fux2同意署名转载一起分享游戏制作经验，共同为国内独立游戏作者共同创造良好交流环境，原文地址：https://rpg.blue/forum.php?mod=viewthread&tid=163102若有侵权，发帖作者可联系底部站长QQ在线咨询功能删除，谢谢。
页:
[1]