diff options
| author | Eugene Sandulenko | 2016-07-30 20:42:56 +0300 |
|---|---|---|
| committer | Eugene Sandulenko | 2016-08-03 23:40:36 +0200 |
| commit | ba3cf6181c06ddcd543db277d1fe5a6d4506cad7 (patch) | |
| tree | 479a8298d692389d7eeb0caed7ee28f31d73e10a /engines/director/lingo/lingo-builtins.cpp | |
| parent | 7fd25e98f1a689733b6bad449618ebe8f3c91546 (diff) | |
| download | scummvm-rg350-ba3cf6181c06ddcd543db277d1fe5a6d4506cad7.tar.gz scummvm-rg350-ba3cf6181c06ddcd543db277d1fe5a6d4506cad7.tar.bz2 scummvm-rg350-ba3cf6181c06ddcd543db277d1fe5a6d4506cad7.zip | |
DIRECTOR: Lingo: Implemented ilk() function
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 /////////////////// |