From ba3cf6181c06ddcd543db277d1fe5a6d4506cad7 Mon Sep 17 00:00:00 2001
From: Eugene Sandulenko
Date: Sat, 30 Jul 2016 20:42:56 +0300
Subject: DIRECTOR: Lingo: Implemented ilk() function

---
 engines/director/lingo/lingo-builtins.cpp | 8 ++++++++
 1 file changed, 8 insertions(+)

(limited to 'engines/director/lingo/lingo-builtins.cpp')

diff --git a/engines/director/lingo/lingo-builtins.cpp b/engines/director/lingo/lingo-builtins.cpp
index 78c751641d..b23a3ce09e 100644
--- a/engines/director/lingo/lingo-builtins.cpp
+++ b/engines/director/lingo/lingo-builtins.cpp
@@ -49,6 +49,7 @@ static struct BuiltinProto {
 	{ "string",	Lingo::b_string, 1},
 	// Misc
 	{ "dontpassevent", Lingo::b_dontpassevent, -1 },
+	{ "ilk",	 Lingo::b_ilk, 1 },
 	// point
 	{ "point",	Lingo::b_point, 2},
 	{ 0, 0, 0 }
@@ -218,6 +219,13 @@ void Lingo::b_dontpassevent() {
 	warning("STUB: b_dontpassevent");
 }
 
+void Lingo::b_ilk() {
+	Datum d = g_lingo->pop();
+	d.u.i = d.type;
+	d.type = SYMBOL;
+	g_lingo->push(d);
+}
+
 ///////////////////
 // Point
 ///////////////////
-- 
cgit v1.2.3