#!/usr/bin/perl

#↑一行目のパスはサーバーによって違います。サーバに合わせて変更してください。
#このperlは、perl5に対応しています。
#-------------------------------------------------------------------------------
##  ◇◆◇ 12星座シンプル恋占い ◇◆◇
#  1999/11/23 by Mamiko.S ： http://www.nmt.ne.jp/~mamiko/
#   Edit by Tor World ： http://www.torworld.com/
#
#  ・著作権表示は消さないで使ってください。
#  ・このプログラムを用いた結果、利用者に万一何らかの損害が生じても作者は責任を負えません。
#  ・スクリプトの再配布や有償で他人に設置するといった行為は固く禁じます。
#
#
# --------------------- 初期設定ここから ---------------------

# タイトル（全角６文字以内推奨）
$title = "出会いLOVEの12星座恋占い";

# 戻りたいページのＵＲＬ
$back = "http://www.p-deai.net/top.html";

# このCGIのファイル名
$script_name = "./astrology.cgi";

# データの受け渡し方法 （POST / GET）
$method = "POST";

# BODYタグ
$bground = "";		# 背景画像
$bgcolor = "#FFFFEC"; 	# 背景色
$text = "#003366"; 	# 文字色
$link = "#3333FF";  	# リンク色（未訪問）
$vlink = "#6666FF";	# リンク色（既訪問）
$alink = "#FF0000";	# リンク色（訪問中）

# タイトルの色
$t_color = "#FF0000";

# 彼の星座の文字色
$boy_color = "#6666FF";

# 彼女の星座の文字色
$girl_color ="#FF9999";

# イメージを置くディレクトリ
$img_folder = "images";

# --------------------- 初期設定ここまで ---------------------

if($ENV{'REQUEST_METHOD'} eq 'GET'){
	$query_string=$ENV{'QUERY_STRING'};
}else{
	read(STDIN, $query_string,$ENV{'CONTENT_LENGTH'});
}

&qs;
&furiwake;

if($qs{'action'} eq "telling"){
	if($qs{'girl'} =~ /\D/){&error('入力エラー','入力値を確かめてください。');}
	if($qs{'boy'} =~ /\D/){&error('入力エラー','入力値を確かめてください。');}
	if($qs{'girl'} < 0 || $qs{'girl'} > 11){&error('入力エラー','入力値を確かめてください。');}
	if($qs{'boy'} < 0 || $qs{'boy'} > 11){&error('入力エラー','入力値を確かめてください。');}

	&telling;
	&OutPut;
}else{
	&astro_form;
}

#--------（入力データのデコード）
sub qs{
    
	for(split(/&/,$query_string)){
		tr/+//;
		tr/ //;
		s/%([\dA-Fa-f][\dA-Fa-f])/pack("C",hex($1))/ge;
		($key,$value)=split(/=/,$_,2);

		#改行コードの変換（念のため）
		$value=~s/\r\n/\n/g;
		$value=~s/\r/\n/g;
		$value=~s/\n//g;
		
		$qs{$key}=$value;
		#keyを添字としたハッシュ変数に格納している

    }
}

