From f83cc90e1ac9f252dcc36d833505ab5e00ae8e74 Mon Sep 17 00:00:00 2001
From: Henrik Rydberg <rydberg@euromail.se>
Date: Fri, 18 May 2012 10:16:04 +0200
Subject: Adding the old test user

Signed-off-by: Henrik Rydberg <rydberg@euromail.se>
---
 user/Games/defs.htc | 50 ++++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 50 insertions(+)
 create mode 100644 user/Games/defs.htc

(limited to 'user/Games/defs.htc')

diff --git a/user/Games/defs.htc b/user/Games/defs.htc
new file mode 100644
index 0000000..a8846e9
--- /dev/null
+++ b/user/Games/defs.htc
@@ -0,0 +1,50 @@
+\cond{T.BEGIN}{0}
+\cond{T.END}{0}
+\cond{NQUEST}{10}
+\def{drawnum}{}(int (1+\NQUEST*\random{6}/1000000))
+\def{multip.get}{}{
+  \if{\T.BEGIN}{
+    \h3{Testet p&aring;g&aring;r}
+    \form{
+      \variable{START}{\now}
+      \table{
+        \for(ii:=1)(ii<=\NQUEST)(ii+=1){
+          \tr{
+            [aa:=\drawnum;bb:=\drawnum];
+            \variable{ANS[ii]}(aa*bb);
+            \td{[aa] * [bb] =}
+            \td{\input{TEST[ii]}{4}}
+          }
+        }
+      }
+      \button{Jag är färdig!}
+    }
+  }{
+    \if{\T.END}{
+      \h3{Testet f&auml;rdigt}
+      \table{
+        \tr{
+          \td{Po&auml;ng (max \NQUEST):}
+          \td{\T.POINTS}
+        }
+        \tr{
+          \td{Tid (sekunder):}
+          \td{\T.DELTA}
+        }
+      }
+      <p>
+      \href{\this?BEGIN=1}{\h3{En g&aring;ng till!}}
+    }{
+      N&auml;r du trycker p&aring; knappen nedan,
+      kommer du att f&aring; tio fr&aring;gor att svara p&aring;.
+      <p>
+      \href{\this?BEGIN=1}{\h3{Starta testet!}}
+    }
+  }
+}
+\def{multip.post}{}{
+  [pts:=0]\for(ii:=1)(ii<=\NQUEST)(ii+=1){\if(\T.ANS[ii]==\T.TEST[ii])(pts+=1)}
+  \redirect{\this?END=1&POINTS=[pts]&DELTA=[\now-\T.START]}
+}
+
+
-- 
cgit v1.2.3