Mush-Soundpack/cosmic rage/worlds/plugins/LuaAudio.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>