超华丽视觉频谱！音频增强模块 Bass For RMXP!支持音频ogg wma! - Project1

#==============================================================================
# ■ Graphics
#------------------------------------------------------------------------------
# 　重新定义Graphics 防止当机! 重要!
#==============================================================================
class << Graphics
alias main_update update
def update
main_update
$game_bass.update
end
end
#==============================================================================
# ■ Bass
# 强大的流媒体播放 Lib For Win32 封装成RGSS脚本！会的人或许很多吧！献丑了!
# 支持格式 WMA MP3 OGG 等...加上 Bass_DShow 可以播放视频文件
# 加上 ffdshow插件可以播放现在大部分主流视频!
# Bass_DShow.dll 基于 DirectShow 开发!好了废话就说那么多吧!
#------------------------------------------------------------------------------
# 　处理流媒体的类其实处理这个类应该加入线程中这样是最好的!
# 转载时请保留此＆以下信息!谢谢！
# 由于时间关系本人不得不离开 RMXP 几天只能发个这个尝鲜版了!
# 最后祝大家身体健康万事如意
# ------------------------------------- My嬡凊丶莈孒汸姠♀誰帶蕗
#　　ＱＱ：３７００５２０７８
# 哪逺咕畱芐哋傷畩舊彯蕶!
# 落埖巳莋猦湔橆,蓅渁畩舊呮崬厾!
# ①咟姩後哋'落葭'仍嘫浍洧洮埖嬤?
#==============================================================================
class Game_Bass
attr_accessor :stream
attr_accessor :fft_p
attr_accessor :title
attr_accessor :singer
# 定义常量
BASS_DATA_FFT256 = 2147483648
BASS_DATA_FFT512 = 2147483649
BASS_DATA_FFT1024 = 2147483650
BASS_DATA_FFT2048 = 2147483651
BASS_DATA_FFT4096 = 2147483652
BASS_DATA_FFT8192 = 2147483653
#--------------------------------------------------------------------------
# ● 初始化
#--------------------------------------------------------------------------
def initialize
$peacks = []
@title=""
@singer=""
@pluginid=0
@stream = 0
@fft_data = []
for i in 0...255
@fft_data[i] = 0
end
@fft_p = @fft_data.pack("d255")
init = Win32API.new("bass.dll","BASS_Init",'iiiii','i')
# 设备号采样率标志窗口句柄为0 则当前句柄
init.call(-1,44100,0,0,0)
end
#--------------------------------------------------------------------------
# ● 更新
#--------------------------------------------------------------------------
def update
updateapi = Win32API.new("bass.dll","BASS_Update",'i','i')
updateapi.call(15000) # 15000毫秒挂入 Graphics 足够了! 这句只能加毫秒
end
#--------------------------------------------------------------------------
# ● 加载插件Decoder
#--------------------------------------------------------------------------
def loadplugin(pluginfile="")
plugin = Win32API.new("bass.dll","BASS_PluginLoad",'pi','i')
plugin.call(pluginfile,@pluginid)
@pluginid=@pluginid+1
end
#--------------------------------------------------------------------------
# ● 自动加载插件枚举 \Decoder 文件下所有插件进行 load
#--------------------------------------------------------------------------
def autoloadplugin
plugin = Win32API.new("AuxiliaryLib.dll","LoadDecoder",'v','v')
plugin.call()
end
#--------------------------------------------------------------------------
# ● 打开文件文件名 UTF-8 转 ANSI
#--------------------------------------------------------------------------
def openfile(filename)
if @stream != 0 and @stream !=-1
free=Win32API.new("bass.dll","BASS_StreamFree",'i','i')
free.call(@stream)
end
open = Win32API.new("bass.dll","BASS_StreamCreateFile",'ipiii','i')
play = Win32API.new("bass.dll","BASS_ChannelPlay",'ii','i')
getinfo = Win32API.new("AuxiliaryLib.dll","GetTitle","p","p")
@title= getinfo.call(filename)
getinfo = Win32API.new("AuxiliaryLib.dll","GetSinger","p","p")
@singer=getinfo.call(filename)
play.call(@stream = open.call(0,filename.to_ansi,0,0,0),0)
setvol(60)
return @stream
end
#--------------------------------------------------------------------------
# ● 获取文件流长度秒模式
#--------------------------------------------------------------------------
def getlength
getlengthpos = Win32API.new("AuxiliaryLib.dll","GetLength",'i','i')
return getlengthpos.call(@stream)
end
#--------------------------------------------------------------------------
# ● 获取当前位置
#--------------------------------------------------------------------------
def getpos
pos = Win32API.new("AuxiliaryLib.dll","GetPos",'i','i')
return pos.call(@stream)
end
#--------------------------------------------------------------------------
# ● 获取流FFT - 频谱功能
#--------------------------------------------------------------------------
# 以下纯苦力呀多亏了林格斯翻译咯 (*^__^*) 嘻嘻…… 翻译好像不咋滴
# ~~o(>_<)o ~~ 英语学得不好就是吃亏
def getfftdata(fftval=256)
# BASS_DATA_FFT256 256 样本的FFT（256返回浮点值）下面不翻译了能看懂了
# BASS_DATA_FFT512 512 sample FFT (returns 512 floating-point values)
# BASS_DATA_FFT1024 1024 sample FFT (returns 1024 floating-point values)
# BASS_DATA_FFT2048 2048 sample FFT (returns 2048 floating-point values)
# BASS_DATA_FFT4096 4096 sample FFT (returns 4096 floating-point values)
# BASS_DATA_FFT8192 8192 sample FFT (returns 8192 floating-point values)
# BASS_DATA_FFT_INDIVIDUAL 执行FFT的每个通道单独的，
# 而不是一个单一的联合的FFT。
# 返回的数据大小（如上述）乘以通道数。
# BASS_DATA_FFT_NOWINDOW 防止翰窗口被应用到的样本数据时执行的FFT。
# BASS_DATA_FFT_REMOVEDC 从样本中删除任何数据时进行直流偏置的FFT。
# BASS_DATA_AVAILABLE 查询的数据量的通道缓冲播放，或从录音。
# 这标志不能用于解码频道，他们没有播放缓冲区。
# 缓冲区被忽略时，使用此标志。
# 以上是数据说明部分--------------------------------------------------------
# 不管它演示中我只取了 256 个值而且只用几个!图方便...因为我手已经酸了...
# %>_<%
# ruby pack 这里参数特殊所以使用pack吧
# [1.0].pack("d") => "\000\000\000\000\000\000\360?"
# sparc (IEEE754 双精度大Endian):
#
# [1.0].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_p
end
#--------------------------------------------------------------------------
# ● 解开包
#--------------------------------------------------------------------------
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 string
end
#--------------------------------------------------------------------------
# ● 前进后退
#--------------------------------------------------------------------------
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)
end
end

复制代码