Lua: added sleep command
git-svn-id: svn://pulkomandy.tk/GrafX2/trunk@1661 416bcca6-2ee7-4201-b75f-2eb2f807beb1
This commit is contained in:
parent
9b4be3abd1
commit
6e316937f4
@ -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
|
||||
|
||||
Loading…
x
Reference in New Issue
Block a user