#--------（占い入力画面出力）
sub astro_form{

&header;
	if ($furiwake eq "mobile") {
	print <<END;
<center><font color="$t_color">$title</font>$br</center>$br
二人の恋の行方を占うシンプルな１２星座相性占いです。彼女と彼の星座を選択して占ってください。$br$br
<center>
<form action="$script_name" method="$method">
<input type="hidden" name="action" value="telling">
<input type="hidden" name="type" value="$qs{'type'}">
<font color="$boy_color">彼の星座</font>$br
<select name="boy">
END

	foreach (0 .. $#seiza) {
		print "<option value=\"$_\">$seiza[$_]\n";
	}

	print <<END;
</select>$br$br
<font color="$girl_color">彼女の星座</font>$br
<select name="girl">
END

	foreach (0 .. $#seiza) {
		print "<option value=\"$_\">$seiza[$_]\n";
	}

	print <<END;
</select>$br$br
<input type="submit" value="相性を占う">$br$br
</form></center>
$hr
$emoji[0]<a href="$back" $ackey="0">ホームに戻る</a>$br$br
END
	}
	elsif ($furiwake eq "ezweb") {
		srand(time ^ ($$ + ($$ << 15)));
		$rand = int(rand(99));
		print <<END;
<DISPLAY NAME=top>
<CENTER>$title<BR><BR>
二人の恋の行方を占うシンプルな１２星座相性占いです。彼女と彼の星座を選択して占ってください。<BR><BR>
<A TASK=GO DEST="#boy_in" LABEL="選択">彼の星座</A><BR>
<A TASK=GO DEST="#girl_in" LABEL="選択">彼女の星座</A><BR>
<A TASK="GOSUB" LABEL="占う" DEST="$script_name?$rand" METHOD="POST" POSTDATA="action=telling&boy=\$boy&girl=\$girl">相性を占う</A>
<A TASK=GO DEST="$back" LABEL="GO">戻る</A><BR><BR>
<CENTER>(C)Mamiko's Page<BR>
<CENTER>Edit <A TASK=GO DEST="http://www.torworld.com/">Tor World</A>
</DISPLAY>

<CHOICE NAME="boy_in" KEY="boy">
彼の星座：
END
	foreach (0 .. $#seiza) { print "<CE VALUE=\"$_\" DEST=#top TASK=GO>$seiza[$_]\n"; }
	print <<"END";
</CHOICE>

<CHOICE NAME="girl_in" KEY="girl">
彼女の星座：
END
	foreach (0 .. $#seiza) { print "<CE VALUE=\"$_\" DEST=#top TASK=GO>$seiza[$_]\n"; }
	print <<"END";
</CHOICE>
END
	}
	else {
		print <<END;
<table width="520" bgcolor="royalblue" align="center" cellpadding="3">
	<tr>
		<td align="center"><font color="white"><b>$title<b></font></td>
	</tr>
</table>
<br>
<table align="center" border="0">
	<tr>
		<td align="center">
			二人の恋の行方を占う12星座相性占いです。<br>
			彼女と彼の星座を選択して、占ってください。<br>
			（ラジオボタン<input type="radio" name="girl" value="1">をクリックして星座を選択してください）
		</td>
	</tr>
</table>
<br>

<form action="$script_name" method="$method" onsubmit="return Form_Validator(this)" name="Form1">
<input type="hidden" name="action" value="telling">
<table align="center" border="0" width="550">
  <tr>
    <td align="center"><b>彼の星座</b><br>
    <table border="0" width="150" cellpadding="0" cellspacing="0">
      <tr bgcolor="$boy_color">
        <td><img src="$img_folder/tbl_tl.gif" border="0" width="15"></td>
        <td><img src="$img_folder/dot.gif" border="0"></td>
        <td align="right"><img src="$img_folder/tbl_tr.gif" border="0" width="15"></td>
      </tr>
      <tr bgcolor="$boy_color">
        <td align="center" colspan="3">
        <table width="100" bgcolor="$boy_color" border="0">
END
	foreach (0 .. $#seiza) {
		print "<tr><td nowrap><input type=\"radio\" name=\"boy\" value=\"$_\">$seiza[$_]</td></tr>\n";
	}
	print <<END;
          </table>
        </td>
      </tr>
      <tr bgcolor="$boy_color">
        <td><img src="$img_folder/tbl_bl.gif" border="0" width="15"></td>
        <td><img src="$img_folder/dot.gif" border="0"></td>
        <td align="right"><img src="$img_folder/tbl_br.gif" border="0" width="15"></td>
      </tr>
    </table>
    </td>
    <td align="center"><input type="submit" value="二人の相性を占う" name="submit1"></td>
    <td align="center"><b>彼女の星座</b><br>
    <table border="0" width="150" cellpadding="0" cellspacing="0">
      <tr bgcolor="$girl_color">
        <td><img src="$img_folder/tbl_tl.gif" border="0" width="15"></td>
        <td><img src="$img_folder/dot.gif" border="0"></td>
        <td align="right"><img src="$img_folder/tbl_tr.gif" border="0" width="15"></td>
      </tr>
      <tr bgcolor="$girl_color">
        <td align="center" colspan="3">
          <table width="100" bgcolor="$girl_color" border="0">
END
	foreach (0 .. $#seiza) {
		print "<tr><td nowrap><input type=\"radio\" name=\"girl\" value=\"$_\">$seiza[$_]</td></tr>\n";
	}
	print <<END;
          </table>
        </td>
      </tr>
      <tr bgcolor="$girl_color">
        <td><img src="$img_folder/tbl_bl.gif" border="0"></td>
        <td><img src="$img_folder/dot.gif" border="0"></td>
        <td align="right"><img src="$img_folder/tbl_br.gif" border="0"></td>
      </tr>
    </table>
    </td>
  </tr>
</table>
</form>
END
	}
&footer;
}
#--------（以下は占いのデータです。）

sub telling{

#--- （Aries）
$girl[0] = '陽気で明るく、さっぱりとしていて陰のない女性です。困っている人には手を貸さずにはいられず、自然に行動することができます。恋は激しく、急速に燃え上がるタイプです。行動力があり、恋愛においてもリーダーシップを取る傾向があります。品格のある男性に惹かれ、熱烈なラブロマンスを繰り広げます。';
#--- （Taurus）
$girl[1] = '見るからにおだやかな印象を持っていて、口数は多くありません。マイペースでねばり強く、我慢強い性格です。豊かな感性を持っていて、美的センスに優れています。保守的で積極的に出るのが苦手ですが、情熱と嫉妬心を内面に秘めています。慎重で誠実な恋愛をし、外見にこだわらず、頼り甲斐があり金銭感覚にすぐれた男性に惹かれます。';
#--- （gemini）
$girl[2] = '好奇心が旺盛で知性にすぐれ、最新の情報にとても敏感。臨機応変の才能にあふれています。陽気でユーモアがあり、とても寂しがりやで、誰とでもすぐ友達になることができます。盲目的な恋には向いていません、知的でクールな恋愛遍歴を重ねることもありえます。恋人には、楽しい会話ができ、友達感覚で付き合える知的で優しい男性が良いでしょう。';
#--- （cancer）
$girl[3] = 'ソフトで温和な社交性と、深い愛情と豊かな感受性を持っています。情が深すぎて情に流されやすいこともあり、そのための浮気もありえます。言葉よりも態度で愛を示そうと相手につくしますが、基本的に受け身で、つねに愛されていたいと願っています。恋人には彼女のジェラシーを素直に受け入れてくれる家庭的であたたかい男性が良いでしょう。';
#--- （leo）
$girl[4] = '強いプライドと情熱と大きな愛にあふれています。自分を思ってくれる人には、つつみこむような愛を与えます。積極的で明るく前向きで、面倒見のいいお人好しですが、さびしがりやな面もあります。派手に見えますが、恋に対しては真剣そのもの。意志が強く一度決めたことはやり通します。';
#--- （virgo）
$girl[5] = '几帳面で神経質。ピュアでロマンチックなため、いくつになっても夢を持ちつづけ、乙女チックなロマンスと理想を求めすぎることがあります。批判精神が旺盛なため、相手の欠点が目につきやすく、異性に対するチェックは厳しいです。恋愛に対して受け身でひかえめ。繊細で心配性のせいか、安全でおちついた愛を求めます。知性と教養のある男性を愛します。';
#--- （libra）
$girl[6] = '知性的で、精神的にも肉体的にもバランスがとれた女性です。落ち着いた優雅な雰囲気を持ち、美的センスにすぐれ、自然に人を引きつける魅力があります。恋愛は、激情に流されることなく、バランスのとれたラブストーリーを好みます。美しさに執着する傾向があり、異性に対しても美形好みです。';
#--- （scorpio）
$girl[7] = '理屈よりもカンに頼って行動していくタイプです。さそり座の女性は１２星座中でいちばんセクシーで神秘的です。無口でもの静かな印象ですが、深い情熱を秘めており、強烈な愛を持っています。用心深さから、恋の相手には安全なパートナーを選びます。見た目よりも将来性のあるたくましい男性に魅力を感じます。調子がよくて遊び好きの人、弱々しい人は好みません。';
#--- （sagittarius）
$girl[8] = 'ポジティブで頭の回転が速く、表と裏がない人です。アクティブな魅力にあふれ、豊富な話題とユーモアで周りを楽しませます。自由を好み、束縛や干渉されるのが大嫌い。情熱的で理想が高く、熱しやすく冷めやすい性格のため、恋愛を何回か繰り返しがちです。融通のきかない人は嫌いで、知的な美形でワイルドな魅力のある人を好みます。';
#--- （capricorn）
$girl[9] = '堅実な努力家で、つねに慎重に計画を立てて行動していくタイプ。思いやりがあり、周りの人のため自分からすすんで苦労を買って出るところがあります。恋にも慎重になりすぎて駆け引きは苦手。傷つくことを恐れます。恋の相手には、見た目よりも中身を重視し、自分が尊敬できる人でなければ恋におちません。';
#--- （aquarius）
$girl[10] = 'とても知的で理性的な性格です。自分をしっかりと持っている積極的でポジティブな人で、個性的な感じがします。また、人当たりがよく、誰とでも楽しく話ができます。いつも冷静で、恋にもおぼれることはなく、友情のような恋愛をします。型にはまらない人なので、複数の異性との恋愛もありえます。';
#--- （pisces）
$girl[11] = '豊かな愛情と思いやりに満ちた女性です。喜ばせ上手でやさしさは人一倍、しかも見返りも期待しません。人を安心させるムードも持っています。恋愛においては、夢見がちでドラマチックなラブストーリーを信じる傾向があり、恋にはまって自分を見失うこともありえます。おちつきの中に強い意志のある男性にひかれます。';
#--- （Aries）
$boy[0] = 'どんな困難にもめげず、パワーと勇気をもって立ち向かっていく人です。困っている人には手を貸さずにはいられず、自然に行動することができ、リーダーシップを取るタイプです。恋愛においても、能動的で征服欲に満ちており、困難な相手でも猛然と積極的にアタックしていきます。恋の相手には、中身よりも外見を重視します。';
#--- （Taurus）
$boy[1] = '見るからにおっとりとしたおだやかな印象を持っていて、口数は多くありません。マイペースでねばり強く、我慢強い性格です。所有欲と執着心が強く、一度手にいれたお気に入りのものは簡単には手放しません。恋愛で積極的な行動に出るのは苦手です。また、積極的な女性よりつつましい女性に惹かれます。';
#--- （gemini）
$boy[2] = '好奇心が旺盛で知性にすぐれ、臨機応変の才能にあふれています。陽気でユーモアがあり、誰とでもすぐ友達になることができます。そしてとても寂しがりやです。異性にもてるタイプが多く、クールで華麗な恋愛遍歴を重ねることもありえます。恋人には、楽しい会話ができ、友達感覚で対等に付き合える女性が良いでしょう。';
#--- （cancer）
$boy[3] = 'ソフトで温和な社交性と、深い愛情と豊かな感受性を持つ蟹座の男性は、情が深すぎて情に流されやすいこともあり、そのための浮気もありえます。基本的に受け身の愛で、相手に愛されてこそはじめて、愛情がはっきり表立ってきます。ジェラシーが強く家庭的な彼は、自分と同じタイプの家庭的な雰囲気の女性を好みます。';
#--- （leo）
$boy[4] = '強いプライドと情熱と大きな愛にあふれていて、自分を思ってくれる人には、惜しみない愛を与えます。積極的で明るく前向きですが、人一倍さびしがりやな面があり、恋愛でも寂しさから誰とでも付き合ってしまう傾向があります。大胆な行動力があり、恋にドラマチックな感動をもとめています。';
#--- （virgo）
$boy[5] = '几帳面で純真、神経質でロマンチックな乙女座の男性は、幼くあどけない女性を愛します。理想主義なので異性へのこだわりは大きく、相手を冷静に観察し、理想の女性を求めます。いつまでも童心を持ちつづけているため、恋人から頼りないと思われることがあるかもしれません。愛情表現は受け身でひかえめですが、マメな人が多く、若いときは気が多いかもしれませんが、落ち着いた愛を求めます。';
#--- （libra）
$boy[6] = '知性的で、精神的にも肉体的にもバランスがとれ、落ち着いた雰囲気を持った人です。社交的でセンスが良く、自然に人を引きつけるおだやかな魅力があります。いつも冷静で、恋愛においても激情に流されることなく、美しい女性とのバランスのとれたラブストーリーを好みます。';
#--- （scorpio）
$boy[7] = '理屈よりもカンに頼って行動していくタイプです。無口で一見もの静かな印象ですが、人と人との結びつきを大切にするため、みんなに信頼され存在感があります。用心深さから、恋の相手には安全なパートナーを選びます。パートナーの性格よりも環境を重視する傾向があり、お金や地位が得られる相手に弱いようです。いったん愛したら、ひとりの女性に強く執着します。';
#--- （sagittarius）
$boy[8] = 'ポジティブで頭の回転が速く、表と裏がない人です。活動的な魅力にあふれ、豊富な話題で周りを楽しませます。自由を好み、束縛や干渉されるのが嫌い。情熱的で理想が高く、熱しやすく冷めやすい性格のため、恋愛を何回か繰り返しがちです。自分と同じアクティブでフレッシュな女性を好みます。';
#--- （capricorn）
$boy[9] = '堅実な努力家で、つねに慎重に計画を立てて行動していくタイプ。思いやりがあり、周りの人のため自分からすすんで苦労を買って出るところがあります。恋にも慎重になりすぎてかけひきは苦手。傷つくことを恐れます。恋の相手には、見た目よりも中身を重視し、尊敬から愛が始まります。';
#--- （aquarius）
$boy[10] = 'とても知的で理性的な性格で、自分をしっかりと持っている積極的でポジティブな人です。また、紳士的で人当たりがよく、誰とでも楽しく話ができますが、いつの間にか議論になってしまいがち。男女間を意識することが少なく、友情のような恋愛をします。型にはまらない人なので、複数の異性との恋愛もありえます。';
#--- （pisces）
$boy[11] = '情緒が豊かで直感力に富んだ男性です。喜ばせ上手でやさしさは人一倍で、しかも見返りも期待しません。人を安心させるムードも持っています。恋愛において、いつまでもラブロマンスを求め続ける傾向があります。自分が支えになってあげたいと思う女性を恋の相手として選びます。';

#--- （占いの結果データ）

if($qs{'girl'} == 0){

#--- （牡羊座と12星座）
if($qs{'boy'} == 0){
	$result = '良い相性です。お互い気に入ったらすぐ恋に落ちて燃え上がります。ふたりとも同じような性質を持っているので、お互いに譲れないことがあるかも。';
	$probabillity = '65';

}elsif($qs{'boy'} == 1){
	$result = 'のんきな彼に彼女はイライラさせられるかも。でも彼女をしっかりとささえられる堅実な彼です。彼女のほうがイニシアティブを取ることでおだやかな関係になれるでしょう。';
	$probabillity = '45';

}elsif($qs{'boy'} == 2){
	$result = 'ふたりは気性の合った良い相性です。双子座の彼は牡羊座の彼女の激しさを上手に受け流すことができます。また、彼は彼女にいつも新しい感動をもたらしてくれるでしょう。';
	$probabillity = '70';

}elsif($qs{'boy'} == 3){
	$result = 'すれ違いの多い相性です。多くの忍耐と意識的な努力を必要とするでしょう。お付き合いでは彼女がイニシアティブを取ることによってアクティブで明るいカップルになれます。';
	$probabillity = '25';

}elsif($qs{'boy'} == 4){
	$result = '少しでも理解しあえれば、友達感覚のすばらしいカップルになれそうです。ロマンチックなことはあまり期待しない方が吉。';
	$probabillity = '85';

}elsif($qs{'boy'} == 5){
	$result = '急速に恋が始まる牡羊座の彼女と、相手を分析する時間が必要な乙女座の彼。彼女は焦らず気長に構えて。また、お付き合いでは彼女のほうがイニシアティブをとると良いでしょう。';
	$probabillity = '35';

}elsif($qs{'boy'} == 6){
	$result = '天秤座の彼が彼女に心を開けば、最高のカップルになれそうです。お互いの個性に強い魅力を感じ合い、華やかな恋になります。';
	$probabillity = '70';

}elsif($qs{'boy'} == 7){
	$result = '恋に落ちたら、とてもスリリングな情熱的で激しいカップルになりそうです。あまりの激しさのため、かみ合わないということもあるかもしれません。';
	$probabillity = '30';

}elsif($qs{'boy'} == 8){
	$result = '共通の目標に向かって一緒に歩いていける二人です。寛容な射手座の彼は、牡羊座の彼女の激しさを愛することができるでしょう。';
	$probabillity = '80';

}elsif($qs{'boy'} == 9){
	$result = '牡羊座の女性にとって山羊座の男性は、とっつきにくい印象を持つかもしれません。お互いの気質と正確を理解するために、会話を大切にしましょう。';
	$probabillity = '20';

}elsif($qs{'boy'} == 10){
	$result = '良い相性です。水瓶座の彼はおもしろい人という印象で、ふたりはバランスを取ることができます。';
	$probabillity = '90';

}elsif($qs{'boy'} == 11){
	$result = '気性にややすれ違いが見られる二人です。牡羊座の彼女は性急な行動を避けて。うまくいけば、充実した恋人同士になれるでしょう。';
	$probabillity = '40';
}
}

if($qs{'girl'} == 1){
#--- （牡牛座と12星座）

if($qs{'boy'} == 0){
	$result = 'スリルを求める牡羊座の男性と、保守的で安定指向の牡牛座の女性とは違った考え方を持っています。牡牛座の彼女が、牡羊座の彼の征服欲を満足させることができるなら、彼は力強くリードしてくれます。';
	$probabillity = '30';

}elsif($qs{'boy'} == 1){
	$result = '派手な恋ではありませんが、気の合ったカップルになれます。慎重で堅実なふたりは少しずつ愛を確かめ合い、安定した関係を作り上げます。そのため、退屈さが出てくるおそれもあります。';
	$probabillity = '80';

}elsif($qs{'boy'} == 2){
	$result = 'ゆっくりと恋していきたい牡牛座の女性と、スピーディな双子座の男性の組み合わせは、テンポが合いません。牡牛座の彼女が双子座の彼に合わすようにすれば、お付き合いは続くでしょう。しかし、寂しい思いは避けられません。';
	$probabillity = '20';

}elsif($qs{'boy'} == 3){
	$result = '友情の延長のような地味な恋です。蟹座の男性は、牡牛座女性の穏やかな雰囲気にとても安心できます。お互いに思いやれば、強い信頼感で結ばれる二人です。';
	$probabillity = '70';

}elsif($qs{'boy'} == 4){
	$result = '派手な獅子座男性と堅実な牡牛座女性の二人です。何かと衝突してしまう相性ですが、お互いの長所を認め合うことができれば補い合える素敵なカップルになれます。獅子座の彼の派手さとプライドに隠れたさびしさを、牡牛座女性が理解できるかどうかがポイントです';
	$probabillity = '35';

}elsif($qs{'boy'} == 5){
	$result = '安定志向の二人は最高の相性です。もともと、二人の考え方も行動もテンポが合います。牡牛座女性は知的好奇心を常に心がけることで、乙女座男性をより惹きつけることができます。';
	$probabillity = '90';

}elsif($qs{'boy'} == 6){
	$result = 'ロマンチックな天秤座の男性と、堅実な牡牛座の女性では、恋愛に対する考え方にズレがあります。共通点が多くある二人ですが、お互いの理解と歩み寄りの相当の努力が必要です。相手の気持ちを尊重することを忘れずに。';
	$probabillity = '25';

}elsif($qs{'boy'} == 7){
	$result = '情熱的に愛し合える二人です。牡牛座女性の誠実さで、信頼感はより強くなるでしょう。しかし、お互いの強い独占欲や嫉妬心で、トラブルが起こる可能性もあります。';
	$probabillity = '60';

}elsif($qs{'boy'} == 8){
	$result = '忍耐とお互いの理解が必要な相性です。自由な射手座の彼に対して、牡牛座の彼女は寛大でなければいけません。不安やさびしい思いは避けられないかも。';
	$probabillity = '30';

}elsif($qs{'boy'} == 9){
	$result = 'お互い誠実で尊敬し合える相性です。しかし、やや考え方に柔軟性が欠ける二人なので、どちらかが一歩下がるようにすれば、さらに良い関係になれます。';
	$probabillity = '80';

}elsif($qs{'boy'} == 10){
	$result = 'クールで自由な水瓶座男性と独占欲の強い牡牛座女性。水瓶座男性は牡牛座女性の豊かな愛情に惹かれますが、この恋の前途は多難です。トラブルを覚悟しておいた方が良いでしょう。';
	$probabillity = '35';

}elsif($qs{'boy'} == 11){
	$result = 'お互い満足し合える関係になれます。ロマンチストの魚座の彼と堅実な牡牛座の彼女では、考え方にズレがありますが、牡牛座女性は魚座の彼に安定と堅実さをもたらします。また、魚座の彼のやさしさは彼女にとって魅力です。';
	$probabillity = '70';
}
}

if($qs{'girl'} == 2){
#--- （双子座と12星座）
if($qs{'boy'} == 0){
	$result = '情熱的で楽しい恋ができる組み合わせです。変化に富んだ付き合い方ができ、一緒にいるととても楽しく退屈しません。行動力のある牡羊座男性を双子座女性は頼もしいと感じるでしょう。';
	$probabillity = '70';

}elsif($qs{'boy'} == 1){
	$result = '軽快な双子座の女性とのんびりした牡牛座の男性。心理的、行動的にも、ふたりのテンポは合いません。また、次第に双子座の女性は牡牛座の彼の強い嫉妬心を重荷に感じるようになりそう。';
	$probabillity = '25';

}elsif($qs{'boy'} == 2){
	$result = '同じ双子座同士のふたりは好みや趣味も一致しています。楽しく付き合うにはお互いとてもいい相手です。しかし、お互い似ているため、他へ目移りなんてこともありがち。調子に乗りすぎないように。';
	$probabillity = '75';

}elsif($qs{'boy'} == 3){
	$result = '二人は違った個性を持っているので、もし恋に落ちるとしたら刺激的な恋になるでしょう。しかし、交際がすすむにつれ、クールな双子座女性にとって、やさしいけれど愛情深く嫉妬深い蟹座の彼は重い存在となる可能性があります。';
	$probabillity = '30';

}elsif($qs{'boy'} == 4){
	$result = '基本的に上手くいく組み合わせです。おおらかで明るい獅子座の彼は、クールな双子座の彼女を干渉せずに、情熱的につつみこむことができます。';
	$probabillity = '85';

}elsif($qs{'boy'} == 5){
	$result = '同じことへ関心を持ち、共通の話題が豊富で、知的にお付き合いすることができます。しかし次第に、軽快な双子座の彼女は、こまやかな乙女座の彼をわずらわしく感じ出す可能性があります。彼女に忍耐力があれば大丈夫でしょう。';
	$probabillity = '40';

}elsif($qs{'boy'} == 6){
	$result = '精神的にも肉体的にもとても息の合ったふたりです。すべてに関して刺激しあえる仲になります。同じ趣味を持てば、ますます楽しく協力し合える最高のパートナーになります。';
	$probabillity = '90';

}elsif($qs{'boy'} == 7){
	$result = '双子座女性は、蠍座の男性に何となく惹かれます。しかし二人はまったく違った感情を持っているため、すれ違いが起こりやすく、お互いに理解し合う努力を続けなければいけません。';
	$probabillity = '30';

}elsif($qs{'boy'} == 8){
	$result = '二人とも行動的で、明るく外向的。心理的にも行動的にも息の合った二人です。二人がお互いの個性と自由を認め合うことが愛を育てる秘訣です。';
	$probabillity = '85';

}elsif($qs{'boy'} == 9){
	$result = '明るい双子座の女性は山羊座の男性の心をときほぐすことができます。しかし、お互い理解しにくい相性です。誠実さを強く求める山羊座の男性に、軽やかな双子座の女性は息苦しさを感じてしまうかも。';
	$probabillity = '40';

}elsif($qs{'boy'} == 10){
	$result = '理想的な相性です。水瓶座の彼の冷静な知性と寛大な愛は、双子座の彼女とうまくとけあいます。かけがいのないパートナーになるはず。';
	$probabillity = '90';

}elsif($qs{'boy'} == 11){
	$result = 'お互い理解し合うのが難しい相性です。感情のすれ違いになりやすく、だからといって無理に合わそうとすると余計に苦しくなるかもしれません。';
	$probabillity = '20';
}
}

if($qs{'girl'} == 3){
#--- （蟹座と12星座）
if($qs{'boy'} == 0){
	$result = 'ついぶつかりあってしまう二人は、愛し始めたときから忍耐を必要とする関係です。蟹座の彼女がしっかり彼を愛し、あたたかく接することができれば、彼も誠意を示すでしょう。';
	$probabillity = '20';

}elsif($qs{'boy'} == 1){
	$result = '恋愛観の合う二人です。蟹座の彼女は牡牛座の彼に安心して甘えることができます。また、彼にとって彼女はかけがえのない相手となるでしょう。';
	$probabillity = '70';

}elsif($qs{'boy'} == 2){
	$result = 'いまひとつしっくりこないカップルです。蟹座女性はクールな双子座の男性に、深い愛を望めば望むほど苦しくなるかも。長い付き合いを続けるには、双子座の旺盛な好奇心を満たしてあげる必要があります。';
	$probabillity = '35';

}elsif($qs{'boy'} == 3){
	$result = '家庭的な幸せを追求する組み合わせで、お互い心を許しあえたら、最高のカップルになるでしょう。しかし、ふたりは互いにとてもしっと深く、度がすぎると大喧嘩になることも。';
	$probabillity = '80';

}elsif($qs{'boy'} == 4){
	$result = '上品な蟹座の彼女と情熱的な獅子座の彼。蟹座の彼女には彼が、「高慢な人」と見えるかもしれません。しかし、明るい獅座の彼は彼女を退屈させないでしょう。';
	$probabillity = '40';

}elsif($qs{'boy'} == 5){
	$result = 'まめな人が多い乙女座の彼は蟹座の不安定な感情をおさえ、安心を与えることができます。結婚にもっとも適した相性で、ロマンチックなカップルになります。';
	$probabillity = '75';

}elsif($qs{'boy'} == 6){
	$result = 'トラブルに合いやすい相性です。すてきなカップルとしてお付き合いを続けるにはお互い努力が必要です。すこし距離をおきながらコミュニケーションを多く取ることが心がけて。';
	$probabillity = '30';

}elsif($qs{'boy'} == 7){
	$result = '二人は運命の糸で結ばれているのかも。生活観も一致し、恋愛にも結婚にもピッタリな相性です。お互い理解し合えば、トラブルも避けられます。';
	$probabillity = '85';

}elsif($qs{'boy'} == 8){
	$result = '自由な射手座の男性と、独占欲の強い蟹座の女性の組み合わせは、忍耐と妥協が必要な相性です。交際が深まるにつれ、感情や生活観のズレが目立ち始めます。軽く付き合うなら楽しい恋人になれるかも。';
	$probabillity = '25';

}elsif($qs{'boy'} == 9){
	$result = 'まじめで忍耐強い山羊座の彼と、堅実な蟹座の彼女は、誠実な愛が生まれる相性です。ただ、お互い受け身なので、お付き合いが始まるまでに時間がかかるかも。';
	$probabillity = '70';

}elsif($qs{'boy'} == 10){
	$result = '恋人の一歩手前の関係が、二人にとっていちばん良い距離と言えます。とても頼りになる彼ですが、自由な彼に独占欲の強い彼女は、苦しくなるときも。うまく付き合うためには、彼が彼女に合わせることです。';
	$probabillity = '25';

}elsif($qs{'boy'} == 11){
	$result = '互いに補い合える良い相性です。二人の間に誠実な愛が生まれれば、もう離れることはないかも。お互いによく話し合い協力すれば、トラブルも解決できます。';
	$probabillity = '80';
}
}

if($qs{'girl'} == 4){

#--- （獅子座と12星座）

if($qs{'boy'} == 0){
	$result = 'さっぱりとした性格の牡羊座男性とダイナミックな獅子座女性はぴったりの相性です。お互い、男性的な性格のため衝突もありますが、すぐに仲直りできるでしょう。';
	$probabillity = '80';

}elsif($qs{'boy'} == 1){
	$result = 'ゆっくりとした牡牛座の男性とスピーディな獅子の座女性では恋のテンポにズレがあるのかも。しし座女性が、「ゆっくり、上品に」を心がければ長続きするでしょう。';
	$probabillity = '50';

}elsif($qs{'boy'} == 2){
	$result = '双子座の男性にとって、明るくさっぱりとした獅子座の女性は魅力的に映るでしょう。しかし、双子座の男性にとって、情熱的な獅子座の愛は苦しいものとなるかもしれません。';
	$probabillity = '15';

}elsif($qs{'boy'} == 3){
	$result = 'どちらかというと男性的な獅子座の女性と女性的な蟹座の男性。微妙に食い違いがある二人です。獅子座女性が繊細でかわいい女性を演じるのが上手くいくコツです。';
	$probabillity = '35';

}elsif($qs{'boy'} == 4){
	$result = 'とても情熱的なカップルになります。出会った途端、すぐに恋は燃え上がり、一気にゴールイン！ということもあるでしょう。';
	$probabillity = '70';

}elsif($qs{'boy'} == 5){
	$result = '何事にも派手好みな獅子座の女性と、几帳面で地味な乙女座の男性。対照的な二人です。男性がおおらかになれば、二人の親密さは増してくるでしょう。';
	$probabillity = '65';

}elsif($qs{'boy'} == 6){
	$result = '何事にもほどよく楽しむ優雅な天秤座の男性と、派手で情熱的な獅子座の女性。獅子座女性が彼への独占欲を少しだけおさえれば、楽しく素敵な交際が続くでしょう。';
	$probabillity = '85';

}elsif($qs{'boy'} == 7){
	$result = '開放的な性格の獅子座の女性とどこか秘密めいた蠍座の男性。前途多難な二人です。二人の価値観は大きく違っており、それがトラブルの元となります。歩み寄るためには、二人とも相当大人にならなければいけません。';
	$probabillity = '20';

}elsif($qs{'boy'} == 8){
	$result = '二人とも明るく陽気で外向的です。獅子座の女性は射手座の男性にたいへん魅力を感じることでしょう。とても楽しいお付き合いができます。おおらかな愛でお互い束縛しないことが、二人の間をつなぎつづけます。';
	$probabillity = '90';

}elsif($qs{'boy'} == 9){
	$result = 'まじめな山羊座男性と、明るく陽気な獅子座女性の組み合わせは少し異質なカップルです。お互いの長所を認め合えば上手くいくでしょう。';
	$probabillity = '40';

}elsif($qs{'boy'} == 10){
	$result = 'おおらかな獅子座とデリケートなみずがめ座。異質な二人ですが、お互いに強い魅力を感じたとき、とても仲の良いカップルになります。ふたりで寄り添ってずっと生きていけます。';
	$probabillity = '80';

}elsif($qs{'boy'} == 11){
	$result = 'とてもやさしい魚座の男性に獅子座の女性はべったり甘えることができます。ただ、やさしすぎる彼の態度に彼女は物足りなく思ってしまうこともあるのかも。';
	$probabillity = '60';
}
}
if($qs{'girl'} == 5){

#--- （乙女座と12星座）
if($qs{'boy'} == 0){
	$result = '冒険好きな牡羊座の男性と何事にも慎重な乙女座の女性。乙女座女性は牡羊座男性に頼もしさを感じ、好意を持つことも。でも、次第に彼のおおざっぱな行動に唖然とし、ついていけないと感じるかもしれません。';
	$probabillity = '30';

}elsif($qs{'boy'} == 1){
	$result = '誠実でしっかりとした金銭感覚のある牡牛座男性と慎重な乙女座女性はピッタリの相性と言えるでしょう。しかしお互いが地味な愛情表現なので、進展には時間がかかりそうです。';
	$probabillity = '85';

}elsif($qs{'boy'} == 2){
	$result = '二人は共通点が多く、同じ目的を持てばしっかりとした関係を築くことができます。しかし、二人の考え方には大きな違いがあります。乙女座女性が柔軟な双子座男性に合わすことができれば、上手くやっていけるでしょう。';
	$probabillity = '75';

}elsif($qs{'boy'} == 3){
	$result = '蟹座の男性は彼女への独占欲が強く、乙女座女性にとって時には息苦しく感じることも。また、乙女座女性からの批評は、蟹座男性の苦手とするところです。でも、豊かな愛情を注いでくれる蟹座の彼。愛し合えば幸せいっぱいのカップルになります。';
	$probabillity = '65';

}elsif($qs{'boy'} == 4){
	$result = '獅子座の男性が乙女座女性に一目惚れ、という可能性は大ですが、やや傲慢な獅子座の男性は、繊細な乙女座女性の感情を無視したり傷つけてしまうことがあるのかも。女性の方が素直に愛情表現をすることでうまくやっていけます。';
	$probabillity = '45';

}elsif($qs{'boy'} == 5){
	$result = '慎重で地味な二人には派手なロマンスはありません。細やかな愛情で小さな幸せを大きくし、二人でゆっくりと愛を育てていくでしょう。';
	$probabillity = '75';

}elsif($qs{'boy'} == 6){
	$result = '天秤座の男性は楽天的で、几帳面さが苦手です。乙女座女性も天秤座の男性の気楽な態度に満足はできません。しかし、ロマンチックで実際的な二人は、豊富な会話で精神的な満足を得られるでしょう。';
	$probabillity = '40';

}elsif($qs{'boy'} == 7){
	$result = '結ばれれば二人はいい相手となりますが、どこに共通点を見つけるかが決め手です。気取らずに、素直に接していけばきっといいカップルになるでしょう。';
	$probabillity = '70';

}elsif($qs{'boy'} == 8){
	$result = 'すぐ行動に移す射手座の彼に、乙女座女性は唖然としてしまいます。ややガサツな射手座男性は、気が付かないうちに繊細な乙女座女性の感情を無視したり傷つけてしまうことがあるでしょう。お互い、価値観の違いを認識しましょう。';
	$probabillity = '30';

}elsif($qs{'boy'} == 9){
	$result = 'まじめな性格の山羊座男性は、落ち着いた愛を望む乙女座女性とぴったりの相性です。二人は共通点も多く、強い信頼関係で結ばれるでしょう。';
	$probabillity = '90';

}elsif($qs{'boy'} == 10){
	$result = '乙女座の女性は水瓶座男性の知的でクリエイティブなところに惹かれます。しかし、あくまで「友達の一人」と考えたほうが良いかも。友人として交際するうちに、恋へ発展するかもしれません。';
	$probabillity = '40';

}elsif($qs{'boy'} == 11){
	$result = '二人はお互いに無いものを補い合う相性です。たくさんのコミュニケーションを取って、意識して助け合えば、良い恋人同士になるでしょう。';
	$probabillity = '60';
}
}

if($qs{'girl'} == 6){
#--- （天秤座と12星座）

if($qs{'boy'} == 0){
	$result = 'エレガントな彼女と情熱的な彼。正反対の性格の二人は、出会った時から惹かれ合います。彼の野生的な魅力を、彼女が素直に受け入れられたら、幸せなカップルになれます。';
	$probabillity = '65';

}elsif($qs{'boy'} == 1){
	$result = '美的センスの合う二人です。しかし、彼女は牡牛座の彼の嫉妬心の強さに、戸惑うことが多いでしょう。';
	$probabillity = '15';

}elsif($qs{'boy'} == 2){
	$result = '共通の話題で楽しく盛り上がれる二人です。格好良くてとにかくもてる彼なので、大切にしないと誰かにとられてしまいます。';
	$probabillity = '50';

}elsif($qs{'boy'} == 3){
	$result = '最初、彼の深い愛情を彼女は好ましく思います。しかし、理性的な彼女は、べたべたしてくる彼がだんだん鬱陶しく思えてきたりします。';
	$probabillity = '35';

}elsif($qs{'boy'} == 4){
	$result = '獅子座の彼は、彼女の望むことをすべて叶えようと努力する人です。華麗で最高の恋になりそうです。';
	$probabillity = '90';

}elsif($qs{'boy'} == 5){
	$result = '純粋な彼は、上品でエレガントな彼女に強くひきつけられます。やさしい彼が彼女にとことん尽くす優雅な恋になりそうです。';
	$probabillity = '45';

}elsif($qs{'boy'} == 6){
	$result = '趣味も合うし見た目もバランスがとれていてお似合いのふたり、といった感じです。本音を出し合って付き合っていけば、もっと深い愛で結ばれます。';
	$probabillity = '75';

}elsif($qs{'boy'} == 7){
	$result = '気質の異なった二人です。この二人が恋に落ちることは珍しいでしょう。彼女に、彼の良さはわかりにくいのかもしれません。';
	$probabillity = '25';

}elsif($qs{'boy'} == 8){
	$result = '友情のような恋愛になります。二人とも外向的で明るく、フィーリングも合うので、たくさんの友人に囲まれた賑やかなお付き合いになりそうです。';
	$probabillity = '85';

}elsif($qs{'boy'} == 9){
	$result = 'かっこいい恋がしたい彼女ですが、彼とそういった形は期待できそうもありません。しかし、本質的には合うふたりです。';
	$probabillity = '40';

}elsif($qs{'boy'} == 10){
	$result = '知的で楽しいお付き合いができます。彼女は、彼に対して、しつこさと嫉妬心を見せないようにするのがベターです。';
	$probabillity = '80';

}elsif($qs{'boy'} == 11){
	$result = '甘いムードのロマンチックな恋ができます。彼のやさしさに彼女は舞い上がってしまいそう。しかし、彼は誰にでも優しい人なのです。';
	$probabillity = '30';
}
}

if($qs{'girl'} == 7){

#--- （蠍座と12星座）
if($qs{'boy'} == 0){
	$result = 'お互いの良さはわかりあえるけど、努力の必要なカップルです。牡羊座の彼に主導権を与えたほうが上手くいきます。活動的な彼にお供するつもりで。';
	$probabillity = '60';

}elsif($qs{'boy'} == 1){
	$result = 'いったん結びつけば強く、情熱的に愛し合うことができる二人です。うまく付き合いを続けるには、秘密を作らずオープンな関係を保つことです。';
	$probabillity = '70';

}elsif($qs{'boy'} == 2){
	$result = '人を楽しませることに優れている双子座の男性に、蠍座女性は強く惹かれます。でも、燃えるような愛を捧げても、クールな彼は冷めたままかもしれません。女性は片目をつぶるつもりで。';
	$probabillity = '35';

}elsif($qs{'boy'} == 3){
	$result = '恋愛から結婚へと自然に進展していく最高のカップルです。蟹座の男性は、蠍座女性に大きな安らぎを与えることができます。';
	$probabillity = '80';

}elsif($qs{'boy'} == 4){
	$result = '性格的に正反対のふたりで、彼のリーダーシップも彼女にとっては強引なだけに見えるかも。恋に落ちるときはおたがいの無いものにひかれ合います。彼女の神秘的な魅力に、彼が強く惹かれたら上手くいくでしょう。';
	$probabillity = '35';

}elsif($qs{'boy'} == 5){
	$result = 'お互い理解しあえる良い相性です。でも、愛情表現の消極的な乙女座男性だから、進展には時間がかかりそう。';
	$probabillity = '55';

}elsif($qs{'boy'} == 6){
	$result = '考え方の異なるふたりは前途多難な組み合わせです。お互いの性格的な違いを理解し、結びつけば楽しい交際ができるでしょう。';
	$probabillity = '35';

}elsif($qs{'boy'} == 7){
	$result = '似た者同士の組み合わせです。安心感があり、すばらしい相性です。ただ、深刻なムードになりがちな二人なので共通の趣味やスポーツで楽しい雰囲気を心がけましょう。';
	$probabillity = '80';

}elsif($qs{'boy'} == 8){
	$result = '一目惚れですぐに結びつく可能性のあるカップルです。蠍座女性は、自由を好む射手座の男性を束縛したり必要以上に干渉したりしてはいけません。彼に頼らずに、フレンドリーな関係を目指しましょう。';
	$probabillity = '35';

}elsif($qs{'boy'} == 9){
	$result = '地味で着実な人生を歩もうとする似た性格を持った二人です。山羊座の男性は蠍座女性とのコミュニケーションを忘れてはいけません。';
	$probabillity = '60';

}elsif($qs{'boy'} == 10){
	$result = '知的な魅力を持つ水瓶座男性に、蠍座女性は惹かれます。しかし、性格的な感覚の違いからどこかしっくりしないところがあります。トラブルを解決するには、間に入ってくれる人が必要です。';
	$probabillity = '25';

}elsif($qs{'boy'} == 11){
	$result = 'ふたりは最高の相性です。やさしくて柔軟性のある魚座男性に蠍座女性は、ハッピー気分で恋ができます。ほのぼのしたカップルになるでしょう。';
	$probabillity = '90';
}
}

if($qs{'girl'} == 8){

#--- （射手座と12星座）
if($qs{'boy'} == 0){
	$result = '愛情表現が率直で情熱的なふたりは気の合うカップルになれます。お互いの短気さとわがままさを認め合えば、ケンカをしながらもずっと仲良くやっていけそうです。';
	$probabillity = '80';

}elsif($qs{'boy'} == 1){
	$result = '牡牛座の彼の、のんびりとした動作やおっとりした性格は、射手座の彼女とテンポが合いません。しかし、お互い相手に無い魅力を持つ者同士。歩み寄りと努力で恋人同士になることも可能です。';
	$probabillity = '25';

}elsif($qs{'boy'} == 2){
	$result = 'フィーリングの合うふたりです。知性的で活発な双子座の彼と、同じく知的で行動的な射手座の彼女は惹かれ合います。しかし、波乱の多いお付き合いになりそうです。';
	$probabillity = '35';

}elsif($qs{'boy'} == 3){
	$result = 'お互い相手に無い魅力を持つ者同士で、妙に惹かれ合います。しかし、独占欲の強い蟹座の彼に、自由に過ごしたい射手座女性は苦しくなりそうです。';
	$probabillity = '40';

}elsif($qs{'boy'} == 4){
	$result = '愛し合えば、明るい華やかなカップルになれます。寛大な獅子座の彼は、自由を好む射手座の彼女とよい相性です。射手座の彼女は、いつでも獅子座の彼を認めてあげる態度を忘れずに。';
	$probabillity = '70';

}elsif($qs{'boy'} == 5){
	$result = '射手座の女性はやさしく知性的な彼に惹かれ、乙女座の男性は活発な彼女に惹かれるでしょう。しかし、次第に性格の違いがすれ違いを招きます。もしも、乙女座の男性がスピーディで射手座の女性が相手に求めすぎないならそれなりに上手くいくでしょう。';
	$probabillity = '30';

}elsif($qs{'boy'} == 6){
	$result = 'お互い社交的で、フィーリングの合うふたり。楽しいお付き合いが続きそうです。天秤座の彼は、いつもエネルギッシュな射手座の彼女にややおされ気味になりそう。';
	$probabillity = '75';

}elsif($qs{'boy'} == 7){
	$result = '射手座の女性は、蠍座男性の神秘的な魅力に惹かれます。また、蠍座男性は射手座女性の明るい魅力に惹かれます。しかし、射手座女性は執着心の強い蠍座男性の束縛に覚悟することが必要です。';
	$probabillity = '40';

}elsif($qs{'boy'} == 8){
	$result = 'お互い正直で活発、情熱的でスピーディな良い相性です。長く交際を続けるためには、いつもフレッシュな気持ちを忘れずにしましょう。';
	$probabillity = '75';

}elsif($qs{'boy'} == 9){
	$result = '一見クールで慎重な山羊座男性とホットな射手座女性は、恋愛に発展しにくい相性です。射手座女性にとって山羊座の男性は、迫力不足で物足りない存在に映ってしまいそうです。';
	$probabillity = '35';

}elsif($qs{'boy'} == 10){
	$result = '知的な水瓶座男性は、激しいテンポの射手座女性にうまくついていくことができます。自由で楽天家のふたりはとても気が合い、深く愛し合うことができるでしょう。友人同士のような関係を意識することが長続きのポイントです。';
	$probabillity = '70';

}elsif($qs{'boy'} == 11){
	$result = '初めは結構楽しくお付き合いができますが、だんだん魚座の彼の優しさが射手座の彼女にとってわずらわしくなってくるかも。トラブル克服のカギは射手座女性にかかっています。';
	$probabillity = '40';
}
}

if($qs{'girl'} == 9){
#--- （山羊座と12星座）
if($qs{'boy'} == 0){
	$result = '情熱的な彼に押され、彼女にとってドキドキハラハラの恋になりそうです。彼のエネルギッシュでわがままなところは反面教師と割り切っていきましょう。';
	$probabillity = '30';

}elsif($qs{'boy'} == 1){
	$result = '考え方もテンポもぴったり合うふたりです。彼女は独占欲の強い彼の嫉妬心を理解して、あまり刺激しないようにしましょう。';
	$probabillity = '50';

}elsif($qs{'boy'} == 2){
	$result = 'ふたりの愛の考え方には大きな違いがあるようです。女性から好きになった場合は、きっかけ作りが大変そう。';
	$probabillity = '30';

}elsif($qs{'boy'} == 3){
	$result = 'お互い違ったものを持つふたりですが、不思議とひきつけられます。彼女のほうが精神的に大人であることが上手くいく条件です。';
	$probabillity = '65';

}elsif($qs{'boy'} == 4){
	$result = '獅子座の彼は情熱的に強引に彼女にアタックしてくるでしょう。山羊座の彼女が誉め上手になることが円満の秘訣です。';
	$probabillity = '40';

}elsif($qs{'boy'} == 5){
	$result = '良い組み合わせです。長く続く愛を育てられます。やさしくてまじめな彼に、彼女は好感を持つでしょう。';
	$probabillity = '80';

}elsif($qs{'boy'} == 6){
	$result = '天秤座の彼の美的センス、山羊座の彼女の独特な雰囲気にお互い惹かれ合います。しかし生活観の違いが大きく、かなりの努力が必要な相性です。';
	$probabillity = '30';

}elsif($qs{'boy'} == 7){
	$result = '口数の少ない地味なカップルになりそうですが、彼女にとって彼は信頼できる人。安心して心を開くことができる相手です。デートは明るい雰囲気を心がけましょう。';
	$probabillity = '75';

}elsif($qs{'boy'} == 8){
	$result = '山羊座の彼女は活発でリーダー的な射手座の彼に憧れますが、お付き合いとなるとついていけないものを感じるかもしれません。';
	$probabillity = '30';

}elsif($qs{'boy'} == 9){
	$result = '交際が始まるまでに時間がかかりそうです。でも時間をかけて徐々に深まっていく愛なので、確実なものになります。';
	$probabillity = '90';

}elsif($qs{'boy'} == 10){
	$result = '知性的でクールな彼に山羊座の彼女は惹かれます。そして、華やかなお付き合いになりそうです。しかしデートを重ね、彼を深く知るうちに、彼女の最初の気持ちは薄れていくかもしれません。';
	$probabillity = '40';

}elsif($qs{'boy'} == 11){
	$result = '現実主義の彼女とロマンチックな彼は、意外といい組み合わせです。ともに愛し愛されるカップルになります。';
	$probabillity = '70';
}
}
if($qs{'girl'} == 10){
#--- （水瓶座と12星座）
if($qs{'boy'} == 0){
	$result = '相性の良い二人です。お互い強い個性を持っています。ふたりがともに強く自己主張してしまうと、険悪な雰囲気になってしまいます。一歩譲る気持ちを忘れずに。';
	$probabillity = '75';

}elsif($qs{'boy'} == 1){
	$result = '価値観の違うこの二人が恋に落ちるのは、稀なことです。お付き合いをした場合、独占欲の強い彼に自由を好む彼女は戸惑ってしまうかも。';
	$probabillity = '30';

}elsif($qs{'boy'} == 2){
	$result = '調和のとれたカップルになれます。お互い似たもの同士でべったりとしたお付き合いは苦手。束縛し合うことのないCoolな恋愛ができるでしょう。';
	$probabillity = '80';

}elsif($qs{'boy'} == 3){
	$result = '家庭的な彼と社交的な彼女。すれ違いのある相性です。彼のべったりとした愛情は彼女に合いません。うまく付き合うためには、相手を理解して合わせる努力が必要です。';
	$probabillity = '15';

}elsif($qs{'boy'} == 4){
	$result = 'お互いひきつけられる相手です。似たもの同士で、ふたりともにぎやかな雰囲気を好みます。彼女が彼の欠点をおおらかに認めることができれば、人生のパートナーにもなれるでしょう。';
	$probabillity = '80';

}elsif($qs{'boy'} == 5){
	$result = 'ほのぼのとした恋ができますが、とても繊細な彼と、自由で個性的な彼女の組み合わせには、”ずれ”があります。彼が彼女に合わすのは少し無理があります。彼女が彼に合わすことができればうまくいくでしょう。';
	$probabillity = '40';

}elsif($qs{'boy'} == 6){
	$result = 'ロマンチックで、とても楽しいおしゃれなお付き合いができます。ふたりとも話題が豊富で、時間も忘れて語り合うでしょう。';
	$probabillity = '95';

}elsif($qs{'boy'} == 7){
	$result = 'トラブルの多い恋になりそう。彼女が彼の嫉妬心にうんざりするようになれば、終わりが近いかも。。。';
	$probabillity = '15';

}elsif($qs{'boy'} == 8){
	$result = '共通点が多く友人も多くて、話題のつきない楽しいカップルになるでしょう。親友でもあり恋人同士でもある関係になれます。';
	$probabillity = '80';

}elsif($qs{'boy'} == 9){
	$result = '彼女は、まじめな彼の才能に惹かれます。しかし、いまいちノリの合わないふたりです。彼がおおらかな愛で彼女を包み込むことができれば、親密な関係になれるでしょう。';
	$probabillity = '35';

}elsif($qs{'boy'} == 10){
	$result = 'フィーリングの合う良い相性です。仲間同士の延長で恋人同士になれるでしょう。お互い信頼し合い、プライバシーを守ってお付き合いをすることが大切です。';
	$probabillity = '70';

}elsif($qs{'boy'} == 11){
	$result = '魚座の彼は、彼女を優しい愛で包んでくれます。いつも甘い恋愛感情を持っていれば良いですが、ふたりに気楽な付き合い方は向いていません。';
	$probabillity = '35';
}
}

if($qs{'girl'} == 11){
#--- （魚座と12星座）

if($qs{'boy'} == 0){
	$result = '考え方にテンポの違いがあり、歩みよりのできにくい二人です。魚座の彼女が意志表示をはっきりとして、彼にリードをまかせればいい雰囲気になれるでしょう。';
	$probabillity = '30';

}elsif($qs{'boy'} == 1){
	$result = '生活のテンポもフィーリングもぴったりと合う相性です。グループ交際から自然に恋へと進展していくでしょう。';
	$probabillity = '50';

}elsif($qs{'boy'} == 2){
	$result = '彼女のしたことが裏目に出てしまったり・・・考え方の違いすぎる二人です。彼女は彼に対して寛大さを持つことが大切ですが、都合のいい女にならないように気を付けましょう。';
	$probabillity = '25';

}elsif($qs{'boy'} == 3){
	$result = '家庭的な蟹座の彼と精神的な生活を充実させたい魚座の彼女はごく自然に結びつきます。共通の話題や趣味を楽しむことも出来るので、お付き合いはスムーズに進みそうです。';
	$probabillity = '65';

}elsif($qs{'boy'} == 4){
	$result = '大胆な彼と落ち着いた情緒を大切にしたい彼女。感性が極端に違う二人です。獅子座の彼の雑さや傲慢な態度に魚座の彼女はついていけないかも。彼女が彼にとことん尽くすつもりがあればうまくやっていけそう。彼女が愚痴を言ってはダメです。';
	$probabillity = '25';

}elsif($qs{'boy'} == 5){
	$result = 'ロマンチックな彼女とピュアな彼。一目惚れに近い形で恋愛が始まりそう。お互い愛する人には尽くす二人です。心の距離は少しずつ縮めていきましょう。';
	$probabillity = '50';

}elsif($qs{'boy'} == 6){
	$result = 'バランス感覚のとれた愛を持つ天秤座の彼に、魚座の彼女があまい関係を望んでも、むずかしいかも。ふたりだけの世界に閉じこもらず、友人たちとの交流を積極的にしましょう。';
	$probabillity = '30';

}elsif($qs{'boy'} == 7){
	$result = '静かな情熱を秘めて恋がはじまりそう。考え方も行動もテンポが一致しているので、理想的なカップルといえます。';
	$probabillity = '90';

}elsif($qs{'boy'} == 8){
	$result = '魚座の女性が彼に恋をしたら振り回されることになりそう。お付き合いが始まったら、射手座の彼を束縛しないことが長続きの秘訣です。';
	$probabillity = '40';

}elsif($qs{'boy'} == 9){
	$result = '彼は誠実な愛情で彼女を包んでくれますが、彼女はもの足りなさを感じることがあるかも。しかし、山羊座の彼は魚座の彼女を幸せにできる人です。ふたりだけの世界に閉じこもらず、できるだけ外出しましょう。';
	$probabillity = '45';

}elsif($qs{'boy'} == 10){
	$result = '彼は、神秘的な魚座の彼女に一目惚れしてしまいそう。しかし、夢見がちな魚座女性を現実に引き戻そうとする彼です。大切にしないと彼女は去ってしまいます。';
	$probabillity = '30';

}elsif($qs{'boy'} == 11){
	$result = '一緒にいるだけでとても幸せを感じられるふたりです。ロマンチックな恋ができるでしょう。堅実な計画性を持つことが長続きの秘訣です。';
	$probabillity = '70';
}
}

}

#--------- （占い結果の出力）

sub OutPut{

&header("(結果)");
	if ($furiwake eq "mobile") {
		print <<END;
<center><font color="$t_color">$title</font><br></center><br>

二人の恋の行方を占いました。<br><br>

<hr size=1>
<center><u><font color="$boy_color">$seiza[$qs{'boy'}]の彼</font></u></center>
<hr size=1>
$boy[$qs{'boy'}]<br><br>

<hr size=1>
<center><u><font color="$girl_color">$seiza[$qs{'girl'}]の彼女</font></u></center>
<hr size=1>
$girl[$qs{'girl'}]<br><br>

<hr size=1>
<center><u><font color="#0000FF">二人の相性</font></u>
<hr size=1>
（$probabillity％以上）</center><br>

$result<br><br>

<hr size=1>
$emoji[1]<a href="$script_name?$t_type" $ackey="1">星座選択へ</a><br>
$emoji[0]<a href="$back" $ackey="0">ホームに戻る</a><br><br>
END
	}
	elsif ($furiwake eq "ezweb") {
		print <<END;
<DISPLAY>
<ACTION TYPE=SOFT1 TASK=RETURN LABEL=BACK>
二人の恋の行方を占いました。<BR><BR>

<CENTER>◆$seiza[$qs{'boy'}]の彼◆<BR><BR>
$boy[$qs{'boy'}]<BR><BR>

<CENTER>◆$seiza[$qs{'girl'}]の彼女◆<BR><BR>
$girl[$qs{'girl'}]<BR><BR>

<CENTER>◆二人の相性◆<BR>
<CENTER>($probabillity％以上)<BR><BR>

$result<BR><BR>
----------<BR>
<A TASK=GO DEST="$back" LABEL="GO">ホームに戻る</a><BR><BR>

<CENTER>(C)Mamiko's Page<BR>
<CENTER>Edit <A TASK=GO DEST="http://www.torworld.com/">Tor World</A>
</DISPLAY>
END
	}
	else {
		print <<END;
<table width="520" bgcolor="royalblue" align="center">
  <tr>
    <td align="center"><font color="white"><b>$title<b></font></td>
  </tr>
</table>
<br>
<table align="center" border="0">
  <tr>
    <td align="center">
	二人の恋の行方を占いました。<br>
	<font size="-1">| <a href="$back">戻る</a> | <a href="$script_name?">星座選択画面へ</a> |</font>
    </td>
  </tr>
</table>
<br>

<table align="center" border="0" width="500">
<tr><td><font color="$boy_color"><b>$seiza[$qs{'boy'}]の彼</b></font></td></tr>
</table>
<table align="center" border="0" width="500">
  <tr>
    <td>
	$boy[$qs{'boy'}]
    </td>
  </tr>
</table><br>

<table align="center" border="0" width="500">
<tr><td><font color="$girl_color"><b>$seiza[$qs{'girl'}]の彼女</b></font></td></tr>
</table>
<table align="center" border="0" width="500">
  <tr>
    <td>
	$girl[$qs{'girl'}]
    </td>
  </tr>
</table><br>

<hr size="1" width="500"><br>

<table align="center" border="0" width="500">
<tr><td><font color="#0000FF">二人の相性は・・・・・ <b>$probabillity％以上</b></font></td></tr>
</table>
<table align="center" border="1" width="500" cellpadding="5">
  <tr>
    <td>
	$result
    </td>
  </tr>
</table>
<br>
<br>
END
	}
&footer;
}

#--------（エラーメッセージ）
sub error{
	&header;
	if ($furiwake eq "mobile") {
		print <<"EOM";
<hr size=1><center><font color="#FF0000">$_[0]</font><br></center><hr size=1>
$_[1]
<hr size=1>
$emoji[0]<a href="$script_name?$t_type" $ackey="0">トップに戻る</a>
</body>
</html>
EOM
	}
	elsif ($furiwake eq "ezweb") {
		print "<DISPLAY>\n<CENTER>$_[0]<BR><BR>\n$_[1]\n</DISPLAY>\n";
		print "</HDML>\n";
	}
	else {
	print <<"END";
<center>
<table border="0" cellpadding="10" width="600" align="center">
<tr><td align="center">
  <h3>$_[0]</h3>
  <p>$_[1]</p>
  | <a href=\"$script_name?\">入力画面へ</a> |
</td></tr>
</table>
</center>
</body>
</html>
END
	}
    exit;
}
exit 0;

#--------（ブラウザによって処理分け）
sub furiwake {
	$ackey = "accesskey";
	$type = $qs{'type'};
	$hr = "<hr size=\"1\">";
	$br = "<br>";
	$method = "POST";
	$agent = $ENV{"HTTP_USER_AGENT"};
	@seiza = ('牡羊座','牡牛座','双子座','蟹座','獅子座','乙女座','天秤座','蠍座','射手座','山羊座','水瓶座','魚座');
	if ($agent =~ /DoCoMo|L-mode/i){
		@emoji = ("��","��");
		@seiza = ('�ｧ 牡羊座','�ｨ 牡牛座','�ｩ 双子座','�ｪ 蟹座','�ｫ 獅子座','�ｬ 乙女座','�ｭ 天秤座','�ｮ 蠍座','�ｯ 射手座','�ｰ 山羊座','�ｱ 水瓶座','�ｲ 魚座');
		$furiwake = "mobile";
	}
	elsif ($ENV{HTTP_X_JPHONE_COLOR}
		|| $ENV{HTTP_X_JPHONE_DISPLAAY}
		|| $ENV{HTTP_X_JPHONE_MSNAME}
		|| $ENV{HTTP_X_JPHONE_SOUND}
		|| $agent =~ /J-PHONE/) {
		@emoji = ("","");
		$method = "GET";
		$furiwake = "mobile";
		$ackey = "directkey";
	}
	elsif ($agent =~ /ASTEL/i) {
		@emoji = ("�ｵ","�ｶ");
		@seiza = ('�u 牡羊座','�v 牡牛座','�w 双子座','�x 蟹座','�y 獅子座','�z 乙女座','�{ 天秤座','�| 蠍座','�~ 射手座','�� 山羊座','�� 水瓶座','�� 魚座');
		$furiwake = "mobile";
	}
	elsif ($agent =~ /^UP\.Browser/i) {
		$furiwake = "ezweb"; $mobile = "ezweb";
		$ackey = "ACCESSKEY"; $hr = "--------------<BR>";
	}
	elsif ($agent =~ /KDDI\-/i || $agent =~ /UP\.Browser/i) {
		@emoji = ("0.","1.");
		$furiwake = "mobile"; $mobile = "xhtml";
		$hr = "<hr size=\"1\" />"; $br = "<br />";
	}
	elsif ($agent =~ /DDIPOCKET/) {
		@emoji = ("0.","1.");
		$furiwake = "mobile"; $mobile = "airH";
	}
	else {
		@emoji = ("[0]","[1]");
		if ($type eq "mobile") { $furiwake = "mobile"; $pc = "yes"; $t_type="type=mobile"; }
		else { $furiwake = "pc"; }
	}
}


#--------(ページのヘッダ)
sub header {
	if ($furiwake eq "mobile" && $pc ne "yes") {
		print "Content-type: text/html; charset=Shift_JIS\n\n";
		print "<html>";
		print "<head>";
		print "<title>$title $_[0]</title>";
		print "<body bgcolor=\"$bgcolor\" text=\"$text\" link=\"$link\" vlink=\"$vlink\" alink=\"$alink\">";
	}
	elsif ($furiwake eq "ezweb") {
		print "Content-type: text/x-hdml; charset=Shift_JIS\n\n";
		print "<HDML VERSION=3.0 MARKABLE=TRUE PUBLIC=TRUE TTL=0>\n";
	}
	else {
		print "Content-type: text/html; charset=Shift_JIS\n\n";
		print "<!DOCTYPE HTML PUBLIC \"-//W3C//DTD HTML 4.01 Transitional//EN\">\n";
		print "<html lang=\"ja\">\n";
		print "<head>\n";
		print "<META http-equiv=\"Content-Type\" content=\"text/html; charset=Shift_JIS\">\n";
		print "<META http-equiv=\"Content-Style-Type\" content=\"text/css\">\n";
		print "<title>$title $_[0]</title>\n";
		print "<STYLE TYPE=\"text/css\">\n";
		print "<!--\n";
		print "body,th,tr,td,form    {font-size: 11pt }\n";
		print "a:link    { font-size: 11pt; text-decoration:none; color:$link }\n";
		print "a:visited { font-size: 11pt; text-decoration:none; color:$vlink }\n";
		print "a:active  { font-size: 11pt; text-decoration:underline; color:$alink }\n";
		print "a:hover   { font-size: 11pt; text-decoration:underline; color:$alink }\n";
		print "-->\n";
		print "</STYLE>\n";
		if ($qs{'action'} ne "telling") {
			print "<script Language=\"JavaScript\">\n";
			print "<!--\n";
			print "function Form_Validator(theForm){\n";
			print "	var i;\n";
			print "	var radioSelected = false;\n";

			print "	for (i = 0;  i < theForm.boy.length;  i++){\n";
			print "		if (theForm.boy[i].checked){\n";
			print "			radioSelected = true;\n";
			print "		}\n";
			print "	}\n";
			print "	if (!radioSelected){\n";
			print "		alert(\"彼の星座を選択してください。\");\n";
			print "		return (false);\n";
			print "	}\n\n";

			print "	radioSelected = false;\n";
			print "	for (i = 0;  i < theForm.girl.length;  i++){\n";
			print "		if (theForm.girl[i].checked){\n";
			print "			radioSelected = true;\n";
			print "		}\n";
			print "	}\n";
			print "	if (!radioSelected){\n";
			print "		alert(\"彼女の星座を選択してください。\");\n";
			print "		return (false);\n";
			print "	}\n";
			print "	return (true);\n";
			print "}\n";
			print "//--></script>\n";
		}
		print "</head>\n";

		if ($bground) {
			print "<body background=\"$bground\" bgcolor=\"$bgcolor\" text=\"$text\" link=\"$link\" vlink=\"$vlink\" alink=\"$alink\">\n";
		}
		else {
			print "<body bgcolor=\"$bgcolor\" text=\"$text\" link=\"$link\" vlink=\"$vlink\" alink=\"$alink\">\n";
		}
	}
}

#--------(ページのフッタ)
sub footer {
	if ($furiwake eq "mobile" && $pc ne "yes") {
		print "<center><a href=\"http://www.nmt.ne.jp/~mamiko/i/\"></a><br>";
		print "Edit <a href=\"http://www.torworld.com/\"></a><br></center></body></html>";
	}
	elsif ($furiwake eq "ezweb") {
		print "</HDML>";
	}
	else {
		print "<center><div align=\"center\">\n";
		print "<a href=\"http://www.nmt.ne.jp/~mamiko/\"></a><br>\n";
		print "<a href=\"http://www.torworld.com/\"></a>\n";
		print "</div></center>\n";
		print "</body></html>\n";
    }
}