sub event_happen {
	$hassei_rand = int(rand(10))+1;
	if ($hassei_rand == 1){
#イベント発生の場合
			$event_rand = int(rand(25))+1;		#ver.1.30
			$happend_ivent .= <<"EOM";
<font color="#000000">イベント発生！</font><br>
EOM
			if ($event_rand == 1){
					$syou_rand = int(rand(10000))+1;
					if ($money <= 0){
						$happend_ivent .= "<div class=purasu>●泥棒に入られましたが、盗むお金が無かったので捨てぜりふを残して立ち去りました。</div>";
					}else{ 
						if($money < $syou_rand){$syou_rand=$money;}
						$money -= $syou_rand;
						$happend_ivent .= "<div class=mainasu>●泥棒に入られました。$syou_rand円盗まれました。</div>";
					}
			}
			
			if ($event_rand == 2){
					$syou_rand = int(rand(10000))+1;
					$happend_ivent .= "<div class=purasu>●道でお財布を拾いました。$syou_rand円入っていたのでやっぱりねこばばしました。</div>";
					$money += $syou_rand;
			}
			
			if ($event_rand == 3){
					if (int(rand(2))+1 == 1){
						$happend_ivent .= "<div class=purasu>●宣教師に出会い、親しげに話しかけられたうえ、英語を教えてくれました。英語力３アップ！</div>";
						$eigo += 3;
						&motimono_kensa("英文解釈教室");
						if ($kensa_flag == 1){
							$happend_ivent .= "<div class=purasu>●また、英文解釈教室を持っていたところを見つかり、さらに熱心に教えてくれました。英語力5アップ！</div>";
							$eigo += 5;
						}
					}else{
						$happend_ivent .= "<div class=mainasu>●英語の先生に見放されました。英語力３ダウン！</div>";
						$eigo -= 3;
					}
			}
			
			if ($event_rand == 4){
					$happend_ivent .= "<div class=mainasu>●風邪を引いてしまいました。</div>";
					$byouki_sisuu = -15;
			}
			
			if ($event_rand == 5){
					$happend_ivent .= "<div class=mainasu>●NHKの集金がやってきました。1000円払いました。</div>";
					$money -= 1000;
			}
			
			if ($event_rand == 6){
					$happend_ivent .= "<div class=purasu>●失恋してやけ食いしました。体重が1kg増えました。</div>";
					$taijuu += 1;
			}
			
			if ($event_rand == 7){
					if (int(rand(2))+1 == 1){
					$happend_ivent .= "<div class=purasu>●文学に目覚めました。国語力３アップ！</div>";
					$kokugo += 3;
					}else{
					$happend_ivent .= "<div class=mainasu>●パ\ソ\コンばかりして漢字を忘れてしまいました。国語力３ダウン！</div>";
					$kokugo -= 3;
					}
			}
			
			if ($event_rand == 8){
					if (int(rand(2))+1 == 1){
					$happend_ivent .= "<div class=purasu>●数学パズルで遊びました。数学力３アップ！</div>";
					$suugaku += 3;
					}else{
					$happend_ivent .= "<div class=mainasu>●数字恐怖症になりました。数学力３ダウン！</div>";
					$suugaku -= 3;
					}
			}
			
			if ($event_rand == 9){
					if (int(rand(2))+1 == 1){
					$happend_ivent .= "<div class=purasu>●テレビで科学の番組を見ました。理科の力が３アップ！</div>";
					$rika += 3;
					}else{
					$happend_ivent .= "<div class=mainasu>●理科の実験で試験管を割ってしまいました。理科の力が３ダウン！</div>";
					$rika -= 3;
					}
			}
			
			if ($event_rand == 10){
					if (int(rand(2))+1 == 1){
					$happend_ivent .= "<div class=purasu>●歴史の本を読みました。社会の力が３アップ！</div>";
					$syakai += 3;
					}else{
					$happend_ivent .= "<div class=mainasu>●社会への関心が引き潮が引くように無くなっていきました。社会の力が３ダウン！</div>";
					$syakai -= 3;
					}
			}
			
			if ($event_rand == 11){
					if (int(rand(2))+1 == 1){
					$happend_ivent .= "<div class=purasu>●ピアノの練習をしました。音楽の力が３アップ！</div>";
					$ongaku += 3;
					}else{
					$happend_ivent .= "<div class=mainasu>●飲み会で騒ぎすぎガラガラ声になりました。音楽の力が３ダウン！</div>";
					$ongaku -= 3;
					}
					&motimono_kensa("成り上がり");
					if ($kensa_flag == 1){
							$happend_ivent .= "<div class=purasu>●「成り上がり」を読んで音楽へのやる気がわいてきました。音楽5アップ</div>";
							$ongaku += 3;
					}
			}
			
			if ($event_rand == 12){
					if (int(rand(2))+1 == 1){
					$happend_ivent .= "<div class=purasu>●芸術に目覚めました。美術の力が３アップ！</div>";
					$bijutu += 3;
					}else{
					$happend_ivent .= "<div class=mainasu>●美術の授業で居眠りをしてしまいました。美術の力が３ダウン！</div>";
					$bijutu -= 3;
					}
			}
			
			if ($event_rand == 13){
					$kuzi_rand = int(rand(15))+1;
					$kuzi_gaku = $kuzi_rand * 10000;
					$happend_ivent .= "<div class=purasu>●ラッキーくじが当たりました！$kuzi_rand万円ゲット！</div>";
					$money += $kuzi_gaku;
			}
			
			if ($event_rand == 14){
					$happend_ivent .= "<div class=purasu>●不思議に優しい気持ちにつつまれました。LOVE度が５アップ！</div>";
					$love += 5;
			}
			
			if ($event_rand == 15){
					$happend_ivent .= "<div class=mainasu>●裸で寝ていたら体調を崩したようです。</div>";
					$byouki_sisuu = -8;
			}
			
			if ($event_rand == 16){
				if ($money <= 0){
					$happend_ivent .= "<div class=mainasu>●スリが入りましたが、「ちっ、ここには金がねぇ。。」と言って出て行きました。</div>";
				}else{
					$happend_ivent .= "<div class=mainasu>●スリに遭いました。持ち金が半分になってしまいました。</div>";
					$money = int ($money/2);
				}
			}
			
			if ($event_rand == 17){
							$myranded=int(rand(2))+1;
							&motimono_kensa("おばあちゃんの知恵袋");
							if ($kensa_flag == 1){
									$happend_ivent .= "<div class=purasu>●おばあちゃんの知恵をまとめて出した本の印税が3000円入りました。</div>";
									$money=$money+3000;
							}elsif($myranded == 1){
									$happend_ivent .= "<div class=purasu>●出した本の印税が1000円入りました。</div>";
									$money=$money+1000;
							}else{
									$happend_ivent .= "<div class=purasu>●出した本の印税が500円入りました。</div>";
									$money=$money+500;
							}

			}
			if ($event_rand == 18){
							$myranded=int(rand(2))+1;
							&motimono_kensa("フラフープ");
							if ($kensa_flag == 1){
									$happend_ivent .= "<div class=purasu>●家にあったフラフープがハッピーな出来事を運んできたようです！家の前に777円落ちてました。</div>";
									$money=$money+777;
							}elsif($myranded == 1){
									$happend_ivent .= "<div class=purasu>●家の前に100円落ちてました。</div>";
									$money=$money+100;
							}else{
									$happend_ivent .= "<div class=mainasu>●前に財布をねこばばした事がばれて逆に500円払いました。</div>";
									$money=$money-500;
							}

			}
			
			if ($event_rand == 19){
							&motimono_kensa("谷保天満宮のお守り");
							if ($kensa_flag == 1){
									$happend_ivent .= "<div class=purasu>●車にひかれかけましたが『谷保天満宮のお守り』が守ってくれ、さらに謝罪費として3万をもらうことができました。</div>";
									$money=$money+30000;
							}elsif($speed <= 180){
									$happend_ivent .= "<div class=mainasu>●車にひかれて軽いケガを負いました。入院費として3万円かかりました。</div>";
									$money=$money-30000;
							}else{
									$happend_ivent .= "<div class=purasu>●車にひかれかけましたが、軽いフットワークでかわしました。</div>";
							}

			}
			
			if ($event_rand == 20){
							$myranded=int(rand(2))+1;
							&motimono_kensa("幸せを呼ぶ香水");
							if ($kensa_flag == 1){
									$happend_ivent .= "<div class=purasu>●家にあった「幸せを呼ぶ香水」が持ち金を倍にしてくれました！</div>";
									$money=$money * 2;
							}elsif($myranded == 1){
									$happend_ivent .= "<div class=purasu>●家の前に300円落ちてました。</div>";
									$money=$money+300;
							}else{
									$happend_ivent .= "<div class=mainasu>●パチンコで１万すってしまいました。。</div>";
									$money=$money-10000;
							}
			}
			
			if ($event_rand == 21){
							$myranded=int(rand(2))+1;
							&motimono_kensa("バイアグラ");
							if ($kensa_flag == 1){
									$happend_ivent .= "<div class=purasu>●家にあった「バイアグラ」を使ってLOVE度＆エッチ度３アップ！</div>";
									$love += 3;
									$etti += 3;
							}elsif($myranded == 1){
									$happend_ivent .= "<div class=purasu>●友人がこっそりスッポンエキスを送ってきてくれました。エッチ度３アップ！</div>";
									$etti += 3;
							}else{
									$happend_ivent .= "<div class=mainasu>●下痢気味でエッチにも力が入りません。。エッチ度３ダウン。。</div>";
									$etti -= 3;
							}
			}
			
			if ($event_rand == 22){
				if (int(rand(2))+1 == 1){
					$happend_ivent .= "<div class=mainasu>●地震が発生しました！！持ち金が３分の１になってしまいました。</div>";
					$money = int ($money/3);
				}else{
					$happend_ivent .= "<div class=purasu>●資産運用に成功して持ち金が倍になりました。</div>";
					$money = int ($money*2);
				}
			}
#ver.1.30ここから
			if ($event_rand == 23){
							$myranded=int(rand(4))+1;
							&motimono_kensa("ブラタンメンバーズカード");
							if ($kensa_flag == 1){
								if ($myranded == 1){
									$happend_ivent .= "<div class=purasu>●「ブラタンメンバーズカード」特典♪　現金1万円が当たりました！</div>";
									$money += 10000;
								}elsif ($myranded == 2){
									$happend_ivent .= "<div class=purasu>●「ブラタンメンバーズカード」特典♪　現金10万円が当たりました！</div>";
									$money += 100000;
								}elsif ($myranded == 3){
									$happend_ivent .= "<div class=purasu>●「ブラタンメンバーズカード」特典♪　現金50万円が当たりました！</div>";
									$money += 500000;
								}elsif ($myranded == 4){
									$happend_ivent .= "<div class=purasu>●「ブラタンメンバーズカード」特典♪　現金100万円が当たりました！</div>";
									$money += 1000000;
								}
							}else{
									$nouzeigaku = int ($k_sousisan * 0.01);
									if ($nouzeigaku < 0){$nouzeigaku = 0;}
									$money -= $nouzeigaku;
									if ($nouzeigaku == 0){
										$happend_ivent .= "<div class=purasu>●税務署がやってきましたが、あまりに貧乏だったため納税を免れました。</div>";
									}else{
										if ($nouzeigaku =~ /^[-+]?\d\d\d\d+/g) {for ($i = pos($nouzeigaku) - 3, $j = $nouzeigaku =~ /^[-+]/; $i > $j; $i -= 3) {substr($nouzeigaku, $i, 0) = ',';}}
										$happend_ivent .= "<div class=mainasu>●税務署に総資産の１％である$nouzeigaku円を納税しました。</div>";
									}
							}
			}
			if ($event_rand == 24){
				if (int(rand(10))+1 == 1){
					$kuzi_rand = int(rand(10))+1;
					$kuzi_gaku = $kuzi_rand * 1000000;
					$kuzi_hyouzi = $kuzi_rand . "00";
					$happend_ivent .= "<div class=purasu>●宝くじが当たりました！$kuzi_hyouzi万円ゲット！</div>";
					$money += $kuzi_gaku;
				}else{
					$happend_ivent .= "<div class=mainasu>●宝くじを3000円分購入しましたがやっぱり外れました。</div>";
					$money -= 3000;
				}
			}
			if ($event_rand == 25){
					$happend_ivent .= "<div class=mainasu>●ゲームばかりしていてノイローゼになりました。体重が1kg減りました。</div>";
					$taijuu -= 1;
			}
#ver.1.30ここまで
			
$happend_ivent .= <<"EOM";
<OBJECT classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000"
 codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,0,0"
 WIDTH="5" HEIGHT="5" id="happen">
 <PARAM NAME=movie VALUE="$img_dir/happen.swf"> <PARAM NAME=loop VALUE=false> <PARAM NAME=quality VALUE=low> <PARAM NAME=wmode VALUE=transparent> <PARAM NAME=bgcolor VALUE=#ffffaa> <EMBED src="$img_dir/happen.swf" loop=false quality=low wmode=transparent bgcolor=#ffffaa  WIDTH="5" HEIGHT="5" NAME="happen" TYPE="application/x-shockwave-flash" PLUGINSPAGE="http://www.macromedia.com/go/getflashplayer"></EMBED>
</OBJECT>
EOM
#アド表示
	}elsif ($hassei_rand == 2){
					$happend_ivent .= "<IFRAME src=\"http://macler.com/ranran_banner_text/ranran_banner.cgi\"  width=100% height=40 scrolling=no marginheight=0 FRAMEBORDER=0></IFRAME>";
	
#挨拶の場合
	}else{
		open(IN,"$aisatu_logfile") || &error("Open Error : $aisatu_logfile");
		@aisatu_data = <IN>;
		close(IN);
				srand(time^$$);
				$a_randed=rand($#aisatu_data+1);
				$aisatu_data=splice(@aisatu_data,$a_randed,1);
				local($a_num,$a_name,$a_date,$a_com,$a_syurui,$a_yobi2)= split(/<>/, $aisatu_data);
				if ($a_num eq ""){
					$happend_ivent .= "";
				}else{
					if ($a_yobi2){$icon_hyouzi_a = "$a_yobi2";}else{$icon_hyouzi_a = "";}
					$happend_ivent .= "$icon_hyouzi_a<span style=\"color:#ff6600\">$a_nameさんの『$a_syurui』</span>：$a_com $a_date";
				}
	}
}


####挨拶
sub aisatu {
	my(@all_data,$a_total_kizisuu,$top);
	if ($in{'command'} eq "icon_touroku"){
		$kounyuu = $in{'my_icon'};
		&temp_routin;
		&log_kousin($my_log_file,$k_temp);
			&message("アイコンの設定をしました。","login_view");
			exit;
#投稿処理の場合
	}elsif ($in{'command'} eq "aisatu_do"){
		if (length($in{'a_com'}) > 120) {&error("挨拶は60字以内です");}
		if ($in{'a_com'} eq "") {&error("コメントが入力されていません");}
			&lock;
		#ログファイル更新
			# ログを読み込み
			open(IN,"$aisatu_logfile") || &error("Open Error : $aisatu_logfile");
			# 先頭行を取得
			$top = <IN>;
			@all_data = <IN>;
			$a_total_kizisuu = @all_data;
			local($a_num,$a_name,$a_date,$a_com,$a_syurui,$a_yobi2)= split(/<>/, $top);
#a_yobi2 = アイコンのURL
			close(IN);
		
		#タグ禁止処理
				$in{'a_com'} =~ s/</&lt;/g;
				$in{'a_com'} =~ s/>/&gt;/g;
				$in{'a_com'} =~ s/([^=^\"]|^)(https?\:[\w\.\~\-\/\?\&\+\=\:\@\%\;\#\%]+)/$1<a href=\"$2\" target=\"_blank\">$2<\/a>/g;
#ver.1.40ここから
			$name_seikei = $in{'name'} . "<input type=hidden name=sousinsaki_name value=$in{'name'}>";
			if ($name_seikei eq "$a_name" && $in{'a_com'} eq "$a_com") {
				&error("二重投稿です");
			}
#ver.1.40ここまで
			
			&time_get;
		#更新配列を定義
			$a_num ++;
			if ($kounyuu){$icon_hensuu = "<img src=$kounyuu width=32 height=32 align=left>";}
			else{$icon_hensuu = "";}
			$a_toukou = "$a_num<>$in{'name'}<input type=hidden name=sousinsaki_name value=$in{'name'}><>（$date2）<input type=submit value=\"メールする\" style=\"font-size:9px;border-style: solid; border-width: 0px;\"><>$in{'a_com'}<>$in{'a_syurui'}<>$icon_hensuu<>\n";
		
			@new_all_data = ();
			$new_all_data[0] = $a_toukou;
			$new_all_data[1] = $top;
			$i = 0;
			foreach (@all_data){
				$i ++ ;
				push (@new_all_data,$_);
				if ($i >= $aisatu_max - 2){last;}
			}
			
		# ログを更新
			open(OUT,">$aisatu_logfile") || &error("Write Error : $aisatu_logfile");
			print OUT @new_all_data;
			close(OUT);
		# ロック解除
			&unlock;
#お金をゲット
	$randed += int(rand(10))+1;
	if ($randed == 7){
		$randed += int(rand(10000))+5000;
		$money += $randed;
		$message_in = "ボーナスです！$randed円のお金をゲットしました。";
	}else{
		$randed += int(rand(2000))+1000;
		$money += $randed;
		$message_in = "$randed円のお金を得ました。";
	}
	&temp_routin;
	&log_kousin($my_log_file,$k_temp);
			&message("投稿しました。$message_in","login_view");
			exit;
	}	#投稿の場合の閉じ
	
	foreach (@aisatu_keyword){
		$aisatu_syurui .= "<option value=$_>$_</option>\n"
	}
	if ($kounyuu){
		$icon_hyouzi_url = "$kounyuu";
		$icon_hyouzi = "<img src=$kounyuu width=32 height=32>";
	}else{
		$icon_hyouzi_url = "http://";
		$icon_hyouzi = "";
	}
	&header("");
	print <<"EOM";
	<form method="POST" action="$script">
	<input type=hidden name=mode value="aisatu">
	<input type=hidden name=name value="$in{'name'}">
	<input type=hidden name=pass value="$in{'pass'}">
	<input type=hidden name=command value="aisatu_do">
	<input type=hidden name=town_no value=$in{'town_no'}>
	<br><br><table  width=550 border="0" cellspacing="0" cellpadding="15" align=center class=yosumi>
	<tr><td bgcolor=#ffffcc>
	<div align=center><select name=a_syurui>
	$aisatu_syurui
	</select><br><br>
	<input type=text name=a_com size=80></div>
	<br>※ここで投稿したコメントはメッセージ窓にランダムに表\示されます。文字数は60字以内。タグ禁止です。<br><br><div align=center>
	<input type=submit value=" O K "></div>
  </td>
</tr>
</table>
	</form>
	
	<form method="POST" action="$script">
	<input type=hidden name=mode value="aisatu">
	<input type=hidden name=name value="$in{'name'}">
	<input type=hidden name=pass value="$in{'pass'}">
	<input type=hidden name=command value="icon_touroku">
	<input type=hidden name=town_no value=$in{'town_no'}>
	<br><br><table width=550 border="0" cellspacing="0" cellpadding="15" align=center class=yosumi>
	<tr><td>
	<div class=honbun2>○自分のアイコン画像設定</div>
	$icon_hyouzi<br>
	※こちらで自分のアイコン画像を設定することができます。http://～で始まる絶対URLにて指定してください。サイズは32×32限定です。<br>
	画像のURL <input type=text name=my_icon size=60 value="$icon_hyouzi_url"></div>
	<br>※設定したアイコンは、挨拶ウインドウやストリートファイトで表\示されます。<br><br><div align=center>
	<input type=submit value=" O K "></div>
  </td>
</tr>
</table>
	</form>
EOM
	&hooter("login_view","戻る");
	exit;
}

###持ち物チェックサブルーチン
sub motimono_kensa {		#ver.1.40
	$monokiroku_file="./member/$k_id/mono.cgi";
	if (! -e $monokiroku_file){open (MOF,">$monokiroku_file") || &error("自分の購入物ファイルを作成できません");}
	close(MOF);
	open(MK,"$monokiroku_file") || &error("自分の購入物ファイルが開けません");
	@my_kounyuu_list =<MK>;
	close(MK);
	$kensa_flag=0;
	foreach $one_kounyuu_item (@my_kounyuu_list){
		&syouhin_sprit ($one_kounyuu_item);
		if ($syo_taikyuu <= 0){next;}
		foreach $check_item (@_){
			if ($check_item eq "$syo_hinmoku"){$kensa_flag=1;last;}
		}
	}
}

1;
