403 lines
8.1 KiB
XML
403 lines
8.1 KiB
XML
<?xml version="1.0" encoding="iso-8859-1"?>
|
|
<!DOCTYPE muclient>
|
|
<!-- Saved on Tuesday, December 09, 2008, 2:04 PM -->
|
|
<!-- MuClient version 4.37 -->
|
|
|
|
<!-- Plugin "LuaAudio" generated by Plugin Wizard -->
|
|
|
|
<muclient>
|
|
<plugin
|
|
name="LuaAudio"
|
|
author="Tyler Spivey"
|
|
id="aedf0cb0be5bf045860d54b7"
|
|
language="Lua"
|
|
purpose="Test audio plugin for lua"
|
|
save_state="y"
|
|
date_written="2008-12-09 14:02:34"
|
|
requires="4.37"
|
|
version="1.0"
|
|
>
|
|
|
|
</plugin>
|
|
|
|
|
|
<!-- Get our standard constants -->
|
|
|
|
<include name="constants.lua"/>
|
|
<aliases>
|
|
<alias
|
|
match="sound_toggle"
|
|
enabled="y"
|
|
send_to="12"
|
|
sequence="100"
|
|
>
|
|
<send>
|
|
if (sounds==0) then
|
|
sounds=1
|
|
Note("Sounds on.")
|
|
audio.volume(vol,0)
|
|
Sound(GetInfo(67).."/sounds/luaaudio/on.ogg")
|
|
return
|
|
else
|
|
sounds=0
|
|
Sound(GetInfo(67).."/sounds/luaaudio/off.ogg")
|
|
Note("Sounds off.")
|
|
vol=audio.getVolume()
|
|
DoAfterSpecial(0.3, 'Sound("volume=0")', 12)
|
|
return
|
|
end
|
|
</send>
|
|
</alias>
|
|
<alias
|
|
match="volume_down"
|
|
enabled="y"
|
|
send_to="12"
|
|
sequence="100"
|
|
>
|
|
<send>
|
|
if (sounds==0) then
|
|
Execute("tts_interrupt You're not supposed to use this function while sounds are off you weird person.")
|
|
Sound(GetInfo(67).."/sounds/luaaudio/error2.ogg")
|
|
return
|
|
end
|
|
if (volume_changed==1) then
|
|
if (vol==0) then
|
|
Note("It's muted you noob.")
|
|
else
|
|
vol=vol-5
|
|
SetVariable("vol", vol)
|
|
SaveState()
|
|
Sound("volume="..vol.."")
|
|
Sound(GetInfo(67).."/sounds/luaaudio/down.ogg")
|
|
end --volume changed 0
|
|
else
|
|
volume_changed=1
|
|
if (GetVariable("vol") == nil) then
|
|
vol=100
|
|
vol=vol-5
|
|
SetVariable("vol", vol)
|
|
SaveState()
|
|
Sound("volume="..vol.."")
|
|
Sound(GetInfo(67).."/sounds/luaaudio/down.ogg")
|
|
else --if it is not nil
|
|
vol=tonumber(GetVariable("vol"))
|
|
if (vol==0) then
|
|
Note("It's muted you noob.")
|
|
else
|
|
vol=vol-5
|
|
SetVariable("vol", vol)
|
|
SaveState()
|
|
Sound("volume="..vol.."")
|
|
Sound(GetInfo(67).."/sounds/luaaudio/up.ogg")
|
|
end --not 0
|
|
end --not nil
|
|
end --changed not changed
|
|
</send>
|
|
</alias>
|
|
<alias
|
|
match="vol"
|
|
enabled="y"
|
|
send_to="12"
|
|
sequence="100"
|
|
>
|
|
<send>
|
|
Note(vol)
|
|
Note(GetVariable("vol"))
|
|
Note(sounds)
|
|
</send>
|
|
</alias>
|
|
<alias
|
|
match="volume_up"
|
|
enabled="y"
|
|
send_to="12"
|
|
sequence="100"
|
|
>
|
|
<send>
|
|
if (sounds==0) then
|
|
Execute("tts_interrupt You're not supposed to use this function while sounds are off you weird person.")
|
|
return
|
|
end
|
|
if (volume_changed==1) then
|
|
if (vol>=100) then
|
|
Note("Volume range can't be greater than 100.")
|
|
Sound(GetInfo(67).."/sounds/luaaudio/error.ogg")
|
|
else
|
|
vol=vol+5
|
|
SetVariable("vol", vol)
|
|
SaveState()
|
|
Sound("volume="..vol.."")
|
|
Sound(GetInfo(67).."/sounds/luaaudio/up.ogg")
|
|
end --volume changed 100
|
|
else
|
|
volume_changed=1
|
|
if (GetVariable("vol") == nil) then
|
|
vol=100
|
|
SetVariable("vol", 100)
|
|
Note("Volume range can't be greater than 100.")
|
|
Sound(GetInfo(67).."/sounds/luaaudio/error.ogg")
|
|
SaveState()
|
|
else --if it is not nil
|
|
vol=tonumber(GetVariable("vol"))
|
|
if (vol>=100) then
|
|
Note("Volume range can't be greater than 100.")
|
|
Sound(GetInfo(67).."/sounds/luaaudio/error.ogg")
|
|
else
|
|
vol=vol+5
|
|
SetVariable("vol", vol)
|
|
SaveState()
|
|
Sound("volume="..vol.."")
|
|
Sound(GetInfo(67).."/sounds/luaaudio/up.ogg")
|
|
end --not 100
|
|
end --not nil
|
|
end --changed not changed
|
|
</send>
|
|
</alias>
|
|
<alias
|
|
match="sound_close"
|
|
enabled="y"
|
|
send_to="12"
|
|
sequence="100"
|
|
>
|
|
<send>audio.free()
|
|
</send>
|
|
</alias>
|
|
</aliases>
|
|
<script>
|
|
<![CDATA[
|
|
local ppi=require "ppi"
|
|
|
|
|
|
|
|
|
|
function sfreq(freqing)
|
|
freq=split(freqing, "=")
|
|
val=freq[1]
|
|
file=freq[2]
|
|
Sound("freq="..val)
|
|
Sound(file)
|
|
end
|
|
|
|
local function isPlaying(id)
|
|
return audio.isPlaying(id)
|
|
end
|
|
|
|
local function getVolume(id)
|
|
return audio.getVolume(id)
|
|
end -- local function getVolume(id)
|
|
|
|
function SoundPan(panning)
|
|
pan=split(panning, "=")
|
|
current=tonumber(pan[1])
|
|
max=tonumber(pan[2])
|
|
file=pan[3]
|
|
Sound("pan="..(current*200/max)-100)
|
|
Sound(file)
|
|
Sound("pan=0")
|
|
end -- function SoundPan(panning)
|
|
|
|
function split(str, pat)
|
|
local t = {}
|
|
local fpat = "(.-)" .. pat
|
|
local last_end = 1
|
|
local s, e, cap = str:find(fpat, 1)
|
|
while s do
|
|
if s ~= 1 or cap ~= "" then
|
|
table.insert(t,cap)
|
|
end
|
|
last_end = e+1
|
|
s, e, cap = str:find(fpat, last_end)
|
|
end
|
|
if last_end <= #str then
|
|
cap = str:sub(last_end)
|
|
table.insert(t, cap)
|
|
end
|
|
return t
|
|
end -- function split(str, pat)
|
|
|
|
-- mapping of loops to ids
|
|
loops = {}
|
|
|
|
|
|
function OnPluginPlaySound(file)
|
|
if file == "" then
|
|
audio.stop(0)
|
|
return
|
|
end -- if
|
|
|
|
if file:find("=") then
|
|
t = split(file, "=")
|
|
if t[1] == "pan" then
|
|
audio.pan(tonumber(t[2]))
|
|
elseif t[1] == "volume" then
|
|
audio.volume(tonumber(t[2]))
|
|
elseif t[1] == "freq" then
|
|
audio.freq(tonumber(t[2]))
|
|
elseif t[1] == "loop" then
|
|
file = t[2]
|
|
local id = audio.play(file, 1)
|
|
|
|
if id ~= 0 then
|
|
loops[file] = id
|
|
end -- If
|
|
|
|
elseif t[1] == "stop" then
|
|
if t[2] == "all" then
|
|
for k,v in pairs(loops) do
|
|
audio.stop(v)
|
|
end
|
|
elseif loops[t[2]] then
|
|
audio.stop(loops[t[2]])
|
|
loops[t[2]] = nil
|
|
end
|
|
end -- if t1
|
|
else -- doesn't contain =
|
|
id=audio.play(file,0)
|
|
end -- if contains =
|
|
end -- function OnPluginPlaySound(file)
|
|
|
|
function setPan(x, id)
|
|
if x and id then
|
|
audio.pan(x, id)
|
|
else
|
|
|
|
end -- if
|
|
end -- function setPan(x,id)
|
|
|
|
function setPitch(x, id)
|
|
if x and id then
|
|
audio.pitch(x,id)
|
|
else
|
|
|
|
end -- if
|
|
end -- function setPitch(x,id)
|
|
|
|
function setVol(x, id)
|
|
if x and id then
|
|
audio.volume(x, id)
|
|
else
|
|
|
|
end -- if
|
|
end -- function setVol(x,id)
|
|
|
|
--
|
|
-- Slides volume up or down aka fading. x refers to the desired volume, id the playout id, and time is in ms.
|
|
function slideVol(x, id, time)
|
|
if x and id and time then
|
|
audio.slideVol(x, id, time)
|
|
else
|
|
|
|
end -- if
|
|
end -- function slideVol(x,id,time)
|
|
|
|
function fadeout(id, _time)
|
|
if id then
|
|
audio.fadeout(id, _time)
|
|
else
|
|
end -- if
|
|
end -- function fadeout(id,time)
|
|
|
|
function slidePan(x, id, _time)
|
|
if x and id then
|
|
audio.slidePan(x, id, _time)
|
|
else
|
|
end -- if
|
|
end -- function slidePan(x, id, time)
|
|
|
|
local function slidePitch(x, id, _time)
|
|
if x and id then
|
|
audio.slidePitch(x, id, _time)
|
|
else
|
|
|
|
end -- if
|
|
end
|
|
|
|
local function stop(id)
|
|
if id then
|
|
audio.stop(id)
|
|
end -- if
|
|
end
|
|
|
|
local function playDelay(file, time, pan, vol)
|
|
return audio.playDelay(file, time, pan, vol)
|
|
end -- local function playDelay(file, time, pan, vol)
|
|
|
|
local function playDelayLooped(file,time,pan,vol)
|
|
id=audio.playDelayLooped(file,time,pan,vol)
|
|
return id
|
|
end -- local function playDelayLooped(file,time,pan,vol)
|
|
|
|
local function playLooped(file)
|
|
id=audio.play(file,1)
|
|
--Note(id)
|
|
--if id==0 then
|
|
--Sound(GetInfo(67).."/sounds/luaaudio/error.ogg")
|
|
--end
|
|
return id
|
|
end -- local function playLooped(file)
|
|
|
|
local function play(file, loop, pan, vol)
|
|
id=audio.play(file, loop, pan, vol)
|
|
|
|
--if vol not nil and greater than 100 then cap at 100
|
|
if vol ~= nil then
|
|
if vol > 100 then
|
|
vol=100
|
|
end -- if
|
|
end -- if
|
|
|
|
return id
|
|
end -- local function play(file,loop,pan,vol)
|
|
|
|
--------------------------------------------------------
|
|
-- startup/shutdown
|
|
--------------------------------------------------------
|
|
|
|
function OnPluginInstall ()
|
|
assert(package.loadlib("audio.dll", "luaopen_audio"))()
|
|
|
|
if not (GetVariable("vol")==nil) then
|
|
vol=tonumber(GetVariable("vol"))
|
|
Sound("volume="..vol.."")
|
|
else
|
|
vol=100
|
|
Sound("volume=100")
|
|
SetVariable("vol", "100")
|
|
SaveState()
|
|
end -- if
|
|
end -- function OnPluginInstall ()
|
|
|
|
function OnPluginClose()
|
|
if #GetWorldList()==1 then
|
|
audio.free()
|
|
end -- if
|
|
end -- function OnPluginClose()
|
|
|
|
--------------------------------------------------------
|
|
-- external interfaces
|
|
--------------------------------------------------------
|
|
|
|
ppi.Expose("init",OnPluginInstall)
|
|
ppi.Expose("unload",OnPluginClose)
|
|
ppi.Expose("setPitch",setPitch)
|
|
ppi.Expose("slidePitch",slidePitch)
|
|
|
|
ppi.Expose("isPlaying",isPlaying)
|
|
ppi.Expose("getVolume",getVolume)
|
|
|
|
ppi.Expose("stop",stop)
|
|
ppi.Expose("setPan",setPan)
|
|
ppi.Expose("play",play)
|
|
ppi.Expose("playDelay",playDelay)
|
|
ppi.Expose("playDelayLooped",playDelayLooped)
|
|
ppi.Expose("setVol",setVol)
|
|
ppi.Expose("slideVol",slideVol)
|
|
ppi.Expose("fadeout",fadeout)
|
|
ppi.Expose("slidePan",slidePan)
|
|
ppi.Expose("playLooped",playLooped)
|
|
|
|
--set keybindings
|
|
Accelerator("ctrl+f12", "sound_toggle")
|
|
]]>
|
|
</script>
|
|
</muclient>
|