From de1db06299491eb2354ae7fb032b5ee904ee66de Mon Sep 17 00:00:00 2001
From: piaip <piaip@63ad8ddf-47c3-0310-b6dd-a9e9d9715204>
Date: Thu, 17 Jan 2008 16:16:13 +0000
Subject:  - bbslua: fix bbs.kball() on w32 port

git-svn-id: http://opensvn.csie.org/pttbbs/trunk/pttbbs@3840 63ad8ddf-47c3-0310-b6dd-a9e9d9715204
---
 mbbsd/bbslua.c | 10 +++++++++-
 1 file changed, 9 insertions(+), 1 deletion(-)

diff --git a/mbbsd/bbslua.c b/mbbsd/bbslua.c
index d22e0b4d..cef1e2c3 100644
--- a/mbbsd/bbslua.c
+++ b/mbbsd/bbslua.c
@@ -494,11 +494,17 @@ bl_kball(lua_State *L)
 	if (abortBBSLua)
 		return r;
 
+#ifdef _WIN32
+	while (peekch(0))
+	{
+		bl_k2s(L, igetch());
+		i++;
+	}
+#else
 	// next, collect all input and return.
 	if (num_in_buf() < 1)
 		return 0;
 
-	lua_newtable(L);
 	oldr = num_in_buf() +1;
 	i = 0;
 
@@ -508,6 +514,8 @@ bl_kball(lua_State *L)
 		bl_k2s(L, igetch());
 		i++;
 	}
+#endif
+
 	return i;
 }
 
-- 
cgit v1.2.3