Implemented o1_CLIPAREA

svn-id: r31968

2 files changed, 9 insertions, 1 deletions

diff --git a/engines/made/screen.h b/engines/made/screen.h
index d267b84c30..d46ad254f0 100644
--- a/engines/made/screen.h
+++ b/engines/made/screen.h
@@ -70,6 +70,14 @@ public:
 	void setPaletteLock(bool lock) { _paletteLock = lock; }
 	void setVisualEffectNum(int visualEffectNum) { _visualEffectNum = visualEffectNum; }
 	void setClip(uint16 clip) { _clip = clip; }
+
+	void setClipArea(uint16 x1, uint16 y1, uint16 x2, uint16 y2) { 
+		_clipArea.x = x1;
+		_clipArea.y = y1;
+		_clipArea.w = ABS(x2 - x1);
+		_clipArea.h = ABS(y2 - y1);
+	}
+
 	void setExclude(uint16 exclude) { _exclude = exclude; }
 	void setGround(uint16 ground) { _ground = ground; }
 	void setTextColor(int16 color) { _textColor = color; }
diff --git a/engines/made/scriptfuncs_rtz.cpp b/engines/made/scriptfuncs_rtz.cpp
index 7dd8246df0..df2a0af527 100644
--- a/engines/made/scriptfuncs_rtz.cpp
+++ b/engines/made/scriptfuncs_rtz.cpp
@@ -477,7 +477,7 @@ int16 ScriptFunctionsRtz::o1_RESTEXT(int16 argc, int16 *argv) {
 }
 
 int16 ScriptFunctionsRtz::o1_CLIPAREA(int16 argc, int16 *argv) {
-	warning("Unimplemented opcode: o1_CLIPAREA");
+	_vm->_screen->setClipArea(argv[3], argv[2], argv[1], argv[0]);
 	return 0;
 }