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 ++++++++++++++++++++++++++++++++++++++++++++++++++
 user/Games/index.htc  | 13 +++++++++++++
 user/Games/tian.htc   |  8 ++++++++
 user/Games/tolvan.htc |  9 +++++++++
 4 files changed, 80 insertions(+)
 create mode 100644 user/Games/defs.htc
 create mode 100644 user/Games/index.htc
 create mode 100644 user/Games/tian.htc
 create mode 100644 user/Games/tolvan.htc

(limited to 'user/Games')

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]}
+}
+
+
diff --git a/user/Games/index.htc b/user/Games/index.htc
new file mode 100644
index 0000000..c4dc915
--- /dev/null
+++ b/user/Games/index.htc
@@ -0,0 +1,13 @@
+\clearance{}
+\include{defs.htc}
+\alias{Games}
+\page{
+  \h1{Spelsidan}
+  Hej! Den h&auml;r sidan &auml;r f&ouml;r lek,
+  &auml;n s&aring; l&auml;nge kan du:
+
+  \ul{
+    \li{\href{\pwd/tian.htc}{Testa dig p&aring; tians g&aring;ngertabell!}}
+    \li{\href{\pwd/tolvan.htc}{Testa dig p&aring; tolvans g&aring;ngertabell!}}
+  }
+}
diff --git a/user/Games/tian.htc b/user/Games/tian.htc
new file mode 100644
index 0000000..7791185
--- /dev/null
+++ b/user/Games/tian.htc
@@ -0,0 +1,8 @@
+\clearance{}
+\alias{Tian}
+\include{defs.htc}
+\page{
+  \h1{Tians g&aring;ngertabell}
+  \multip.get
+}
+\onpost{\multip.post}
diff --git a/user/Games/tolvan.htc b/user/Games/tolvan.htc
new file mode 100644
index 0000000..d2d77ce
--- /dev/null
+++ b/user/Games/tolvan.htc
@@ -0,0 +1,9 @@
+\clearance{}
+\alias{Tolvan}
+\const{NQUEST}{12}
+\include{defs.htc}
+\page{
+  \h1{Tolvans g&aring;ngertabell}
+  \multip.get
+}
+\onpost{\multip.post}
-- 
cgit v1.2.3