1 files changed, 50 insertions, 0 deletions

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ågå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]}
+}
+
+