#!/usr/bin/perl
use CGI;
$q = new CGI;
$url = "./image/";

# ========== ヘッダー ==========
print <<EOF
Content-type:text/html

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN"
    "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=UTF-8" />
<link rel="stylesheet" href="./styles.css" type="text/css" /> 
<title>デジタルリトマス試験紙</title>
</head>
<body id="litmus">
EOF
;

# ========== 処理の分岐 ===========

$name = $q->param('namae'); #nameを取得
$direct = $q->param('direct'); #directを取得

if ( $direct eq "false") {
	if ( $name eq "" ) { #フォームを経由していてnameが空のとき
		print "名前を入れてください<br />";
		&inputname;
	} else { #フォームを経由していてnameがあるとき
	&result;
	} 
} elsif ( $direct ne "false" ) { #フォームを経由していないとき
	&inputname;
}

# ========== SUB:名前入力 ===========

sub inputname {
print <<EOF
<div id="index" class="body">
<div class="contents">
<h1><img src="./image/h1-title.png" alt="デジタルリトマス試験紙" /></h1>
<div id="inputform">
<form method="POST" action="./">
<input type="hidden" name="direct" value="false">
<p><label for="namae">お名前</label><input type="text" name="namae" id="namae" size="20" maxlength="64"></p>
</div>
</div>
EOF
;
}

# ========== SUB:結果発表 ===========

sub result {

# ======== PH値出力処理 =========

@asccode = unpack "C*", $name; #名前をASCIIコードにして配列化
foreach $i (@asccode) { $namecode = $namecode.$i; } #配列をいったん一列につなげる
$namelength = int(length($namecode)/10); #ASCIIコードが何10文字あるか判定
if ($namelength > 1) { #10桁を越えたら10字ずつ切って足し続ける
	for ($i=0; $i<=$namelength; $i++) {
	$namecodecutting = $namecodecutting + substr ($namecode, $i*10, 10);
	}
	$namecode = $namecodecutting;
}
$namecode = substr ($namecode, -10, 10); #一応末尾10字だけにしておく
($sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdst) = localtime(time);
$today = $mday.$mon.$year; #日・月・年の順に数字を取得
$ph = $namecode / $today; #ASCIIコードを日付の数字で割る
$ph =~ s/\.//g; #小数点を削除
$ph = substr ($ph, -3, 3); #末尾３文字だけにする
$ph = int($ph * 0.141); #0.141をかけて四捨五入（0〜140の範囲にまとめる）
$phapr = $ph / 10; #10で割ってPH値らしい数にしておく
$phapr = sprintf ("%.1f", $phapr); #整数でも小数点第一位まで出す
@phimg = split //, $phapr; #変数phaprを１文字ずつ配列phimgに代入
foreach $i (@phimg) { #配列phimgにつき
	$i =~ s/\./<img src="$url\period.png" alt="\." \/>/; #ピリオドを画像に変換
	for ($j = 0; $j <=10; $j++) { #数字を画像に変換
		$i =~ s/$j/<img src="$url$j.png" alt="$j" \/>/;
	}
}

# ======== 説明1 =========
print '<div id="result" class="body">'."\n";
print '<div class="contents">'."\n";
print '<h1><img src="./image/h1-title.png" alt="デジタルリトマス試験紙" /></h1>'."\n";
print '<div id="status1">'."\n";
print "あなたの今日のpH値は\n";
foreach $i (@phimg) { print $i; }
print "\nです。<br />\n";
print "</div>\n";
print '<div id="status2">'."\n";
if ($ph > 110) { $liquid = '<img src="'.$url.'liquid-alkaline.png" alt="アルカリ性" />'; }
elsif ($ph > 80 ) { $liquid = '<img src="'.$url.'liquid-weakalkaline.png" alt="弱アルカリ性" />'; }
elsif ($ph < 30 ) { $liquid = '<img src="'.$url.'liquid-acid.png" alt="酸性" />'; }
elsif ($ph < 60 ) { $liquid = '<img src="'.$url.'liquid-weakacid.png" alt="弱酸性" />'; }
elsif ($ph <= 80 ) { $liquid = '<img src="'.$url.'liquid-base.png" alt="中性" />'; }
print $name."さんは".$liquid."です。<br />\n";
print "</div>\n";

# ======== グラフィック =========

# ====== ひたした色 =======
print '<div id="paper">'."\n";
$phcolor = $ph;
&makecolor ($phcolor);
print '<div style="background-color:'.$color.'; width:32px; height:20px;float:left;"></div>';

# ====== グラデーション =======

for ($igrad=1; $igrad<=32; $igrad++) { #グラデ幅は32px
	if ($ph < 70) {
		$phatitude = 70-$ph; #中性までの振れ幅を算出
		$phgrad = $phatitude/32; #グラデの変化量を算出
		$phcolor = int ($phgrad * $igrad + $ph);
	} elsif ($ph > 70) {
		$phatitude = $ph-70; #中性までの振れ幅を算出
		$phgrad = $phatitude/32; #グラデの変化量を算出
		$phcolor = int ($ph - $phgrad * $igrad);
	} else { $phcolor = 70; }
	&makecolor ($phcolor);
	print '<div style="background-color:'.$color.'; width:1px; height:20px;float:left;"></div>';
}

# ====== 地色 =======

$phcolor = 70;
&makecolor ($phcolor);
print '<div style="background-color:'.$color.'; width:100px; height:20px;float:left;"></div>'."\n";
print '<br style="clear:both;" />'."\n";
print '</div>'."\n";

# ======== 説明2 =========

print '<div id="information">'."\n";
print '<h3><img src="'.$url.'info-top.png" alt="information" /></h3>'."\n";
&description;
print "<p>".$description[$ph]."</p>\n";
print '<div id="information-footer"></div>'."\n";
print "</div>\n";

print "</div>\n\n";
}


