diff --git a/libs/video/targets/pr_keys.c b/libs/video/targets/pr_keys.c
index d9dd7d405..b72eb006e 100644
--- a/libs/video/targets/pr_keys.c
+++ b/libs/video/targets/pr_keys.c
@@ -40,6 +40,13 @@
 #include "QF/progs.h"
 #include "QF/zone.h"
 
+static void
+bi_Key_keydown (progs_t *pr)
+{
+	int         keynum  = P_INT (pr, 0);
+	R_INT (pr) = keydown[keynum];
+}
+
 /*
     bi_Key_SetBinding
 
@@ -151,6 +158,7 @@ bi_Key_StringToKeynum (progs_t *pr)
 }
 
 static builtin_t builtins[] = {
+	{"Key_keydown",			bi_Key_keydown,		-1},
 	{"Key_SetBinding",		bi_Key_SetBinding,		-1},
 	{"Key_LookupBinding",	bi_Key_LookupBinding,	-1},
 	{"Key_CountBinding",	bi_Key_CountBinding,	-1},
diff --git a/ruamoko/include/key.h b/ruamoko/include/key.h
index cd8cc2b73..bc7d04801 100644
--- a/ruamoko/include/key.h
+++ b/ruamoko/include/key.h
@@ -2,6 +2,8 @@
 #define __ruamoko_key_h
 
 #include "QF/keys.h"
+
+@extern int Key_keydown (int keynum);
 @extern string Key_SetBinding (string imt, int keynum, string binding);
 @extern int Key_LookupBinding (string imt, int bindnum, string binding);
 @extern int Key_CountBinding (string imt, string binding);
diff --git a/ruamoko/lib/key.r b/ruamoko/lib/key.r
index d66c218fb..19662f138 100644
--- a/ruamoko/lib/key.r
+++ b/ruamoko/lib/key.r
@@ -1,5 +1,6 @@
 #include "key.h"
 
+int Key_keydown (int keynum) = #0;
 string (string imt, int keynum, string binding) Key_SetBinding = #0;
 int (string imt, int bindnum, string binding) Key_LookupBinding = #0;
 int (string imt, string binding) Key_CountBinding = #0;