diff options
Diffstat (limited to 'engines/wintermute/BKeyboardState.cpp')
| -rw-r--r-- | engines/wintermute/BKeyboardState.cpp | 243 |
1 files changed, 243 insertions, 0 deletions
diff --git a/engines/wintermute/BKeyboardState.cpp b/engines/wintermute/BKeyboardState.cpp new file mode 100644 index 0000000000..7e89d9827c --- /dev/null +++ b/engines/wintermute/BKeyboardState.cpp @@ -0,0 +1,243 @@ +/* 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.
+ *
+ */
+
+/*
+ * This file is based on WME Lite.
+ * http://dead-code.org/redir.php?target=wmelite
+ * Copyright (c) 2011 Jan Nedoma
+ */
+
+#include "dcgf.h"
+#include "BKeyboardState.h"
+#include "ScValue.h"
+#include "ScStack.h"
+
+namespace WinterMute {
+
+IMPLEMENT_PERSISTENT(CBKeyboardState, false)
+
+//////////////////////////////////////////////////////////////////////////
+CBKeyboardState::CBKeyboardState(CBGame *inGame): CBScriptable(inGame) {
+ m_CurrentPrintable = false;
+ m_CurrentCharCode = 0;
+ m_CurrentKeyData = 0;
+
+ m_CurrentShift = false;
+ m_CurrentAlt = false;
+ m_CurrentControl = false;
+}
+
+
+//////////////////////////////////////////////////////////////////////////
+CBKeyboardState::~CBKeyboardState() {
+
+}
+
+
+//////////////////////////////////////////////////////////////////////////
+// high level scripting interface
+//////////////////////////////////////////////////////////////////////////
+HRESULT CBKeyboardState::ScCallMethod(CScScript *Script, CScStack *Stack, CScStack *ThisStack, char *Name) {
+ //////////////////////////////////////////////////////////////////////////
+ // IsKeyDown
+ //////////////////////////////////////////////////////////////////////////
+ if (strcmp(Name, "IsKeyDown") == 0) {
+ Stack->CorrectParams(1);
+ CScValue *val = Stack->Pop();
+ int vKey;
+
+ if (val->m_Type == VAL_STRING && strlen(val->GetString()) > 0) {
+ char *str = val->GetString();
+ if (str[0] >= 'A' && str[0] <= 'Z') str[0] += ('a' - 'A');
+ vKey = (int)str[0];
+ } else vKey = val->GetInt();
+
+ Uint8 *state = SDL_GetKeyboardState(NULL);
+ SDL_Scancode scanCode = SDL_GetScancodeFromKey(VKeyToKeyCode(vKey));
+ bool isDown = state[scanCode] > 0;
+
+ Stack->PushBool(isDown);
+ return S_OK;
+ }
+
+ else return CBScriptable::ScCallMethod(Script, Stack, ThisStack, Name);
+}
+
+
+//////////////////////////////////////////////////////////////////////////
+CScValue *CBKeyboardState::ScGetProperty(char *Name) {
+ m_ScValue->SetNULL();
+
+ //////////////////////////////////////////////////////////////////////////
+ // Type
+ //////////////////////////////////////////////////////////////////////////
+ if (strcmp(Name, "Type") == 0) {
+ m_ScValue->SetString("keyboard");
+ return m_ScValue;
+ }
+
+ //////////////////////////////////////////////////////////////////////////
+ // Key
+ //////////////////////////////////////////////////////////////////////////
+ else if (strcmp(Name, "Key") == 0) {
+ if (m_CurrentPrintable) {
+ char key[2];
+ key[0] = (char)m_CurrentCharCode;
+ key[1] = '\0';
+ m_ScValue->SetString(key);
+ } else m_ScValue->SetString("");
+
+ return m_ScValue;
+ }
+
+ //////////////////////////////////////////////////////////////////////////
+ // Printable
+ //////////////////////////////////////////////////////////////////////////
+ else if (strcmp(Name, "Printable") == 0) {
+ m_ScValue->SetBool(m_CurrentPrintable);
+ return m_ScValue;
+ }
+
+ //////////////////////////////////////////////////////////////////////////
+ // KeyCode
+ //////////////////////////////////////////////////////////////////////////
+ else if (strcmp(Name, "KeyCode") == 0) {
+ m_ScValue->SetInt(m_CurrentCharCode);
+ return m_ScValue;
+ }
+
+ //////////////////////////////////////////////////////////////////////////
+ // IsShift
+ //////////////////////////////////////////////////////////////////////////
+ else if (strcmp(Name, "IsShift") == 0) {
+ m_ScValue->SetBool(m_CurrentShift);
+ return m_ScValue;
+ }
+
+ //////////////////////////////////////////////////////////////////////////
+ // IsAlt
+ //////////////////////////////////////////////////////////////////////////
+ else if (strcmp(Name, "IsAlt") == 0) {
+ m_ScValue->SetBool(m_CurrentAlt);
+ return m_ScValue;
+ }
+
+ //////////////////////////////////////////////////////////////////////////
+ // IsControl
+ //////////////////////////////////////////////////////////////////////////
+ else if (strcmp(Name, "IsControl") == 0) {
+ m_ScValue->SetBool(m_CurrentControl);
+ return m_ScValue;
+ }
+
+ else return CBScriptable::ScGetProperty(Name);
+}
+
+
+//////////////////////////////////////////////////////////////////////////
+HRESULT CBKeyboardState::ScSetProperty(char *Name, CScValue *Value) {
+ /*
+ //////////////////////////////////////////////////////////////////////////
+ // Name
+ //////////////////////////////////////////////////////////////////////////
+ if(strcmp(Name, "Name")==0){
+ SetName(Value->GetString());
+ if(m_Renderer) SetWindowText(m_Renderer->m_Window, m_Name);
+ return S_OK;
+ }
+
+ else*/ return CBScriptable::ScSetProperty(Name, Value);
+}
+
+
+//////////////////////////////////////////////////////////////////////////
+char *CBKeyboardState::ScToString() {
+ return "[keyboard state]";
+}
+
+
+//////////////////////////////////////////////////////////////////////////
+HRESULT CBKeyboardState::ReadKey(SDL_Event *event) {
+ m_CurrentPrintable = (event->type == SDL_TEXTINPUT);
+ m_CurrentCharCode = KeyCodeToVKey(event);
+ //m_CurrentKeyData = KeyData;
+
+ m_CurrentControl = IsControlDown();
+ m_CurrentAlt = IsAltDown();
+ m_CurrentShift = IsShiftDown();
+
+ return S_OK;
+}
+
+
+//////////////////////////////////////////////////////////////////////////
+HRESULT CBKeyboardState::Persist(CBPersistMgr *PersistMgr) {
+ //if(!PersistMgr->m_Saving) Cleanup();
+ CBScriptable::Persist(PersistMgr);
+
+ PersistMgr->Transfer(TMEMBER(m_CurrentAlt));
+ PersistMgr->Transfer(TMEMBER(m_CurrentCharCode));
+ PersistMgr->Transfer(TMEMBER(m_CurrentControl));
+ PersistMgr->Transfer(TMEMBER(m_CurrentKeyData));
+ PersistMgr->Transfer(TMEMBER(m_CurrentPrintable));
+ PersistMgr->Transfer(TMEMBER(m_CurrentShift));
+
+ return S_OK;
+}
+
+//////////////////////////////////////////////////////////////////////////
+bool CBKeyboardState::IsShiftDown() {
+ int mod = SDL_GetModState();
+ return (mod & KMOD_LSHIFT) || (mod & KMOD_RSHIFT);
+}
+
+//////////////////////////////////////////////////////////////////////////
+bool CBKeyboardState::IsControlDown() {
+ int mod = SDL_GetModState();
+ return (mod & KMOD_LCTRL) || (mod & KMOD_RCTRL);
+}
+
+//////////////////////////////////////////////////////////////////////////
+bool CBKeyboardState::IsAltDown() {
+ int mod = SDL_GetModState();
+ return (mod & KMOD_LALT) || (mod & KMOD_RALT);
+}
+
+//////////////////////////////////////////////////////////////////////////
+uint32 CBKeyboardState::KeyCodeToVKey(SDL_Event *event) {
+ if (event->type != SDL_KEYDOWN) return 0;
+
+ switch (event->key.keysym.sym) {
+ case SDLK_KP_ENTER:
+ return SDLK_RETURN;
+ default:
+ return event->key.keysym.sym;
+ }
+}
+
+//////////////////////////////////////////////////////////////////////////
+SDL_Keycode CBKeyboardState::VKeyToKeyCode(uint32 vkey) {
+ // todo
+ return (SDL_Keycode)vkey;
+}
+
+} // end of namespace WinterMute
|