# ========== フッター ==========
print <<EOF
<div class="footer">
<div class="center">
<a href="http://smileboom.com/"><img src="./image/footage-sb.png" alt="powered by SmileBoom" /></a>
</div>
<div id="webcrap" class="right margintop16">
<a href="http://smileboom.com/script/clap/clap.php?day=%E3%83%87%E3%82%B8%E3%82%BF%E3%83%AB%E3%83%AA%E3%83%88%E3%83%9E%E3%82%B9%E8%A9%A6%E9%A8%93%E7%B4%99&url=http://smileboom.com/litmus/"><img src="http://smileboom.com/script/clap/img/clap-nonumber.png" alt="はげましの拍手を送る" title="はげましの拍手を送る" width="126" height="17" /></a>
</div>
<div id="footage-for-index"><p>わざわざ言うのもなんですが、このページはたちの悪いご冗談であり一切の科学的うらづけがありません。くれぐれも真面目に利用しないようお願いいたします。</p></div>
<div id="footage-for-result"><p>くどいようですが、このページはたちの悪いご冗談であり何ひとつ正しいことを伝えていません。くれぐれも真面目に利用しないようお願いいたします。</p></div>
</div>

</div>

<script type="text/javascript">
var gaJsHost = (("https:" == document.location.protocol) ? "https://ssl." : "http://www.");
document.write(unescape("%3Cscript src='" + gaJsHost + "google-analytics.com/ga.js' type='text/javascript'%3E%3C/script%3E"));
</script> 
<script type="text/javascript"> 
try {
var pageTracker = _gat._getTracker("UA-9054823-1");
pageTracker._trackPageview();
} catch(err) {}</script>
</body>
</html>
EOF
;

# ========== SUB:色を生成 ===========

sub makecolor {
	@colordefault = ("ff", "cc", "99"); #中性(7pH)の色（肌色）
	if ($phcolor < 70) {
			@colorlimit = ("cc", "33", "33"); #酸性(0pH)の色（赤）
			$phcolor = 70-$phcolor; #基準値(70)からどれだけ変化しているか
	} elsif ($phcolor > 70) {
			@colorlimit = ("33", "33", "cc"); #アルカリ性(14pH)の色（青）
			$phcolor = $phcolor-70; #基準値(70)からどれだけ変化しているか
	} else { @colorlimit = ("ff", "cc", "99");
	}
	for ($i = 0; $i <=2; $i++) { #（RGB分３回繰り返す）
		$colordefault[$i] = hex($colordefault[$i]); #10進数に変換
		$colorlimit[$i] = hex($colorlimit[$i]); #10進数に変換
		$colorlatitude[$i] = $colordefault[$i] - $colorlimit[$i]; #色の振れ幅を確認
		$coloradd[$i] = $colorlatitude[$i] / 70; #1PH上がるごとに何ポイント変わるか
		$coloradd[$i] = int ($phcolor * $coloradd[$i]); #PHの変化値ぶん上げて四捨五入
		if ($coloradd[$i] < 0) { #基準値より増えるか減るかで分岐
			$color[$i] = $colordefault[$i] - $coloradd[$i];
			} else {
			$color[$i] = $colordefault[$i] - $coloradd[$i];
			}
		$color[$i] = sprintf "%x", $color[$i]; #16進数に戻す
		$color = '#'.$color[0].$color[1].$color[2]; #RGB順に並べる
		}
	}

