Please visit this link and someone tell me, how can this work? I just don't see this being possible.
Worth the look, guaranteed.
![[fish] [fish] [fish]](/data/assets/smilies/fish.gif)
Follow along with the video below to see how to install our site as a web app on your home screen.
Note: This feature may not be available in some browsers.
<html>
<head>
<title>Think</title>
<meta name=Author content='Hypetia'>
<meta name=Generator content='Notepad'>
<script language=vbscript>
animation=1 'animation flag. 0 = disabled, 1 = enabled.
dim p,a,s
sub introduction
p=0
a=0
s="<h1>Think</h1><br><big>Think a number in the range 0 to 624."
s=s & " I'll try to guess that number.<br>"
s=s & "After thinking the number, click "
s=s & "<span style=color:orange;cursor:hand"
s=s & " onclick=nextpage()>here</span> to continue.</big>"
animate
status = "Think"
end sub
sub nextpage
s="<table border><tr><td align=center colspan=5><big>In which color your"
s=s & " number is displayed on this table?</big><tr style=cursor:hand>"
g=split(" cyan magenta limegreen white")
for n=1 to 4
s=s & "<td bgcolor=" & g(n) & " onclick=response(" & n & ")>"
next
s=s & "<td align=center onclick=response(0) bordercolor=#000040"
s=s & " style=font-size:10pt width=20%>Not Displayed"
s=s & "<tr><td colspan=5><table style=font-size:9pt></tr><tr>"
for n=0 to 624
u=n\5^p mod 5
if u then
s=s & "<td style=color:" & g(u) & ">" & n
c=c+1
if c=25 then c=0:s=s & "</tr><tr>"
end if
next
animate
end sub
sub response(c)
a=a+5^p*c
if p=3 then
s="<h1>Think</h1><br>"
s=s & "<big>I think the number in your mind is " & a & ".<br><br>"
s=s & "<span style=color:orange;cursor:hand"
s=s & " onclick=introduction()>[replay]</span></big>"
animate
else
p=p+1
nextpage
end if
end sub
sub animate
if animation then
doc.filters.revealtrans.transition=4
doc.filters.revealtrans.apply
doc.style.visibility="hidden"
doc.filters.revealtrans.play .8
else
doc.innerhtml=s
end if
end sub
sub doc_onfilterchange
if doc.filters.revealtrans.transition=5 then exit sub
doc.filters.revealtrans.transition=5
doc.filters.revealtrans.apply
doc.innerhtml=s
doc.style.visibility=""
doc.filters.revealtrans.play .8
end sub
</script>
</head>
<body bgcolor=#000040 scroll=auto text=white
onselectstart='window.event.returnvalue=0' onload=introduction()>
<div id=doc align=center style='position:absolute;width:100%;
cursor:default;font-family:verdana;filter:revealtrans'></div>
</body>
</html>