1 files changed, 23 insertions, 0 deletions
diff --git a/engines/director/lingo/lingo-builtins.cpp b/engines/director/lingo/lingo-builtins.cpp
index e9c173bce6..78c751641d 100644
--- a/engines/director/lingo/lingo-builtins.cpp
+++ b/engines/director/lingo/lingo-builtins.cpp
@@ -49,6 +49,8 @@ static struct BuiltinProto {
 	{ "string",	Lingo::b_string, 1},
 	// Misc
 	{ "dontpassevent", Lingo::b_dontpassevent, -1 },
+	// point
+	{ "point",	Lingo::b_point, 2},
 	{ 0, 0, 0 }
 };
 
@@ -216,4 +218,25 @@ void Lingo::b_dontpassevent() {
 	warning("STUB: b_dontpassevent");
 }
 
+///////////////////
+// Point
+///////////////////
+void Lingo::b_point() {
+	Datum y = g_lingo->pop();
+	Datum x = g_lingo->pop();
+	Datum d;
+
+	x.toFloat();
+	y.toFloat();
+
+	d.u.arr = new FloatArray;
+
+	d.u.arr->push_back(x.u.f);
+	d.u.arr->push_back(y.u.f);
+	d.type = POINT;
+
+	g_lingo->push(d);
+}
+
+
 } // End of namespace Director