From 10b4495b518b5143ba97cdcda738d678c4348b1f Mon Sep 17 00:00:00 2001
From: Strangerke
Date: Tue, 8 Oct 2013 00:02:32 +0200
Subject: AVALANCHE: Hook some more function keys

---
 engines/avalanche/parser.cpp | 23 ++++++++++++++++++++++-
 1 file changed, 22 insertions(+), 1 deletion(-)

diff --git a/engines/avalanche/parser.cpp b/engines/avalanche/parser.cpp
index 6bca4765ec..e8ef17c2e1 100644
--- a/engines/avalanche/parser.cpp
+++ b/engines/avalanche/parser.cpp
@@ -433,6 +433,12 @@ void Parser::handleFunctionKey(const Common::Event &event) {
 			plotText();
 		}
 		break;
+	case Common::KEYCODE_F4:
+		if (event.kbd.flags & Common::KBD_ALT)
+			_vm->callVerb(kVerbCodeQuit);
+		else
+			_vm->callVerb(kVerbCodeRestart);
+		break;
 	case Common::KEYCODE_F5: {
 		_person = kPeoplePardon;
 		_thing = kPardon;
@@ -441,8 +447,23 @@ void Parser::handleFunctionKey(const Common::Event &event) {
 		_vm->callVerb(verb);
 		}
 		break;
+	case Common::KEYCODE_F6:
+		_vm->callVerb(kVerbCodePause);
+		break;
 	case Common::KEYCODE_F7:
-		_vm->callVerb(kVerbCodeOpen);
+		if (event.kbd.flags & Common::KBD_CTRL)
+			_vm->majorRedraw();
+		else
+			_vm->callVerb(kVerbCodeOpen);
+		break;
+	case Common::KEYCODE_F8:
+		_vm->callVerb(kVerbCodeLook);
+		break;
+	case Common::KEYCODE_F9:
+		_vm->callVerb(kVerbCodeScore);
+		break;
+	case Common::KEYCODE_F10:
+		_vm->callVerb(kVerbCodeQuit);
 		break;
 	case Common::KEYCODE_F11:
 		clearWords();
-- 
cgit v1.2.3