mirror of
https://github.com/libretro/scummvm.git
synced 2024-12-25 03:07:06 +00:00
b01994a53b
The things which are intentionally left with the prefix: BS_LOG, BS_ASSERT, BS_Rect, BS_String. svn-id: r53261
393 lines
12 KiB
C++
393 lines
12 KiB
C++
/* ScummVM - Graphic Adventure Engine
|
|
*
|
|
* ScummVM is the legal property of its developers, whose names
|
|
* are too numerous to list here. Please refer to the COPYRIGHT
|
|
* file distributed with this source distribution.
|
|
*
|
|
* This program is free software; you can redistribute it and/or
|
|
* modify it under the terms of the GNU General Public License
|
|
* as published by the Free Software Foundation; either version 2
|
|
* of the License, or (at your option) any later version.
|
|
|
|
* This program is distributed in the hope that it will be useful,
|
|
* but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
* GNU General Public License for more details.
|
|
|
|
* You should have received a copy of the GNU General Public License
|
|
* along with this program; if not, write to the Free Software
|
|
* Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA.
|
|
*
|
|
* $URL$
|
|
* $Id$
|
|
*
|
|
*/
|
|
|
|
/*
|
|
* This code is based on Broken Sword 2.5 engine
|
|
*
|
|
* Copyright (c) Malte Thiesen, Daniel Queteschiner and Michael Elsdoerfer
|
|
*
|
|
* Licensed under GNU GPL v2
|
|
*
|
|
*/
|
|
|
|
// -----------------------------------------------------------------------------
|
|
// Includes
|
|
// -----------------------------------------------------------------------------
|
|
|
|
#include "sword25/kernel/common.h"
|
|
#include "sword25/kernel/kernel.h"
|
|
#include "sword25/script/script.h"
|
|
#include "sword25/script/luabindhelper.h"
|
|
|
|
#include "sword25/sfx/soundengine.h"
|
|
|
|
namespace Sword25 {
|
|
// -----------------------------------------------------------------------------
|
|
|
|
static int Init(lua_State *L) {
|
|
Kernel *pKernel = Kernel::GetInstance();
|
|
BS_ASSERT(pKernel);
|
|
SoundEngine *pSfx = static_cast<SoundEngine *>(Kernel::GetInstance()->GetService("sfx"));
|
|
BS_ASSERT(pSfx);
|
|
|
|
if (lua_gettop(L) == 0)
|
|
lua_pushbooleancpp(L, pSfx->Init(44100, 32));
|
|
else if (lua_gettop(L) == 1)
|
|
lua_pushbooleancpp(L, pSfx->Init(static_cast<unsigned int>(luaL_checknumber(L, 1)), 32));
|
|
else
|
|
lua_pushbooleancpp(L, pSfx->Init(static_cast<unsigned int>(luaL_checknumber(L, 1)), static_cast<unsigned int>(luaL_checknumber(L, 2))));
|
|
|
|
return 1;
|
|
}
|
|
|
|
// -----------------------------------------------------------------------------
|
|
|
|
static int Update(lua_State *L) {
|
|
Kernel *pKernel = Kernel::GetInstance();
|
|
BS_ASSERT(pKernel);
|
|
SoundEngine *pSfx = static_cast<SoundEngine *>(Kernel::GetInstance()->GetService("sfx"));
|
|
BS_ASSERT(pSfx);
|
|
|
|
pSfx->Update();
|
|
|
|
return 0;
|
|
}
|
|
|
|
// -----------------------------------------------------------------------------
|
|
|
|
static int SetVolume(lua_State *L) {
|
|
Kernel *pKernel = Kernel::GetInstance();
|
|
BS_ASSERT(pKernel);
|
|
SoundEngine *pSfx = static_cast<SoundEngine *>(Kernel::GetInstance()->GetService("sfx"));
|
|
BS_ASSERT(pSfx);
|
|
|
|
pSfx->SetVolume(static_cast<float>(luaL_checknumber(L, 1)),
|
|
static_cast<SoundEngine::SOUND_TYPES>(static_cast<unsigned int>(luaL_checknumber(L, 2))));
|
|
|
|
return 0;
|
|
}
|
|
|
|
// -----------------------------------------------------------------------------
|
|
|
|
static int GetVolume(lua_State *L) {
|
|
Kernel *pKernel = Kernel::GetInstance();
|
|
BS_ASSERT(pKernel);
|
|
SoundEngine *pSfx = static_cast<SoundEngine *>(Kernel::GetInstance()->GetService("sfx"));
|
|
BS_ASSERT(pSfx);
|
|
|
|
lua_pushnumber(L, pSfx->GetVolume(static_cast<SoundEngine::SOUND_TYPES>(static_cast<unsigned int>(luaL_checknumber(L, 1)))));
|
|
|
|
return 1;
|
|
}
|
|
|
|
// -----------------------------------------------------------------------------
|
|
|
|
static int PauseAll(lua_State *L) {
|
|
Kernel *pKernel = Kernel::GetInstance();
|
|
BS_ASSERT(pKernel);
|
|
SoundEngine *pSfx = static_cast<SoundEngine *>(Kernel::GetInstance()->GetService("sfx"));
|
|
BS_ASSERT(pSfx);
|
|
|
|
pSfx->PauseAll();
|
|
|
|
return 0;
|
|
}
|
|
|
|
// -----------------------------------------------------------------------------
|
|
|
|
static int ResumeAll(lua_State *L) {
|
|
Kernel *pKernel = Kernel::GetInstance();
|
|
BS_ASSERT(pKernel);
|
|
SoundEngine *pSfx = static_cast<SoundEngine *>(Kernel::GetInstance()->GetService("sfx"));
|
|
BS_ASSERT(pSfx);
|
|
|
|
pSfx->ResumeAll();
|
|
|
|
return 0;
|
|
}
|
|
|
|
// -----------------------------------------------------------------------------
|
|
|
|
static int PauseLayer(lua_State *L) {
|
|
Kernel *pKernel = Kernel::GetInstance();
|
|
BS_ASSERT(pKernel);
|
|
SoundEngine *pSfx = static_cast<SoundEngine *>(Kernel::GetInstance()->GetService("sfx"));
|
|
BS_ASSERT(pSfx);
|
|
|
|
pSfx->PauseLayer(static_cast<int>(luaL_checknumber(L, 1)));
|
|
|
|
return 0;
|
|
}
|
|
|
|
// -----------------------------------------------------------------------------
|
|
|
|
static int ResumeLayer(lua_State *L) {
|
|
Kernel *pKernel = Kernel::GetInstance();
|
|
BS_ASSERT(pKernel);
|
|
SoundEngine *pSfx = static_cast<SoundEngine *>(Kernel::GetInstance()->GetService("sfx"));
|
|
BS_ASSERT(pSfx);
|
|
|
|
pSfx->ResumeLayer(static_cast<int>(luaL_checknumber(L, 1)));
|
|
|
|
return 0;
|
|
}
|
|
|
|
// -----------------------------------------------------------------------------
|
|
|
|
static void ProcessPlayParams(lua_State *L, Common::String &FileName, SoundEngine::SOUND_TYPES &Type, float &Volume, float &Pan, bool &Loop, int &LoopStart, int &LoopEnd, unsigned int &Layer) {
|
|
FileName = luaL_checkstring(L, 1);
|
|
|
|
Type = static_cast<SoundEngine::SOUND_TYPES>(static_cast<unsigned int>(luaL_checknumber(L, 2)));
|
|
|
|
if (lua_gettop(L) < 3 || lua_isnil(L, 3)) Volume = 1.0f;
|
|
else Volume = static_cast<float>(luaL_checknumber(L, 3));
|
|
|
|
if (lua_gettop(L) < 4 || lua_isnil(L, 4)) Pan = 0.0f;
|
|
else Pan = static_cast<float>(luaL_checknumber(L, 4));
|
|
|
|
if (lua_gettop(L) < 5 || lua_isnil(L, 5)) Loop = false;
|
|
else Loop = lua_tobooleancpp(L, 5);
|
|
|
|
if (lua_gettop(L) < 6 || lua_isnil(L, 6)) LoopStart = -1;
|
|
else LoopStart = static_cast<int>(luaL_checknumber(L, 6));
|
|
|
|
if (lua_gettop(L) < 7 || lua_isnil(L, 7)) LoopEnd = -1;
|
|
else LoopEnd = static_cast<int>(luaL_checknumber(L, 7));
|
|
|
|
if (lua_gettop(L) < 8 || lua_isnil(L, 8)) Layer = 0;
|
|
else Layer = static_cast<unsigned int>(luaL_checknumber(L, 8));
|
|
}
|
|
|
|
static int PlaySound(lua_State *L) {
|
|
Kernel *pKernel = Kernel::GetInstance();
|
|
BS_ASSERT(pKernel);
|
|
SoundEngine *pSfx = static_cast<SoundEngine *>(Kernel::GetInstance()->GetService("sfx"));
|
|
BS_ASSERT(pSfx);
|
|
|
|
Common::String FileName;
|
|
SoundEngine::SOUND_TYPES Type;
|
|
float Volume;
|
|
float Pan;
|
|
bool Loop;
|
|
int LoopStart;
|
|
int LoopEnd;
|
|
unsigned int Layer;
|
|
ProcessPlayParams(L, FileName, Type, Volume, Pan, Loop, LoopStart, LoopEnd, Layer);
|
|
|
|
lua_pushbooleancpp(L, pSfx->PlaySound(FileName, Type, Volume, Pan, Loop, LoopStart, LoopEnd, Layer));
|
|
|
|
return 1;
|
|
}
|
|
|
|
static int PlaySoundEx(lua_State *L) {
|
|
Kernel *pKernel = Kernel::GetInstance();
|
|
BS_ASSERT(pKernel);
|
|
SoundEngine *pSfx = static_cast<SoundEngine *>(Kernel::GetInstance()->GetService("sfx"));
|
|
BS_ASSERT(pSfx);
|
|
|
|
Common::String FileName;
|
|
SoundEngine::SOUND_TYPES Type;
|
|
float Volume;
|
|
float Pan;
|
|
bool Loop;
|
|
int LoopStart;
|
|
int LoopEnd;
|
|
unsigned int Layer;
|
|
ProcessPlayParams(L, FileName, Type, Volume, Pan, Loop, LoopStart, LoopEnd, Layer);
|
|
|
|
lua_pushnumber(L, pSfx->PlaySoundEx(FileName, Type, Volume, Pan, Loop, LoopStart, LoopEnd, Layer));
|
|
|
|
return 1;
|
|
}
|
|
|
|
// -----------------------------------------------------------------------------
|
|
|
|
static int SetSoundVolume(lua_State *L) {
|
|
Kernel *pKernel = Kernel::GetInstance();
|
|
BS_ASSERT(pKernel);
|
|
SoundEngine *pSfx = static_cast<SoundEngine *>(Kernel::GetInstance()->GetService("sfx"));
|
|
BS_ASSERT(pSfx);
|
|
|
|
pSfx->SetSoundVolume(static_cast<unsigned int>(luaL_checknumber(L, 1)), static_cast<float>(luaL_checknumber(L, 2)));
|
|
|
|
return 0;
|
|
}
|
|
|
|
// -----------------------------------------------------------------------------
|
|
|
|
static int SetSoundPanning(lua_State *L) {
|
|
Kernel *pKernel = Kernel::GetInstance();
|
|
BS_ASSERT(pKernel);
|
|
SoundEngine *pSfx = static_cast<SoundEngine *>(Kernel::GetInstance()->GetService("sfx"));
|
|
BS_ASSERT(pSfx);
|
|
|
|
pSfx->SetSoundPanning(static_cast<unsigned int>(luaL_checknumber(L, 1)), static_cast<float>(luaL_checknumber(L, 2)));
|
|
|
|
return 0;
|
|
}
|
|
|
|
// -----------------------------------------------------------------------------
|
|
|
|
static int PauseSound(lua_State *L) {
|
|
Kernel *pKernel = Kernel::GetInstance();
|
|
BS_ASSERT(pKernel);
|
|
SoundEngine *pSfx = static_cast<SoundEngine *>(Kernel::GetInstance()->GetService("sfx"));
|
|
BS_ASSERT(pSfx);
|
|
|
|
pSfx->PauseSound(static_cast<unsigned int>(luaL_checknumber(L, 1)));
|
|
|
|
return 0;
|
|
}
|
|
|
|
// -----------------------------------------------------------------------------
|
|
|
|
static int ResumeSound(lua_State *L) {
|
|
Kernel *pKernel = Kernel::GetInstance();
|
|
BS_ASSERT(pKernel);
|
|
SoundEngine *pSfx = static_cast<SoundEngine *>(Kernel::GetInstance()->GetService("sfx"));
|
|
BS_ASSERT(pSfx);
|
|
|
|
pSfx->ResumeSound(static_cast<unsigned int>(luaL_checknumber(L, 1)));
|
|
|
|
return 0;
|
|
}
|
|
|
|
// -----------------------------------------------------------------------------
|
|
|
|
static int StopSound(lua_State *L) {
|
|
Kernel *pKernel = Kernel::GetInstance();
|
|
BS_ASSERT(pKernel);
|
|
SoundEngine *pSfx = static_cast<SoundEngine *>(Kernel::GetInstance()->GetService("sfx"));
|
|
BS_ASSERT(pSfx);
|
|
|
|
pSfx->StopSound(static_cast<unsigned int>(luaL_checknumber(L, 1)));
|
|
|
|
return 0;
|
|
}
|
|
|
|
// -----------------------------------------------------------------------------
|
|
|
|
static int IsSoundPaused(lua_State *L) {
|
|
Kernel *pKernel = Kernel::GetInstance();
|
|
BS_ASSERT(pKernel);
|
|
SoundEngine *pSfx = static_cast<SoundEngine *>(Kernel::GetInstance()->GetService("sfx"));
|
|
BS_ASSERT(pSfx);
|
|
|
|
lua_pushbooleancpp(L, pSfx->IsSoundPaused(static_cast<unsigned int>(luaL_checknumber(L, 1))));
|
|
|
|
return 1;
|
|
}
|
|
|
|
// -----------------------------------------------------------------------------
|
|
|
|
static int IsSoundPlaying(lua_State *L) {
|
|
Kernel *pKernel = Kernel::GetInstance();
|
|
BS_ASSERT(pKernel);
|
|
SoundEngine *pSfx = static_cast<SoundEngine *>(Kernel::GetInstance()->GetService("sfx"));
|
|
BS_ASSERT(pSfx);
|
|
|
|
lua_pushbooleancpp(L, pSfx->IsSoundPlaying(static_cast<unsigned int>(luaL_checknumber(L, 1))));
|
|
|
|
return 1;
|
|
}
|
|
|
|
// -----------------------------------------------------------------------------
|
|
|
|
static int GetSoundVolume(lua_State *L) {
|
|
Kernel *pKernel = Kernel::GetInstance();
|
|
BS_ASSERT(pKernel);
|
|
SoundEngine *pSfx = static_cast<SoundEngine *>(Kernel::GetInstance()->GetService("sfx"));
|
|
BS_ASSERT(pSfx);
|
|
|
|
lua_pushnumber(L, pSfx->GetSoundVolume(static_cast<unsigned int>(luaL_checknumber(L, 1))));
|
|
|
|
return 1;
|
|
}
|
|
|
|
// -----------------------------------------------------------------------------
|
|
|
|
static int GetSoundPanning(lua_State *L) {
|
|
Kernel *pKernel = Kernel::GetInstance();
|
|
BS_ASSERT(pKernel);
|
|
SoundEngine *pSfx = static_cast<SoundEngine *>(Kernel::GetInstance()->GetService("sfx"));
|
|
BS_ASSERT(pSfx);
|
|
|
|
lua_pushnumber(L, pSfx->GetSoundPanning(static_cast<unsigned int>(luaL_checknumber(L, 1))));
|
|
|
|
return 1;
|
|
}
|
|
|
|
// -----------------------------------------------------------------------------
|
|
|
|
static const char *SFX_LIBRARY_NAME = "Sfx";
|
|
|
|
static const luaL_reg SFX_FUNCTIONS[] = {
|
|
{"Init", Init},
|
|
{"Update", Update},
|
|
{"__SetVolume", SetVolume},
|
|
{"__GetVolume", GetVolume},
|
|
{"PauseAll", PauseAll},
|
|
{"ResumeAll", ResumeAll},
|
|
{"PauseLayer", PauseLayer},
|
|
{"ResumeLayer", ResumeLayer},
|
|
{"__PlaySound", PlaySound},
|
|
{"__PlaySoundEx", PlaySoundEx},
|
|
{"__SetSoundVolume", SetSoundVolume},
|
|
{"__SetSoundPanning", SetSoundPanning},
|
|
{"__PauseSound", PauseSound},
|
|
{"__ResumeSound", ResumeSound},
|
|
{"__StopSound", StopSound},
|
|
{"__IsSoundPaused", IsSoundPaused},
|
|
{"__IsSoundPlaying", IsSoundPlaying},
|
|
{"__GetSoundVolume", GetSoundVolume},
|
|
{"__GetSoundPanning", GetSoundPanning},
|
|
{0, 0}
|
|
};
|
|
|
|
static const lua_constant_reg SFX_CONSTANTS[] = {
|
|
{"MUSIC", SoundEngine::MUSIC},
|
|
{"SPEECH", SoundEngine::SPEECH},
|
|
{"SFX", SoundEngine::SFX},
|
|
{0, 0}
|
|
};
|
|
|
|
// -----------------------------------------------------------------------------
|
|
|
|
bool SoundEngine::_RegisterScriptBindings() {
|
|
Kernel *pKernel = Kernel::GetInstance();
|
|
BS_ASSERT(pKernel);
|
|
ScriptEngine *pScript = static_cast<ScriptEngine *>(pKernel->GetService("script"));
|
|
BS_ASSERT(pScript);
|
|
lua_State *L = static_cast<lua_State *>(pScript->GetScriptObject());
|
|
BS_ASSERT(L);
|
|
|
|
if (!LuaBindhelper::AddFunctionsToLib(L, SFX_LIBRARY_NAME, SFX_FUNCTIONS)) return false;
|
|
if (!LuaBindhelper::AddConstantsToLib(L, SFX_LIBRARY_NAME, SFX_CONSTANTS)) return false;
|
|
|
|
return true;
|
|
}
|
|
|
|
} // End of namespace Sword25
|