From 6e316937f491f489b7f93cca262da3eb68f8e17b Mon Sep 17 00:00:00 2001
From: Yves Rizoud <yrizoud@gmail.com>
Date: Sat, 18 Dec 2010 17:48:36 +0000
Subject: [PATCH] Lua: added sleep command

git-svn-id: svn://pulkomandy.tk/GrafX2/trunk@1661 416bcca6-2ee7-4201-b75f-2eb2f807beb1
---
 src/factory.c | 19 +++++++++++++++++++
 1 file changed, 19 insertions(+)

diff --git a/src/factory.c b/src/factory.c
index a16a0f3b..e0e9f7b9 100644
--- a/src/factory.c
+++ b/src/factory.c
@@ -949,6 +949,24 @@ int L_MessageBox(lua_State* L)
   return 0;
 }
 
+int L_Sleep(lua_State* L)
+{
+  int delay;
+  Uint32 end;
+  int nb_args=lua_gettop(L);
+  
+  LUA_ARG_LIMIT (1, "sleep");
+  LUA_ARG_NUMBER(1, "sleep", delay, 0, 10000);
+
+  end = SDL_GetTicks()+delay;
+  
+  do
+  {
+    Get_input(20);
+  } while (SDL_GetTicks()<end);
+
+  return 0;
+}
 
 // Handlers for window internals
 T_Fileselector Scripts_list;
@@ -1146,6 +1164,7 @@ void Run_script(char *scriptdir)
   lua_register(L,"getsparecolor",L_GetSpareColor);
   lua_register(L,"getsparetranscolor",L_GetSpareTransColor);
   lua_register(L,"clearpicture",L_ClearPicture);
+  lua_register(L,"sleep",L_Sleep);
   
 
   // For debug only