# ========== SUB:説明文 ===========

sub description {
#pH0：酸性
$description[0] = '0pHといえばもう酸性の中の酸性です。詩的に表現するなら死者の目も覚めるほどにすっぱいのではないでしょうか。ラッキースポットは墓場。';
$description[1] = 'あと一歩で0pHという一種のニアピン賞のような位置にあなたはいます。チャンピオンは永く記憶されるが二番手は誰の記憶にも残らない、とことわざにもあるように、とても残念です。ラッキーアイテムはトロフィー。';
$description[2] = '何かで読みましたが、塩酸はだいたい0pHだそうです。ラッキーアイテムは塩酸。';
$description[3] = '酸性についてあなたはどの程度ご存知ですか？　家庭用品品質表示法ではpH3.0未満だと酸性、3.0以上6.0未満なら弱酸性とみなされます。憶えても時間のむだですよ！';
$description[4] = 'この結果があなたにとってどれほどの効果をもたらすのでしょう？　答は、ゼロです。ラッキーナンバーは７。';
$description[5] = '酸性は俗にすっぱいものとして考えられていますが、もしあなたが何らかの探究心によってpH0.5の物質を口腔摂取することによって何らかの被害を被ったとして、私たちには何の責任もありません。';
$description[6] = 'ささやかな質問が私にもあります。酸性とは何のことでしょうか。';
$description[7] = 'あなた自身がこの結果について何を感じたか、私にはわかりません。ひとつ言えるのは、あなたはいま時間を浪費しているということです。クリエイティブな作業に戻りましょう！';
$description[8] = 'pH0.8のあなたにとって、今日はどんな日になるのでしょうか？　私からのアドバイスですが、pH0.8のことは忘れてしまいましょう。';
$description[9] = '胃酸過多は胃潰瘍の原因ともなる重大な症状です。もちろんこのテストと胃酸過多の間には何の因果関係もありませんが、誰にでもただ思いついた何かを言ってみたくなるときというのはあるものです。';
$description[10] = '今日がさんざんな日になるという結果がこのテストで出るとして、あなたはその心の準備ができていますか？　それではお伝えしましょう。このテストではそのような結果をお伝えするほど高度なプログラムは組まれていません。';
$description[11] = 'あなたの好きな色が青だとすれば、それはとても残念です。このテストで見るかぎりリトマス試験紙は真っ赤に染まっているのですから。ラッキーカラーはグリーン。';
$description[12] = 'このテストの結果は、あなたの名前と密接な関係があります。これは中国で古来より学術として研究されてきた姓名判断に基づくものではまったくありませんから、気にすることはありません。';
$description[13] = '1.3は13に通じ、13は西洋では不吉の象徴とされる忌み数です。ところで特に関係ないので気にしないでほしいのですが、このプログラムの内部的な処理ではあなたのpH値は1.3ではなく13として処理されています。';
$description[14] = '酸性として人生をすごすことが、どんなみじめな人生であるのか私には想像もつきません。そこでこのテストでは毎日pH値が大きく変わるようにプログラムされています。また明日チェックしてみてください。';
$description[15] = 'この結果があなたの学習意欲や勤労意欲に何らかの影響を与えるかもしれませんが、それはまやかしであるとあらかじめおことわりしておきます。ラッキーアイテムはパソコン。';
$description[16] = '非常に悲しい事実をお伝えしなければいけないようです。あなたはいま酸性とされていますが、それは私たちの口からでまかせでしかないのです。';
$description[17] = 'あなたはいま空腹をおぼえてはいませんか？　このテスト結果は胃酸とは無関係ですが、空腹で胃酸が分泌されたことがテスト結果に反映されたと考えれば、心のよりどころにはなるのではないでしょうか。';
$description[18] = 'ご安心ください。あなたが今見ている物は現実です。そして、科学的うらづけはひとつとしてありません。';
$description[19] = '酸性と判断されたことはあなたにとってどの程度ショッキングなできごとでしょうか？　ここに興味深いデータがありますが、過去のこのテストの被験者のうち99%以上の人間は、どうでもよいと考えています。';
$description[20] = 'あなたの故郷のことを思い浮かべてください。あなたを知る人すべてが、かげであなたが酸性だとうわさしている──。最悪のケースの想像はできましたか？　ところであなたは酸性と判断されました。';
$description[21] = '仕事に、学業に、家庭生活に、現代人は様々な形でストレスに悩まされています。ストレスが体内のpH値に影響を与えるという説もさかんですが、幸運なことにこのテスト結果とストレスには何の因果関係もないと言い切れます。';
$description[22] = 'あなたは酸性と判断されましたが、窓を開けて外の空気を吸えば自分が酸性かどうかなど、ささいなことにすぎないと思えるのではないでしょうか。';
$description[23] = 'イギリスのことわざに「我々は泣きながら生まれ、文句を言いながら生き、失望しながら死ぬ」とあります。この結果があなたに不満をもたらしたところで不思議はありません。';
$description[24] = 'あなたはこの結果を知って、いますぐブラウザを閉じたくなったかもしれませんが、私たちもそれをおすすめします。';
$description[25] = '人生の大事な場面──たとえばプロポーズや社運をかけた商談など──で、あなたが酸性であるために重大な失敗を呼び込むことも無いとは言えません。真剣にそれをおそれるのなら、今すぐこんなテストとは違った科学的に正しいテストを受診することをおすすめします。';
$description[26] = '酸性であることをひとり胸に秘めて生きるのもいいでしょう。大切なパートナーになら打ち明けてもいいかもしれません。私たちのおすすめは、いっさい忘れて生きることです。';
$description[27] = 'おめでとうございます！　あなたは酸性と判断されました。と、こうやって書くと一見まるでとても素晴らしいことのように思えるでしょう？';
$description[28] = '私たちからのささやかなアドバイスです。こんな意味のないテストのことは忘れてはいかがでしょうか。';
$description[29] = 'pH値が3.0以上ならば酸性ではなく弱酸性と判断されます。あなたはたった0.1の差で酸性と判断されてしまいましたが、少なくともたいした問題ではないとは言えます。';
#pH3.0以上〜6.0未満：弱酸性
$description[30] = '日本では家庭用品品質表示法により、pH3.0以上なら弱酸性、pH2.9以下なら酸性とされています（2008年施行）。あなたは法律的に弱酸性と判断されたように感じるかもしれませんが、さいわいこのテストと家庭用品品質表示法は無関係です。';
$description[31] = 'あなたがいま弱酸性と判断されたことで、酸っぱいものを食べたくなったり、あるいは逆に苦い味のものを飲みたくなったとしたら、あなたは非常にムードに流されやすい人だと言えるかもしれません。詐欺にご用心。';
$description[32] = '弱酸性という言葉からあなたは何を連想するでしょうか？　いまあなたが心にうかべたもののことはさておき、私たちはいま仕事を片付けてプライベートを満喫することばかりを考えています。';
$description[33] = '人は「3.3」のように並んだ数に特別な意味があるように、無意識的に感じるものです。ところであらためて言うまでもないでしょうが、このpH3.3という数に特別な意味はなんらありません。';
$description[34] = 'あなたが常に健康に気をつかっているのなら、この結果にショックを受けたかもしれません。私だったら、気にしませんが。';
$description[35] = '弱酸性であることであなたにどんなメリットがあるでしょうか？　もうおわかりですね。さっさとウィンドウを閉じてこんなテストのことは忘れましょう。';
$description[36] = 'さいきん運動不足だと感じていませんか？　心当たりがあるとすれば、それはこのテストが優れているためではなく、単にあなたが運動不足なだけです。ぜひ運動を始めましょう。';
$description[37] = '弱酸性とはおおざっぱに言えば、中性に近い酸性のことです。これを読んであなたがひとつ賢くなったとすれば、それは私たちのよろこびであり、あなたの常識力へのうたがいです。';
$description[38] = 'あなたが立ち上がり「やった！　私は弱酸性だ！」と叫びたい衝動にかられたとしても、私たちにそれを止める権利はありません。それもまたあなたの人生なのですから。';
$description[39] = 'このテスト結果が不満ですか？　そうだとしても、私たちも同意見だということだけは記憶しておいてください。';
$description[40] = 'このような結果が出るのは、科学的に間違っているという事をご存じですね？　それだけ理解してもらえれば、私たちも安心していられます。';
$description[41] = '「弱酸性」は近年、洗剤や化粧品といった分野において注目を集めています。その事実がこのテストの結果と特に関係ないのは言うまでもありません。ラッキーアイテムは化粧品。';
$description[42] = 'たとえば土曜の夜にバーで素敵な異性に出会ったとします。ご安心ください。そんな時あなたの心に「弱酸性」という言葉はかけらほどの意味ももたないでしょう。';
$description[43] = '危険な街のちんぴらにからまれた時、あなたはこう言うことができます。「おれは弱酸性だぞ！」　ですがその後の結果については、まだ十分なデータが集まっていません。ぜひデータ収集にご協力ください。';
$description[44] = '社交辞令にすぎませんが、あなたのpH値が4.4だということは、いつまでも私たちの心に残り続けるでしょう。';
$description[45] = 'おめでとうございます！　あなたのpH値はこれといって何にまつわるものでもありませんが、それに不平をとなえる権利があなたにはあります。';
$description[46] = 'お急ぎなら、この解説文を読まずにブラウザを閉じることも可能です。あなたがいまこの文章をお読みだと仮定して言わせてもらえば、あなたに必要なのはブラウザを閉じることです。';
$description[47] = 'あなた自身の手にふれてみてください。この弱酸性という結果は、くだらないたわごとだと気付くはずです。';
$description[48] = 'この結果には何の科学的うらづけもありませんが、あなたがこの結果に深刻なショックを受けているとすれば、あなたは高い確率でお疲れだとは言えます。';
$description[49] = '本物のリトマス試験の経験はおありですか？　まだなら、このテストは格好の悪い例だとよく憶えておいてください。';
$description[50] = 'この先、世界になにが起ころうとも、これだけは言えるでしょう。このpH5.0という結果に意味はありません。';
$description[51] = '弱酸性と判断されたあなたに今すぐ必要なのは、それを忘れることです。';
$description[52] = 'あなたはこのテストにより弱酸性と判断されましたが、そんなあなたに言うべきことはこれといって見つかりません。';
$description[53] = '美しい夕日を見たとき、満天の星空を見上げるとき、雄大な夜明けに目を細めるとき、あなたの心に「弱酸性」という言葉が暗い影を落とさないように祈っています。';
$description[54] = 'あなたの人生にとって重要なのは、弱酸性であるかどうかなどではない。こう言うことであなたの気がかりがひとつ消えるとしたら、それは私たちのよろこびです。';
$description[55] = 'たとえば今日があなたにとってどれほどみじめな一日だったとしても、この結果と比べればたいしたことはないと思えるかもしれません。ほんのごまかしですが。';
$description[56] = '酸性雨とは、pH値が5.6以下の雨のことです。このテスト結果を信じるならば、あなたはいま酸性雨に非常に近い人物と言えるでしょう。ラッキーアイテムは傘。';
$description[57] = 'ちかごろ朝の目覚めは快適ですか？　pH5.7だからといって寝覚めとは何の関係もありませんが、寝覚めが良いに越したことはありませんね。';
$description[58] = '今こそ行動のときです。というのも、こんなテストにかかずらっているひまがあるなら、もっと有益なことが必ずあるはずだからです。';
$description[59] = 'このように、このテストはまったく意味のない結果を表示します。あなたの大切な時間をむだにしたことについては、私たちも遺憾にたえません。';
#6.0pH以上〜8.0以下：中性
$description[60] = 'この世界を生き抜くために必要な知識というものはたしかにあります。誤解されては困りますが、そういった知識をこのページから得ることはできません。';
$description[61] = 'かがやかしい明日へ踏み出すためのステップとして、このテストとその結果がほとほと不適切なのは言うまでもありません。';
$description[62] = 'つらい時であっても絶望がけして問題の解決にならないように、このテスト結果が中性であるということはあらゆる問題の解決に寄与しません。';
$description[63] = '最初に申し遅れていましたが、心臓の弱い方・身長が132センチ以下の方にこのテストはおすすめしません。条件にあてはまる方はご注意ください。もっとも、たとえ心臓が健康で身長２メートルを超える方であっても、このテストはおすすめできたものではありませんが。';
$description[64] = 'この結果に私たちとしてはおどろきを隠せません。それというのも、6.4というのはこのテストではほぼ140分の１という確率で表示されるpH値だからです。他の数値も同じ確率で表示されるとしてもです。';
$description[65] = 'あなたのお住まいはどこでしょう？　たとえば海辺にお住まいの方は「中性」と判断される確率が多いというデータは特にありませんので、あなたが海辺にお住まいでなくても別におどろきではありません。';
$description[66] = '人生には重大な分岐点というものがあり、それはたとえば今日かもしれません。そんな日に「中性」と判断されたとしたら、どうでしょう？　私だったら、気にしません。';
$description[67] = 'たいしたことのない疑問ですが、この中性という結果から何が導き出されるというのでしょうか？';
$description[68] = 'このテストに、何らかの占いのような効用を期待している方もいるかもしれません。そういった方のためにあえて言うなら、今日のラッキーアイテムはリトマス試験紙です。';
$description[69] = '色味のおもしろさに欠ける結果となってしまいましたが、そもそもこのテストはしょせんその程度のものです。';
$description[70] = '非常に純度の高い状態の水、いわゆる純水はpH7.0とされます。ラッキーアイテムはお湯。';
$description[71] = '何か決断が必要なときに、その一助としてこのページを開くとすれば、それは大きな誤りだと言わざるをえません。';
$description[72] = '問題をひとつずつ解決しましょう。まず第一に、pH7.2は中性です。次に、中性とは酸性でもアルカリ性でもない状態です。最後に、この結果はまったくのでたらめです。';
$description[73] = 'まずはあなたの食生活を見直してみましょう。もちろんこのテストと食生活は関係ありませんが、食生活を改善することはあなたの生活に決してマイナスにはならないはずです。';
$description[74] = '愛とか優しさとかとらえどころのない観念よりも、科学的な数値と実験結果を重視するのもひとつの生き方です。問題があるとすれば、このテスト結果がなんら科学的でないということでしょうか。';
$description[75] = '楽しい時間は魔法のように過ぎていきます。いまこのテストを受けているあなたにとって時間がどの程度の早さで過ぎているのかはわかりませんが、どうあれ時間を浪費しているとは言えるでしょう。';
$description[76] = '前向きに考えましょう。中性だからといって悪いことばかりでもありません。率直に言えば、何が悪いのかもわからないくらいです。';
$description[77] = '世界は広く、いまこの瞬間もあなたがpH7.7と判断されたことよりもはるかに素晴らしい幸運に恵まれている人がいるでしょう。なぐさめになるかどうかはわかりませんが、pH7.7だからといってさほどラッキーというわけでもありません。';
$description[78] = '人間には希望を持つことが許されています。pH7.8であっても、そう悲観したものではないのかもしれませんよ。';
$description[79] = 'あなたのpH値が7.9だったとしても、そのこととは無関係に世界は今日も動いています。だいいちあなたのpH値が7.9というのもたわごとにすぎません。';
$description[80] = 'pH8.0と判断されたことはあなたに満足をもたらしたでしょうか？　たとえそうでなかったとしても、私たちはその気持ちに心からの理解を示します。';
#8.0pH超〜11.0以下：弱アルカリ性
$description[81] = '嘘です。';
$description[82] = 'ご存じでしたか？　状態にもよりますが、重曹は一般にpH8.2とされます。だからどうした、と聞かれても困りますが。';
$description[83] = 'このページを利用するにあたって、大事な約束ごとがあります。「気にしない」　この短い言葉を決して忘れないでください。';
$description[84] = 'このテストで弱アルカリ性と判断されたことによってあなたが幸せ／または苦痛を感じることがあるかもしれません。だとすれば、あなたは考えすぎではないでしょうか。';
$description[85] = 'pH8.5という結果にショックを受けたなら、まず美しい思い出に心をはせてみてください。ほら、pH値のことなどどうでもいいことだと感じませんか？';
$description[86] = '明日の予定をチェックしてみましょう。そしてあなたが弱アルカリ性だというテスト結果と、明日の予定を考え合わせてみてください。このテスト結果の無意味さがびっくりするほどよくわかるはずです。';
$description[87] = 'この結果によってあなたの週末がだいなしになったかもしれませんが、率直に言って私たちにはこの結果からどういう経緯を通じて週末がだいなしになるのかが理解できません。';
$description[88] = '心を落ち着かせるクラシック音楽など聴いてみてはどうでしょう。リラックスできましたか？　pH8.8という結果が出たとしても、落ち着いてみればそれがたわごとだと理解できるはずです。';
$description[89] = 'このテストに対してあなたがどのような期待を抱いていたのか、私たちに知るすべはありませんが、期待はずれであろうことはよく理解できます。';
$description[90] = 'このテスト結果を信じて「自分は弱アルカリ性だ」と思った方に、重要なおしらせです。あなたはいま間違いを犯しています。';
$description[91] = 'この結果を見て、恐怖のさざ波があなたをおそったとします。そうなったとしたら、私たちは理解に苦しむでしょう。';
$description[92] = 'もっとも、どのpH値が人体としてベストなのか私たちに知るよしもありません。どうせでたらめに出た数字です。';
$description[93] = 'このテスト結果と健康の関係に興味がおありですか？　知的好奇心はもっと別のことに向けるべきです。';
$description[94] = '「とても良好な結果です！」とここに書いたところで、何の意味もないことはあなたもご存じでしょう。ではあらためてテスト結果についてですが、とても良好な結果です！';
$description[95] = '退屈しのぎにこのテストを受けたとしても、私ならひどく損をした気分になることでしょう。あなたがそうでないことを祈ります。';
$description[96] = 'ちかごろ塩分を摂りすぎではないですか？　このように聞くことで、さももっともらしいテスト結果のように思えてはこないでしょうか。ラッキーアイテムは塩。';
$description[97] = '安心してください。あなたが弱アルカリ性だと判断されても、私たちはあなたに対する態度を変えたりしません。';
$description[98] = 'ですが、いま本当に目を向けるべきことはpH値が9.8であることではありません。あなたに必要なのは、もっと有意義なことに時間を使うことです。';
$description[99] = 'pH9.9という数は記憶にも残りやすいかもしれません。今すぐ忘れる努力をわれわれは応援します。';
$description[100] = '非常にきりのいい数字です。それだけでも、この結果に価値を見出すことは可能ではないのでしょうか。率直なところ、私たちにはそれ以外の価値が見当たらないのです。';
$description[101] = '提案ですが、このpH10.1という結果は私たちとあなたの間だけの秘密にしてはどうでしょう。そうすることによって個人のプライバシーが守られ、なによりこんなテストに参加したという過去が周囲に知られずにすみます。';
$description[102] = '普段からストレスを溜め込まない生活をこころがけましょう。たとえば、こういった科学的に誤ったテストを受けない、といったことも大事なことです。';
$description[103] = 'こうしてあなたを弱アルカリ性と判断することに、私たちはいささかのためらいもおぼえません。なぜならこれが口からでまかせだからです。';
$description[104] = '残念なおしらせかもしれませんが、この結果のおおむねは嘘です。よりはっきりと言うなら、この結果はまぎれもなく嘘なのです。';
$description[105] = 'この結果に当惑される気持ちはわかります。その点、いかなる結果が出ても当惑することにはなるでしょう。';
$description[106] = 'ひかえめな表現をもちいるなら、あなたの時間はこうして刻一刻とむだに過ぎています。';
$description[107] = 'あなたの求めるものが何であったとしても、弱アルカリ性という結果がそれだったとはとても思えません。心からおわびいたします。';
$description[108] = '考えてみてください。このページにアクセスして、名前を入力し、こうして弱アルカリ性と判断される──人間にはもっとましな生き方があるはずです。';
$description[109] = 'このテスト結果に特に意味はありませんが、リトマス試験紙をアルカリ性溶液に浸すと青く変色するという点については信用に足るのではないでしょうか。';
$description[110] = '家庭用品品質表示法ではpH11.0を超える数値はアルカリ性、それ以下は弱アルカリ性と判定されます。厳密に言ってあなたは弱アルカリ性に分類されますが、そこに何の意味もないのは変わりません。';
#11.0pH超〜：アルカリ性
$description[111] = 'アルカリ性と判断されたことが良いことなのかそれとも悪いことなのか、私たちにはまったくと言っていいほどその判断がつきません。';
$description[112] = '「ランダム」という言葉があります。無作為という意味ですが、このpH11.2という結果もランダムに選ばれた数字だと知っておいて損はないでしょう。';
$description[113] = 'あなたが自信を失ったときも、鏡の中の自分に向かって「おい、しっかりしろよ。おまえはアルカリ性なんだぜ」と言うことができます。よけいに自信を失う危険性にさえ目をつぶれば、それも良いのではないでしょうか。';
$description[114] = '私は恐ろしい悪夢を見ることがあります。ある日、何者かが仕事場のドアを暴力的に叩いてこう言うのです。「俺がアルカリ性だなんて言ったのはどこのどいつだ！」──その悪夢が現実にならないうちに言っておくべきでしょう。あなたは、アルカリ性などではありません。';
$description[115] = 'ひとことアドバイスするとすれば、熱いシャワーを浴びれば、こんなテスト結果のことなどすぐに忘れられるのでは？';
$description[116] = '使い古された言葉ですが、あなたには無限の可能性があります。たとえアルカリ性だったとしても、です。';
$description[117] = '誰かに「あなたはアルカリ性です」などと言われたら大多数の人はこう思うでしょう。「なにを言っているんだ？」　それが正しい反応というものです。';
$description[118] = '仕事や学業、プライベートで悩みをお持ちなら、ためらわずこのページを閉じましょう。これ以上悩みを増やす必要はありません。';
$description[119] = 'このページをプリントアウトして保存することもできますが、それを他人に見せるのはおすすめしません。ましてあなたの身近な医師や科学者に見られるなど、もってのほかです。';
$description[120] = '一般に酸性はすっぱく、アルカリ性は苦く感じられるものと考えられています。pH12.0と判断されたあなたはなかなかの苦さと思えるかもしれませんが、それに関してはおそらく気のせいでしょう。';
$description[121] = 'あなたと私たちの間では、嘘やごまかしのない関係を築きたいものです。ですから、まずこのテスト結果のことは水に流してください。';
$description[122] = '政治や経済に関心はおもちですか？　少なくともこんなページに興味をもつよりも有益ですよ。';
$description[123] = 'pH12.3と判断された方に、ぜひ伝えておきたい情報があります。pH値が12.3の水溶液にリトマス試験紙を浸すと、このように青色に変色します。以上で伝えたい情報は終わりです。';
$description[124] = '良いニュースと悪いニュースがあります。まず良いニュースですが、一般に健康な人体の体液はアルカリ性とされています。次に悪いニュースですが、このテスト結果はまったくの大嘘です。';
$description[125] = '現実に目を向ければ、このテストの無意味さがたちどころにわかるはずです。';
$description[126] = 'あなたが科学的な目を持っているなら、こんなテストはまやかしだと思ったことでしょう。あなたが科学的な目を持っていることを心から祈ります。';
$description[127] = '無数の数の中から12.7という特別な数字が選ばれたと考えると、少しは気が晴れませんか？';
$description[128] = '私たちがあなたのためにできることはそれほど多くはありません。そのうちひとつは、このテストでアルカリ性と判断されたからといって気にすることはないのだと伝えることです。';
$description[129] = 'これは何らかの危険信号を伝えているのでしょうか？　お答えしましょう、このテスト結果は危険信号はおろか何の信号も発してはいません。';
$description[130] = 'あなたが気付いていない場合にそなえて念のため説明しておきますが、13は西洋では不吉な数字として扱われます。ラッキーナンバーは13。';
$description[131] = 'ちょっとした気分転換に、リトマス試験紙の色にちなんで青系のシャツに着替えてみるというのはどうでしょう。私だったら、リトマス試験紙とシャツの色を合わせてみようなどとは思いませんが。';
$description[132] = '人生には様々な困難がつきものです。さいわいなことに、このテスト結果を無視することは、困難のリストのうちでもかなりの下位にあります。';
$description[133] = 'ひとつだけ忠告すれば、ビジネスや社交の場で、自分がアルカリ性だと自己紹介することは決してプラスになりません。これだけは憶えていてください。';
$description[134] = 'あなたがこのテスト結果にどれだけのよろこび／悲しみを感じているか推し量ることはできませんが、あなたがこのテスト結果にむなしさを感じているとすれば、その気持ちはよく理解できます。';
$description[135] = 'この結果から読み取れることはさほど多くはありません。はっきりとした事実だけを述べるなら、この結果がまったくのでたらめだとは言えます。';
$description[136] = '意外に思われるかもしれませんが、あなたをpH13.6と判断しても私たちにこれといって得はありません。ですが、他の数を選んだところでけっきょく得るものがないので、無作為に選びました。';
$description[137] = 'ところで、リトマス試験紙は本来このように小数点以下の精度までpH値が測定できるものではないとご存じでしたか？　その点ひとつとっても、このテストの無意味さがよくわかると思います。';
$description[138] = 'いまあなたに本物のリトマス試験紙を手に取ってもらえれば、このテストがいかに信ぴょう性に欠けるかわかってもらえるのですが。';
$description[139] = 'ここで私たちのごくささやかな秘密をもらしますが、このテスト自体がいったい何の役に立つのか、私たち自身もまったくわかっていません。';
$description[140] = 'pH値14.0は水酸化ナトリウムの数値であり、一般的な物質がもつ限界の数値とされます。だからなんだというのでしょう？';
}

# ========== EXIT ==========
exit;