diff options
Diffstat (limited to 'engines/director/lingo/lingo-builtins.cpp')
| -rw-r--r-- | engines/director/lingo/lingo-builtins.cpp | 8 |
1 files changed, 8 insertions, 0 deletions
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 /////////////////// |