SCI: included stub for kPalVary to make Pharkas work a little bit more (currently crashes in kMessage)

svn-id: r45102

3 files changed, 10 insertions, 1 deletions

diff --git a/engines/sci/engine/kernel.cpp b/engines/sci/engine/kernel.cpp
index 49e09c7cb6..6e66445072 100644
--- a/engines/sci/engine/kernel.cpp
+++ b/engines/sci/engine/kernel.cpp
@@ -336,9 +336,11 @@ SciKernelFunction kfunct_mappers[] = {
 	DEFUN("TextColors", kTextColors, ".*"),
 	DEFUN("TextFonts", kTextFonts, ".*"),
 
+	// its a stub, but its needed for Pharkas to work
+	DEFUN("PalVary", kPalVary, "ii*"),
+
 #if 0
 	// Stub functions
-	DEFUN("PalVary", kPalVary, "ii*"),
 	DEFUN("ShiftScreen", kShiftScreen, ".*"),
 	DEFUN("MemorySegment", kMemorySegment, ".*"),
 	DEFUN("ListOps", kListOps, ".*"),
diff --git a/engines/sci/engine/kernel.h b/engines/sci/engine/kernel.h
index 750a2b9a34..943e258d08 100644
--- a/engines/sci/engine/kernel.h
+++ b/engines/sci/engine/kernel.h
@@ -298,6 +298,7 @@ reg_t kStrCmp(EngineState *s, int argc, reg_t *argv);
 reg_t kSetSynonyms(EngineState *s, int argc, reg_t *argv);
 reg_t kLock(EngineState *s, int argc, reg_t *argv);
 reg_t kPalette(EngineState *s, int argc, reg_t *argv);
+reg_t kPalVary(EngineState *s, int argc, reg_t *argv);
 reg_t kNumCels(EngineState *s, int argc, reg_t *argv);
 reg_t kNumLoops(EngineState *s, int argc, reg_t *argv);
 reg_t kDrawCel(EngineState *s, int argc, reg_t *argv);
diff --git a/engines/sci/engine/kgraphics.cpp b/engines/sci/engine/kgraphics.cpp
index 4f667d4fc5..50d7cb6983 100644
--- a/engines/sci/engine/kgraphics.cpp
+++ b/engines/sci/engine/kgraphics.cpp
@@ -615,6 +615,12 @@ reg_t kPalette(EngineState *s, int argc, reg_t *argv) {
 	return s->r_acc;
 }
 
+// This here is needed to make Pharkas work
+reg_t kPalVary(EngineState *s, int argc, reg_t *argv) {
+	warning("kPalVary() called parameters = %d", argc);
+	return NULL_REG;
+}
+
 static void disableCertainButtons(SegManager *segMan, Common::String gameName, reg_t obj) {
 	reg_t text_pos = GET_SEL32(obj, text);
 	Common::String text;