From 8a7411fb9751cbfe1c7b3e0c7ee6ccf57a4efdc1 Mon Sep 17 00:00:00 2001
From: Eugene Sandulenko
Date: Fri, 1 Jul 2016 17:55:23 +0200
Subject: DIRECTOR: Lingo: Complete Rand() function implementation

---
 engines/director/lingo/lingo-builtins.cpp | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/engines/director/lingo/lingo-builtins.cpp b/engines/director/lingo/lingo-builtins.cpp
index 2286bb7ed2..311e774e0d 100644
--- a/engines/director/lingo/lingo-builtins.cpp
+++ b/engines/director/lingo/lingo-builtins.cpp
@@ -43,10 +43,12 @@ void Lingo::b_random() {
 	Datum max = g_lingo->pop();
 	Datum res;
 
-	res.u.i = 5;
+	if (max.type != INT)
+		warning("Non-int type for rand: %d", max.type);
+
+	res.u.i = g_lingo->_vm->_rnd.getRandomNumber(max.u.i);
 	res.type = INT;
 
-	warning("b_random");
 	g_lingo->push(res);
 }
 
-- 
cgit v1.2.3