4 files changed, 80 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&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}

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 @@
	1	\cond{T.BEGIN}{0}
	2	\cond{T.END}{0}
	3	\cond{NQUEST}{10}
	4	\def{drawnum}{}(int (1+\NQUEST*\random{6}/1000000))
	5	\def{multip.get}{}{
	6	\if{\T.BEGIN}{
	7	\h3{Testet pågår}
	8	\form{
	9	\variable{START}{\now}
	10	\table{
	11	\for(ii:=1)(ii<=\NQUEST)(ii+=1){
	12	\tr{
	13	[aa:=\drawnum;bb:=\drawnum];
	14	\variable{ANS[ii]}(aa*bb);
	15	\td{[aa] * [bb] =}
	16	\td{\input{TEST[ii]}{4}}
	17	}
	18	}
	19	}
	20	\button{Jag är färdig!}
	21	}
	22	}{
	23	\if{\T.END}{
	24	\h3{Testet färdigt}
	25	\table{
	26	\tr{
	27	\td{Poäng (max \NQUEST):}
	28	\td{\T.POINTS}
	29	}
	30	\tr{
	31	\td{Tid (sekunder):}
	32	\td{\T.DELTA}
	33	}
	34	}
	35	<p>
	36	\href{\this?BEGIN=1}{\h3{En gång till!}}
	37	}{
	38	När du trycker på knappen nedan,
	39	kommer du att få tio frågor att svara på.
	40	<p>
	41	\href{\this?BEGIN=1}{\h3{Starta testet!}}
	42	}
	43	}
	44	}
	45	\def{multip.post}{}{
	46	[pts:=0]\for(ii:=1)(ii<=\NQUEST)(ii+=1){\if(\T.ANS[ii]==\T.TEST[ii])(pts+=1)}
	47	\redirect{\this?END=1&POINTS=[pts]&DELTA=[\now-\T.START]}
	48	}
	49
	50


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 @@
	1	\clearance{}
	2	\include{defs.htc}
	3	\alias{Games}
	4	\page{
	5	\h1{Spelsidan}
	6	Hej! Den här sidan är för lek,
	7	än så länge kan du:
	8
	9	\ul{
	10	\li{\href{\pwd/tian.htc}{Testa dig på tians gångertabell!}}
	11	\li{\href{\pwd/tolvan.htc}{Testa dig på tolvans gångertabell!}}
	12	}
	13	}


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 @@
	1	\clearance{}
	2	\alias{Tian}
	3	\include{defs.htc}
	4	\page{
	5	\h1{Tians gångertabell}
	6	\multip.get
	7	}
	8	\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 @@
	1	\clearance{}
	2	\alias{Tolvan}
	3	\const{NQUEST}{12}
	4	\include{defs.htc}
	5	\page{
	6	\h1{Tolvans gångertabell}
	7	\multip.get
	8	}
	9	\onpost{\multip.post}