DIRECTOR: Lingo: Implement b_moveableSprite()

3 files changed, 11 insertions, 2 deletions

diff --git a/engines/director/director.h b/engines/director/director.h
index 6e7947fcc9..61c5f4e2df 100644
--- a/engines/director/director.h
+++ b/engines/director/director.h
@@ -105,6 +105,7 @@ public:
 	void cleanupMainArchive();
 
 	void processEvents(); // evetns.cpp
+	void setDraggedSprite(uint16 id); // events.cpp
 
 	Common::HashMap<int, Common::SeekableSubReadStreamEndian *> *getSharedDIB() const { return _sharedDIB; }
 	Common::HashMap<int, Common::SeekableSubReadStreamEndian *> *getSharedBMP() const { return _sharedBMP; }
diff --git a/engines/director/events.cpp b/engines/director/events.cpp
index b010f74a6a..116db9c059 100644
--- a/engines/director/events.cpp
+++ b/engines/director/events.cpp
@@ -122,4 +122,8 @@ void DirectorEngine::processEvents() {
 	}
 }
 
+void DirectorEngine::setDraggedSprite(uint16 id) {
+	warning("STUB: DirectorEngine::setDraggedSprite(%d)", id);
+}
+
 } // End of namespace Director
diff --git a/engines/director/lingo/lingo-builtins.cpp b/engines/director/lingo/lingo-builtins.cpp
index d79b201a04..cb6a7d67ec 100644
--- a/engines/director/lingo/lingo-builtins.cpp
+++ b/engines/director/lingo/lingo-builtins.cpp
@@ -25,6 +25,7 @@
 
 #include "director/lingo/lingo.h"
 #include "director/frame.h"
+#include "director/sprite.h"
 
 namespace Director {
 
@@ -1166,9 +1167,12 @@ void Lingo::b_move(int nargs) {
 }
 
 void Lingo::b_moveableSprite(int nargs) {
-	g_lingo->printSTUBWithArglist("b_moveableSprite", nargs);
+	Frame *frame = g_director->getCurrentScore()->_frames[g_director->getCurrentScore()->getCurrentFrame()];
 
-	g_lingo->dropStack(nargs);
+	// Will have no effect
+	frame->_sprites[g_lingo->_currentEntityId]->_moveable = true;
+
+	g_director->setDraggedSprite(frame->_sprites[g_lingo->_currentEntityId]->_castId);
 }
 
 void Lingo::b_pasteClipBoardInto(int nargs) {